X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=e25b01e95d38e2e1c9fd88709e33cd130b93aed6;hb=a205621d9b2ab3cc7257f88ea0b71fa54ceaaadd;hp=0493da3a6ffe0d1553a04d8634f1e3397a94c80f;hpb=abf9d0c4f2f7fa4904d4488116c300c171c622c2;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 0493da3..e25b01e 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -54,6 +54,9 @@ Set system PATH and emacs exec path
 
   ;;supress the redefined warning at startup
   (setq ad-redefinition-action 'accept)
+
+  (setq scroll-step 1)
+  (setq scroll-margin 5)
 #+END_SRC
 
 *** Custom file 
@@ -355,6 +358,11 @@ improve color for org-mode
 
 #+END_SRC
 
+search text theme
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (set-face-attribute 'lazy-highlight nil :background "yellow" :foreground "black" :weight 'bold)
+#+END_SRC
+
 ** Rainbow-delimiter
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -422,6 +430,8 @@ clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replac
       (irony-mode . "")
       (page-break-lines-mode . "")
       (yas-minor-mode . "y")
+      ;; default jj
+      (evil-escape-mode . "")
       ;; Major modes
       (lisp-interaction-mode . "λ")
       (hi-lock-mode . "")
@@ -545,6 +555,7 @@ Revised powerline-center-theme
                                        ))
                             (center (list (powerline-raw " " face1)
                                           (funcall separator-left face1 face2)
+                                          (powerline-raw (when  (and (boundp 'evil-mode)  evil-mode) evil-mode-line-tag) 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)
@@ -789,9 +800,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 '("⦿" "✪" "◉" "○" "►" "◆"))
 
@@ -1256,8 +1265,11 @@ 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))
+  ;; (add-hook 'eshell-mode-map (lambda () (interactive)
+  ;;                              (define-key eshell-mode-map (kbd "<tab>") 'completion-at-point)))
 #+END_SRC
 
 ** Toggle Eshell
@@ -2108,15 +2120,14 @@ bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questi
   (use-package lispy
     :ensure t
     :init
+    (setq lispy-delete-backward-recenter 0)
     (with-eval-after-load "lispy"
       (define-key lispy-mode-map (kbd "M-o") nil)
       (define-key lispy-mode-map (kbd "g") 'special-lispy-goto-local)
       (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
@@ -2136,9 +2147,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
@@ -2674,8 +2683,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
@@ -3524,7 +3534,6 @@ 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
 
 
@@ -3541,3 +3550,9 @@ Use =display-graphic-p= instead of =window-system=
 blog with modify list
 
 draw one line top of the windows
+* test
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  ;; test local mode line
+  ;; (add-to-list 'load-path "~/.emacs.d/elisp")
+  ;; (require 'my-mode-line)
+#+END_SRC