X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=75597aa7c1dab392c3f43dbafe4bcc8d75ea796e;hb=dd7b5c05af1ce57f9a3083b523842aebf0b8efaa;hp=d600632ecfb3a2c231ab0580ea09c16f78773118;hpb=e8dc39ef59d18cbe4f9fa914524da1a45fb28cb8;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index d600632..75597aa 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -533,17 +533,6 @@ Revised powerline-center-theme
                                        (powerline-narrow face1 'l)
                                        ;; (powerline-vc face1)
                                        (sd/powerline-simpler-vc (powerline-vc face1))))
-                            (center (list (powerline-raw " " face1)
-                                          (funcall separator-right face1 face2)
-                                          ;; (when (and (boundp 'erc-track-minor-mode) erc-track-minor-mode)
-                                          ;;   (powerline-raw erc-modified-channels-object face2 'l))
-                                          ;; (powerline-major-mode face2 'l)
-                                          ;; (powerline-process face2)
-                                          ;; (powerline-raw " :" face2)
-                                          ;; (powerline-minor-modes face2 'l)
-                                          ;; (powerline-buffer-id mode-line-buffer-id face2 'l)
-                                          ;; (powerline-raw " " face2)
-                                          (funcall separator-left face2 face1)))
                             (rhs (list (powerline-raw global-mode-string face1 'r)
                                        (powerline-raw "%4l" face1 'r)
                                        (powerline-raw ":" face1)     
@@ -553,7 +542,17 @@ Revised powerline-center-theme
                                        (powerline-raw (format-time-string " %I:%M %p  ") my-face1 'r)
                                        ;; (powerline-raw "%6p" my-face1 'r)
                                        ;; (powerline-hud my-face1 face1 )
-                                       )))
+                                       ))
+                            (center (list (powerline-raw " " face1)
+                                          (funcall separator-left face1 face2)
+                                          (when (and (boundp 'erc-track-minor-mode) erc-track-minor-mode)
+                                            (powerline-raw erc-modified-channels-object face2 'l))
+                                          (powerline-major-mode face2 'l)
+                                          (powerline-process face2)
+                                          (powerline-raw " :" face2)
+                                          (powerline-minor-modes face2 'l)
+                                          (powerline-raw " " face2)
+                                          (funcall separator-right face2 face1))))
                        (concat (powerline-render lhs)
                                (powerline-fill-center face1 (/ (powerline-width center) 2.0))
                                (powerline-render center)
@@ -561,11 +560,6 @@ Revised powerline-center-theme
                                (powerline-render rhs)))))))
 
   (sd/powerline-center-theme_revised)
-
-
-  ;; local test
-  ;; (add-to-list 'load-path "~/.emacs.d/")
-  ;; (require 'my-mode-line)
 #+END_SRC
 
 Fix the issue in mode line when showing triangle 
@@ -795,9 +789,7 @@ use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8
   (use-package org-bullets
     :ensure t
     :init
-    (add-hook 'org-mode-hook
-              (lambda ()
-                (org-bullets-mode t))))
+    (add-hook 'org-mode-hook (apply-partially #'org-bullets-mode t)))
 
   (setq org-bullets-bullet-list '("⦿" "✪" "◉" "○" "►" "◆"))
 
@@ -1262,8 +1254,9 @@ set default eshell history folder
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (require 'utilities)
 
-  (add-hook 'eshell-mode-hook (lambda ()
-                                (local-set-key (kbd "C-l") 'sd/eshell-clear-buffer)))
+  ;; (add-hook 'eshell-mode-hook (lambda ()
+  ;;                               (local-set-key (kbd "C-l") 'sd/eshell-clear-buffer)))
+  (add-hook 'eshell-mode-hook (apply-partially #'local-set-key (kbd "C-l") 'sd/eshell-clear-buffer))
 #+END_SRC
 
 ** Toggle Eshell
@@ -2120,9 +2113,7 @@ bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questi
       (define-key lispy-mode-map (kbd "G") 'special-lispy-goto)
       (define-key lispy-mode-map (kbd "M-m") 'back-to-indentation))
     :config
-    (add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1))))
-
-
+    (add-hook 'emacs-lisp-mode-hook (apply-partially #'lispy-mode 1)))
 #+END_SRC
 
 ** Perl
@@ -2142,9 +2133,7 @@ bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questi
   (setq cperl-tab-always-indent t)
   ;(setq cperl-brace-offset  0)
 
-  (add-hook 'cperl-mode-hook
-            '(lambda ()
-               (cperl-set-style "C++")))
+  (add-hook 'cperl-mode-hook (apply-partially #'cperl-set-style "C++"))
 
   (defalias 'perldoc 'cperl-perldoc)
 #+END_SRC
@@ -2680,8 +2669,9 @@ Then Run =M-x gnus=
   ;; (with-eval-after-load 'gnus-summary-mode
   ;;   (define-key gnus-summary-mode-map (kbd "C-o") 'sd/hydra-window/body))
 
-  (add-hook 'gnus-summary-mode-hook (lambda ()
-                                      (define-key gnus-summary-mode-map (kbd "C-o") nil)))
+  ;; (add-hook 'gnus-summary-mode-hook (lambda ()
+  ;;                                     (define-key gnus-summary-mode-map (kbd "C-o") nil)))
+  ;(add-hook 'gnus-summary-mode-hook (apply-partially #'define-key gnus-summary-mode-map (kbd "C-o") nil))
 
 
 #+END_SRC
@@ -3530,7 +3520,7 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828
 * Evil Mode
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   ;; (org-babel-load-file "~/.emacs.d/emacs-evil.org")
-  ;; (require 'init-evil-mode)
+
 #+END_SRC