Clean up bash configuration, and bash-emacs integration

1 files changed, 26 insertions, 0 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index e635b77..90fda1b 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -161,6 +161,32 @@ sh-script.el is broken."
 (advice-add 'sh-smie-sh-rules :filter-args
            #'sh-smie-sh-rules--fix)
 
+;; Ideally, figuring this out should be done by uniquify, but I
+;; haven't determined how to get uniquify to think that it manages the
+;; term buffer.
+(defun term-get-short-cwd ()
+    ;; local base=$PWD
+    ;; local suffix=''
+    ;; # The regex here is a list of directory names
+    ;; # that aren't really helpful, and that the
+    ;; # parent directory should be included also.
+    ;; if [[ $base =~ (/(src|pkg|doc|pkg-libre|src-libre|trunk|tags|branches))*$ ]]; then
+    ;;         suffix=$BASH_REMATCH
+    ;;         base=${base%$suffix}
+    ;; fi
+    ;; base=${base##*/}
+    ;; echo ${base}${suffix}
+    (directory-file-name default-directory))
+(defun term-handle-ansi-terminal-messages--uniquify (args)
+  (rename-buffer (concat
+                  (replace-regexp-in-string "<.*>$" "" (buffer-name))
+                  "<"
+                  (term-get-short-cwd)
+                  ">")
+                 t))
+(advice-add 'term-handle-ansi-terminal-messages :after
+           #'term-handle-ansi-terminal-messages--uniquify)
+
 (require 'go-mode-load nil t)