add eshell prefs

emacs.el

@@ -805,6 +805,13 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
      (require 'multi-term nil t)
      (setq multi-term-switch-after-close nil))
 
+(defun my-term-quit-or-send-raw ()
+  ""
+  (interactive)
+  (if (get-buffer-process (current-buffer))
+      (call-interactively 'term-send-raw)
+    (kill-buffer)))
+
 ;; http://d.hatena.ne.jp/goinger/20100416/1271399150
 ;; (setq term-ansi-default-program shell-file-name)
 (add-hook 'term-setup-hook (lambda ()
@@ -820,6 +827,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
                               ;; (define-key term-raw-map "\C-t" 'set-mark-command)
                               (define-key term-raw-map "\C-x" (lookup-key (current-global-map) "\C-x"))
                               (define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z")))
+                            (define-key term-raw-map "q" 'my-term-quit-or-send-raw)
                             (define-key term-raw-map (kbd "ESC") 'term-send-raw)
                             (define-key term-raw-map [delete] 'term-send-raw)
                             (define-key term-raw-map "\C-h" 'term-send-backspace)
@@ -1500,6 +1508,7 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
       (eshell-send-input))))
 
 (setq eshell-directory-name "~/.emacs.d/eshell/")
+(setq eshell-term-name "eterm-color")
 (setq eshell-scroll-to-bottom-on-input t)
 (setq eshell-cmpl-ignore-case t)
 (setq eshell-cmpl-cycle-completions nil)
@@ -1561,21 +1570,25 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
             (mapcar (lambda (alias)
                       (add-to-list 'eshell-command-aliases-list
                                    alias))
-                    '(("ll" "ls -l")
-                      ("la" "ls -a")
-                      ("lla" "ls -al")
-                      ("ut" "slogin 03110414@un001.ecc.u-tokyo.ac.jp")
-                      ("aptin" "sudo apt-get install")
-                      ("u" "uname")
+                    '(
+                      ; ("ll" "ls -l $*")
+                      ; ("la" "ls -a $*")
+                      ; ("lla" "ls -al $*")
+                      ("ut" "slogin 03110414@un001.ecc.u-tokyo.ac.jp $*")
+                      ("aptin" "apt-get install $*")
                       ("eless" "cat >>> (with-current-buffer (get-buffer-create \"*eshell output\") (erase-buffer) (setq buffer-read-only nil) (current-buffer)); (view-buffer (get-buffer \"*eshell output*\"))")
-                      ("g" "git")))
+                      ("g" "git $*")
+                      ))
+            ; (eshell/alias "g" "git $*")
             (add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer)
             (apply 'eshell/addpath exec-path)
             (set (make-variable-buffer-local 'scroll-margin) 0)
-            (eshell/export "GIT_PAGER=")
-            (eshell/export "GIT_EDITOR=")
+            ;; (eshell/export "GIT_PAGER=")
+            ;; (eshell/export "GIT_EDITOR=")
             (eshell/export "LC_MESSAGES=C")
-            (eshell/export "TERM=xterm")
+            (add-to-list 'eshell-visual-commands "vim")
+            (add-to-list 'eshell-visual-commands "git")
+            (switch-to-buffer (current-buffer)) ; move buffer top of list
             ))
 
 ;; (eval-after-load "em-alias"