Atomized » dirtrack

Shell dirtracking again

Ian — Tue, 19 Aug 2008 21:48:43 +0000

Trey Jackson posted this code to handle directory tracking in a shell.

Trey, I don’t know if you know, but you’ve basically reinvented dirtrack.el. It should be included with your Emacs distribution. See my recent posts on the topic.

Support for `user@host’ in ssh-mode

Ian — Wed, 13 Aug 2008 20:30:56 +0000

One of my long-time pet peeves with ssh-mode is that it doesn’t understand user@host syntax. If you want to log in to a remote host as a different user, you must use the more verbose host -l user syntax. If you don’t, and you use the `ftp’ ssh-directory-tracking-mode, tramp gets confused and tries to connect to local-user@remote-user@host, which doesn’t work.

The problem is that ssh-mode treats user@host as the host name, rather than the user+host. This patch addresses that flaw, by detecting and handling user@host syntax.

--- ssh.el.orig	2008-08-13 12:55:21.000000000 -0700
+++ ssh.el	2008-08-13 13:19:17.000000000 -0700
@@ -184,13 +184,15 @@

   (let* ((process-connection-type ssh-process-connection-type)
          (args (ssh-parse-words input-args))
-	 (host (car args))
-	 (user (or (car (cdr (member "-l" args)))
+         (host-parts (split-string (car args) "@"))
+         (host (car (last host-parts)))
+         (user (or (cadr (member "-l" args))
+                   (if (= 2 (length host-parts)) (car host-parts))
                    (user-login-name)))
          (buffer-name (if (string= user (user-login-name))
                           (format "*ssh-%s*" host)
                         (format "*ssh-%s@%s*" user host)))
-	 proc)
+         proc)

     (and ssh-explicit-args
          (setq args (append ssh-explicit-args args)))

Last dirtrack issue solved

Ian — Fri, 08 Aug 2008 18:03:03 +0000

Turns out the problem I ran into was a clash between dirtrack-mode and shell-dirtrack-mode. I had no idea there were two competing packages; the problem was that dirtrack picked up the new path, then shell-dirtrack noticed the “cd ..”.

Solved:

(add-hook 'shell-mode-hook
          (lambda ()
            (setq shell-dirtrackp nil)
            (add-hook 'comint-preoutput-filter-functions 'dirtrack nil t)))

This caused some trouble with ssh-mode. Solved thusly:

(add-hook 'ssh-mode-hook (lambda () (setq dirtrackp nil)))

A problem with my dirtrack regex

Ian — Wed, 06 Aug 2008 21:49:47 +0000

I’ve been happily using my dirtrack regex for a while now, but I just discovered that it breaks when you run cd ... It seems that my regex picks up the correct (new) directory, then shell-mode notices the cd and list-buffers-directory goes up one more level.

I’m not sure how to fix this – is there some way to disable the intercept of “cd?”

Fixing dirtrack

Ian — Mon, 04 Aug 2008 18:00:21 +0000

One of the problems I’ve had with various emacsen is the shell dirtrack support. This keeps the shell-mode’s idea of what directory you’re in in sync with which one you’re actually in. At least in Aquamacs, this support is not very good, and it will break if you use bash features like CDPATH or “cd -”.

My PS1 is:

'\u!\h:\w\$ '

So I wrote this regexp to match it. It should work on a normal Debian install, too.

(":\\(.*\\)[$#] " 1)

Hit M-x customize-variable RET dirtrack-list RET and paste that in.

There is a problem with this, which I solved.