emacs - fix the bug modeline modified indicator not show readly when the

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

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 4c10ac0..f0a8f95 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)))
@@ -2254,7 +2254,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 +2317,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 +2338,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