X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=949f4e9786139d88ba1774ada5351b9c7facffe7;hb=9387bdc8e5c4f18b9d47b2f12ccfcb386c1a5f21;hp=273249bf7bf9e103cf4a20892c640b6c280482d1;hpb=0225b343d36eccf6746ffd5f2f8d3267e29b758d;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index 273249b..949f4e9 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -28,17 +28,27 @@ Set system PATH and emacs exec path (package-initialize) #+END_SRC +** My constant +#+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 *** scroll bar, tool-bar and menu-bar #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (scroll-bar-mode 0) - (tool-bar-mode 0) - - (if window-system - (menu-bar-mode 1) + (if (display-graphic-p) + (progn + (scroll-bar-mode 0) + (tool-bar-mode 0) + (menu-bar-mode 1)) (menu-bar-mode 0)) - (setq debug-on-error t) + ;; (setq debug-on-error t) (setq inhibit-startup-message t) (defalias 'yes-or-no-p 'y-or-n-p) @@ -48,6 +58,16 @@ Set system PATH and emacs exec path ;;supress the redefined warning at startup (setq ad-redefinition-action 'accept) + + (setq scroll-step 1) + (setq scroll-margin 5) + + (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 *** Custom file @@ -98,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 @@ -106,6 +127,16 @@ Make a temp directory for all cache/history files (setq large-file-warning-threshold nil) #+END_SRC +*** Xterm mode +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (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 @@ -133,274 +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) -#+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") ;; 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 - -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - ;; Setup font size based on emacs-font-size-pair - ;; (if window-system - ;; (set-font emacs-english-font emacs-cjk-font '(13 . 16))) - - - ;; (global-set-key (kbd "s-=") 'increase-emacs-font-size) - ;; (global-set-key (kbd "s--") 'decrease-emacs-font-size) - - ;; set different fonts (chinese) size for org-mode. - (defun sd/org-buffer-font () - "My font setting for org-mode" - (interactive) - (setq buffer-face-mode-face '(:family "Source Sans Code" :height 160)) - (buffer-face-mode)) - - ;; (add-hook 'org-mode-hook 'sd/org-buffer-font) -#+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 - -** 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]] @@ -428,15 +191,18 @@ clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replac (irony-mode . "") (page-break-lines-mode . "") (yas-minor-mode . "y") + ;; default jj + (evil-escape-mode . "") + (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'. @@ -466,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 @@ -515,7 +274,7 @@ 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)) (my-face-buffer-modified (if (and (sd/buffer-is-eshel-or-scratch) (buffer-modified-p) (not buffer-read-only)) @@ -531,25 +290,20 @@ 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) (when (and (boundp 'erc-track-minor-mode) erc-track-minor-mode) (powerline-raw erc-modified-channels-object face2 'l)) (powerline-major-mode face2 'l) @@ -564,25 +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 + ;; (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 + + + +** 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 - (setq ns-use-srgb-colorspace nil) + (if (display-graphic-p) + (set-cursor-color 'red)) #+END_SRC -set height in mode line +* Font Settingh +** font lock #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (with-eval-after-load "powerline" - (if window-system - (progn - (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 100) base-font-size))) - (set-face-attribute 'mode-line nil :height 100) - (set-face-attribute 'mode-line-inactive nil :height 100)))) + (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 @@ -590,15 +594,23 @@ set height in mode line #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package ido :ensure t - :init (setq ido-enable-flex-matching nil + :init (setq ido-enable-flex-matching t ido-ignore-extensions t ido-use-virtual-buffers t + ido-use-faces nil ido-everywhere t) (setq ido-save-directory-list-file (concat sd-temp-directory "ido.last")) :config (ido-mode 1) (ido-everywhere 1) - (add-to-list 'completion-ignored-extensions ".pyc")) + (add-to-list 'completion-ignored-extensions ".pyc") + + + (define-key ido-buffer-completion-map (kbd "C-w") #'ido-delete-backward-word-updir) + (define-key ido-file-completion-map (kbd "C-w") #'ido-delete-backward-word-updir) + (define-key ido-file-dir-completion-map (kbd "C-w") #'ido-delete-backward-updir) + ;; (define-key ido-file-dir-completion-map (kbd "C-i") #'ido-copy-current-word) + ) (icomplete-mode t) #+END_SRC @@ -607,8 +619,6 @@ set height in mode line #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package flx-ido :ensure t - :init (setq ido-enable-flex-matching nil - ido-use-faces nil) :config (flx-ido-mode nil)) #+END_SRC @@ -661,27 +671,146 @@ Use [[https://github.com/DarwinAwardWinner/ido-ubiquitous][ido-ubiquitous]] for ido-file-dir-completion-map))) #+END_SRC -** Counsel +** helm +let helm windows split inside current window +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (with-eval-after-load 'helm + (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 :ensure t :defer t :init + (use-package ivy :ensure t) + (ivy-mode 1) + (setq ivy-use-virtual-buffers nil + 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) - ;; (set-face-attribute 'ivy-current-match nil :background "Orange" :foreground "black") + ;; (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)) #+END_SRC -** helm -let helm windows split inside current window #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (with-eval-after-load 'helm - (setq helm-split-window-in-side-p t)) + (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) + (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") (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]] +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package swiper + :ensure t + ;; :init + :config + ;; (ivy-mode) + (global-set-key (kbd "s-/") 'swiper) + (define-key swiper-map (kbd "M-r") 'swiper-query-replace) + (define-key swiper-map (kbd "C-.") (lambda () + (interactive) + (insert (format "%s" (with-ivy-window (thing-at-point 'word)))))) + (define-key swiper-map (kbd "M-.") (lambda () + (interactive) + (insert (format "%s" (with-ivy-window (thing-at-point 'symbol))))))) + +#+END_SRC * Org-mode Settings ** Org-mode Basic setting Always indents header, and hide header leading starts so that no need type =#+STATUP: indent= @@ -713,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 @@ -720,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) @@ -734,7 +963,7 @@ Always indents header, and hide header leading starts so that no need type =#+ST (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)) + (message "seudut: ditaa.jar not found at %s " org-ditaa-jar-path)) (org-babel-do-load-languages 'org-babel-load-languages '((python . t) @@ -744,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) @@ -792,9 +1021,7 @@ use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 (use-package org-bullets :ensure t :init - (add-hook 'org-mode-hook - (lambda () - (org-bullets-mode t)))) + (add-hook 'org-mode-hook (apply-partially #'org-bullets-mode t))) (setq org-bullets-bullet-list '("⦿" "✪" "◉" "○" "►" "◆")) @@ -806,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 @@ -975,8 +1202,7 @@ All captured file which need next actions are stored in =refile.org=, *** Agenda Setup Setting agenda files and the agenda view #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (setq org-agenda-files (quote ("~/org/gtd.org" - "~/org/work.org"))) + (setq org-agenda-files (quote ("~/org/gtd.org"))) ;; only show today's tasks in agenda view ;; (setq org-agenda-span 'day) @@ -991,6 +1217,18 @@ Setting agenda files and the agenda view (setq org-agenda-show-all-dates t) #+END_SRC +** Org mobile +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (with-eval-after-load "org" + (require 'org-mobile) + ;; Set to the location of your Org files on your local system + ;; (setq org-directory "~/org") + ;; Set to the name of the file where new notes will be stored + (setq org-mobile-inbox-for-pull "~/org/flagged.org") + ;; Set to /MobileOrg. + (setq org-mobile-directory "~/Dropbox/Apps/MobileOrg")) +#+END_SRC + ** Export PDF Install MacTex-basic [[http://www.tug.org/mactex/morepackages.html][MacTex-basic]] and some tex packages #+BEGIN_SRC sh @@ -1121,97 +1359,30 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em '("b" "#+STARTUP: showall ,#+STARTUP: inlineimages ,#+OPTIONS: toc:nil\n")) - (add-to-list 'org-structure-template-alist - '("d" "#+BEGIN_SRC ditaa :file ? :cmdline -r -s 0.8 :cache yes \n\n#+END_SRC")) - (add-to-list 'org-structure-template-alist - '("u" "#+BEGIN_SRC plantuml :file ? \n\n#+END_SRC")) - -#+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 - (set-face-attribute 'variable-pitch nil :font "Calibri" :height 160) - (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height (face-attribute 'default :height)) - - (add-hook 'text-mode-hook 'variable-pitch-mode) + (add-to-list 'org-structure-template-alist + '("d" "#+BEGIN_SRC ditaa :file ? :cmdline -r -s 0.8 :cache yes \n\n#+END_SRC")) + (add-to-list 'org-structure-template-alist + '("u" "#+BEGIN_SRC plantuml :file ? \n\n#+END_SRC")) - ;; 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)) - (set-face-attribute 'org-table 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)) - - ;; 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))) #+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)) +** Org Blog +Fetch dependencies file, which is not in this repository. +#+BEGIN_SRC perl :results silent :tangle yes + print `curl https://raw.githubusercontent.com/seudut/blog/master/my-publish.el -o ./elisp/my-publish.el`; #+END_SRC -*** Org-head face +Load #+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))) + (add-to-list 'load-path "~/.emacs.d/elisp") + + (when (file-exists-p "~/.emacs.d/elisp/my-publish.el") + (require 'my-publish) + (blog-setup-project-alist "~/Private/blog/")) #+END_SRC -** Org Blog + Refer to [[http://orgmode.org/worg/org-tutorials/org-publish-html-tutorial.html][org-publish-html-tutorial]], and [[https://ogbe.net/blog/blogging_with_org.html][blogging_with_org]] -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (require 'ox-publish) - - (setq org-publish-project-alist - `( - ("org-notes" - :base-directory "~/Private/blog/" - :base-extension "org" - :publishing-directory "~/Private/publish_html" - :recursive t - :publishing-function org-html-publish-to-html - :headline-levels 4 - :section-numbers nil - :auto-preamble t - :auto-sitemap t ;Generate sitmap.org automagicaly... - :sitemap-filename "sitemap.org" ;... call it sitemap.org (it's the default )... - :sitemap-title "Sitemap" - - :html-table-of-contents nil - :html-postamble nil ;dont export creator auto validation info in html postamble div - :html-link-home "/" - :html-head "" - :html-head-include-default-style nil - :html-head-include-scripts nil) - ("org-static" - :base-directory "~/Private/blog/" - :base-extension "css\\|js\\|png\\|gif\\|pdf\\|mp3\\|ogg\\|swf" - :publishing-directory "~/Private/publish_html" - :recursive t - :publishing-function org-publish-attachment - :table-of-contents nil) - ("org" :components ("org-notes" "org-static")))) -#+END_SRC * Magit [[https://github.com/magit/magit][Magit]] is a very cool git interface on Emacs. @@ -1223,7 +1394,7 @@ and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github ;; don't ask me to confirm the unsaved change (setq magit-save-repository-buffers nil) ;; default is 50 - (setq git-commit-summary-max-length 80) + (setq git-commit-summary-max-length 100) :commands magit-status magit-blame :config (dolist (map (list magit-status-mode-map @@ -1237,7 +1408,9 @@ and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github (define-key map "n" nil) (define-key map "p" nil) (define-key map "v" 'recenter-top-bottom) - (define-key map "i" 'magit-section-toggle))) + (define-key map "i" 'magit-section-toggle)) + (define-key magit-mode-map "q" (lambda () (interactive) + (magit-mode-bury-buffer t)))) #+END_SRC * Eshell @@ -1256,15 +1429,22 @@ set default eshell history folder ** Eshell erase buffer #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defun sd/eshell-clear-buffer () - "Clear eshell buffer" + (require 'utilities) + + ;; (add-hook 'eshell-mode-hook (lambda () + ;; (local-set-key (kbd "C-l") 'sd/eshell-clear-buffer))) + ;; (add-hook 'eshell-mode-map (lambda () (interactive) + ;; (define-key eshell-mode-map (kbd "") 'completion-at-point))) + + (defun sd/eshell-hook () (interactive) - (let ((inhibit-read-only t)) - (erase-buffer) - (eshell-send-input))) + (define-key eshell-mode-map (kbd "C-j") #'eshell-send-input) + (define-key eshell-mode-map (kbd "C-l") #'sd/eshell-clear-buffer)) - (add-hook 'eshell-mode-hook (lambda () - (local-set-key (kbd "C-l") 'sd/eshell-clear-buffer))) + (add-hook 'eshell-mode-hook #'sd/eshell-hook) + + + ;; (add-hook 'eshell-mode-hook (apply-partially #'local-set-key (kbd "C-l") 'sd/eshell-clear-buffer)) #+END_SRC ** Toggle Eshell @@ -1316,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 @@ -1381,7 +1562,53 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex ("q" nil "quit") ("f" nil "quit")) - (global-set-key (kbd "C-'") 'sd/hydra-misc/body) + ;; (global-set-key (kbd "C-'") 'sd/hydra-misc/body) + + (defun sd/exchange-win-layout () + "Change the windos layout." + (interactive) + (when (equal (length (window-list)) 2) + (let ((current-layout (if (or (window-in-direction 'right) (window-in-direction 'left)) + 'v + 'h)) + (other-buf (window-buffer (or (window-in-direction 'right) + (window-in-direction 'left) + (window-in-direction 'below) + (window-in-direction 'above))))) + (delete-other-windows) + (if (eq current-layout 'v) + (split-window-below) + (split-window-right)) + (other-window 1) + (switch-to-buffer other-buf)))) + + (defhydra sd/hydra-window-layout (:color red :colums nil) + "Window Layout" + ("m" sd/toggle-max-windows "Max-win" :exit t) + ("s" ace-swap-window "Swap" :exit t) + ("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) + ("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 @@ -1432,6 +1659,7 @@ I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like ** Save File Position #+BEGIN_SRC emacs-lisp :tangle yes :results silent (require 'saveplace) + (setq save-place-file "~/.emacs.d/temp/saveplace") (setq-default save-place t) (setq save-place-forget-unreadable-files t) (setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)") @@ -1464,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 @@ -1486,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 @@ -1507,6 +1716,7 @@ When see function by =C-h f=, and visit the source code, I would like the buffer ;; (eval . (when buffer-file-name ;; (setq-local view-no-disable-on-exit t) ;; (view-mode-enter))) + (projectile-enable-caching . nil) )))) ;; (dir-locals-set-directory-class (expand-file-name "/usr/local/share/emacs") 'emacs) @@ -1567,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 @@ -1586,26 +1790,26 @@ When see function by =C-h f=, and visit the source code, I would like the buffer ** pdf-tools #+BEGIN_SRC sh - brew install poppler + #brew install poppler #+END_SRC #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package pdf-tools - :ensure t - :init - ;; run to complete the installation - (pdf-tools-install) - :config - (add-to-list 'auto-mode-alist '("\.pdf$" . pdf-view-mode)) - (add-hook 'pdf-outline-buffer-mode-hook #'sd/pdf-outline-map)) + ;(use-package pdf-tools + ; :ensure t + ; :init + ; ;; run to complete the installation + ; (pdf-tools-install) + ; :config + ; (add-to-list 'auto-mode-alist '("\.pdf$" . pdf-view-mode)) + ; (add-hook 'pdf-outline-buffer-mode-hook #'sd/pdf-outline-map)) - (defun sd/pdf-outline-map () - "My keybindings in pdf-outline-map" - (interactive) - (define-key pdf-outline-buffer-mode-map (kbd "C-o") nil) - (define-key pdf-outline-buffer-mode-map (kbd "i") 'outline-toggle-children) - (define-key pdf-outline-buffer-mode-map (kbd "j") 'next-line) - (define-key pdf-outline-buffer-mode-map (kbd "k") 'previous-line)) + ;(defun sd/pdf-outline-map () + ; "My keybindings in pdf-outline-map" + ; (interactive) + ; (define-key pdf-outline-buffer-mode-map (kbd "C-o") nil) + ; (define-key pdf-outline-buffer-mode-map (kbd "i") 'outline-toggle-children) + ; (define-key pdf-outline-buffer-mode-map (kbd "j") 'next-line) + ; (define-key pdf-outline-buffer-mode-map (kbd "k") 'previous-line)) #+END_SRC ** help-mode @@ -1642,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 @@ -1700,29 +1898,40 @@ as a http download client tool (car (last (split-string url "/" t)))))))))) #+END_SRC -** Elscreen -Fix one elscreen issue when startup emacs https://github.com/knu/elscreen/issues/6 +* Dired +** Dired basic #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package elscreen + (setq dired-dwim-target t) + + (use-package dired-details :ensure t - :init - (setq elscreen-tab-display-control nil) :config - ;; (elscreen-start) - (set-face-attribute 'elscreen-tab-current-screen-face nil :foreground "black" :background "yellow") - (set-face-attribute 'elscreen-tab-other-screen-face nil :foreground "black" :background "disabledControlTextColor" :underline nil) - ;; (global-unset-key (kbd)); M-TAB switch screen - ;; (global-set-key (kbd "s-`") '(lambda () (interactive) (elscreen-goto 0))) - ;; (dotimes (i 8) - ;; (global-set-key (kbd (concat "s-" (number-to-string (+ i 1)))) - ;; `(lambda () (interactive) (elscreen-goto ,(+ i 1))))) - ;; (global-set-key (kbd "s-t") 'elscreen-create) - ;; (global-set-key (kbd "s-n") 'elscreen-next) - ;; (global-set-key (kbd "s-p") 'elscreen-previous) - ) + (setq-default dired-details-hidden-string "--- ") + (dired-details-install)) +#+END_SRC + +** Dired functions +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defun sd/dired-next-line (count) + "Move to next line, and always focus on the file name." + (interactive "p") + (dired-next-line count) + (dired-move-to-filename)) + + (defun sd/dired-previous-line (count) + "Move to previous line, and always focus on the file name." + (interactive "p") + (dired-previous-line count) + (dired-move-to-filename)) + + (defun sd/dired-up-directory () + "Go to up directory" + (interactive) + (let ((old (current-buffer))) + (dired-up-directory) + (kill-buffer old))) #+END_SRC -* Dired ** Dired bindings =C-o= is defined as a global key for window operation, here unset it in dired mode #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -1877,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"))) @@ -1885,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 @@ -1964,12 +2170,16 @@ here on Mac, just use "open" commands to pen =.pdf=, =.html= and image files ;; should map both (kbd "TAB") and [tab],https://github.com/company-mode/company-mode/issues/75 (define-key company-active-map (kbd "TAB") #'company-complete-selection) (define-key company-active-map [tab] #'company-complete-selection) + (define-key company-active-map (kbd "C-w") nil) + (define-key company-active-map (kbd "C-h") nil) (global-company-mode) ;; magig-commit is text-modeh (setq company-global-modes '(not org-mode magit-status-mode text-mode eshell-mode gfm-mode markdown-mode))) (use-package company-statistics :ensure t + :init + (setq company-statistics-file (concat MY-EMACS-TMP "/company-statistics-cache.el")) :config (company-statistics-mode)) @@ -1992,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 @@ -2097,33 +2325,59 @@ Refer, [[http://emacs.stackexchange.com/questions/7908/how-to-make-yasnippet-and #+END_SRC * Programming Language -** Emacs Lisp +** Color identiifiers mode #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package color-identifiers-mode :ensure t :init - (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode) - + (dolist (mode '(emacs-lisp-mode-hook + c-mode-hook + c++-mode-hook)) + (add-hook mode #'color-identifiers-mode)) :diminish color-identifiers-mode) (global-prettify-symbols-mode t) #+END_SRC +** Font lock face + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (set-face-attribute 'font-lock-keyword-face nil :foreground "#F92672" :weight 'bold) + (set-face-attribute 'font-lock-builtin-face nil :weight 'bold) + (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") + + (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 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 :init + (setq lispy-delete-backward-recenter 0) (with-eval-after-load "lispy" (define-key lispy-mode-map (kbd "M-o") nil) (define-key lispy-mode-map (kbd "g") 'special-lispy-goto-local) (define-key lispy-mode-map (kbd "G") 'special-lispy-goto) (define-key lispy-mode-map (kbd "M-m") 'back-to-indentation)) :config - (add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1)))) - - + (add-hook 'emacs-lisp-mode-hook (apply-partially #'lispy-mode 1))) #+END_SRC ** Perl @@ -2143,9 +2397,7 @@ bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questi (setq cperl-tab-always-indent t) ;(setq cperl-brace-offset 0) - (add-hook 'cperl-mode-hook - '(lambda () - (cperl-set-style "C++"))) + (add-hook 'cperl-mode-hook (apply-partially #'cperl-set-style "C++")) (defalias 'perldoc 'cperl-perldoc) #+END_SRC @@ -2169,34 +2421,10 @@ Refer [[https://www.emacswiki.org/emacs/AutoInsertMode][AutoInsertMode]] Wiki (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) + ("\".*\\(\\\n\\).*\"" 1 font-lock-constant-face prepend) + ("\n" 0 font-lock-constant-face prepend) + ;; ("[%\\][[:alpha:]]" . 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) - (set (make-local-variable 'compile-command) - (concat "/usr/bin/perl " - (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))))) - - (add-hook 'cperl-mode-hook 'my-perl-hook) #+END_SRC ** C & C++ @@ -2206,21 +2434,47 @@ C/C++ ide tools 3. tags jump *** c/c++ style #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (setq c-default-style "stroustrup" - c-basic-offset 4) + ;; (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)) -#+END_SRC + (setq-default c-hungry-delete-key t) + + + ;; Looks `c-hanging-braces-alist' doesn't work as expected when `electric-pair-mode' is enabled. + (electric-pair-mode 1) + + (defconst sd/c-style + '("stroustrup" + (c-tab-always-indent . t) + (c-basic-offset . 4) + (c-hanging-braces-alist . ((substatement-open before) + (statement-block-intro before))) + (c-hanging-colons-alist . ()) + (c-echo-syntactic-information-p . nil) + (c-hanging-semi&comma-criteria . ())) + "My C programming style") + + (c-add-style "sd-c-style" sd/c-style) + + (setq c-default-style "sd-c-style") + + (add-hook 'c-mode-hook '(lambda () + (c-toggle-auto-newline 1) + (c-set-style "sd-c-style"))) + + ;; (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= @@ -2234,21 +2488,21 @@ then install irony searver, and =LIBCLANG_LIBRARY= and =LIBCLANG_INCLUDE_DIR= ac #+END_SRC #+BEGIN_SRC sh - cmake -DLIBCLANG_LIBRARY\=/usr/local/Cellar/llvm/3.6.2/lib/libclang.dylib \ - -DLIBCLANG_INCLUDE_DIR=/usr/local/Cellar/llvm/3.6.2/include \ - -DCMAKE_INSTALL_PREFIX\=/Users/peli3/.emacs.d/irony/ \ - /Users/peli3/.emacs.d/elpa/irony-20160713.1245/server && cmake --build . --use-stderr --config Release --target install + cmake -DLIBCLANG_LIBRARY\=/usr/local/Cellar/llvm/4.0.1/lib/libclang.dylib \ + -DLIBCLANG_INCLUDE_DIR=/usr/local/Cellar/llvm/4.0.1/include \ + -DCMAKE_INSTALL_PREFIX\=/Users/peng/.emacs.d/irony/ \ + /Users/peng/.emacs.d/elpa/irony-20160713.1245/server && cmake --build . --use-stderr --config Release --target install #+END_SRC **** 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 @@ -2259,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 @@ -2276,27 +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/")) + ;; (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 @@ -2325,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) @@ -2336,11 +2606,34 @@ irony-company *** google C style #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package google-c-style - :ensure t - :config - (add-hook 'c-mode-hook 'google-set-c-style) - (add-hook 'c++-mode-hook 'google-set-c-style)) + ;; (use-package google-c-style + ;; :ensure t + ;; :config + ;; (add-hook 'c-mode-hook 'google-set-c-style) + ;; (add-hook 'c++-mode-hook 'google-set-c-style)) +#+END_SRC + +*** Compile and Run the C file +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defun my-cpp-hook () + (let* ((current-file-name) + (out-file-name)) + (when buffer-file-name + (setq current-file-name (shell-quote-argument buffer-file-name)) + (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 -std=c++11 " + current-file-name + " -o " + out-file-name + " && " + out-file-name + )) + (local-set-key (kbd "s-r") 'compile))) + + (add-hook 'c-mode-hook 'my-cpp-hook) + (add-hook 'c++-mode-hook 'my-cpp-hook) #+END_SRC ** Lua @@ -2377,14 +2670,13 @@ Install =guile=, =guile= is an implementation of =Scheme= programming language. ;; set racket path (setenv "PATH" (concat (getenv "PATH") - ":" "/Applications/Racket v6.6/bin")) + ":" "/Applications/Racket v6.10.1/bin")) (setenv "MANPATH" (concat (getenv "MANPATH") - ":" "/Applications/Racket v6.6/man")) - (setq exec-path (append exec-path '("/Applications/Racket v6.6/bin"))) + ":" "/Applications/Racket v6.10.1/man")) + (setq exec-path (append exec-path '("/Applications/Racket v6.10.1/bin"))) (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 @@ -2394,15 +2686,35 @@ Set the environments vairables in compilation mode (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)) + (setq compilation-scroll-output 'first-error) + ;; this will save all the modified buffers before compile + (setq compilation-ask-about-save nil) + (setq compilation-window-height (/ (window-total-height) 3))) ;; super-r to compile (with-eval-after-load "compile" (define-key compilation-mode-map (kbd "C-o") nil) (define-key compilation-mode-map (kbd "n") 'compilation-next-error) (define-key compilation-mode-map (kbd "p") 'compilation-previous-error) + (define-key compilation-mode-map (kbd "q") (lambda () (interactive) (quit-window t))) (define-key compilation-mode-map (kbd "r") #'recompile)) + ;; here note dynamic binding the value of vv, otherwise it will resport error when run the hook. + ;; https://emacs.stackexchange.com/questions/10394/scope-in-lambda + (dolist (vv '( + (cperl-mode-hook . "perl") + (lua-mode-hook . "lua") + (python-mode-hook . "python") + (shell-mode-hook . "sh"))) + (add-hook (car vv) `(lambda () + (unless (or (file-exists-p "makefile") + (file-exists-p "Makefile")) + (set (make-local-variable 'compile-command) + (concat (cdr ',vv) + " " + (if buffer-file-name + (shell-quote-argument buffer-file-name)))))))) + (global-set-key (kbd "s-r") 'compile) #+END_SRC @@ -2530,16 +2842,16 @@ Emacs lisp auto-insert, based on the default module in =autoinsert.el=, but repl ** Org file template #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (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 - > _))) + ;; (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 @@ -2551,6 +2863,13 @@ Emacs lisp auto-insert, based on the default module in =autoinsert.el=, but repl ("\\.md\\'" . markdown-mode) ("\\.markdown\\'" . markdown-mode)) :init (setq markdown-command "multimarkdown")) + + ;; (add-hook 'gfm-mode-hook (lambda () + ;; (set-face-attribute 'markdown-inline-code-face nil :inherit 'fixed-pitch) + ;; (set-face-attribute 'markdown-pre-face nil :inherit 'fixed-pitch))) + ;; (with-eval-after-load "gfm-mode" + ;; (set-face-attribute 'markdown-inline-code-face nil :inherit 'fixed-pitch) + ;; (set-face-attribute 'markdown-pre-face nil :inherit 'fixed-pitch)) #+END_SRC #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -2558,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]] @@ -2595,37 +2921,37 @@ Then Run =M-x gnus= ** Group buffer #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package gnus - :init - (setq gnus-permanently-visible-groups "\.*") - :config - (cond (window-system - (setq custom-background-mode 'light) - (defface my-group-face-1 - '((t (:foreground "Red" :bold t))) "First group face") - (defface my-group-face-2 - '((t (:foreground "DarkSeaGreen4" :bold t))) - "Second group face") - (defface my-group-face-3 - '((t (:foreground "Green4" :bold t))) "Third group face") - (defface my-group-face-4 - '((t (:foreground "SteelBlue" :bold t))) "Fourth group face") - (defface my-group-face-5 - '((t (:foreground "Blue" :bold t))) "Fifth group face"))) - (setq gnus-group-highlight - '(((> unread 200) . my-group-face-1) - ((and (< level 3) (zerop unread)) . my-group-face-2) - ((< level 3) . my-group-face-3) - ((zerop unread) . my-group-face-4) - (t . my-group-face-5)))) - - - ;; key- - (add-hook 'gnus-group-mode-hook (lambda () - (define-key gnus-group-mode-map "k" 'gnus-group-prev-group) - (define-key gnus-group-mode-map "j" 'gnus-group-next-group) - (define-key gnus-group-mode-map "g" 'gnus-group-jump-to-group) - (define-key gnus-group-mode-map "v" (lambda () (interactive) (gnus-group-select-group t))))) + ;; (use-package gnus + ;; :init + ;; (setq gnus-permanently-visible-groups "\.*") + ;; :config + ;; (cond (window-system + ;; (setq custom-background-mode 'light) + ;; (defface my-group-face-1 + ;; '((t (:foreground "Red" :bold t))) "First group face") + ;; (defface my-group-face-2 + ;; '((t (:foreground "DarkSeaGreen4" :bold t))) + ;; "Second group face") + ;; (defface my-group-face-3 + ;; '((t (:foreground "Green4" :bold t))) "Third group face") + ;; (defface my-group-face-4 + ;; '((t (:foreground "SteelBlue" :bold t))) "Fourth group face") + ;; (defface my-group-face-5 + ;; '((t (:foreground "Blue" :bold t))) "Fifth group face"))) + ;; (setq gnus-group-highlight + ;; '(((> unread 200) . my-group-face-1) + ;; ((and (< level 3) (zerop unread)) . my-group-face-2) + ;; ((< level 3) . my-group-face-3) + ;; ((zerop unread) . my-group-face-4) + ;; (t . my-group-face-5)))) + + + ;; ;; key- + ;; (add-hook 'gnus-group-mode-hook (lambda () + ;; (define-key gnus-group-mode-map "k" 'gnus-group-prev-group) + ;; (define-key gnus-group-mode-map "j" 'gnus-group-next-group) + ;; (define-key gnus-group-mode-map "g" 'gnus-group-jump-to-group) + ;; (define-key gnus-group-mode-map "v" (lambda () (interactive) (gnus-group-select-group t))))) #+END_SRC #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -2653,8 +2979,9 @@ Then Run =M-x gnus= ;; (with-eval-after-load 'gnus-summary-mode ;; (define-key gnus-summary-mode-map (kbd "C-o") 'sd/hydra-window/body)) - (add-hook 'gnus-summary-mode-hook (lambda () - (define-key gnus-summary-mode-map (kbd "C-o") nil))) + ;; (add-hook 'gnus-summary-mode-hook (lambda () + ;; (define-key gnus-summary-mode-map (kbd "C-o") nil))) + ;(add-hook 'gnus-summary-mode-hook (apply-partially #'define-key gnus-summary-mode-map (kbd "C-o") nil)) #+END_SRC @@ -2741,66 +3068,68 @@ Then, run =mu index --maildir=~/.Mail= ** Mu4e - Emacs frontend of Mu config from [[http://www.kirang.in/2014/11/13/emacs-as-email-client-with-offlineimap-and-mu4e-on-osx/][emacs-as-email-client-with-offlineimap-and-mu4e-on-osx]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (require 'mu4e) - (setq mu4e-maildir "~/.Mail") - (setq mu4e-drafts-folder "/[Gmail].Drafts") - (setq mu4e-sent-folder "/[Gmail].Sent Mail") - ;; don't save message to Sent Messages, Gmail/IMAP takes care of this - (setq mu4e-sent-messages-behavior 'delete) - ;; allow for updating mail using 'U' in the main view: - (setq mu4e-get-mail-command "offlineimap") - - ;; shortcuts - (setq mu4e-maildir-shortcuts - '( ("/INBOX" . ?i) - ("/[Gmail].Sent Mail" . ?s))) - - ;; something about ourselves - (setq - user-mail-address "seudut@gmail.com" - user-full-name "Peng Li" - mu4e-compose-signature - (concat - "Thanks,\n" - "Peng\n")) - - ;; show images - (setq mu4e-show-images t) - - ;; use imagemagick, if available - (when (fboundp 'imagemagick-register-types) - (imagemagick-register-types)) - - ;; convert html emails properly - ;; Possible options: - ;; - html2text -utf8 -width 72 - ;; - textutil -stdin -format html -convert txt -stdout - ;; - html2markdown | grep -v ' _place_holder;' (Requires html2text pypi) - ;; - w3m -dump -cols 80 -T text/html - ;; - view in browser (provided below) - (setq mu4e-html2text-command "textutil -stdin -format html -convert txt -stdout") - - ;; spell check - (add-hook 'mu4e-compose-mode-hook - (defun my-do-compose-stuff () - "My settings for message composition." - (set-fill-column 72) - (flyspell-mode))) - - ;; add option to view html message in a browser - ;; `aV` in view to activate - (add-to-list 'mu4e-view-actions - '("ViewInBrowser" . mu4e-action-view-in-browser) t) - - ;; fetch mail every 10 mins - (setq mu4e-update-interval 600) - - ;; mu4e view - (setq-default mu4e-headers-fields '((:flags . 6) - (:from-or-to . 22) - (:mailing-list . 20) - (:thread-subject . 70) - (:human-date . 16))) + (if (require 'mu4e nil 'noerror) + (progn + (setq mu4e-maildir "~/.Mail") + (setq mu4e-drafts-folder "/[Gmail].Drafts") + (setq mu4e-sent-folder "/[Gmail].Sent Mail") + ;; don't save message to Sent Messages, Gmail/IMAP takes care of this + (setq mu4e-sent-messages-behavior 'delete) + ;; allow for updating mail using 'U' in the main view: + (setq mu4e-get-mail-command "offlineimap") + + ;; shortcuts + (setq mu4e-maildir-shortcuts + '( ("/INBOX" . ?i) + ("/[Gmail].Sent Mail" . ?s))) + + ;; something about ourselves + (setq + user-mail-address "seudut@gmail.com" + user-full-name "Peng Li" + mu4e-compose-signature + (concat + "Thanks,\n" + "Peng\n")) + + ;; show images + (setq mu4e-show-images t) + + ;; use imagemagick, if available + (when (fboundp 'imagemagick-register-types) + (imagemagick-register-types)) + + ;; convert html emails properly + ;; Possible options: + ;; - html2text -utf8 -width 72 + ;; - textutil -stdin -format html -convert txt -stdout + ;; - html2markdown | grep -v ' _place_holder;' (Requires html2text pypi) + ;; - w3m -dump -cols 80 -T text/html + ;; - view in browser (provided below) + (setq mu4e-html2text-command "textutil -stdin -format html -convert txt -stdout") + + ;; spell check + (add-hook 'mu4e-compose-mode-hook + (defun my-do-compose-stuff () + "My settings for message composition." + (set-fill-column 72) + (flyspell-mode))) + + ;; add option to view html message in a browser + ;; `aV` in view to activate + (add-to-list 'mu4e-view-actions + '("ViewInBrowser" . mu4e-action-view-in-browser) t) + + ;; fetch mail every 10 mins + (setq mu4e-update-interval 600) + + ;; mu4e view + (setq-default mu4e-headers-fields '((:flags . 6) + (:from-or-to . 22) + (:mailing-list . 20) + (:thread-subject . 70) + (:human-date . 16)))) + (message "seudut:mu4e not installed, it won't work.")) #+END_SRC ** Smtp - send mail @@ -2824,6 +3153,15 @@ config from [[http://www.kirang.in/2014/11/13/emacs-as-email-client-with-offline (add-hook 'ediff-suspend-hook 'ediff-toggle-wide-display)) #+END_SRC +* Modes +** Yaml-mode +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package yaml-mode + :ensure t + :init + (add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode))) +#+END_SRC + * Entertainment ** GnuGo Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f95b774cb292d1169748bc0a62ba647bbd8c0652/etc/my-inits/my-inits-gnugo.el][to here]]. start at image display mode and grid mode @@ -2870,85 +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 -** 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)) - - (use-package persp-projectile - :ensure t - :config - (persp-mode) - :bind - ;; (:map projectile-mode-map - ;; ("s-t" . projectile-persp-switch-project)) - ) - - ;; 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)))))) -#+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. @@ -2956,125 +3216,127 @@ Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to del #+BEGIN_SRC emacs-lisp :tangle yes :results silent (winner-mode 1) - (defun sd/delete-current-window () - (interactive) - (if (> (length (window-list)) 1) - (delete-window) - (message "Only one Windows now!"))) + (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))) +#+END_SRC + +Kill the help window and buffer when quit. +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (with-eval-after-load "help-mode" + (define-key help-mode-map (kbd "q") (lambda () + (interactive) + (quit-window t)))) + + (with-eval-after-load 'man + (set-face-attribute 'Man-overstrike nil :inherit 'bold :foreground "orange red") + (set-face-attribute 'Man-underline nil :inherit 'underline :foreground "forest green") + (define-key Man-mode-map (kbd "q") (lambda () + (interactive) + (Man-kill)))) - (defun sd/toggle-max-windows () - "Set maximize current if there are multiple windows, if only - one window, window undo" - (interactive) - (if (equal (length (window-list)) 1) - (winner-undo) - (delete-other-windows))) - - (defhydra sd/hydra-window (:color red :columns nil) - "Window" - ;; 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)) - "vert" :exit t) - ("x" (lambda () - (interactive) - (split-window-below) - (windmove-down)) - "horz" :exit t) - ;; buffer / windows switch - ("o" sd/toggle-max-windows "one" :exit t) - ("C-k" sd/delete-current-window "del" :exit t) - ("C-d" (lambda () - (interactive) - (kill-buffer) - (sd/delete-current-window)) - "kill" :exit t) - - ;; ace-window - ;; ("'" 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) - ;; Windows undo - redo - ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo") - ("r" (progn (winner-redo) (setq this-command 'winner-redo)) "redo") - - ;; 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 :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 "cancel") - ("" nil) - ("C-h" windmove-left nil :exit t) - ("C-j" windmove-down nil :exit t) - ("C-k" windmove-up :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)) - (global-unset-key (kbd "C-o")) - (global-set-key (kbd "C-o") 'sd/hydra-window/body) + ;; (advice-add 'man :after (lambda (man-args) (other-window 1))) + (advice-add 'man :after (apply-partially 'other-window 1)) - (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))) + + (require 'shell-command-output-mode) + + (defun my/shell-command-after (command &optional output-buffer error-buffer) + (let* ((buffer (get-buffer "*Shell Command Output*")) + (window (get-buffer-window buffer))) + (if buffer (with-current-buffer buffer + (shell-command-output-mode))) + (if window + (select-window window)))) + + (advice-add 'shell-command :after 'my/shell-command-after) #+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 @@ -3136,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 @@ -3152,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) @@ -3172,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 @@ -3191,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= @@ -3384,25 +3634,6 @@ Occur search key bindings (use-package moccur-edit)) #+END_SRC -*** Swiper -stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9dad9dc97d6e122840/emacs-init.org][here]] -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package swiper - :ensure t - :init - (setq ivy-use-virtual-buffers t) - (set-face-attribute 'ivy-current-match nil :background "Orange" :foreground "black") - :config - (ivy-mode) - (global-set-key (kbd "s-/") 'swiper) - (define-key swiper-map (kbd "M-r") 'swiper-query-replace) - (define-key swiper-map (kbd "C-.") (lambda () - (interactive) - (insert (format "%s" (with-ivy-window (thing-at-point 'word)))))) - (define-key swiper-map (kbd "M-.") (lambda () - (interactive) - (insert (format "%s" (with-ivy-window (thing-at-point 'symbol))))))) -#+END_SRC ** Expand region map *** Install =expand-region= @@ -3475,25 +3706,66 @@ stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9d #+END_SRC *** TODO make expand-region hydra work with lispy selected -** =C-w= delete backward word -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]] +* Key Bindings +Here are some global key bindings for basic editting +** Global key bingding #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defun sd/kill-region-or-backward-kill-word () - (interactive) - (if (region-active-p) - (kill-region (point) (mark)) - (backward-kill-word 1))) + (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 + ;; (use-package perspeen + ;; :ensure t + ;; :init + ;; (setq perspeen-use-tab nil) + ;; :config + ;; (perspeen-mode)) + (el-get-bundle seudut/perspeen :features perspeen + (setq perspeen-use-tab nil) ;; (perspeen-mode) ) + ;; super-i to switch to ith workspace (defmacro sd/define-keys (map key func &rest args) @@ -3504,20 +3776,24 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828 (with-eval-after-load "perspeen" (dotimes (ii 9) (sd/define-keys perspeen-mode-map (kbd (concat "s-" (number-to-string (+ ii 1)))) - perspeen-goto-ws (+ ii 1)))) + perspeen-goto-ws (+ ii 1))) + (define-key perspeen-mode-map (kbd "s-c") 'perspeen-create-ws) + (define-key perspeen-mode-map (kbd "s-n") 'perspeen-next-ws) + (define-key perspeen-mode-map (kbd "s-p") 'perspeen-previous-ws) + (define-key perspeen-mode-map (kbd "s-'") 'perspeen-last-ws) + (define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab) + (define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab)) +#+END_SRC +* Evil Mode +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (org-babel-load-file "~/.emacs.d/emacs-evil.org") #+END_SRC -* TODO todolist -** Rucket -** player video on iphone for -** SICP -** music searcher -search music on some music web site + +* Footnotes + +[fn:1] [[http://coldnew.github.io/blog/2013/11-16_d2f3a/][解決 org-mode 表格內中英文對齊的問題]] + + -** Need separate the Key-bindings and package-initialization -* 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=