1 #+TITLE: Emacs Configuration file
3 #+EMAIL: seudut@gmail.com
7 Most config are just copied from [[https://github.com/howardabrams/dot-files][howardabrams]]'s and [[https://github.com/abo-abo/oremacs][abo-abo's]] dotfiles
11 ** Setting loading Path
13 Set the emacs load path
15 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
17 (add-to-list 'load-path "~/.emacs.d/elisp")
21 ** Package Initialization
23 #+BEGIN_SRC emacs-lisp :tangle yes
27 (setq package-archives '(("mepla" . "http://melpa.milkbox.net/packages/")
28 ("org" . "http://orgmode.org/elpa/")))
36 Disable scroll bar, tool-bar and menu-bar
38 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
44 (setq debug-on-error t)
45 (setq inhibit-startup-message t)
47 (defalias 'yes-or-no-p 'y-or-n-p)
50 (global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
54 * Package Management Tools
58 Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs packages
60 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
62 (unless (package-installed-p 'use-package)
63 (package-refresh-contents)
64 (package-install 'use-package))
66 (require 'use-package)
72 [[https://github.com/dimitri/el-get][El-get]] is package management tool, whicl allows to install external elisp package from any git repository not in mepla.
73 Check out [[http://tapoueh.org/emacs/el-get.html][el-get]].
75 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
80 (add-to-list 'load-path "~/.emacs.d/el-get"))
84 * Color and Fonts Settings
86 ** highlight current line
88 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
96 [[https://github.com/paldepind/smart-comment][smart-comments]]
98 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
100 (use-package smart-comment
102 :bind ("M-;" . smart-conmment))
110 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
112 (global-font-lock-mode 1)
116 [[https://github.com/i-tu/Hasklig][Hasklig]] and Source Code Pro, defined fonts family
118 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
121 (defvar sd/fixed-font-family
122 (cond ((x-list-fonts "Hasklig") "Hasklig")
123 ((x-list-fonts "Source Code Pro") "Source Code Pro")
124 ((x-list-fonts "Anonymous Pro") "Anonymous Pro")
125 ((x-list-fonts "M+ 1mn") "M+ 1mn"))
126 "The fixed width font based on what is installed, `nil' if not defined."))
132 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
135 (when sd/fixed-font-family
136 (set-frame-font sd/fixed-font-family)
137 (set-face-attribute 'default nil :font sd/fixed-font-family :height 120)
138 (set-face-font 'default sd/fixed-font-family)))
144 Loading theme should be after all required loaded, refere [[https://github.com/jwiegley/use-package][:defer]] in =use-package=
146 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
148 (setq vc-follow-symlinks t)
150 (use-package color-theme
152 :init (require 'color-theme)
153 :config (use-package color-theme-sanityinc-tomorrow
157 (load-theme 'sanityinc-tomorrow-bright t)))
159 ;(eval-after-load 'color-theme
160 ; (load-theme 'sanityinc-tomorrow-bright t))
164 Change the Org-mode colors
166 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
168 (defun org-src-color-blocks-light ()
169 "Colors the block headers and footers to make them stand out more for lighter themes"
172 '(org-block-begin-line
173 ((t (:underline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
174 '(org-block-background
175 ((t (:background "#FFFFEA"))))
177 ((t (:background "#FFFFEA"))))
179 ((t (:overline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
181 '(mode-line-buffer-id ((t (:foreground "#005000" :bold t))))
182 '(which-func ((t (:foreground "#008000"))))))
184 (defun org-src-color-blocks-dark ()
185 "Colors the block headers and footers to make them stand out more for dark themes"
188 '(org-block-begin-line
189 ((t (:foreground "#008ED1" :background "#002E41"))))
190 '(org-block-background
191 ((t (:background "#000000"))))
193 ((t (:background "#000000"))))
195 ((t (:foreground "#008ED1" :background "#002E41"))))
197 '(mode-line-buffer-id ((t (:foreground "black" :bold t))))
198 '(which-func ((t (:foreground "green"))))))
200 (org-src-color-blocks-dark)
204 improve color for org-mode
205 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
206 (deftheme ha/org-theme "Sub-theme to beautify org mode")
209 (defvar sd/variable-font-tuple
210 (cond ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro"))
211 ((x-list-fonts "Lucida Grande") '(:font "Lucida Grande"))
212 ((x-list-fonts "Verdana") '(:font "Verdana"))
213 ((x-family-fonts "Sans Serif") '(:family "Sans Serif"))
214 (nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro.")))
215 "My variable width font available to org-mode files and whatnot."))
217 (defun sd/org-color ()
218 (let* ((sd/fixed-font-tuple (list :font sd/fixed-font-family))
219 (base-font-color (face-foreground 'default nil 'default))
220 (background-color (face-background 'default nil 'default))
221 (primary-color (face-foreground 'mode-line nil))
222 (secondary-color (face-background 'secondary-selection nil 'region))
223 (base-height (face-attribute 'default :height))
224 (headline `(:inherit default :weight bold :foreground ,base-font-color)))
225 (custom-theme-set-faces 'ha/org-theme
226 `(org-agenda-structure ((t (:inherit default :height 2.0 :underline nil))))
227 `(org-verbatim ((t (:inherit 'fixed-pitched :foreground "#aef"))))
228 `(org-table ((t (:inherit 'fixed-pitched))))
229 `(org-block ((t (:inherit 'fixed-pitched))))
230 `(org-block-background ((t (:inherit 'fixed-pitched))))
231 `(org-block-begin-line ((t (:inherit 'fixed-pitched))))
232 `(org-block-end-line ((t (:inherit 'fixed-pitched))))
233 `(org-level-8 ((t (,@headline ,@sd/variable-font-tuple))))
234 `(org-level-7 ((t (,@headline ,@sd/variable-font-tuple))))
235 `(org-level-6 ((t (,@headline ,@sd/variable-font-tuple))))
236 `(org-level-5 ((t (,@headline ,@sd/variable-font-tuple))))
237 `(org-level-4 ((t (,@headline ,@sd/variable-font-tuple
238 :height ,(round (* 1.1 base-height))))))
239 `(org-level-3 ((t (,@headline ,@sd/variable-font-tuple
240 :height ,(round (* 1.25 base-height))))))
241 `(org-level-2 ((t (,@headline ,@sd/variable-font-tuple
242 :height ,(round (* 1.5 base-height))))))
243 `(org-level-1 ((t (,@headline ,@sd/variable-font-tuple
244 :height ,(round (* 1.75 base-height))))))
245 `(org-document-title ((t (,@headline ,@sd/variable-font-tuple :height 1.5 :underline nil)))))))
252 ** Org-mode Basic setting
254 Always indents header, and hide header leading starts so that no need type =#+STATUP: indent=
256 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
261 (setq org-startup-indented t)
262 (setq org-hide-leading-starts t)
263 (setq org-src-fontify-natively t)
264 (setq org-src-tab-acts-natively t)
265 (setq org-confirm-babel-evaluate nil)
266 (setq org-use-speed-commands t)
267 (setq org-completion-use-ido t))
269 (org-babel-do-load-languages
270 'org-babel-load-languages
288 use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 charactes
290 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
292 (use-package org-bullets
295 (add-hook 'org-mode-hook
297 (org-bullets-mode t))))
303 [[https://github.com/abo-abo/worf][worf]] mode is an extension of vi-like binding for org-mode.
304 In =worf-mode=, it is mapping =[=, =]= as =worf-backward= and =worf-forward= in global, wich
305 cause we cannot input =[= and =]=, so here I unset this mappings. And redifined this two to
306 =M-[= and =M-]=. see this [[https://github.com/abo-abo/worf/issues/19#issuecomment-223756599][issue]]
308 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
313 :init (add-hook 'org-mode-hook 'worf-mode)
315 ;; (define-key worf-mode-map "[" nil)
316 ;; (define-key worf-mode-map "]" nil)
317 ;; (define-key worf-mode-map (kbd "M-[") 'worf-backward)
318 ;; (define-key worf-mode-map (kbd "M-]") 'worf-forward)
329 [[https://github.com/magit/magit][Magit]] is a very cool git interface on Emacs.
331 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
335 :commands magit-status magit-blame)
344 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
348 :init (setq ido-enable-flex-matching t
349 ido-ignore-extensions t
350 ido-use-virtual-buffers t
355 (add-to-list 'completion-ignored-extensions ".pyc"))
361 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
365 :init (setq ido-enable-flex-matching t
367 :config (flx-ido-mode 1))
373 #+BEGIN_SRC emacs-lisp :tangle yes :result silent
375 (use-package ido-vertical-mode
378 (setq ido-vertical-define-keys 'C-n-C-p-up-and-down)
380 (ido-vertical-mode 1))
386 #+BEGIN_SRC emacs-lisp :tangle yes :result silent
390 :init (smex-initialize)
393 ("M-X" . smex-major-mode-commands))
400 ** [[https://github.com/abo-abo/hydra][Hydra]]
402 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
411 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
413 (defhydra sd/font-zoom (global-map "<f2>")
415 ("g" text-scale-increase "in")
416 ("l" text-scale-decrease "out"))
420 *** Windmove Splitter
422 Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-example]], to enlarge or shrink the windows splitter
424 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
426 (defun hydra-move-splitter-left (arg)
427 "Move window splitter left."
429 (if (let ((windmove-wrap-around))
430 (windmove-find-other-window 'right))
431 (shrink-window-horizontally arg)
432 (enlarge-window-horizontally arg)))
434 (defun hydra-move-splitter-right (arg)
435 "Move window splitter right."
437 (if (let ((windmove-wrap-around))
438 (windmove-find-other-window 'right))
439 (enlarge-window-horizontally arg)
440 (shrink-window-horizontally arg)))
442 (defun hydra-move-splitter-up (arg)
443 "Move window splitter up."
445 (if (let ((windmove-wrap-around))
446 (windmove-find-other-window 'up))
448 (shrink-window arg)))
450 (defun hydra-move-splitter-down (arg)
451 "Move window splitter down."
453 (if (let ((windmove-wrap-around))
454 (windmove-find-other-window 'up))
456 (enlarge-window arg)))
462 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
466 (defhydra sd/hydra-window (:color red :columns nil)
468 ("h" windmove-left nil)
469 ("j" windmove-down nil)
470 ("k" windmove-up nil)
471 ("l" windmove-right nil)
472 ("H" hydra-move-splitter-left nil)
473 ("J" hydra-move-splitter-down nil)
474 ("K" hydra-move-splitter-up nil)
475 ("L" hydra-move-splitter-right nil)
486 ("o" delete-other-windows "one" :exit t)
487 ("a" ace-window "ace")
488 ("s" ace-swap-window "swap")
489 ("d" ace-delete-window "ace-one" :exit t)
490 ("i" ace-maximize-window "ace-one" :exit t)
491 ("b" ido-switch-buffer "buf")
492 ("m" headlong-bookmark-jump "bmk")
494 ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
495 ("r" (progn (winner-redo) (setq this-command 'winner-redo)) "redo")
498 (global-unset-key (kbd "M-o"))
499 (global-set-key (kbd "M-o") 'sd/hydra-window/body)
505 Enable linum mode on programming modes
507 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
509 (add-hook 'prog-mode-hook 'linum-mode)
513 Fix the font size of line number
515 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
517 (defun fix-linum-size ()
519 (set-face-attribute 'linum nil :height 110))
521 (add-hook 'linum-mode-hook 'fix-linum-size)
525 I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like the =set relativenumber= on =vim=
527 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
529 (use-package linum-relative
532 (defun linum-new-mode ()
533 "If line numbers aren't displayed, then display them.
534 Otherwise, toggle between absolute and relative numbers."
537 (linum-relative-toggle)
541 ("A-k" . linum-new-mode))
543 ;; auto enable linum-new-mode in programming modes
544 (add-hook 'prog-mode-hook 'linum-relative-mode)
548 ** Save File Position
550 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
553 (setq-default save-place t)
554 (setq save-place-forget-unreadable-files t)
555 (setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)")
561 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
563 (use-package multi-term
570 [[https://github.com/abo-abo/ace-link][ace-link]] is a package written by [[https://github.com/abo-abo][Oleh Krehel]]. It is convenient to jump to link in help mode, info-mode, etc
571 Type =o= to go to the link
573 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
575 (use-package ace-link
578 (ace-link-setup-default))
584 [[https://github.com/re5et/emux][emux]] is
586 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
588 (el-get-bundle re5et/emux)
594 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
596 (use-package smartparens
600 (require 'smartparens-config)
601 (add-hook 'prog-mode-hook 'smartparens-mode)))
607 [[https://github.com/abo-abo/ace-window][ace-window]]
609 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
611 (use-package ace-window
615 ; (global-set-key (kbd "M-o") 'ace-window)
617 (setq aw-keys '(?a ?s ?d ?f ?j ?k ?l)))
623 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
625 (use-package projectile
628 (setq projectile-enable-caching t)
630 (projectile-global-mode t))
632 (use-package persp-projectile
637 (:map projectile-mode-map
638 ("s-p" . projectile-persp-switch-project)))
647 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
649 (use-package color-identifiers-mode
652 (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode)
654 :diminish color-identifiers-mode)
660 In Lisp Mode, =M-o= is defined, but I use this for global hydra window. So here disable this key
661 bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questions/298048/how-to-handle-conflicting-keybindings][here]]
663 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
668 (eval-after-load 'lispy
670 (define-key lispy-mode-map (kbd "M-o") nil)))
672 (add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1))))
678 [[https://www.emacswiki.org/emacs/CPerlMode][CPerl mode]] has more features than =PerlMode= for perl programming. Alias this to =CPerlMode=
680 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
682 (defalias 'perl-mode 'cperl-mode)
684 ;(setq cperl-hairy t) ;; Turns on most of the CPerlMode options
685 (setq cperl-auto-newline t)
686 (setq cperl-highlight-variables-indiscriminately t)
687 ;(setq cperl-indent-level 4)
688 ;(setq cperl-continued-statement-offset 4)
689 (setq cperl-close-paren-offset -4)
690 (setq cperl-indent-parents-as-block t)
691 (setq cperl-tab-always-indent t)
692 ;(setq cperl-brace-offset 0)
694 (add-hook 'cperl-mode-hook
696 (cperl-set-style "C++")))
699 ;(template-initialize)
707 Change the compile-command to set the default command run when call =compile=
708 Mapping =s-r= (on Mac, it's =Command + R= to run the script. Here =current-prefix-arg= is set
709 to call =compilation= interactively.
711 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
713 (defun my-perl-hook ()
715 (setq-local compilation-read-command nil)
716 (set (make-local-variable 'compile-command)
717 (concat "/usr/bin/perl "
719 (shell-quote-argument buffer-file-name))))
720 (local-set-key (kbd "s-r")
723 ; (setq current-prefix-arg '(4)) ; C-u
724 (call-interactively 'compile)))))
726 (add-hook 'cperl-mode-hook 'my-perl-hook)
733 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
735 (setq c-default-style "stroustrup"
742 Set the environments vairables in compilation mode
744 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
749 (setq compilation-environment (cons "LC_ALL=C" compilation-environment)))
755 Enable auto-insert mode
757 #+BEGIN_SRC emacs-lisp :tangle yes :results silenc
760 (setq auto-insert-query nil)
766 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
768 (eval-after-load 'autoinsert
769 '(define-auto-insert '("\\.cpp\\'" . "C++ skeleton")
773 "\n * " (file-name-nondirectory (buffer-file-name))
775 "#include <iostream>" \n
777 (file-name-sans-extension
778 (file-name-nondirectory (buffer-file-name)))
780 "using namespace std;" \n \n
788 (eval-after-load 'autoinsert
789 '(define-auto-insert '("\\.c\\'" . "C skeleton")
793 " * " (file-name-nondirectory (buffer-file-name)) "\n"
795 "#include <stdio.h>" \n
797 (file-name-sans-extension
798 (file-name-nondirectory (buffer-file-name)))
811 Refer [[https://www.emacswiki.org/emacs/AutoInsertMode][AutoInsertMode]] Wiki
813 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
815 (eval-after-load 'autoinsert
816 '(define-auto-insert '("\\.pl\\'" . "Perl skeleton")
819 "#!/usr/bin/perl -w" \n
830 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
834 :diminish company-mode
836 (global-company-mode))