X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=2b5d44146321d3ef2c5a09800c585d4b1513c329;hb=b4316cb3b8e64cda22938db82876e3d5bd03addb;hp=7d4aa83dbf8dd4de88d5b8d82b6e61d1a64261d4;hpb=10efb681f16eb6719c1d76e15b7bee5196dcc72a;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 7d4aa83..2b5d441 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -96,7 +96,7 @@ Stop auto save
   (setq auto-save-default nil)
 
   ;; restore last session
-  (desktop-save-mode t)
+  ;; (desktop-save-mode t)
 #+END_SRC
 
 * Package Management Tools
@@ -406,13 +406,37 @@ Install powerline mode [[https://github.com/milkypostman/powerline][powerline]]
 #+END_SRC
 
 Revised powerline-center-theme
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (defun sd/powerline-simpler-vc (s)
     (if s
         (replace-regexp-in-string "Git[:-]" "" s)
       s))
 
+  (defface sd/powerline-active1 '((t (:background "yellow" :foreground "black" :inherit mode-line)))
+    "My Powerline face 1 based on powerline-active1."
+    :group 'powerline)
+
+  (defface sd/buffer-modified-active1 '((t (:background "red" :foreground "black" :inherit mode-line)))
+    "My Powerline face 1 based on powerline-active1."
+    :group 'powerline)
+
+  (defface sd/buffer-view-active1 '((t (:background "green" :foreground "black" :inherit mode-line)))
+    "My Powerline face 1 based on powerline-active1."
+    :group 'powerline)
+
+  (defface sd/mode-line-buffer-id
+    '((t (:background "yellow" :foreground "black" :inherit mode-line-buffer-id)))
+    "My powerline mode-line face, based on mode-line-buffer-id"
+    :group 'powerline)
+
+  ;; Don't show buffer modified for scratch and eshell mode
+  (defun sd/buffer-show-modified ()
+    "Dot not show modified indicator for buffers"
+    (interactive)
+    (unless (or (string-match "*scratch*" (buffer-name))
+                (equal major-mode 'eshell-mode))
+      t))
+
   (defun sd/powerline-center-theme_revised ()
     "Setup a mode-line with major and minor modes centered."
     (interactive)
@@ -420,8 +444,13 @@ Revised powerline-center-theme
                   '("%e"
                     (:eval
                      (let* ((active (powerline-selected-window-active))
-                            (mode-line-buffer-id (if active 'mode-line-buffer-id 'mode-line-buffer-id-inactive))
+                            (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)) 
+                                                         'sd/buffer-modified-active1
+                                                       (if buffer-read-only 'sd/buffer-view-active1
+                                                         my-face1)))
                             (face1 (if active 'powerline-active1 'powerline-inactive1))
                             (face2 (if active 'powerline-active2 'powerline-inactive2))
                             (separator-left (intern (format "powerline-%s-%s"
@@ -430,23 +459,24 @@ Revised powerline-center-theme
                             (separator-right (intern (format "powerline-%s-%s"
                                                              (powerline-current-separator)
                                                              (cdr powerline-default-separator-dir))))
-                            (lhs (list (powerline-raw "%*" mode-line 'l)
+                            (lhs (list (powerline-raw "%* " my-face-buffer-modified 'l)
                                        ;; (powerline-buffer-size mode-line 'l)
                                        (powerline-buffer-id mode-line-buffer-id 'l)
-                                       (powerline-raw " ")
-                                       (funcall separator-left mode-line face1)
+                                       (powerline-raw " " my-face1)
+                                       (funcall separator-left my-face1 face1)
                                        (powerline-narrow face1 'l)
                                        ;; (powerline-vc face1)
-                                       (sd/powerline-simpler-vc (powerline-vc face1))
-                                       ))
+                                       (sd/powerline-simpler-vc (powerline-vc face1))))
                             (rhs (list (powerline-raw global-mode-string face1 'r)
                                        (powerline-raw "%4l" face1 'r)
-                                       (powerline-raw ":" face1)
+                                       (powerline-raw ":" face1)     
                                        (powerline-raw "%3c" face1 'r)
-                                       (funcall separator-right face1 mode-line)
-                                       (powerline-raw " ")
-                                       (powerline-raw "%6p" mode-line 'r)
-                                       (powerline-hud face2 face1)))
+                                       (funcall separator-right face1 my-face1)
+                                       ;; (powerline-raw " " my-face1)
+                                       (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)
@@ -467,21 +497,19 @@ Revised powerline-center-theme
 #+END_SRC
 
 Fix the issue in mode line when showing triangle 
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (setq ns-use-srgb-colorspace nil)
 #+END_SRC
 
 set height in mode line
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
-  (custom-set-variables
-   '(powerline-height 14)
-   '(powerline-text-scale-factor 0.8))
-  ;; 100/140
+  (set-variable 'powerline-height 14)
+  (set-variable 'powerline-text-scale-factor (/ (float 100) 140))
+  ;; (custom-set-variables
+  ;;  '(powerline-height 14)
+  ;;  '(powerline-text-scale-factor (/ (float 100) 140)))
+  ;; 100/140;0.8
   (set-face-attribute 'mode-line nil :height 100)
-
 #+END_SRC
 
 * IDO & SMEX
@@ -600,10 +628,10 @@ Stolen from [[https://github.com/redguardtoo/emacs.d/blob/master/lisp/init-spell
   ;;   ;; Turn off RUN-TOGETHER option when spell check text-mode
   ;;   (setq-local ispell-extra-args (flyspell-detect-ispell-args)))
   ;; (add-hook 'text-mode-hook 'text-mode-hook-setup)
-  (add-hook 'text-mode-hook 'flyspell-mode)
+  ;; (add-hook 'text-mode-hook 'flyspell-mode)
 
   ;; enable flyspell check on comments and strings in progmamming modes
-  (add-hook 'prog-mode-hook 'flyspell-prog-mode)
+  ;; (add-hook 'prog-mode-hook 'flyspell-prog-mode)
 
   ;; I don't use the default mappings
   (with-eval-after-load 'flyspell
@@ -640,39 +668,6 @@ Make flyspell enabled for org-mode, see [[http://emacs.stackexchange.com/questio
     (global-set-key (kbd "C-=") 'er/expand-region))
 #+END_SRC
 
-** Motion
-*** Avy
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (use-package avy
-    :ensure t
-    :config
-    (avy-setup-default))
-#+END_SRC
-
-*** =M-g= prefix
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (global-set-key (kbd "M-g j") 'avy-goto-line-below)
-  (global-set-key (kbd "M-g k") 'avy-goto-line-above)
-  (global-set-key (kbd "M-g w") 'avy-goto-word-1-below)
-  (global-set-key (kbd "M-g b") 'avy-goto-word-1-above)
-  (global-set-key (kbd "M-g e") 'avy-goto-word-0)
-  (global-set-key (kbd "M-g f") 'avy-goto-char-timer)
-  (global-set-key (kbd "M-g c") 'avy-goto-char-in-line)
-
-  ;; M-g TAB              move-to-column
-  ;; M-g ESC              Prefix Command
-  ;; M-g c                goto-char
-  ;; M-g g                goto-line
-  ;; M-g n                next-error
-  ;; M-g p                previous-error
-
-  ;; M-g M-g              goto-line
-  ;; M-g M-n              next-error
-  ;; M-g M-p              previous-error
-#+END_SRC
-
-
-** Search & highlight
 * Key bindings
 
 ** Esc on Minibuffer
@@ -696,45 +691,6 @@ Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
 
 #+END_SRC
 
-** =Ctrl= key bindings
-
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  ;;
-
-  ;; C-h    help    
-  ;; C-j    newline and indent
-  ;; C-k    kill line
-  ;; C-l    recenter-top-bottom
-  ;; (global-set-key (kbd "C-;") 'ido-switch-buffer)
-  ;; C-;
-  ;; C-'   
-  ;; C-ret  
-
-  ;; C-n    next-line
-  ;; C-m
-  ;; C-,
-  ;; C-.
-  ;; C-/
-
-  ;; C-y
-  ;; C-u
-  ;; C-i
-  ;; C-o
-  ;; C-p
-  ;; C-[
-  ;; C-]
-  ;; C-\
-
-  ;; C-=
-  ;; C--
-  ;; C-0
-  ;; C-9
-  ;; C-8
-  ;; C-7
-
-  ;; C-Space
-#+END_SRC
-
 ** =Super= bindings for file, buffer and windows
 
 Some global bindings on =Super=, on Mac, it is =Command=
@@ -825,55 +781,26 @@ Some global bindings on =Super=, on Mac, it is =Command=
 #+END_SRC
 
 ** Search Replace and highlight
-*** Occur
-Occur search key bindings
+*** swiper
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (add-hook 'occur-hook (lambda ()
-                          (switch-to-buffer-other-window "*Occur*")
-                          (define-key occur-mode-map (kbd "C-o") nil)))
-  ;; auto select occur window
-
-  (define-key occur-mode-map (kbd "C-n")
-    (lambda ()
-      (interactive)
-      (occur-next)
-      (occur-mode-goto-occurrence-other-window)
-      (recenter)
-      (other-window 1)))
+  ;; (use-package swiper
+  ;;   :ensure t)
 
-  (define-key occur-mode-map (kbd "C-p")
-    (lambda ()
-      (interactive)
-      (occur-prev)
-      (occur-mode-goto-occurrence-other-window)
-      (recenter)
-      (other-window 1)))
+  ;; (ivy-mode 1)
+  ;; (setq ivy-use-virtual-buffers t)
+  ;; (global-set-key (kbd "s-/") 'swiper)
 
-  (use-package color-moccur
+  (use-package counsel
     :ensure t
-    :commands (isearch-moccur isearch-all)
-    :init
-    (setq isearch-lazy-highlight t)
-    :config
-    (use-package moccur-edit))
-#+END_SRC
-
-*** swiper
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (use-package swiper
-    :ensure t)
-
-  (ivy-mode 1)
-  (setq ivy-use-virtual-buffers t)
-  (global-set-key (kbd "s-/") 'swiper)
+    :defer t)
   ;;* 
   ;; (global-set-key "\C-s" 'swiper)
   ;; (global-set-key (kbd "C-c C-r") 'ivy-resume)
   ;; (global-set-key (kbd "<f6>") 'ivy-resume)
-  ;; ;; (global-set-key (kbd "M-x") 'counsel-M-x)
+  (global-set-key (kbd "M-x") 'counsel-M-x)
   ;; ;; (global-set-key (kbd "C-x C-f") 'counsel-find-file)
-  ;; (global-set-key (kbd "<f1> f") 'counsel-describe-function)
-  ;; (global-set-key (kbd "<f1> v") 'counsel-describe-variable)
+  (global-set-key (kbd "C-h f") 'counsel-describe-function)
+  (global-set-key (kbd "C-h v") 'counsel-describe-variable)
   ;; (global-set-key (kbd "<f1> l") 'counsel-load-library)
   ;; (global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol)
   ;; (global-set-key (kbd "<f2> u") 'counsel-unicode-char)
@@ -884,6 +811,13 @@ Occur search key bindings
   ;; (global-set-key (kbd "C-S-o") 'counsel-rhythmbox)
   ;; ;; (define-key read-expression-map (kbd "C-r") 'counsel-expression-history)
 
+  ;; (set-face-attribute
+  ;;  'ivy-current-match nil
+  ;;  :background "Orange"
+  ;;  :foreground "black")
+
+  ;; ivy-resume
+  ;; (define-key swiper-map (kbd "M-%") 'swiper-aa-replace)
 #+END_SRC
 
 *** =M-s= prefix
@@ -903,6 +837,7 @@ use the prefix =M-s= for searching in buffers
                     ;; ("\M-w" . save-buffer)
                     ("e" . revert-buffer)
                     ("s" . isearch-forward-regexp)
+                    ("\M-s" . isearch-forward-regexp)
                     ("r" . isearch-backward-regexp)
                     ("." . isearch-forward-symbol-at-point)
                     ("o" . occur)
@@ -934,10 +869,6 @@ use the prefix =M-s= for searching in buffers
   ;; M-u, 
 #+END_SRC
 
-** =M-o= as prefix key for windows
-
-** =M-g= as prefix key for launcher
-
 * Org-mode Settings
 
 ** Org-mode Basic setting
@@ -969,12 +900,22 @@ Always indents header, and hide header leading starts so that no need type =#+ST
      (scheme . t)
      (sh . t)
      (sqlite . t)
-     (js . t)))
+     (js . t)
+     (gnuplot . t)
+     (ditaa . t)))
 
   ;; use current window for org source buffer editting
   (setq org-src-window-setup 'current-window )
 
   (define-key org-mode-map (kbd "C-'") nil)
+  ;; C-M-i is mapped to imenu globally
+  (define-key org-mode-map (kbd "C-M-i") nil)
+
+  ;; set the ditta.jar path
+  (setq org-ditaa-jar-path "/usr/local/Cellar/ditaa/0.9/libexec/ditaa0_9.jar")
+  (unless 
+      (file-exists-p org-ditaa-jar-path)
+    (error "seudut: ditaa.jar not found at %s " org-ditaa-jar-path))
 #+END_SRC
 
 ** Org-bullets
@@ -1442,50 +1383,6 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex
 
 #+END_SRC
 
-*** hydra-window
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (winner-mode 1)
-
-  (defhydra sd/hydra-window (:color red :columns nil)
-    "window"
-    ("h" windmove-left nil :exit t)
-    ("j" windmove-down nil :exit t)
-    ("k" windmove-up nil :exit t)
-    ("l" windmove-right nil :exit t)
-    ("H" hydra-move-splitter-left nil)
-    ("J" hydra-move-splitter-down nil)
-    ("K" hydra-move-splitter-up nil)
-    ("L" hydra-move-splitter-right nil)
-    ("v" (lambda ()
-           (interactive)
-           (split-window-right)
-           (windmove-right))
-     "vert" :exit t)
-    ("x" (lambda ()
-           (interactive)
-           (split-window-below)
-           (windmove-down))
-     "horz" :exit t)
-    ("o" delete-other-windows "one" :exit t)
-    ("C-o" ido-switch-buffer "buf" :exit t)
-    ("C-k" sd/delete-current-window "del" :exit t)
-    ("'" other-window "other" :exit t)
-    ("a" ace-window "ace")
-    ("s" ace-swap-window "swap")
-    ("d" ace-delete-window "ace-one" :exit t)
-    ("i" ace-maximize-window "ace-one" :exit t)
-    ("b" ido-switch-buffer "buf" :exit t)
-    ("C-b" ido-switch-buffer "buf" :exit t)
-    ;; ("m" headlong-bookmark-jump "bmk")
-    ("q" nil "cancel")
-    ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
-    ("r" (progn (winner-redo) (setq this-command 'winner-redo)) "redo")
-    ("f" nil))
-
-  (global-unset-key (kbd "C-o"))
-  (global-set-key (kbd "C-o") 'sd/hydra-window/body)
-#+END_SRC
-
 *** hydra misc
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (defhydra sd/hydra-misc (:color red :columns nil)
@@ -1522,9 +1419,9 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex
 Enable linum mode on programming modes
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (add-hook 'prog-mode-hook 'linum-mode)
-
+  ;; (add-hook 'prog-mode-hook (lambda ()
+  ;;                             (setq-default indicate-empty-lines t)))
 #+END_SRC
 
 Fix the font size of line number
@@ -1733,6 +1630,23 @@ Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f
 
 #+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
+  (dir-locals-set-class-variables
+   'emacs
+   '((nil . ((buffer-read-only . t)
+             (show-trailing-whitespace . nil)
+             (tab-width . 8)
+             (eval . (whitespace-mode -1))))))
+
+  ;; (dir-locals-set-directory-class (expand-file-name "/usr/local/share/emacs") 'emacs)
+  (dir-locals-set-directory-class "/usr/local/Cellar/emacs" 'emacs)
+  ;; (dir-locals-set-directory-class "~/.emacs.d/elpa" 'emacs)
+  (dir-locals-set-directory-class "~/dotfiles/emacs.d/elpa" 'emacs)
+  (dir-locals-set-directory-class "~/dotfiles/emacs.d/el-get" 'emacs)
+#+END_SRC
+
 ** Info plus
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (el-get-bundle info+
@@ -1766,11 +1680,6 @@ Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f
 
 ** TODO Man mode
 Color for Man-mode
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  ;; (add-hook 'Man-mode-hook (lambda ()
-  ;;                         (interactive)
-  ;;                         (setenv "GROFF_NO_SRG")))
-#+END_SRC
 
 ** TODO swiper to occur
 
@@ -1829,14 +1738,25 @@ Dired+
     (define-key dired-mode-map (kbd "g") 'dired-goto-file))
 #+END_SRC
 
-* Programming
-
-** Languages
+* Completion
+company mode and company-statistics
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package company
+    :ensure t
+    :diminish company-mode
+    :init (setq company-idle-delay 0.1)
+    :config
+    (global-company-mode))
 
-*** Emacs Lisp
+  (use-package company-statistics
+    :ensure t
+    :config
+    (company-statistics-mode))
+#+END_SRC
 
+* Programming Language
+** Emacs Lisp
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (use-package color-identifiers-mode
     :ensure t
     :init
@@ -1845,14 +1765,10 @@ Dired+
     :diminish color-identifiers-mode)
 
   (global-prettify-symbols-mode t)
-
 #+END_SRC
 
-**** Lispy Mode
-
 In Lisp Mode, =M-o= is defined, but I use this for global hydra window. So here disable this key
 bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questions/298048/how-to-handle-conflicting-keybindings][here]]
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (use-package lispy
     :ensure t
@@ -1864,15 +1780,14 @@ bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questi
     (add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1))))
 #+END_SRC
 
-*** Perl
-
+** Perl
+*** CPerl mode
 [[https://www.emacswiki.org/emacs/CPerlMode][CPerl mode]] has more features than =PerlMode= for perl programming. Alias this to =CPerlMode=
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (defalias 'perl-mode 'cperl-mode)
 
-  ;(setq cperl-hairy t) ;; Turns on most of the CPerlMode options
+  ;; (setq cperl-hairy t)
+  ;; Turns on most of the CPerlMode options
   (setq cperl-auto-newline t)
   (setq cperl-highlight-variables-indiscriminately t)
   ;(setq cperl-indent-level 4)
@@ -1886,21 +1801,42 @@ bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questi
             '(lambda ()
                (cperl-set-style "C++")))
 
-  ;(require 'template)
-  ;(template-initialize)
-  ;(require 'perlnow)
+  (defalias 'perldoc 'cperl-perldoc)
+#+END_SRC
 
+*** Perl template
+Refer [[https://www.emacswiki.org/emacs/AutoInsertMode][AutoInsertMode]] Wiki
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (eval-after-load 'autoinsert
+    '(define-auto-insert '("\\.pl\\'" . "Perl skeleton")
+       '(
+         "Empty"
+         "#!/usr/bin/perl -w" \n
+         \n
+         "use strict;" >  \n \n
+         > _
+         )))
 #+END_SRC
 
-- auto insert
-- run script 
+*** Perl Keywords
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (font-lock-add-keywords 'cperl-mode
+                          '(("\\(say\\)" . cperl-nonoverridable-face)
+                            ("\\([0-9.]\\)*" . font-lock-constant-face)
+                            ("\".*\\(\\\n\\).*\"" . font-lock-constant-face)
+                            ("\n" . font-lock-constant-face)
+                            ("\\(^#!.*\\)$" .  cperl-nonoverridable-face)))
+
+    ;; (font-lock-add-keywords 'Man-mode
+    ;;                         '(("\\(NAME\\)" . font-lock-function-name-face)))
 
+#+END_SRC
+
+*** Run Perl
 Change the compile-command to set the default command run when call =compile=
 Mapping =s-r= (on Mac, it's =Command + R= to run the script. Here =current-prefix-arg= is set
 to call =compilation=  interactively.
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (defun my-perl-hook ()
     (progn
       (setq-local compilation-read-command nil)
@@ -1909,32 +1845,30 @@ to call =compilation=  interactively.
                    (if buffer-file-name
                        (shell-quote-argument buffer-file-name))))
       (local-set-key (kbd "s-r")
-                       (lambda ()
-                         (interactive)
-  ;                       (setq current-prefix-arg '(4)) ; C-u
-                         (call-interactively 'compile)))))
+                     (lambda ()
+                       (interactive)
+                                          ;                       (setq current-prefix-arg '(4)) ; C-u
+                       (call-interactively 'compile)))))
 
   (add-hook 'cperl-mode-hook 'my-perl-hook)
-
-
 #+END_SRC
 
-*** C & C++
-
+** C & C++
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (setq c-default-style "stroustrup"
         c-basic-offset 4)
-
 #+END_SRC
 
-** Compile
+* Compile
 Set the environments vairables in compilation mode
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (use-package compile
     :commands compile
     :config
-    (setq compilation-environment (cons "LC_ALL=C" compilation-environment)))
+    (setq compilation-environment (cons "LC_ALL=C" compilation-environment))
+    (setq compilation-auto-jump-to-first-error t)
+    (setq compilation-auto-jump-to-next t)
+    (setq compilation-scroll-output 'first-error))
 
   ;; super-r to compile
   (with-eval-after-load "compile"
@@ -1944,17 +1878,15 @@ Set the environments vairables in compilation mode
     (define-key compilation-mode-map (kbd "r") #'recompile))
 #+END_SRC
 
-** Auto-Insert
-*** Enable auto-insert mode
+* Auto-Insert
+** Enable auto-insert mode
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (auto-insert-mode t)
   (setq auto-insert-query nil)
 #+END_SRC
 
-*** C++ Auto Insert
-
+** C++ Auto Insert
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (eval-after-load 'autoinsert
     '(define-auto-insert '("\\.cpp\\'" . "C++ skeleton")
        '(
@@ -1993,50 +1925,88 @@ Set the environments vairables in compilation mode
          "return 1;\n"
          "}" > \n
          )))
-       
 #+END_SRC
 
-*** Perl Auto Insert
-
-Refer [[https://www.emacswiki.org/emacs/AutoInsertMode][AutoInsertMode]] Wiki
-
+** Python template
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (eval-after-load 'autoinsert
-    '(define-auto-insert '("\\.pl\\'" . "Perl skeleton")
+    '(define-auto-insert '("\\.\\(py\\)\\'" . "Python skeleton")
        '(
-         "Description: "
-         "#!/usr/bin/perl -w" \n
-         \n
-         "use strict;" \n \n
+         "Empty"
+         "#import os,sys" \n
+         \n \n
          )))
-
 #+END_SRC
 
-** Completion
-
-company mode
-
+** Elisp 
+Emacs lisp auto-insert, based on the default module in =autoinsert.el=, but replace =completing-read= as 
+=completing-read-ido-ubiquitous= to fix the edge case of that =ido= cannot handle.
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
-  (use-package company
-    :ensure t
-    :diminish company-mode
-    :init (setq company-idle-delay 0.1)
-    :config
-    (global-company-mode))
-
-#+END_SRC
-
-[[https://github.com/company-mode/company-statistics][company-statistics]]
-
+  (eval-after-load 'autoinsert
+    '(define-auto-insert '("\\.el\\'" . "my Emacs Lisp header")
+       '(
+         "Short description: "
+         ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str
+         (make-string (max 2 (- 80 (current-column) 27)) ?\s)
+         "-*- lexical-binding: t; -*-" '(setq lexical-binding t)
+         "\n
+  ;; Copyright (C) " (format-time-string "%Y") "  "
+         (getenv "ORGANIZATION") | (progn user-full-name) "
+
+  ;; Author: " (user-full-name)
+         '(if (search-backward "&" (line-beginning-position) t)
+              (replace-match (capitalize (user-login-name)) t t))
+         '(end-of-line 1) " <" (progn user-mail-address) ">
+  ;; Keywords: "
+         '(require 'finder)
+         ;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords)))
+         '(setq v1 (mapcar (lambda (x) (list (symbol-name (car x))))
+                           finder-known-keywords)
+                v2 (mapconcat (lambda (x) (format "%12s:  %s" (car x) (cdr x)))
+                              finder-known-keywords
+                              "\n"))
+         ((let ((minibuffer-help-form v2))
+            (completing-read-ido-ubiquitous "Keyword, C-h: " v1 nil t))
+          str ", ") & -2 "
+
+  \;; This program is free software; you can redistribute it and/or modify
+  \;; it under the terms of the GNU General Public License as published by
+  \;; the Free Software Foundation, either version 3 of the License, or
+  \;; (at your option) any later version.
+
+  \;; This program is distributed in the hope that it will be useful,
+  \;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+  \;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  \;; GNU General Public License for more details.
+
+  \;; You should have received a copy of the GNU General Public License
+  \;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+  \;;; Commentary:
+
+  \;; " _ "
+
+  \;;; Code:
+
+
+  \(provide '"
+         (file-name-base)
+         ")
+  \;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n")))
+#+END_SRC
+
+** Org file template
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
-  (use-package company-statistics
-    :ensure t
-    :config
-    (company-statistics-mode))
-
+  (eval-after-load 'autoinsert
+    '(define-auto-insert '("\\.\\(org\\)\\'" . "Org-mode skeleton")
+       '(
+         "title: "
+         "#+TITLE: " str (make-string 30 ?\s) > \n
+         "#+AUTHOR: Peng Li\n"
+         "#+EMAIL: seudut@gmail.com\n"
+         "#+DATE: " (shell-command-to-string "echo -n $(date +%Y-%m-%d)") > \n
+         > \n
+         > _)))
 #+END_SRC
 
 * Markdown mode
@@ -2182,6 +2152,44 @@ See [[https://www.emacswiki.org/emacs/GnusWindowLayout][GnusWindowLayout]]
   ;;                               (gnus-group-select-group "INBOX")))
 #+END_SRC
 
+* Gnu Plot
+To fix some issue that =toolbar-make-button-list= is void, see the [[https://github.com/bruceravel/gnuplot-mode/issues/31][issue]], here I set some variable as =nil=
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package gnuplot
+    :ensure
+    :init
+    (setq gnuplot-help-xpm nil)
+    (setq gnuplot-line-xpm nil)
+    (setq gnuplot-region-xpm nil)
+    (setq gnuplot-buffer-xpm nil)
+    (setq gnuplot-doc-xpm nil))
+#+END_SRC
+
+Use =gnuplot= on =Org-mode= file, see [[http://orgmode.org/worg/org-contrib/babel/languages/ob-doc-gnuplot.html][ob-doc-gnuplot]]
+#+BEGIN_SRC gnuplot :exports code :file ./temp/file.png
+  reset
+
+  set title "Putting it All Together"
+
+  set xlabel "X"
+  set xrange [-8:8]
+  set xtics -8,2,8
+
+
+  set ylabel "Y"
+  set yrange [-20:70]
+  set ytics -20,10,70
+
+  f(x) = x**2
+  g(x) = x**3
+  h(x) = 10*sqrt(abs(x))
+
+  plot f(x) w lp lw 1, g(x) w p lw 2, h(x) w l lw 3
+#+END_SRC
+
+#+RESULTS:
+[[file:./temp/file.png]]
+
 * Blog
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
 
@@ -2191,3 +2199,239 @@ See [[https://www.emacswiki.org/emacs/GnusWindowLayout][GnusWindowLayout]]
 - passion
 - vision
 - mission
+* Ediff
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (with-eval-after-load 'ediff
+    (setq ediff-split-window-function 'split-window-horizontally)
+    (setq ediff-window-setup-function 'ediff-setup-windows-plain)
+    (add-hook 'ediff-startup-hook 'ediff-toggle-wide-display)
+    (add-hook 'ediff-cleanup-hook 'ediff-toggle-wide-display)
+    (add-hook 'ediff-suspend-hook 'ediff-toggle-wide-display))
+#+END_SRC
+
+* TODO Convert ASCII to key
+** map =function-key-map= [[http://academic.evergreen.edu/projects/biophysics/technotes/program/ascii_ctrl.htm][ascii_ctrl]]
+new file =C-x C-f C-f=
+
+** write color syntax for =Man-mode=
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (font-lock-add-keywords 'perl-mode '(("\\(|\\w+?\\(,\\w+?\\)?|\\)" 1 'py-builtins-face)))
+#+END_SRC
+
+* TODO set fly-spell binding
+
+* TODO imenu bindings
+
+* DONE modified indicator
+:LOGBOOK:
+- State "DONE"       from "TODO"       [2016-07-18 Mon 23:35]
+:END:
+* DONE highlight selected ido candicate
+:LOGBOOK:
+- State "DONE"       from "TODO"       [2016-07-19 Tue 01:49]
+:END:
+* DONE show time in right of mode-line
+:LOGBOOK:
+- State "DONE"       from "TODO"       [2016-07-19 Tue 01:11]
+:END:
+* DONE ediff mode
+:LOGBOOK:
+- State "DONE"       from "TODO"       [2016-07-19 Tue 01:11]
+:END:
+* TODO jump last change point
+* TODO emms mode-line
+
+* NEXT Key Bindings
+Here are some global key bindings for basic editting
+** Project operations - =super=
+=projectile= settins
+** Windown & Buffer - =C-o=
+Defind a =hydra= function for windows, buffer & bookmark operations. And map it to =C-o= globally.
+Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to delete other windows
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (winner-mode 1)
+
+  (defhydra sd/hydra-window (:color red :columns nil)
+    "window"
+    ("h" windmove-left nil :exit t)
+    ("j" windmove-down nil :exit t)
+    ("k" windmove-up nil :exit t)
+    ("l" windmove-right nil :exit t)
+    ("H" hydra-move-splitter-left nil)
+    ("J" hydra-move-splitter-down nil)
+    ("K" hydra-move-splitter-up nil)
+    ("L" hydra-move-splitter-right nil)
+    ("v" (lambda ()
+           (interactive)
+           (split-window-right)
+           (windmove-right))
+     "vert" :exit t)
+    ("x" (lambda ()
+           (interactive)
+           (split-window-below)
+           (windmove-down))
+     "horz" :exit t)
+    ("o" delete-other-windows "one" :exit t)
+    ("C-o" ido-switch-buffer "buf" :exit t)
+    ("C-k" sd/delete-current-window "del" :exit t)
+    ("'" other-window "other" :exit t)
+    ("a" ace-window "ace")
+    ("s" ace-swap-window "swap")
+    ("d" ace-delete-window "ace-one" :exit t)
+    ("i" ace-maximize-window "ace-one" :exit t)
+    ("b" ido-switch-buffer "buf" :exit t)
+    ("C-b" ido-switch-buffer "buf" :exit t)
+    ("m" bookmark-jump-other-window "open bmk" :exit t)
+    ("M" bookmark-set "set bmk" :exit t)
+    ("q" nil "cancel")
+    ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
+    ("r" (progn (winner-redo) (setq this-command 'winner-redo)) "redo")
+    ("C-h" nil nil :exit t)
+    ("C-j" nil nil :exit t)
+    ;; ("C-k" nil :exit t)
+    ("C-l" nil nil :exit t)
+    ("C-;" nil nil :exit t)
+    ("p" nil nil :exit t)
+    ("n" nil nil :exit t)
+    ("[" nil nil :exit t)
+    ("]" nil nil :exit t)
+    ("f" nil))
+
+  (global-unset-key (kbd "C-o"))
+  (global-set-key (kbd "C-o") 'sd/hydra-window/body)
+#+END_SRC
+
+** Edit
+- cut, yank, =C-w=, =C-y=
+- save, revert
+- undo, redo - undo-tree
+- select, expand-region
+- spell check, flyspell
+
+** Motion - =C-M-=
+Use =Avy= for motion
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package avy
+    :ensure t
+    :config
+    (avy-setup-default))
+
+  (global-set-key (kbd "C-M-j") 'avy-goto-line-below)
+  (global-set-key (kbd "C-M-n") 'avy-goto-line-below)
+  (global-set-key (kbd "C-M-k") 'avy-goto-line-above)
+  (global-set-key (kbd "C-M-p") 'avy-goto-line-above)
+
+  (global-set-key (kbd "C-M-f") 'avy-goto-word-1-below)
+  (global-set-key (kbd "C-M-b") 'avy-goto-word-1-above)
+
+  ;; (global-set-key (kbd "M-g e") 'avy-goto-word-0)
+  (global-set-key (kbd "C-M-w") 'avy-goto-char-timer)
+  (global-set-key (kbd "C-M-l") 'avy-goto-char-in-line)
+
+  ;; will delete above 
+  (global-set-key (kbd "M-g j") 'avy-goto-line-below)
+  (global-set-key (kbd "M-g k") 'avy-goto-line-above)
+  (global-set-key (kbd "M-g w") 'avy-goto-word-1-below)
+  (global-set-key (kbd "M-g b") 'avy-goto-word-1-above)
+  (global-set-key (kbd "M-g e") 'avy-goto-word-0)
+  (global-set-key (kbd "M-g f") 'avy-goto-char-timer)
+  (global-set-key (kbd "M-g c") 'avy-goto-char-in-line)
+
+  ;; M-g TAB              move-to-column
+  ;; M-g ESC              Prefix Command
+  ;; M-g c                goto-char
+  ;; M-g g                goto-line
+  ;; M-g n                next-error
+  ;; M-g p                previous-error
+
+  ;; M-g M-g              goto-line
+  ;; M-g M-n              next-error
+  ;; M-g M-p              previous-error
+#+END_SRC
+
+=imenu=, mapping =C-M-i= to =counsel-imenu=
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (global-unset-key (kbd "C-M-i"))
+  (global-set-key (kbd "C-M-i") #'counsel-imenu)
+#+END_SRC
+
+** Search & Replace / hightlight =M-s=
+*** search
+*** replace
+*** hightlight
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  ;; (defhydra sd/search-highlight (:color red :columns nil)
+  ;;   "search"
+  ;;   ("M-s" . isearch-forward-regexp "search-forward" :exit t)
+  ;;   ("s" . isearch-forward-regexp "search-forward" :exit t)
+  ;;   ("r" . isearch-backward-regexp "search-backward" :exit t)
+  ;;   )
+
+  ;; (setq-default indicate-empty-lines t)
+#+END_SRC
+
+*** Occur
+Occur search key bindings
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (defun sd/occur-keys ()
+    "My key bindings in occur-mode"
+    (interactive)
+    (switch-to-buffer-other-window "*Occur*")
+    (define-key occur-mode-map (kbd "C-o") nil)
+    (define-key occur-mode-map (kbd "C-n") (lambda ()
+                                             (interactive)
+                                             (occur-next)
+                                             (occur-mode-goto-occurrence-other-window)
+                                             (recenter)
+                                             (other-window 1)))
+    (define-key occur-mode-map (kbd "C-p") (lambda ()
+                                             (interactive)
+                                             (occur-prev)
+                                             (occur-mode-goto-occurrence-other-window)
+                                             (recenter)
+                                             (other-window 1))))
+
+  (add-hook 'occur-hook #'sd/occur-keys)
+
+  (use-package color-moccur
+    :ensure t
+    :commands (isearch-moccur isearch-all)
+    :init
+    (setq isearch-lazy-highlight t)
+    :config
+    (use-package moccur-edit))
+#+END_SRC
+
+*** Swiper
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package swiper
+    :ensure t
+    :init
+    (setq ivy-use-virtual-buffers t)
+    :config
+    (ivy-mode)
+    (global-set-key (kbd "s-/") 'swiper)
+    (define-key swiper-map (kbd "M-r") 'swiper-query-replace))
+
+  (set-face-attribute
+   'ivy-current-match nil
+   :background "Orange"
+   :foreground "black")
+#+END_SRC
+* test
+#+BEGIN_SRC ditaa :file temp/hello-world.png :cmdline -r
++--------------+
+|              |
+| Hello World! |
+|              |
++--------------+
+#+END_SRC
+
+#+RESULTS:
+[[file:temp/hello-world.png]]
+
+
+* =C-u C-h a= search funtions 
+=apropos-command=