@@ -36,8 +36,23 @@ (setq mappings nil)) (t (setq mappings (cdr mappings))) ))) +(defun jw-track-go-directories (string) + (let ((out (replace-regexp-in-string "\n$" "" string))) + (if (string-match "\\[cd: \\(.*\\)\\]" out) + (let ((dir (substring out (match-beginning 1) (match-end 1)))) + (jw-cd dir) )))) + (defun jw-tracker (string) (let ((cmd (replace-regexp-in-string "\n$" "" string))) (jw-check-dir-mappings cmd jw-directory-mappings) )) +;;; Add the hooks + (add-hook 'comint-input-filter-functions 'jw-tracker) +(add-hook 'comint-output-filter-functions 'jw-track-go-directories) + +;;; Debugging -------------------------------------------------------- + +(defun jw-debug-tracker (string) + (message (concat "TRACKING STRING: '" string "'"))) + ini/cd-tracking.el 88730c6f0bed91094e564023d39238b1200d9e12 Jim Weirich jim.weirich@gmail.com http://github.com/jimweirich/emacs-setup/commit/a1e4aaa388deafb9254d65653e96fc0ab6294b7b a1e4aaa388deafb9254d65653e96fc0ab6294b7b 2009-06-30T12:31:24-07:00 2009-06-30T12:31:24-07:00 Added improved cd directory tracking. 41bf131e876557b6a55df711e340e09e9f7c8b54 Jim Weirich jim.weirich@gmail.com