X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=949f4e9786139d88ba1774ada5351b9c7facffe7;hb=9387bdc8e5c4f18b9d47b2f12ccfcb386c1a5f21;hp=f122389ab305e7c356277df6933edb0da9dfc621;hpb=5cb162adc0fe66b4858345a109528ea40d0e5b63;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index f122389..949f4e9 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -32,6 +32,10 @@ Set system PATH and emacs exec path #+BEGIN_SRC emacs-lisp :tangle yes :results silent (defconst my-name "Peng Li") (defconst my-email "seudut@gmail.com") + (defconst MY-EMACS-DIR (concat (getenv "HOME") "/.emacs.d")) + (defconst MY-EMACS-TMP (concat MY-EMACS-DIR "/temp")) + (unless (file-exists-p MY-EMACS-TMP) + (mkdir MY-EMACS-TMP)) #+END_SRC ** General Setting @@ -60,6 +64,8 @@ Set system PATH and emacs exec path (when (display-graphic-p) (fringe-mode '(0 . 0))) + + (blink-cursor-mode 0) ;; (setq-default indicate-empty-lines t) ;; (setq-default indicate-abuffer-boundaries 'right) #+END_SRC @@ -112,6 +118,7 @@ Make a temp directory for all cache/history files ;; set temp file path for recentf and auto-save (setq recentf-save-file (concat sd-temp-directory "recentf")) + (setq recentf-max-saved-items 1000) (setq auto-save-list-file-prefix (concat sd-temp-directory "auto-save-list/.saves-")) #+END_SRC @@ -125,6 +132,11 @@ Make a temp directory for all cache/history files (unless (display-graphic-p) (xterm-mouse-mode)) #+END_SRC + +*** others +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (setq vc-follow-symlinks t) +#+END_SRC * Package Management Tools ** Use-package Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs packages @@ -152,267 +164,6 @@ Check out [[http://tapoueh.org/emacs/el-get.html][el-get]]. :ensure t) #+END_SRC -* Color and Fonts Settings -** highlight current line -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - ;; (global-hl-line-mode) - ;; don't want high light current line in eshell/term mode - (add-hook 'prog-mode-hook 'hl-line-mode) - (add-hook 'text-mode-hook 'hl-line-mode) - (add-hook 'dired-mode-hook 'hl-line-mode) - - ;; only highlight selected window - (setq hl-line-sticky-flag nil) - - (setq-default fill-column 120) - (add-hook 'text-mode-hook 'turn-on-auto-fill) -#+END_SRC - -** Smart Comments -[[https://github.com/paldepind/smart-comment][smart-comments]] -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package smart-comment - :ensure t - :bind ("M-;" . smart-conmment)) -#+END_SRC - -** Font Setting -*** syntax highlighting -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (global-font-lock-mode 1) -#+END_SRC - -*** [[https://github.com/i-tu/Hasklig][Hasklig]] and Source Code Pro, defined fonts family -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (if window-system - (defvar sd/fixed-font-family - (cond ((x-list-fonts "Hasklig") "Hasklig") - ((x-list-fonts "Source Code Pro") "Source Code Pro:weight=light") ;; weigth=light - ((x-list-fonts "Anonymous Pro") "Anonymous Pro") - ((x-list-fonts "M+ 1mn") "M+ 1mn")) - "The fixed width font based on what is installed, `nil' if not defined.")) -#+END_SRC - -Setting the fonts alignment issue -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (if window-system - (when sd/fixed-font-family - (set-frame-font sd/fixed-font-family) - (set-face-attribute 'default nil :font sd/fixed-font-family :height 140) - (set-face-font 'default sd/fixed-font-family))) -#+END_SRC - -*** Chinese fonts -Fix the font alignment issue when both Chinese and English hybird in org-mode table. Refer [[http://coldnew.github.io/blog/2013/11-16_d2f3a/][解決 org-mode 表格內中英文對齊的問題]] -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defvar emacs-english-font "Source Code Pro" "The font name of English.") - - (defvar emacs-cjk-font "STHeiti" "The font name for CJK.") - - (defvar emacs-font-size-pair '(13 . 16) "Default font size pair for (english . chinese)") - - (defvar emacs-font-size-pair-list - '(( 5 . 6) (10 . 12) - (11 . 14) (12 . 14) - (13 . 16) (14 . 16) (15 . 18) (16 . 20) (17 . 20) - (18 . 22) (19 . 22) (20 . 24) (21 . 26) - (24 . 28) (26 . 32) (28 . 34) - (30 . 36) (34 . 40) (36 . 44)) - "This list is used to store matching (englis . chinese) font-size.") - - (defun font-exist-p (fontname) - "Test if this font is exist or not." - (if (or (not fontname) (string= fontname "")) - nil - (if (not (x-list-fonts fontname)) nil t))) - - (defun set-font (english chinese size-pair) - "Setup emacs English and Chinese font on x window-system." - (if (font-exist-p english) - (set-frame-font (format "%s:pixelsize=%d" english (car size-pair)) t)) - (if (font-exist-p chinese) - (dolist (charset '(han cjk-misc) ;; '(kana han symbol cjk-misc bopomofo) - ) - (set-fontset-font (frame-parameter nil 'font) charset - (font-spec :family chinese :size (cdr size-pair)))))) - - (defun emacs-step-font-size (step) - "Increase/Decrease emacs's font size." - (let ((scale-steps emacs-font-size-pair-list)) - (if (< step 0) (setq scale-steps (reverse scale-steps))) - (setq emacs-font-size-pair - (or (cadr (member emacs-font-size-pair scale-steps)) - emacs-font-size-pair)) - (when emacs-font-size-pair - (message "emacs font size set to %.1f" (car emacs-font-size-pair)) - (set-font emacs-english-font emacs-cjk-font emacs-font-size-pair)))) - - (defun increase-emacs-font-size () - "Decrease emacs's font-size acording emacs-font-size-pair-list." - (interactive) (emacs-step-font-size 1)) - - (defun decrease-emacs-font-size () - "Increase emacs's font-size acording emacs-font-size-pair-list." - (interactive) (emacs-step-font-size -1)) -#+END_SRC - - -** Color Theme - -Loading theme should be after all required loaded, refere [[https://github.com/jwiegley/use-package][:defer]] in =use-package= - -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (setq vc-follow-symlinks t) - (use-package molokai-theme - :ensure t) - - (use-package color-theme - :ensure t - :init (require 'color-theme) - :config (use-package color-theme-sanityinc-tomorrow - :ensure t - :no-require t - :config - ;; (load-theme 'sanityinc-tomorrow-bright t) - (load-theme 'molokai t) - )) - - ;(eval-after-load 'color-theme - ; (load-theme 'sanityinc-tomorrow-bright t)) - -#+END_SRC - -Change the Org-mode colors - -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - - (defun org-src-color-blocks-light () - "Colors the block headers and footers to make them stand out more for lighter themes" - (interactive) - (custom-set-faces - '(org-block-begin-line - ((t (:underline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF")))) - '(org-block-background - ((t (:background "#FFFFEA")))) - '(org-block - ((t (:background "#FFFFEA")))) - '(org-block-end-line - ((t (:overline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF")))) - - '(mode-line-buffer-id ((t (:foreground "#005000" :bold t)))) - '(which-func ((t (:foreground "#008000")))))) - - (defun org-src-color-blocks-dark () - "Colors the block headers and footers to make them stand out more for dark themes" - (interactive) - (custom-set-faces - '(org-block-begin-line - ((t (:foreground "#008ED1" :background "#002E41")))) - '(org-block-background - ((t (:background "#000000")))) - '(org-block - ((t (:background "#000000")))) - '(org-block-end-line - ((t (:foreground "#008ED1" :background "#002E41")))) - - '(mode-line-buffer-id ((t (:foreground "black" :bold t)))) - '(which-func ((t (:foreground "green")))))) - - (org-src-color-blocks-dark) - -#+END_SRC - -improve color for org-mode -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (deftheme ha/org-theme "Sub-theme to beautify org mode") - - (if window-system - (defvar sd/variable-font-tuple - (cond ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro")) - ((x-list-fonts "Lucida Grande") '(:font "Lucida Grande")) - ((x-list-fonts "Verdana") '(:font "Verdana")) - ((x-family-fonts "Sans Serif") '(:family "Sans Serif")) - (nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro."))) - "My variable width font available to org-mode files and whatnot.")) - - (defun sd/org-color () - (let* ((sd/fixed-font-tuple (list :font sd/fixed-font-family)) - (base-font-color (face-foreground 'default nil 'default)) - (background-color (face-background 'default nil 'default)) - (primary-color (face-foreground 'mode-line nil)) - (secondary-color (face-background 'secondary-selection nil 'region)) - (base-height (face-attribute 'default :height)) - (headline `(:inherit default :weight bold :foreground ,base-font-color))) - (custom-theme-set-faces 'ha/org-theme - `(org-agenda-structure ((t (:inherit default :height 2.0 :underline nil)))) - `(org-verbatim ((t (:inherit 'fixed-pitched :foreground "#aef")))) - `(org-table ((t (:inherit 'fixed-pitched)))) - `(org-block ((t (:inherit 'fixed-pitched)))) - `(org-block-background ((t (:inherit 'fixed-pitched)))) - `(org-block-begin-line ((t (:inherit 'fixed-pitched)))) - `(org-block-end-line ((t (:inherit 'fixed-pitched)))) - `(org-level-8 ((t (,@headline ,@sd/variable-font-tuple)))) - `(org-level-7 ((t (,@headline ,@sd/variable-font-tuple)))) - `(org-level-6 ((t (,@headline ,@sd/variable-font-tuple)))) - `(org-level-5 ((t (,@headline ,@sd/variable-font-tuple)))) - `(org-level-4 ((t (,@headline ,@sd/variable-font-tuple - :height ,(round (* 1.1 base-height)))))) - `(org-level-3 ((t (,@headline ,@sd/variable-font-tuple - :height ,(round (* 1.25 base-height)))))) - `(org-level-2 ((t (,@headline ,@sd/variable-font-tuple - :height ,(round (* 1.5 base-height)))))) - `(org-level-1 ((t (,@headline ,@sd/variable-font-tuple - :height ,(round (* 1.75 base-height)))))) - `(org-document-title ((t (,@headline ,@sd/variable-font-tuple :height 1.5 :underline nil))))))) - - -#+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 - - (use-package rainbow-delimiters - :ensure t - :init - (add-hook 'prog-mode-hook #'rainbow-delimiters-mode)) - -#+END_SRC - -** page-break-lines -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package page-break-lines - :ensure t - :config - (global-page-break-lines-mode) - ;; (turn-on-page-break-lines-mode) - ) -#+END_SRC - -** rainbow-mode - -Enable rainbow mode in emacs lisp mode - -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package rainbow-mode - :ensure t - ; :init - ; (add-hook emacs-lisp-mode-hook 'rainbow-mode) - ) - -#+END_SRC - -** cusor color -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (if (display-graphic-p) - (set-cursor-color 'red)) -#+END_SRC - * Mode-line ** clean mode line clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replacing-modeline-strings][Marstering Emacs]], some greek character see [[http://xahlee.info/math/math_unicode_greek.html][math_unicode_greek]] @@ -442,15 +193,16 @@ clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replac (yas-minor-mode . "y") ;; default jj (evil-escape-mode . "") + (auto-fill-mode . "") ;; Major modes (lisp-interaction-mode . "λ") (hi-lock-mode . "") (python-mode . "Py") (emacs-lisp-mode . "EL") - (eshell-mode . "𝞔") - (dired-mode . "𝞓") - (ibuffer-mode . "𝞑") - (org-mode . "𝞞") + ;; (eshell-mode . "𝞔") + ;; (dired-mode . "𝞓") + ;; (ibuffer-mode . "𝞑") + ;; (org-mode . "𝞞") (nxhtml-mode . "nx")) "Alist for `clean-mode-line'. @@ -480,14 +232,7 @@ Install powerline mode [[https://github.com/milkypostman/powerline][powerline]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package powerline :ensure t - :config - ;; (powerline-center-theme) - ) - - ;; (use-package smart-mode-line - ;; :ensure t) - ;; (use-package smart-mode-line-powerline-theme - ;; :ensure t) + :config) #+END_SRC Revised powerline-center-theme @@ -529,7 +274,6 @@ Revised powerline-center-theme '("%e" (:eval (let* ((active (powerline-selected-window-active)) - ;; (mode-line-buffer-id (if active 'sd/mode-line-buffer-id 'mode-line-buffer-id-inactive)) (mode-line-buffer-id (if active 'sd/mode-line-buffer-id 'powerline-inactive1)) (mode-line (if active 'mode-line 'mode-line-inactive)) (my-face1 (if active 'sd/powerline-active1 'powerline-inactive1)) @@ -546,23 +290,17 @@ Revised powerline-center-theme (powerline-current-separator) (cdr powerline-default-separator-dir)))) (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 " " my-face1) (funcall separator-left my-face1 face1) (powerline-narrow face1 'l) - ;; (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 "%3c" face1 'r) (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 ) - )) + (powerline-raw (format-time-string " %I:%M %p ") my-face1 'r))) (center (list (powerline-raw " " face1) (funcall separator-left face1 face2) (powerline-raw (when (and (boundp 'evil-mode) evil-mode) evil-mode-line-tag) face2) @@ -580,27 +318,275 @@ Revised powerline-center-theme (powerline-fill face1 (powerline-width rhs)) (powerline-render rhs))))))) + (setq ns-use-srgb-colorspace nil) ;; Fix the issue in mode-line when showing triangle (sd/powerline-center-theme_revised) #+END_SRC -Fix the issue in mode line when showing triangle +* Color and Theme +** highlight setting + +- hightligh current line +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;; (global-hl-line-mode) + ;; don't want high light current line in eshell/term mode + (add-hook 'prog-mode-hook 'hl-line-mode) + (add-hook 'text-mode-hook 'hl-line-mode) + (add-hook 'dired-mode-hook 'hl-line-mode) + + ;; only highlight selected window + (setq hl-line-sticky-flag nil) + + ;; (setq-default fill-column 120) + ;; (add-hook 'text-mode-hook 'turn-on-auto-fill) +#+END_SRC + +- highlight searching text +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (set-face-attribute 'lazy-highlight nil :background "yellow" :foreground "black" :weight 'bold) +#+END_SRC + +** color theme +Loading theme should be after all required loaded, refere [[https://github.com/jwiegley/use-package][:defer]] in =use-package= + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package molokai-theme + :ensure t) + + (use-package color-theme + :ensure t + :init (require 'color-theme) + :config (use-package color-theme-sanityinc-tomorrow + :ensure t + :no-require t + :config + (load-theme 'molokai t))) +#+END_SRC + +Change the Org-mode colors + #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (setq ns-use-srgb-colorspace nil) + ;; (defun org-src-color-blocks-light () + ;; "Colors the block headers and footers to make them stand out more for lighter themes" + ;; (interactive) + ;; (custom-set-faces + ;; '(org-block-begin-line + ;; ((t (:underline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF")))) + ;; '(org-block-background + ;; ((t (:background "#FFFFEA")))) + ;; '(org-block + ;; ((t (:background "#FFFFEA")))) + ;; '(org-block-end-line + ;; ((t (:overline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF")))) + + ;; '(mode-line-buffer-id ((t (:foreground "#005000" :bold t)))) + ;; '(which-func ((t (:foreground "#008000")))))) + + ;; (defun org-src-color-blocks-dark () + ;; "Colors the block headers and footers to make them stand out more for dark themes" + ;; (interactive) + ;; (custom-set-faces + ;; '(org-block-begin-line + ;; ((t (:foreground "#008ED1" :background "#002E41")))) + ;; '(org-block-background + ;; ((t (:background "#000000")))) + ;; '(org-block + ;; ((t (:background "#000000")))) + ;; '(org-block-end-line + ;; ((t (:foreground "#008ED1" :background "#002E41")))) + + ;; '(mode-line-buffer-id ((t (:foreground "black" :bold t)))) + ;; '(which-func ((t (:foreground "green")))))) + + ;; (org-src-color-blocks-dark) + #+END_SRC -set height in mode line +improve color for org-mode #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defconst sd/mode-line-font-heigh 100 - "Defaulet the fontsize on mode line.") + ;; (deftheme ha/org-theme "Sub-theme to beautify org mode") + + ;; (if window-system + ;; (defvar sd/variable-font-tuple + ;; (cond ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro")) + ;; ((x-list-fonts "Lucida Grande") '(:font "Lucida Grande")) + ;; ((x-list-fonts "Verdana") '(:font "Verdana")) + ;; ((x-family-fonts "Sans Serif") '(:family "Sans Serif")) + ;; (nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro."))) + ;; "My variable width font available to org-mode files and whatnot.")) + + ;; (defun sd/org-color () + ;; (let* ((sd/fixed-font-tuple (list :font sd/fixed-font-family)) + ;; (base-font-color (face-foreground 'default nil 'default)) + ;; (background-color (face-background 'default nil 'default)) + ;; (primary-color (face-foreground 'mode-line nil)) + ;; (secondary-color (face-background 'secondary-selection nil 'region)) + ;; (base-height (face-attribute 'default :height)) + ;; (headline `(:inherit default :weight bold :foreground ,base-font-color))) + ;; (custom-theme-set-faces 'ha/org-theme + ;; `(org-agenda-structure ((t (:inherit default :height 2.0 :underline nil)))) + ;; `(org-verbatim ((t (:inherit 'fixed-pitched :foreground "#aef")))) + ;; `(org-table ((t (:inherit 'fixed-pitched)))) + ;; `(org-block ((t (:inherit 'fixed-pitched)))) + ;; `(org-block-background ((t (:inherit 'fixed-pitched)))) + ;; `(org-block-begin-line ((t (:inherit 'fixed-pitched)))) + ;; `(org-block-end-line ((t (:inherit 'fixed-pitched)))) + ;; `(org-level-8 ((t (,@headline ,@sd/variable-font-tuple)))) + ;; `(org-level-7 ((t (,@headline ,@sd/variable-font-tuple)))) + ;; `(org-level-6 ((t (,@headline ,@sd/variable-font-tuple)))) + ;; `(org-level-5 ((t (,@headline ,@sd/variable-font-tuple)))) + ;; `(org-level-4 ((t (,@headline ,@sd/variable-font-tuple + ;; :height ,(round (* 1.1 base-height)))))) + ;; `(org-level-3 ((t (,@headline ,@sd/variable-font-tuple + ;; :height ,(round (* 1.25 base-height)))))) + ;; `(org-level-2 ((t (,@headline ,@sd/variable-font-tuple + ;; :height ,(round (* 1.5 base-height)))))) + ;; `(org-level-1 ((t (,@headline ,@sd/variable-font-tuple + ;; :height ,(round (* 1.75 base-height)))))) + ;; `(org-document-title ((t (,@headline ,@sd/variable-font-tuple :height 1.5 :underline nil))))))) + - (with-eval-after-load "powerline" - (when (display-graphic-p) - (set-face-attribute 'mode-line-inactive nil :height sd/mode-line-font-heigh) - (set-face-attribute 'mode-line nil :height sd/mode-line-font-heigh) - (let* ((base-font-size (face-attribute 'default :height))) - ;; 100/140;0.8 - (set-variable 'powerline-height (/ base-font-size 10)) - (set-variable 'powerline-text-scale-factor (/ (float sd/mode-line-font-heigh) base-font-size))))) +#+END_SRC + + + +** Rainbow-delimiter +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package rainbow-delimiters + :ensure t + :init + (add-hook 'prog-mode-hook #'rainbow-delimiters-mode)) +#+END_SRC + +** page-break-lines +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package page-break-lines + :ensure t + :config + (global-page-break-lines-mode)) +#+END_SRC + +** rainbow-mode + +Enable rainbow mode in emacs lisp mode + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package rainbow-mode + :ensure t + ; :init + ; (add-hook emacs-lisp-mode-hook 'rainbow-mode) + ) + +#+END_SRC + +** cusor color +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (if (display-graphic-p) + (set-cursor-color 'red)) +#+END_SRC + +* Font Settingh +** font lock +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (global-font-lock-mode 1) +#+END_SRC + +** fonts family +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defvar my-font-family + (cond ((x-list-fonts "Source Code Pro") "Source Code Pro")) + (cond ((x-list-fonts "HanziPen SC") "HanziPen SC")) + ;; (cond ((x-list-fonts "Source Code Pro") "Source Code Pro:weight=light")) + ) + + ;; (when (display-graphic-p) + ;; (set-frame-font my-font-family) + ;; (set-face-attribute 'default nil :font my-font-family :height 120) + ;; (set-face-font 'default my-font-family)) +#+END_SRC + +** Chinese fonts + +Fix the font alignment issue when both Chinese and English hybird in org-mode table. Refer [fn:1] +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;; (defvar emacs-english-font "Source Code Pro:weight=light" "The font name of English.") + (defvar emacs-english-font "Source Code Pro" "The font name of English.") + + ;; (defvar emacs-cjk-font "STHeiti" "The font name for CJK.") + (defvar emacs-cjk-font "HanziPen SC" "The font name for CJK.") + + (defvar emacs-font-size-pair-list + '((5 . 6) (10 . 12) + (11 . 14) (12 . 14) + (13 . 16) (14 . 16) (15 . 18) (16 . 20) (17 . 20) + (18 . 22) (19 . 22) (20 . 24) (21 . 26) + (24 . 28) (26 . 32) (28 . 34) + (30 . 36) (34 . 40) (36 . 44)) + "This list is used to store matching (englis . chinese) font-size.") + ;; (defvar emacs-font-size-pair '(13 . 16) "Default font size pair for (english . chinese)") + + ;; (defvar emacs-font-size-pair '(13 . 16) "Default font size pair for (english . chinese)") + + (defvar emacs-font-size-pair (nth 3 emacs-font-size-pair-list) "Default font size pair for (english . chinese)") + + (defun font-exist-p (fontname) + "Test if this font is exist or not." + (if (or (not fontname) (string= fontname "")) + nil + (if (not (x-list-fonts fontname)) nil t))) + + (defun set-font (english chinese size-pair) + "Setup emacs English and Chinese font on x window-system." + (if (font-exist-p english) + (set-frame-font english (format "%s:pixelsize=%d" english (car size-pair)) t) + ;; (set-face-attribute 'default nil :font english :height (* 10 (car size-pair))) + + ;; (set-frame-font (format "%s:pixelsize=%d" english (car size-pair)) t) + ) + (if (font-exist-p chinese) + (dolist (charset '(han cjk-misc) ;; '(kana han symbol cjk-misc bopomofo) + ) + (set-fontset-font (frame-parameter nil 'font) charset + (font-spec :family chinese :size (cdr size-pair)))))) + + (defun emacs-step-font-size (step) + "Increase/Decrease emacs's font size." + (let ((scale-steps emacs-font-size-pair-list)) + (if (< step 0) (setq scale-steps (reverse scale-steps))) + (setq emacs-font-size-pair + (or (cadr (member emacs-font-size-pair scale-steps)) + emacs-font-size-pair)) + (when emacs-font-size-pair + (message "emacs font size set to %.1f" (car emacs-font-size-pair)) + (set-font emacs-english-font emacs-cjk-font emacs-font-size-pair)))) + + (defun increase-emacs-font-size () + "Decrease emacs's font-size acording emacs-font-size-pair-list." + (interactive) (emacs-step-font-size 1)) + + (defun decrease-emacs-font-size () + "Increase emacs's font-size acording emacs-font-size-pair-list." + (interactive) (emacs-step-font-size -1)) + + ; (set-font emacs-english-font emacs-cjk-font '(12 . 16)) + ;; (set-font emacs-english-font emacs-cjk-font emacs-font-size-pair) +#+END_SRC + +** Org Mode font +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (when (display-graphic-p) + (setq my-ch-font "STkaiti") + ;; (setq face-font-rescale-alist `(("HanziPen SC" . ,(/ 16.0 13)))) + (setq face-font-rescale-alist `((,my-ch-font . ,(/ 16.0 13)))) + ;; (set-face-attribute 'default nil :font "Source Code Pro-13") + (set-face-attribute 'default nil :font "Source Code Pro:weight=light" :height 130) + ;; (set-fontset-font t 'han (font-spec :family "STkaiti")) + ;; (set-fontset-font t 'cjk-misc (font-spec :family "STkaiti")) + ;; (set-face-attribute 'org-table nil :family "Ubuntu Mono" :height 120) + ;; (set-face-attribute 'org-table nil :family "Ubuntu Mono" :height 120) + (dolist (charset '(han cjk-misc)) + (set-fontset-font (frame-parameter nil 'font) charset + ;; (font-spec :family "HanziPen SC") + (font-spec :family my-ch-font)))) #+END_SRC * IDO & SMEX @@ -692,6 +678,42 @@ let helm windows split inside current window (setq helm-split-window-in-side-p t)) #+END_SRC +* Projectile +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package projectile + :ensure t + :init + (setq projectile-enable-caching t) + (setq projectile-switch-project-action 'projectile-dired) + (setq projectile-cache-file (concat sd-temp-directory "projectile.cache")) + (setq projectile-completion-system 'ivy) + :config + (add-to-list 'projectile-globally-ignored-files "GTAGS") + (projectile-global-mode t)) + + ;; https://emacs.stackexchange.com/questions/16497/how-to-exclude-files-from-projectile + (if (executable-find "rg") + (progn + (defconst modi/rg-arguments + `("--line-number" ; line numbers + "--smart-case" + "--follow" ; follow symlinks + "--mmap") ; apply memory map optimization when possible + "Default rg arguments used in the functions in `projectile' package.") + + (defun modi/advice-projectile-use-rg () + "Always use `rg' for getting a list of all files in the project." + (mapconcat 'identity + (append '("\\rg") ; used unaliased version of `rg': \rg + modi/rg-arguments + '("--null" ; output null separated results, + "--files")) ; get file names matching the regex '' (all files) + " ")) + + (advice-add 'projectile-get-ext-command :override #'modi/advice-projectile-use-rg)) + (message "rg is not found")) +#+END_SRC + * Swiper & Ivy & Counsel #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package counsel @@ -701,37 +723,75 @@ let helm windows split inside current window (use-package ivy :ensure t) (ivy-mode 1) (setq ivy-use-virtual-buffers nil - ivy-wrap t) + ivy-wrap t + ivy-count-format "%d/%d ") (set-face-attribute 'ivy-current-match nil :background "Orange" :foreground "black") (global-set-key (kbd "M-x") 'counsel-M-x) - (global-set-key (kbd "C-h f") 'counsel-describe-function) - (global-set-key (kbd "C-h 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 "C-x C-f") 'counsel-find-file) (define-key read-expression-map (kbd "C-r") 'counsel-expression-history) (global-set-key (kbd "C-c C-r") 'ivy-resume)) - - (use-package counsel-projectile - :ensure t - :defer t) #+END_SRC #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defun sd/swith-buffer-other-window () + (ivy-set-actions + t + '(("q" (lambda (x) (ivy-quit-and-run (message "=="))) "exit"))) + + (ivy-set-actions + 'projectile-switch-to-buffer + '(("j" ivy--switch-buffer-other-window-action "other window" ))) + + (defun sd/projectile-find-file-other-window-action (file) + (message "=========") + (message (projectile-expand-root file)) + (find-file-other-window (projectile-expand-root file))) + + (ivy-set-actions + 'projectile-find-file + '(("j" sd/projectile-find-file-other-window-action "other-window"))) + + (defun sd/swith-to-buffer () + "switch to buffer" (interactive) - (ivy-set-action (cond ((eq (ivy-state-caller ivy-last) 'ivy-switch-buffer) - 'ivy--switch-buffer-other-window-action) - ((eq (ivy-state-caller ivy-last) 'counsel-recentf) - 'find-file-other-window) - ((eq (ivy-state-caller ivy-last) 'counsel-projectile-find-file) - 'counsel-projectile-find-file-action-other-window) - (t - nil))) - (ivy-done) - (ivy-shrink-after-dispatching)) + (if (projectile-project-p) + (projectile-switch-to-buffer) + (ivy-switch-buffer))) + + (ivy-set-actions + 'sd/swith-to-buffer + '(("j" ivy--switch-buffer-other-window-action "other window"))) + + (defun sd/exit-ivy-and-swith-to-buffer () + "exit ivy complete, and call swith to buffer" + (interactive) + (ivy-quit-and-run + (ivy-switch-buffer))) + + (defun my/ivy-read-action (key) + (let ((actions (ivy-state-action ivy-last))) + (if (null (ivy--actionp actions)) + t + (let* ((action-idx (cl-position-if + (lambda (x) (equal (car x) key)) + (cdr actions)))) + (cond ((member key '("" "")) + nil) + ((null action-idx) + (message "%s is not bound" key) + nil) + (t + (message "") + (setcar actions (1+ action-idx)) + (ivy-set-action actions))))))) (with-eval-after-load "ivy" (define-key ivy-minibuffer-map (kbd "C-o") 'ivy-dispatching-done) - (define-key ivy-minibuffer-map (kbd "C-k") #'sd/swith-buffer-other-window)) + (define-key ivy-minibuffer-map (kbd "C-k") (lambda () (interactive) + (my/ivy-read-action "j") + (ivy-done))) + (define-key ivy-minibuffer-map (kbd "M-o") #'sd/exit-ivy-and-swith-to-buffer)) #+END_SRC stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9dad9dc97d6e122840/emacs-init.org][here]] @@ -782,6 +842,106 @@ Always indents header, and hide header leading starts so that no need type =#+ST (setq org-image-actual-width nil)) #+END_SRC +** Org theme +*** Fix the default theme - molokai +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (with-eval-after-load "org" + (set-face-attribute 'org-block-begin-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic) + (set-face-attribute 'org-block-end-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic) + ;; (set-face-attribute 'org-table nil :family "Ubuntu Mono" :height (face-attribute 'default :height)) + ) + + ;; (x-list-fonts "Ubuntu Mono") + + ;; (set-frame-font "Ubuntu Mono") + ;; (x-list-fonts "WenQuanYi Zen Hei") + ;; (set-frame-font "WenQuanYi Zen Hei Mono") +#+END_SRC +*** variable-pitch-mode and fixed-pitch-mode +[[https://yoo2080.wordpress.com/2013/05/30/monospace-font-in-tables-and-source-code-blocks-in-org-mode-proportional-font-in-other-parts/][monospace font in tables and source code blocks in org-mode, proportional font in other parts]] +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;(when (display-graphic-p) + ; (unless (find-font (font-spec :name "Ubuntu Mono")) + ; (warn "Font not found Ubuntu Mono")) + ; (unless (find-font (font-spec :name "Source Code Pro")) + ; (warn "Font not found Source Code Pro")) + ; (unless (find-font (font-spec :name "Source Sans Pro")) + ; (warn "Font not found Source Sans Pro"))) + + ;; (set-face-attribute 'variable-pitch nil :font "Source Sans Pro" :height 160) + ;; (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height (face-attribute 'default :height)) + + + ;; Install Ubuntu Mono fonts and apply it in org-table to align Chinese fonts + ;; (with-eval-after-load "org" + ;; (mapc (lambda (face) + ;; (set-face-attribute face nil :inherit 'fixed-pitch)) + ;; (list + ;; 'org-code + ;; 'org-block + ;; 'org-block-background + ;; 'org-block-begin-line + ;; 'org-block-end-line)) + ;; (set-face-attribute 'org-table nil :family "Ubuntu Mono" :height 100) + ;; (set-face-attribute 'org-formula nil :family "Ubuntu Mono" :height 100) + ;; ;; org-special-keyword inherited from font-lock-keywork originally; as org is changed to variable-pitch, it cause + ;; ;; the font in special-keywords are not monospace + ;; (set-face-attribute 'org-special-keyword nil :inherit '(font-lock-keyword-face fixed-pitch)) + ;; ;; same as above + ;; (set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch)) + ;; (set-face-attribute 'org-block-begin-line nil :inherit 'shadow :slant 'italic :foreground nil) + ;; (set-face-attribute 'org-block-end-line nil :inherit 'shadow :slant 'italic :foreground nil) + + ;; ;; fix indent broken by variable-pitch-mode + ;; ;; http://emacs.stackexchange.com/questions/26864/variable-pitch-face-breaking-indentation-in-org-mode + ;; (require 'org-indent) + ;; (set-face-attribute 'org-indent nil :inherit '(org-hide fixed-pitch))) + + ;; (with-eval-after-load "org" + ;; (let ((default-font-size (- (face-attribute 'default :height) (if (display-graphic-p) 20 0)))) + ;; (set-face-attribute 'org-code nil :height default-font-size) + ;; (set-face-attribute 'org-block nil :height default-font-size) + ;; ;; (set-face-attribute 'org-block-begin-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size) + ;; ;; (set-face-attribute 'org-block-end-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size) + ;; (when (find-font (font-spec :name "Ubuntu Mono")) + ;; (set-face-attribute 'org-table nil :family "Ubutu Mono" :height default-font-size) + ;; (set-face-attribute 'org-formula nil :family "Ubutu Mono" :height default-font-size)))) + + ;; (add-hook 'org-mode-hook + ;; (lambda () + ;; (let ((default-font-size (- (face-attribute 'default :height) (if (display-graphic-p) 20 0)))) + ;; (set-face-attribute 'org-code nil :height default-font-size) + ;; (set-face-attribute 'org-block nil :height default-font-size) + ;; ;; (set-face-attribute 'org-block-begin-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size) + ;; ;; (set-face-attribute 'org-block-end-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size) + ;; (when (find-font (font-spec :name "Ubuntu Mono")) + ;; (set-face-attribute 'org-table nil :family "Ubutu Mono" :height default-font-size) + ;; (set-face-attribute 'org-formula nil :family "Ubutu Mono" :height default-font-size))))) +#+END_SRC + +Also correct the face of =org-meta-line= in =org-table= +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;; (with-eval-after-load "org" + ;; (set-face-attribute 'org-meta-line nil :font "Source Code Pro" :height 120 :slant 'italic :inherit 'font-lock-comment-face)) +#+END_SRC +*** + +*** Org-head face +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;; (with-eval-after-load "org" + ;; (let* ((base-height (face-attribute 'variable-pitch :height)) + ;; (base-font-color (face-foreground 'default nil 'default))) + ;; (set-face-attribute 'org-document-title nil :weight 'bold :height (+ 60 base-height)) + ;; (set-face-attribute 'org-level-1 nil :weight 'bold :height (+ 40 base-height)) + ;; (set-face-attribute 'org-level-2 nil :weight 'bold :height (+ 30 base-height)) + ;; (set-face-attribute 'org-level-3 nil :weight 'bold :height (+ 20 base-height)) + ;; (set-face-attribute 'org-level-4 nil :weight 'bold :height (+ 10 base-height)) + ;; (set-face-attribute 'org-level-5 nil :weight 'bold) + ;; (set-face-attribute 'org-level-6 nil :weight 'bold) + ;; (set-face-attribute 'org-level-7 nil :weight 'bold) + ;; (set-face-attribute 'org-level-8 nil :weight 'bold))) +#+END_SRC + ** Org babel #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -789,12 +949,12 @@ Always indents header, and hide header leading starts so that no need type =#+ST :features ob-racket) ;; Lua support - ;(use-package ob-lua - ; :ensure t) +;; (use-package ob-lua +;; :ensure t) ;; use current window for org source buffer editting - (setq org-src-window-setup 'current-window ) + ;; (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) @@ -813,7 +973,7 @@ Always indents header, and hide header leading starts so that no need type =#+ST (latex . t) (java . t) (ruby . t) - ; (lua . t) +; (lua . t) (lisp . t) (scheme . t) (racket . t) @@ -873,7 +1033,7 @@ use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 '((t (:foreground "green yellow"))) "Face used for the org-bullets.") (setq org-bullets-face-name (quote org-bullet-face)) - (set-face-attribute 'org-bullet-face t :foreground "burlywood" :weight 'normal :height 1.6) + ;; (set-face-attribute 'org-bullet-face t :foreground "burlywood" :weight 'normal :height 1.6) #+END_SRC ** Worf Mode @@ -1206,91 +1366,6 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em #+END_SRC -** Org theme -*** variable-pitch-mode and fixed-pitch-mode -[[https://yoo2080.wordpress.com/2013/05/30/monospace-font-in-tables-and-source-code-blocks-in-org-mode-proportional-font-in-other-parts/][monospace font in tables and source code blocks in org-mode, proportional font in other parts]] -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (when (display-graphic-p) - (unless (find-font (font-spec :name "Ubuntu Mono")) - (warn "Font not found Ubuntu Mono")) - (unless (find-font (font-spec :name "Source Code Pro")) - (warn "Font not found Source Code Pro")) - (unless (find-font (font-spec :name "Source Sans Pro")) - (warn "Font not found Source Sans Pro"))) - - (set-face-attribute 'variable-pitch nil :font "Source Sans Pro" :height 160) - (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height (face-attribute 'default :height)) - - - ;; Install Ubuntu Mono fonts and apply it in org-table to align Chinese fonts - ;; (with-eval-after-load "org" - ;; (mapc (lambda (face) - ;; (set-face-attribute face nil :inherit 'fixed-pitch)) - ;; (list - ;; 'org-code - ;; 'org-block - ;; 'org-block-background - ;; 'org-block-begin-line - ;; 'org-block-end-line)) - ;; (set-face-attribute 'org-table nil :family "Ubuntu Mono" :height 140) - ;; (set-face-attribute 'org-formula nil :family "Ubuntu Mono" :height 140) - ;; ;; org-special-keyword inherited from font-lock-keywork originally; as org is changed to variable-pitch, it cause - ;; ;; the font in special-keywords are not monospace - ;; (set-face-attribute 'org-special-keyword nil :inherit '(font-lock-keyword-face fixed-pitch)) - ;; ;; same as above - ;; (set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch)) - ;; (set-face-attribute 'org-block-begin-line nil :inherit 'shadow :slant 'italic :foreground nil) - ;; (set-face-attribute 'org-block-end-line nil :inherit 'shadow :slant 'italic :foreground nil) - - ;; ;; fix indent broken by variable-pitch-mode - ;; ;; http://emacs.stackexchange.com/questions/26864/variable-pitch-face-breaking-indentation-in-org-mode - ;; (require 'org-indent) - ;; (set-face-attribute 'org-indent nil :inherit '(org-hide fixed-pitch))) - - ;; (with-eval-after-load "org" - ;; (let ((default-font-size (- (face-attribute 'default :height) (if (display-graphic-p) 20 0)))) - ;; (set-face-attribute 'org-code nil :height default-font-size) - ;; (set-face-attribute 'org-block nil :height default-font-size) - ;; (set-face-attribute 'org-block-begin-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size) - ;; (set-face-attribute 'org-block-end-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size) - ;; (when (find-font (font-spec :name "Ubuntu Mono")) - ;; (set-face-attribute 'org-table nil :family "Ubutu Mono" :height default-font-size) - ;; (set-face-attribute 'org-formula nil :family "Ubutu Mono" :height default-font-size)))) - - (add-hook 'org-mode-hook - (lambda () - (let ((default-font-size (- (face-attribute 'default :height) (if (display-graphic-p) 20 0)))) - (set-face-attribute 'org-code nil :height default-font-size) - (set-face-attribute 'org-block nil :height default-font-size) - (set-face-attribute 'org-block-begin-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size) - (set-face-attribute 'org-block-end-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size) - (when (find-font (font-spec :name "Ubuntu Mono")) - (set-face-attribute 'org-table nil :family "Ubutu Mono" :height default-font-size) - (set-face-attribute 'org-formula nil :family "Ubutu Mono" :height default-font-size))))) -#+END_SRC - -Also correct the face of =org-meta-line= in =org-table= -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (with-eval-after-load "org" - (set-face-attribute 'org-meta-line nil :font "Source Code Pro" :height 120 :slant 'italic :inherit 'font-lock-comment-face)) -#+END_SRC - -*** Org-head face -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - ;; (with-eval-after-load "org" - ;; (let* ((base-height (face-attribute 'variable-pitch :height)) - ;; (base-font-color (face-foreground 'default nil 'default))) - ;; (set-face-attribute 'org-document-title nil :weight 'bold :height (+ 60 base-height)) - ;; (set-face-attribute 'org-level-1 nil :weight 'bold :height (+ 40 base-height)) - ;; (set-face-attribute 'org-level-2 nil :weight 'bold :height (+ 30 base-height)) - ;; (set-face-attribute 'org-level-3 nil :weight 'bold :height (+ 20 base-height)) - ;; (set-face-attribute 'org-level-4 nil :weight 'bold :height (+ 10 base-height)) - ;; (set-face-attribute 'org-level-5 nil :weight 'bold) - ;; (set-face-attribute 'org-level-6 nil :weight 'bold) - ;; (set-face-attribute 'org-level-7 nil :weight 'bold) - ;; (set-face-attribute 'org-level-8 nil :weight 'bold))) -#+END_SRC - ** Org Blog Fetch dependencies file, which is not in this repository. #+BEGIN_SRC perl :results silent :tangle yes @@ -1421,9 +1496,10 @@ Toggle an eshell in split window below, refer [[http://www.howardism.org/Technic *** hydra install #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package hydra - :ensure t) - ;; disable new line in minibuffer when hint hydra - (setq hydra-lv nil) + :ensure t + ;; disable new line in minibuffer when hint hydra + :init + (setq hydra-lv nil)) #+END_SRC *** Windmove Splitter @@ -1513,11 +1589,26 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex ("d" ace-delete-window "Delete" :exit t) ("x" sd/exchange-win-layout "eXchange" :exit t) ("u" winner-undo "window-Undo" :exit t) - ("r" winner-redo "window-Redo" :exit t)) - - (with-eval-after-load "evil" - (define-key evil-normal-state-map (kbd ";t") 'sd/hydra-window-layout/body)) - + ("r" winner-redo "window-Redo" :exit t) + ("C-h" (lambda () (interactive) (evil-window-increase-width 3)) "<<") + ("C-l" (lambda () (interactive) (evil-window-decrease-width 3)) ">>") + ("C-k" (lambda () (interactive) (evil-window-increase-height 3)) "^") + ("C-j" (lambda () (interactive) (evil-window-decrease-height 3)) "v") + ("=" balance-windows "=" :exit t) + ("q" nil "quit")) + + (defhydra sd/hydra-gtags (:color red :colums nil) + "ggtags - global" + ("d" sd/ggtags-find-definition "Definition" :exit t) + ("r" ggtags-find-reference "Reference" :exit t) + ("s" sd/ggtags-find-symbol "Symbol" :exit t)) + + (defhydra sd/hydra-projectile (:color red :column nil) + "Projectile: " + ("s" projectile-switch-open-project "Switch" :exit t) + ("f" projectile-find-file "File" :exit t) + ("b" projectile-switch-to-buffer "Buffer" :exit t) + ("p" projectile-switch-project "Project" :exit t)) #+END_SRC *** hydra launcher @@ -1601,16 +1692,6 @@ Type =o= to go to the link (ace-link-setup-default)) #+END_SRC -** Smart Parens -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - ;; (use-package smartparens - ;; :ensure t - ;; :config - ;; (progn - ;; (require 'smartparens-config) - ;; (add-hook 'prog-mode-hook 'smartparens-mode))) -#+END_SRC - ** Ace-Windows [[https://github.com/abo-abo/ace-window][ace-window]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -1623,15 +1704,6 @@ Type =o= to go to the link (setq aw-keys '(?a ?s ?d ?f ?j ?k ?l))) #+END_SRC -** Which key -[[https://github.com/justbur/emacs-which-key][which-key]] show the key bindings -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - ;; (use-package which-key - ;; :ensure t - ;; :config - ;; (which-key-mode)) -#+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 @@ -1705,12 +1777,6 @@ When see function by =C-h f=, and visit the source code, I would like the buffer (sd/delete-current-window)) #+END_SRC -** Demo It -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package org-tree-slide - :ensure t) -#+END_SRC - ** Presentation #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package org-tree-slide @@ -1780,12 +1846,6 @@ Wiki [[http://stackoverflow.com/questions/3480173/show-keys-in-emacs-keymap-valu :features help-mode+) #+END_SRC -** goto-last-change -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package goto-last-change - :ensure t) -#+END_SRC - ** Ag install =ag=, =the-silver-searcher= by homebrew on mac #+BEGIN_SRC sh @@ -2026,7 +2086,7 @@ here on Mac, just use "open" commands to pen =.pdf=, =.html= and image files ("\\.csv\\'" "libreoffice") ("\\.tex\\'" "pdflatex" "latex") ("\\.\\(?:mp4\\|mkv\\|avi\\|rmvb\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'" "mplayer") - ("\\.\\(?:mp3\\|flac\\)\\'" "rhythmbox") + ("\\.\\(?:mp3\\|flac\\|wav\\)\\'" "mplayer") ("\\.html?\\'" "open") ("\\.dmg\\'" "open") ("\\.cue?\\'" "audacious"))) @@ -2034,30 +2094,27 @@ here on Mac, just use "open" commands to pen =.pdf=, =.html= and image files (defun sd/dired-start-process (cmd &optional file-list) (interactive - (let ((files (dired-get-marked-files - t current-prefix-arg))) + (let ((files (dired-get-marked-files t current-prefix-arg))) (list - (unless (eq system-type 'windows-nt) - (dired-read-shell-command "& on %s: " - current-prefix-arg files)) + (dired-read-shell-command "& on %s: " current-prefix-arg files) files))) - (if (eq system-type 'windows-nt) - (dolist (file file-list) - (w32-shell-execute "open" (expand-file-name file))) - (let (list-switch) - (start-process - cmd nil shell-file-name - shell-command-switch - (format - "nohup 1>/dev/null 2>/dev/null %s \"%s\"" - cmd - ;; (if (and (> (length file-list) 1) - ;; (setq list-switch - ;; (cadr (assoc cmd ora-dired-filelist-cmd)))) - ;; (format "%s %s" cmd list-switch) - ;; cmd) - (mapconcat #'expand-file-name file-list "\" \"")))))) + ;; (let (list-switch)) + (start-process + cmd nil shell-file-name + shell-command-switch + (format + "nohup 1>/dev/null 2>/dev/null %s \"%s\"" + cmd + ;; (if (and (> (length file-list) 1) + ;; (setq list-switch + ;; (cadr (assoc cmd ora-dired-filelist-cmd)))) + ;; (format "%s %s" cmd list-switch) + ;; cmd) + (mapconcat #'expand-file-name file-list "\" \"")))) + + + #+END_SRC ** dired-hacks @@ -2121,6 +2178,8 @@ here on Mac, just use "open" commands to pen =.pdf=, =.html= and image files (use-package company-statistics :ensure t + :init + (setq company-statistics-file (concat MY-EMACS-TMP "/company-statistics-cache.el")) :config (company-statistics-mode)) @@ -2143,6 +2202,24 @@ here on Mac, just use "open" commands to pen =.pdf=, =.html= and image files (yas-reload-all)) #+END_SRC +** YouCompleteMe +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package ycmd + :ensure t + :init + (use-package company-ycmd + :ensure t + :init + (setq company-ycmd-enable-fuzzy-matching nil) + :config + (company-ycmd-setup)) + (setq ycmd-force-semantic-completion t) + (add-hook 'c++-mode-hook 'ycmd-mode) + (add-hook 'c-mode-hook 'ycmd-mode) + (set-variable 'ycmd-server-command '("python" "/Users/peng/project/ycmd/ycmd")) + (set-variable 'ycmd-global-config "/Users/peng/project/ycmd/cpp/ycm/.ycm_extra_conf.py")) +#+END_SRC + ** company and yasnippet Add yasnippet as the company candidates @@ -2269,14 +2346,21 @@ Refer, [[http://emacs.stackexchange.com/questions/7908/how-to-make-yasnippet-and (set-face-attribute 'font-lock-function-name-face nil :foreground "#A6E22E" :weight 'normal :slant 'normal) (set-face-attribute 'font-lock-variable-name-face nil :foreground "#00FF00") - (font-lock-add-keywords 'c-mode - ;; highlight %s \n - '(("\\([%\\][a-zA-Z]\\)" (1 font-lock-keyword-face prepend)) - ("[^[:alpha:]]\\([[:digit:]]*\\)[^[:alpha:]]" (1 font-lock-constant-face append)) - ;; hex number - ("[^[:alpha:]]\\(0[x\\|X][0-9a-fA-F]*\\)[^[:alpha:]]" (1 font-lock-constant-face append)) - ;; hightlight the function call - ("\\s\"?\\(\\(\\sw\\|\\s_\\)+\\(<-\\)?\\)\\s\"?*\\s-*(" (1 font-lock-function-name-face))) t) + (dolist (mode '(c-mode + c++-mode)) + (font-lock-add-keywords mode + ;; highlight %s \n + '(("\\([%\\][a-zA-Z]\\)" (1 font-lock-keyword-face prepend)) + ("[^[:alpha:]]\\([[:digit:]]*\\)[^[:alpha:]]" (1 font-lock-constant-face append)) + ;; hex number + ("[^[:alpha:]]\\(0[x\\|X][0-9a-fA-F]*\\)[^[:alpha:]]" (1 font-lock-constant-face append)) + ;; hightlight the function call + ("\\s\"?\\(\\(\\sw\\|\\s_\\)+\\(<-\\)?\\)\\s\"?*\\s-*(" (1 font-lock-function-name-face))) t)) + + (font-lock-add-keywords 'c++-mode + '( + ("[\s\\|::]\\(cin\\|cout\\|endl\\)[^[:alpha:][:digit:]]" (1 font-lock-constant-face append)) + ) t) #+END_SRC ** Emacs Lisp @@ -2353,18 +2437,18 @@ C/C++ ide tools ;; (setq c-default-style "stroustrup" ;; c-basic-offset 4) - ;; "C-M-j" is my global binding for avy goto line below - ;; disable it in c mode - (mapcar #'(lambda (map) - (define-key map (kbd "C-M-j") nil)) - (list c-mode-map - c++-mode-map - objc-mode-map)) + ;; ;; "C-M-j" is my global binding for avy goto line below + ;; ;; disable it in c mode + ;; (mapcar #'(lambda (map) + ;; (define-key map (kbd "C-M-j") nil)) + ;; (list c-mode-map + ;; c++-mode-map + ;; objc-mode-map)) ;; objective c (add-to-list 'auto-mode-alist '("\\.mm\\'" . objc-mode)) - (setq c-hungry-delete-key t) + (setq-default c-hungry-delete-key t) ;; Looks `c-hanging-braces-alist' doesn't work as expected when `electric-pair-mode' is enabled. @@ -2391,7 +2475,6 @@ C/C++ ide tools ;; (advice-add 'c-electric-brace :after (lambda (arg) "Add new line after insert {}" (newline-and-indent))) #+END_SRC - *** irony **** install irony server Install clang, on mac, it has =libclang.dylib=, but no develop headers. Install by =brew= @@ -2414,12 +2497,12 @@ then install irony searver, and =LIBCLANG_LIBRARY= and =LIBCLANG_INCLUDE_DIR= ac **** irony config irony-mode-hook, copied from [[https://github.com/Sarcasm/irony-mode][irony-mode]] github #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package irony - :ensure t - :config - (add-hook 'c++-mode-hook 'irony-mode) - (add-hook 'c-mode-hook 'irony-mode) - (add-hook 'objc-mode-hook 'irony-mode)) + ;; (use-package irony + ;; :ensure t + ;; :init + ;; (add-hook 'c++-mode-hook 'irony-mode) + ;; (add-hook 'c-mode-hook 'irony-mode) + ;; (add-hook 'objc-mode-hook 'irony-mode)) ;; replace the `completion-at-point' and `complete-symbol' bindings in ;; irony-mode's buffers by irony-mode's function @@ -2430,10 +2513,10 @@ irony-mode-hook, copied from [[https://github.com/Sarcasm/irony-mode][irony-mode (define-key irony-mode-map [remap complete-symbol] 'irony-completion-at-point-async)) - (add-hook 'irony-mode-hook 'my-irony-mode-hook) - (add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options) + ;; (add-hook 'irony-mode-hook 'my-irony-mode-hook) + ;; (add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options) - (add-hook 'c++-mode-local-vars-hook #'sd/c++-mode-local-vars) + ;; (add-hook 'c++-mode-local-vars-hook #'sd/c++-mode-local-vars) ;; add C++ completions, because by default c++ file can not complete ;; c++ std functions, another method is create .dir-local.el file, for p @@ -2447,28 +2530,28 @@ irony-mode-hook, copied from [[https://github.com/Sarcasm/irony-mode][irony-mode irony-company #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package company-irony - :ensure t) + ;; (use-package company-irony + ;; :ensure t) - (use-package flycheck-irony - :ensure t) + ;; (use-package flycheck-irony + ;; :ensure t) - (use-package company-c-headers - :ensure t - :config - (add-to-list 'company-c-headers-path-system "/usr/include/c++/4.2.1/") - (add-to-list 'company-c-headers-path-system "/usr/local/include/")) + ;; (use-package company-c-headers + ;; :ensure t + ;; :config + ;; (add-to-list 'company-c-headers-path-system "/usr/include/c++/4.2.1/") + ;; (add-to-list 'company-c-headers-path-system "/usr/local/include/")) ;; (with-eval-after-load 'company ;; (add-to-list 'company-backends 'company-irony) ;; (add-to-list 'company-backends 'company-c-headers)) - (with-eval-after-load 'company - (push '(company-irony :with company-yasnippet) company-backends) - (push '(company-c-headers :with company-yasnippet) company-backends)) + ;; (with-eval-after-load 'company + ;; (push '(company-irony :with company-yasnippet) company-backends) + ;; (push '(company-c-headers :with company-yasnippet) company-backends)) - (with-eval-after-load 'flycheck - (add-hook 'flycheck-mode-hook #'flycheck-irony-setup)) + ;; (with-eval-after-load 'flycheck + ;; (add-hook 'flycheck-mode-hook #'flycheck-irony-setup)) #+END_SRC *** flycheck @@ -2497,8 +2580,23 @@ irony-company (when (derived-mode-p 'c-mode 'c++-mode 'java-mode) (ggtags-mode 1)))) + (defun sd/ggtags-find-definition () + "Find the definition with current name completing." + (interactive) + (setq current-prefix-arg '(4)) + (call-interactively 'ggtags-find-definition)) + + (defun sd/ggtags-find-symbol () + "Find symbol" + (interactive) + (setq current-prefix-arg '(4)) + (call-interactively 'ggtags-find-other-symbol)) + (require 'cc-mode) (require 'semantic) + (setq semanticdb-default-save-directory (concat MY-EMACS-TMP "/semantic/")) + (unless (file-exists-p semanticdb-default-save-directory) + (make-directory semanticdb-default-save-directory)) (global-semanticdb-minor-mode 1) (global-semantic-idle-scheduler-mode 1) @@ -2525,7 +2623,7 @@ irony-company (setq out-file-name (shell-quote-argument (concat (file-name-sans-extension buffer-file-name) ".out")))) (setq-local compilation-read-command t) (set (make-local-variable 'compile-command) - (concat "g++ -Wall " + (concat "g++ -Wall -std=c++11 " current-file-name " -o " out-file-name @@ -2579,7 +2677,6 @@ Install =guile=, =guile= is an implementation of =Scheme= programming language. (add-to-list 'auto-mode-alist '("\\.rkt\\'" . racket-mode)) #+END_SRC - * Compile Set the environments vairables in compilation mode #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -2780,6 +2877,13 @@ Emacs lisp auto-insert, based on the default module in =autoinsert.el=, but repl :ensure t) #+END_SRC +* Iedit +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package iedit + :ensure t + :init + (global-set-key (kbd "C-;") #'iedit-mode)) +#+END_SRC * Gnus ** Gmail setting Refer [[https://www.emacswiki.org/emacs/GnusGmail][GnusGmail]] @@ -3104,115 +3208,7 @@ We can use [[https://www.gnu.org/software/emms/quickstart.html][Emms]] for multi :commands (bing-dict-brief)) #+END_SRC -* Key Bindings -Here are some global key bindings for basic editting -** Global key bingding -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (global-set-key (kbd "C-h") 'delete-backward-char) - (global-set-key (kbd "s-m") 'man) -#+END_SRC - -Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba8281255a594/setup/.emacs.d/loader-init/_90-kill-region-or-backward-kill-word.el][kill-region-or-backward-kill-word]] - -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (require 'utilities) - (global-set-key (kbd "C-w") 'sd/kill-region-or-backward-kill-word) -#+END_SRC - - -** Esc in minibuffer -Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g= -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (define-key minibuffer-local-map [escape] 'keyboard-escape-quit) - (define-key minibuffer-local-map [escape] 'keyboard-escape-quit) - (define-key minibuffer-local-ns-map [escape] 'keyboard-escape-quit) - (define-key minibuffer-local-isearch-map [escape] 'keyboard-escape-quit) - (define-key minibuffer-local-completion-map [escape] 'keyboard-escape-quit) - (define-key minibuffer-local-must-match-map [escape] 'keyboard-escape-quit) - (define-key minibuffer-local-must-match-filename-map [escape] 'keyboard-escape-quit) - (define-key minibuffer-local-filename-completion-map [escape] 'keyboard-escape-quit) - (define-key minibuffer-local-filename-must-match-map [escape] 'keyboard-escape-quit) - - ;; Also map s-h same as C-g - (define-key minibuffer-local-map (kbd "s-h") 'keyboard-escape-quit) -#+END_SRC - -** Project operations - =super= -*** Projectile -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package projectile - :ensure t - :init - (setq projectile-enable-caching t) - (setq projectile-switch-project-action (lambda () - (projectile-dired) - (sd/project-switch-action))) - (setq projectile-cache-file (concat sd-temp-directory "projectile.cache")) - :config - (add-to-list 'projectile-globally-ignored-files "GTAGS") - (projectile-global-mode t)) - - ;; change default-directory of scratch buffer to projectile-project-root - (defun sd/project-switch-action () - "Change default-directory of scratch buffer to current projectile-project-root directory" - (interactive) - (dolist (buffer (buffer-list)) - (if (string-match (concat "scratch.*" (projectile-project-name)) - (buffer-name buffer)) - (let ((root (projectile-project-root))) - (with-current-buffer buffer - (cd root)))))) - - - - ;; https://emacs.stackexchange.com/questions/16497/how-to-exclude-files-from-projectile - ;; (setq projectile-enable-caching t) - (if (executable-find "rg") - (progn - (defconst modi/rg-arguments - `("--line-number" ; line numbers - "--smart-case" - "--follow" ; follow symlinks - "--mmap") ; apply memory map optimization when possible - "Default rg arguments used in the functions in `projectile' package.") - - (defun modi/advice-projectile-use-rg () - "Always use `rg' for getting a list of all files in the project." - (mapconcat 'identity - (append '("\\rg") ; used unaliased version of `rg': \rg - modi/rg-arguments - '("--null" ; output null separated results, - "--files")) ; get file names matching the regex '' (all files) - " ")) - - (advice-add 'projectile-get-ext-command :override #'modi/advice-projectile-use-rg)) - (message "rg is not found")) -#+END_SRC - -*** project config =super= keybindings -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - ;; (global-set-key (kbd "s-h") 'keyboard-quit) - ;; (global-set-key (kbd "s-j") 'ido-switch-buffer) - ;; (global-set-key (kbd "s-k") 'ido-find-file) - ;; (global-set-key (kbd "s-l") 'sd/delete-current-window) - ;; s-l --> goto-line - ;; (global-set-key (kbd "s-/") 'swiper) - ;; s-; --> - ;; s-' --> 'next-multiframe-window - (global-set-key (kbd "") 'toggle-frame-fullscreen) - - (global-set-key (kbd "s-f") 'projectile-find-file) - ;; (global-set-key (kbd "s-`") 'mode-line-other-buffer) - - ;; (global-set-key (kbd "s-n") 'persp-next) - ;; (global-set-key (kbd "s-p") 'persp-prev) - ;; (global-set-key (kbd "s-;") 'persp-switch-last) - - (global-set-key (kbd "s-=") 'text-scale-increase) - (global-set-key (kbd "s--") 'text-scale-decrease) - - ;; (global-set-key (kbd "s-u") 'undo-tree-visualize) -#+END_SRC +* Project operations - =super= ** Windown & Buffer - =C-o= Defind a =hydra= function for windows, buffer & bookmark operations. And map it to =C-o= globally. @@ -3221,90 +3217,90 @@ Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to del (winner-mode 1) (require 'utilities) - (defhydra sd/hydra-window (:color red :columns nil) - "C-o" - ;; windows switch - ("h" windmove-left nil :exit t) - ("j" windmove-down nil :exit t) - ("k" windmove-up nil :exit t) - ("l" windmove-right nil :exit t) - ("C-o" other-window nil :exit t) - ;; window resize - ("H" hydra-move-splitter-left nil) - ("J" hydra-move-splitter-down nil) - ("K" hydra-move-splitter-up nil) - ("L" hydra-move-splitter-right nil) - ;; windows split - ("v" (lambda () - (interactive) - (split-window-right) - (windmove-right)) - nil :exit t) - ("x" (lambda () - (interactive) - (split-window-below) - (windmove-down)) - nil :exit t) - ;; buffer / windows switch - ("o" sd/toggle-max-windows nil :exit t) - ("C-k" sd/delete-current-window nil :exit t) - ("C-d" (lambda () - (interactive) - (kill-buffer) - (sd/delete-current-window)) - nil :exit t) - - ;; ace-window - ;; ("'" other-window "other" :exit t) - ;; ("a" ace-window "ace") - ("s" ace-swap-window nil) - ("D" ace-delete-window nil :exit t) - ;; ("i" ace-maximize-window "ace-one" :exit t) - ;; Windows undo - redo - ("u" (progn (winner-undo) (setq this-command 'winner-undo)) nil) - ("r" (progn (winner-redo) (setq this-command 'winner-redo)) nil) - - ;; ibuffer, dired, eshell, bookmarks - ;; ("C-i" other-window nil :exit t) - ("C-b" ido-switch-buffer nil :exit t) - ("C-f" projectile-find-file nil :exit t) - ("C-r" ivy-recentf nil :exit t) - ;; ("C-p" persp-switch nil :exit t) - ;; ("C-t" projectile-persp-switch-project nil :exit t) - - ;; other special buffers - ("d" sd/project-or-dired-jump nil :exit t) - ("b" ibuffer nil :exit t) - ("t" multi-term nil :exit t) - ("e" sd/toggle-project-eshell nil :exit t) - ("m" bookmark-jump-other-window nil :exit t) - ("M" bookmark-set nil :exit t) - ("g" magit-status nil :exit t) - ;; ("p" paradox-list-packages nil :exit t) - - ;; quit - ("q" nil nil) - ("" nil nil) - ("C-h" windmove-left nil :exit t) - ("C-j" windmove-down nil :exit t) - ("C-k" windmove-up nil :exit t) - ("C-l" windmove-right nil :exit t) - ("C-;" nil nil :exit t) - ("n" nil nil :exit t) - ("[" nil nil :exit t) - ("]" nil nil :exit t) - ("f" nil nil)) - - (global-unset-key (kbd "C-o")) - (global-set-key (kbd "C-o") 'sd/hydra-window/body) - - (defun sd/project-or-dired-jump () - "If under project, jump to the root directory, otherwise - jump to dired of current file" - (interactive) - (if (projectile-project-p) - (projectile-dired) - (dired-jump))) + ;; (defhydra sd/hydra-window (:color red :columns nil) + ;; "C-o" + ;; ;; windows switch + ;; ("h" windmove-left nil :exit t) + ;; ("j" windmove-down nil :exit t) + ;; ("k" windmove-up nil :exit t) + ;; ("l" windmove-right nil :exit t) + ;; ("C-o" other-window nil :exit t) + ;; ;; window resize + ;; ("H" hydra-move-splitter-left nil) + ;; ("J" hydra-move-splitter-down nil) + ;; ("K" hydra-move-splitter-up nil) + ;; ("L" hydra-move-splitter-right nil) + ;; ;; windows split + ;; ("v" (lambda () + ;; (interactive) + ;; (split-window-right) + ;; (windmove-right)) + ;; nil :exit t) + ;; ("x" (lambda () + ;; (interactive) + ;; (split-window-below) + ;; (windmove-down)) + ;; nil :exit t) + ;; ;; buffer / windows switch + ;; ("o" sd/toggle-max-windows nil :exit t) + ;; ("C-k" sd/delete-current-window nil :exit t) + ;; ("C-d" (lambda () + ;; (interactive) + ;; (kill-buffer) + ;; (sd/delete-current-window)) + ;; nil :exit t) + + ;; ;; ace-window + ;; ;; ("'" other-window "other" :exit t) + ;; ;; ("a" ace-window "ace") + ;; ("s" ace-swap-window nil) + ;; ("D" ace-delete-window nil :exit t) + ;; ;; ("i" ace-maximize-window "ace-one" :exit t) + ;; ;; Windows undo - redo + ;; ("u" (progn (winner-undo) (setq this-command 'winner-undo)) nil) + ;; ("r" (progn (winner-redo) (setq this-command 'winner-redo)) nil) + + ;; ;; ibuffer, dired, eshell, bookmarks + ;; ;; ("C-i" other-window nil :exit t) + ;; ("C-b" ido-switch-buffer nil :exit t) + ;; ("C-f" projectile-find-file nil :exit t) + ;; ("C-r" ivy-recentf nil :exit t) + ;; ;; ("C-p" persp-switch nil :exit t) + ;; ;; ("C-t" projectile-persp-switch-project nil :exit t) + + ;; ;; other special buffers + ;; ("d" sd/project-or-dired-jump nil :exit t) + ;; ("b" ibuffer nil :exit t) + ;; ("t" multi-term nil :exit t) + ;; ("e" sd/toggle-project-eshell nil :exit t) + ;; ("m" bookmark-jump-other-window nil :exit t) + ;; ("M" bookmark-set nil :exit t) + ;; ("g" magit-status nil :exit t) + ;; ;; ("p" paradox-list-packages nil :exit t) + + ;; ;; quit + ;; ("q" nil nil) + ;; ("" nil nil) + ;; ("C-h" windmove-left nil :exit t) + ;; ("C-j" windmove-down nil :exit t) + ;; ("C-k" windmove-up nil :exit t) + ;; ("C-l" windmove-right nil :exit t) + ;; ("C-;" nil nil :exit t) + ;; ("n" nil nil :exit t) + ;; ("[" nil nil :exit t) + ;; ("]" nil nil :exit t) + ;; ("f" nil nil)) + + ;; (global-unset-key (kbd "C-o")) + ;; (global-set-key (kbd "C-o") 'sd/hydra-window/body) + + ;; (defun sd/project-or-dired-jump () + ;; "If under project, jump to the root directory, otherwise + ;; jump to dired of current file" + ;; (interactive) + ;; (if (projectile-project-p) + ;; (projectile-dired) + ;; (dired-jump))) #+END_SRC Kill the help window and buffer when quit. @@ -3340,24 +3336,7 @@ Kill the help window and buffer when quit. #+END_SRC ** Motion -- =C-M-= -[[https://www.masteringemacs.org/article/effective-editing-movement][effective-editing-movement]] -*** Command Arguments, numeric argumens -=C-u 4= same as =C-4=, =M-4= -*** Basic movement -moving by line / word / -=C-f=, =C-b=, =C-p=, =C-n=, =M-f=, =M-b= -=C-a=, =C-e= -=M-m= (move first non-whitespace on this line) -=M-}=, =M-{=, Move forward end of paragraph -=M-a=, =M-e=, beginning / end of sentence -=C-M-a=, =C-M-e=, move begining of defun -=C-x ]=, =C-x [=, forward/backward one page -=C-v=, =M-v=, =C-M-v=, =C-M-S-v= scroll down/up -=M-<=, =M->=, beginning/end of buffer -=M-r=, Repositiong point - -*** Moving by S-expression / List + *** Marks =C-= set marks toggle the region =C-u C-= Jump to the mark, repeated calls go further back the mark ring @@ -3419,15 +3398,6 @@ Here for movement, we can use register to save/jump position :ensure t) #+END_SRC -*** Bookmarks -As I would like use bookmakr for different buffer/files. to help to swith -different buffer/file quickly. this setting is in Windows/buffer node -=C-x r m= set a bookmarks -=C-x r l= list bookmarks -=C-x r b= jump to bookmarks - -*** Search -Search, replace and hightlight will in later paragraph *** =Avy= for easy motion #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package avy @@ -3435,17 +3405,17 @@ Search, replace and hightlight will in later paragraph :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-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 "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) + ;; (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) @@ -3455,6 +3425,9 @@ Search, replace and hightlight will in later paragraph ;; (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) + (global-set-key (kbd "M-g c") 'avy-goto-char) + (global-set-key (kbd "M-g b") 'avy-goto-word-0-above) + (global-set-key (kbd "M-g w") 'avy-goto-word-0-below) #+END_SRC *** =Imenu= goto tag @@ -3474,12 +3447,6 @@ Search, replace and hightlight will in later paragraph #+END_SRC ** Edit -*** basic editting -- cut, yank, =C-w=, =C-y= -- save, revert -- undo, redo - undo-tree -- select, expand-region -- spell check, flyspell *** Kill ring =helm-show-kill-ring= @@ -3740,6 +3707,49 @@ Occur search key bindings *** TODO make expand-region hydra work with lispy selected +* Key Bindings +Here are some global key bindings for basic editting +** Global key bingding +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (global-set-key (kbd "C-h") 'delete-backward-char) + (global-set-key (kbd "s-m") 'man) + (global-set-key (kbd "") 'toggle-frame-fullscreen) + ;; project operation + (global-set-key (kbd "s-p") 'projectile-switch-open-project) + (global-set-key (kbd "s-f") 'projectile-find-file) + + ;; (global-set-key (kbd "s-=") 'increase-emacs-font-size) + ;; (global-set-key (kbd "s--") 'decrease-emacs-font-size) + (global-set-key (kbd "s-=") 'text-scale-increase) + (global-set-key (kbd "s--") 'text-scale-decrease) + (global-unset-key (kbd "s-n")) +#+END_SRC + +Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba8281255a594/setup/.emacs.d/loader-init/_90-kill-region-or-backward-kill-word.el][kill-region-or-backward-kill-word]] + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (require 'utilities) + (global-set-key (kbd "C-w") 'sd/kill-region-or-backward-kill-word) +#+END_SRC + + +** Esc in minibuffer +Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g= +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (define-key minibuffer-local-map [escape] 'keyboard-escape-quit) + (define-key minibuffer-local-map [escape] 'keyboard-escape-quit) + (define-key minibuffer-local-ns-map [escape] 'keyboard-escape-quit) + (define-key minibuffer-local-isearch-map [escape] 'keyboard-escape-quit) + (define-key minibuffer-local-completion-map [escape] 'keyboard-escape-quit) + (define-key minibuffer-local-must-match-map [escape] 'keyboard-escape-quit) + (define-key minibuffer-local-must-match-filename-map [escape] 'keyboard-escape-quit) + (define-key minibuffer-local-filename-completion-map [escape] 'keyboard-escape-quit) + (define-key minibuffer-local-filename-must-match-map [escape] 'keyboard-escape-quit) + + ;; Also map s-h same as C-g + (define-key minibuffer-local-map (kbd "s-h") 'keyboard-escape-quit) +#+END_SRC + * Developing ** perspeen #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -3753,7 +3763,8 @@ Occur search key bindings (el-get-bundle seudut/perspeen :features perspeen (setq perspeen-use-tab nil) - (perspeen-mode)) + ;; (perspeen-mode) + ) ;; super-i to switch to ith workspace @@ -3777,23 +3788,12 @@ Occur search key bindings #+BEGIN_SRC emacs-lisp :tangle yes :results silent (org-babel-load-file "~/.emacs.d/emacs-evil.org") #+END_SRC -* Note -** Check if emacs is in terminal of graphic mode -Use =display-graphic-p= instead of =window-system= -[[info:elisp#Window%20Systems][Window Systems]] -** =Interactive= -** List operation -*** add a element to list -- ~add-to-list~ functions, append -- ~push~ macro -- ~(setcdr (last aa) (list element))~ -blog with modify list - -draw one line top of the windows -* test -This is a 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 + +* Footnotes + +[fn:1] [[http://coldnew.github.io/blog/2013/11-16_d2f3a/][解決 org-mode 表格內中英文對齊的問題]] + + + + +