X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=b65c3207eeeceba6cbb88e0f33712e90b635d03f;hb=8fd2983cb5cbdce59bb39b0bade969d64e088b75;hp=d6ae9a5f07fbe06aadae8204ad2819aa30405c07;hpb=30ff0a4dc574ec95a5de5cbd96b2f290a484aff8;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index d6ae9a5..b65c320 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -1096,6 +1096,14 @@ Toggle an eshell in split window below, refer [[http://www.howardism.org/Technic
   (global-set-key (kbd "s-e") 'sd/toggle-eshell-here)
 #+END_SRC
 
+** exec-path-from-shell
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package exec-path-from-shell
+    :ensure t
+    :config
+    (exec-path-from-shell-initialize))
+#+END_SRC
+
 ** TODO smart display
 * Misc Settings
 
@@ -1300,25 +1308,6 @@ Type =o= to go to the link
 
 #+END_SRC
 
-** Tabbar
-
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
-  ;; (use-package tabbar-ruler
-  ;;   :ensure t
-  ;;   :init
-  ;;   (setq tabbar-ruler-global-tabbar t)
-  ;;   (setq tabbar-ruler-global-ruler t)
-  ;;   (setq tabbar-ruler-popu-menu t)
-  ;;   (setq tabbar-ruler-popu-toolbar t)
-  ;;   (setq tabbar-use-images t)
-  ;;   :config
-  ;;   (tabbar-ruler-group-by-projectile-project)
-  ;;   (global-set-key (kbd "s-1") 'tabbar-forward-group)
-  ;;   (global-set-key (kbd "s-2") 'tabbar-ruler-forward))
-
-#+END_SRC
-
 ** View only for some directory
 When see function by =C-h f=, and visit the source code, I would like the buffer is read only. See [[http://emacs.stackexchange.com/questions/3676/how-to-enter-view-only-mode-when-browsing-emacs-source-code-from-help/3681#3681][here]]
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -1436,28 +1425,36 @@ Color for Man-mode
   (defun sd/dired-key-map ()
     "My keybindings for dired"
     (interactive)
-    (define-key dired-mode-map (kbd "SPC") 'scroll-up-command)
-    (define-key dired-mode-map (kbd "S-SPC") 'scroll-down-command)
+    ;; these two prefix are used globally
     (define-key dired-mode-map (kbd "C-o") nil)
     (define-key dired-mode-map (kbd "M-s") nil)
-    ;; (define-key dired-mode-map (kbd "l") 'dired-isearch-filenames)
+    ;; toggle hidden files
     (define-key dired-mode-map (kbd "H") 'dired-omit-mode)
+    ;; scroll 
+    (define-key dired-mode-map (kbd "SPC") 'scroll-up-command)
+    (define-key dired-mode-map (kbd "DEL") 'scroll-down-command)
+    ;; (define-key dired-mode-map (kbd "S-SPC") 'scroll-down-command)
+    ;; jump to fil/dirs
+    (define-key dired-mode-map (kbd "f") 'dired-isearch-filenames)
+    ;; subdir
     ;; i dired-maybe-insert-subdir
     ;; o dired-find-file-other-window (switch to other window)
     ;; O dired-display-file
+    (define-key dired-mode-map (kbd "G") 'ido-dired)
     (define-key dired-mode-map (kbd "c") 'sd/dired-new-file)
     (define-key dired-mode-map (kbd "h") 'dired-summary)
     (define-key dired-mode-map (kbd "r") 'revert-buffer)
-    (define-key dired-mode-map (kbd "f") 'dired-isearch-filenames)
-    (define-key dired-mode-map (kbd "DEL") (lambda () (interactive) (find-alternate-file "..")))
+    (define-key dired-mode-map (kbd "l") 'dired-display-file)
+    (define-key dired-mode-map [C-backspace] 'sd/dired-high-level-dir)
     (define-key dired-mode-map (kbd "?") 'describe-mode)
     (define-key dired-mode-map (kbd "z") #'sd/dired-get-size)
     (define-key dired-mode-map (kbd "C-d") 'dired-kill-subdir)
     (define-key dired-mode-map (kbd "M-d") 'dired-kill-subdir)
     (define-key dired-mode-map (kbd "J") 'diredp-next-subdir)
+    (define-key dired-mode-map (kbd "TAB") 'diredp-next-subdir)
     (define-key dired-mode-map (kbd "K") 'diredp-prev-subdir)
     (define-key dired-mode-map (kbd "O") 'dired-display-file)
-    (define-key dired-mode-map (kbd "I") 'other-window))
+    (define-key dired-mode-map (kbd "I") 'other-window)) 
 
   (use-package dired
     :config
@@ -1475,6 +1472,11 @@ Color for Man-mode
     (message
      "Δ: d-delete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, c-create, +new dir, r-evert, h-summary, ?-help,"))
 
+  (defun sd/dired-high-level-dir ()
+    "Go to higher level directory"
+    (interactive)
+    (find-alternate-file ".."))
+
   (setq dired-guess-shell-alist-user
         '(("\\.pdf\\'" "evince" "okular")
           ("\\.\\(?:djvu\\|eps\\)\\'" "evince")