emacs - ido 1) advice ido-summary, 2) disable ido when create directory

[dotfiles.git] / emacs.d / config.org

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 4c10ac0..22edb24 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -437,7 +437,7 @@ Revised powerline-center-theme
     :group 'powerline)
 
   ;; Don't show buffer modified for scratch and eshell mode
-  (defun sd/buffer-show-modified ()
+  (defun sd/buffer-is-eshel-or-scratch ()
     "Dot not show modified indicator for buffers"
     (interactive)
     (unless (or (string-match "*scratch*" (buffer-name))
@@ -454,7 +454,7 @@ Revised powerline-center-theme
                             (mode-line-buffer-id (if active 'sd/mode-line-buffer-id 'mode-line-buffer-id-inactive))
                             (mode-line (if active 'mode-line 'mode-line-inactive))
                             (my-face1 (if active 'sd/powerline-active1 'powerline-inactive1))
-                            (my-face-buffer-modified (if (and (sd/buffer-show-modified) (buffer-modified-p)) 
+                            (my-face-buffer-modified (if (and (sd/buffer-is-eshel-or-scratch) (buffer-modified-p) (not buffer-read-only)) 
                                                          'sd/buffer-modified-active1
                                                        (if buffer-read-only 'sd/buffer-view-active1
                                                          my-face1)))
@@ -904,13 +904,11 @@ Setting agenda files and the agenda view
 #+END_SRC
 
 ** Export PDF
-Install MacTex-basic and some tex packages
-#+BEGIN_SRC bash 
-
+Install MacTex-basic [[http://www.tug.org/mactex/morepackages.html][MacTex-basic]]  and some tex packages
+#+BEGIN_SRC sh 
   sudo tlmgr update --self
 
   sudo tlmgr install titlesec framed threeparttable wrapfig multirow enumitem bbding titling tabu mdframed tcolorbox textpos import varwidth needspace tocloft ntheorem environ trimspaces collection-fontsrecommended capt-of
-
 #+END_SRC
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -1399,7 +1397,7 @@ Color for Man-mode
 #+END_SRC
 
 ** pdf-tools
-#+BEGIN_SRC bash
+#+BEGIN_SRC sh
   brew install poppler
 #+END_SRC
 
@@ -1445,8 +1443,52 @@ Color for Man-mode
     (add-hook 'dired-mode-hook (lambda ()
                                  (sd/dired-key-map)
                                  (dired-omit-mode))))
+
+  (setq dired-guess-shell-alist-user
+        '(("\\.pdf\\'" "evince" "okular")
+          ("\\.\\(?:djvu\\|eps\\)\\'" "evince")
+          ("\\.\\(?:jpg\\|jpeg\\|png\\|gif\\|xpm\\)\\'" "eog")
+          ("\\.\\(?:xcf\\)\\'" "gimp")
+          ("\\.csv\\'" "libreoffice")
+          ("\\.tex\\'" "pdflatex" "latex")
+          ("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'"
+           "vlc")
+          ("\\.\\(?:mp3\\|flac\\)\\'" "rhythmbox")
+          ("\\.html?\\'" "firefox")
+          ("\\.cue?\\'" "audacious")))
+
+#+END_SRC
+
+I would like change the default dired summary 
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (defadvice dired-summary (around sd/dired-summary activate)
+    "Revisied dired summary."
+    (interactive)
+    (dired-why)
+    (message
+     "Δ: d-delete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, +new dir, ?-summary"))
+#+END_SRC
+
+When create a new directory, I want to disalbe =ido= completion. see [[http://stackoverflow.com/questions/7479565/emacs-ido-mode-and-creating-new-files-in-directories-it-keeps-changing-the-dire][here]]. Thhis code snippets copied
+from [[https://emacs.stackexchange.com/questions/13713/how-to-disable-ido-in-dired-create-directory/13795#13795?newreg%3Ddb17c20f7af3490fb11cf15f1d888e9e][How to disable IDO in ‘dired-create-directory’]]
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (defun mk-anti-ido-advice (func &rest args)
+    "Temporarily disable IDO and call function FUNC with arguments ARGS."
+    (interactive)
+    (let ((read-file-name-function #'read-file-name-default))
+      (if (called-interactively-p 'any)
+          (call-interactively func)
+        (apply func args))))
+
+  (defun mk-disable-ido (command)
+    "Disable IDO when command COMMAND is called."
+    (advice-add command :around #'mk-anti-ido-advice))
+
+  ;; call the function which you want to disable ido
+  (mk-disable-ido 'dired-create-directory)
 #+END_SRC
 
+
 ** Dired+
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (use-package dired+
@@ -2254,7 +2296,11 @@ toggle the mark ring. the best way is add a new action and mapping to =helm-sour
 since there is no map such as =helm-mark-ring=map=, so I cannot binding a key to the quit action.
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (setq mark-ring-max 50)
-  (global-set-key (kbd "M-`") #'helm-mark-ring)
+
+  (use-package helm
+    :ensure t
+    :init
+    (global-set-key (kbd "M-`") #'helm-mark-ring))
 
   (define-key minibuffer-local-map (kbd "M-`") 'keyboard-escape-quit)
 #+END_SRC
@@ -2313,10 +2359,8 @@ Search, replace and hightlight will in later paragraph
 
 *** =Imenu= goto tag
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  ;; (global-set-key (kbd "M-i") #'counsel-imenu)
-  (global-set-key (kbd "M-i") #'imenu)
-
-  ;; (global-set-key (kbd "M-l") 'goto-line)
+  (global-set-key (kbd "M-i") #'counsel-imenu)
+  ;; (global-set-key (kbd "M-i") #'imenu)
 #+END_SRC
 
 *** Go-to line
@@ -2336,7 +2380,11 @@ Search, replace and hightlight will in later paragraph
 =helm-show-kill-ring=
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (setq kill-ring-max 100)                ; default is 60p
-  (global-set-key (kbd "M-y") #'helm-show-kill-ring)
+
+  (use-package helm
+    :ensure t
+    :init
+    (global-set-key (kbd "M-y") #'helm-show-kill-ring))
 #+END_SRC
 
 *** undo-tree