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 Switch the focus to help window when it appears
56 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
58 (setq help-window-select t)
62 * Package Management Tools
66 Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs packages
68 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
70 (unless (package-installed-p 'use-package)
71 (package-refresh-contents)
72 (package-install 'use-package))
74 (require 'use-package)
80 [[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.
81 Check out [[http://tapoueh.org/emacs/el-get.html][el-get]].
83 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
88 (add-to-list 'load-path "~/.emacs.d/el-get"))
92 * Color and Fonts Settings
94 ** highlight current line
96 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
104 [[https://github.com/paldepind/smart-comment][smart-comments]]
106 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
108 (use-package smart-comment
110 :bind ("M-;" . smart-conmment))
118 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
120 (global-font-lock-mode 1)
124 [[https://github.com/i-tu/Hasklig][Hasklig]] and Source Code Pro, defined fonts family
126 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
129 (defvar sd/fixed-font-family
130 (cond ((x-list-fonts "Hasklig") "Hasklig")
131 ((x-list-fonts "Source Code Pro") "Source Code Pro")
132 ((x-list-fonts "Anonymous Pro") "Anonymous Pro")
133 ((x-list-fonts "M+ 1mn") "M+ 1mn"))
134 "The fixed width font based on what is installed, `nil' if not defined."))
140 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
143 (when sd/fixed-font-family
144 (set-frame-font sd/fixed-font-family)
145 (set-face-attribute 'default nil :font sd/fixed-font-family :height 120)
146 (set-face-font 'default sd/fixed-font-family)))
152 Loading theme should be after all required loaded, refere [[https://github.com/jwiegley/use-package][:defer]] in =use-package=
154 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
156 (setq vc-follow-symlinks t)
158 (use-package color-theme
160 :init (require 'color-theme)
161 :config (use-package color-theme-sanityinc-tomorrow
165 (load-theme 'sanityinc-tomorrow-bright t)))
167 ;(eval-after-load 'color-theme
168 ; (load-theme 'sanityinc-tomorrow-bright t))
172 Change the Org-mode colors
174 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
176 (defun org-src-color-blocks-light ()
177 "Colors the block headers and footers to make them stand out more for lighter themes"
180 '(org-block-begin-line
181 ((t (:underline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
182 '(org-block-background
183 ((t (:background "#FFFFEA"))))
185 ((t (:background "#FFFFEA"))))
187 ((t (:overline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
189 '(mode-line-buffer-id ((t (:foreground "#005000" :bold t))))
190 '(which-func ((t (:foreground "#008000"))))))
192 (defun org-src-color-blocks-dark ()
193 "Colors the block headers and footers to make them stand out more for dark themes"
196 '(org-block-begin-line
197 ((t (:foreground "#008ED1" :background "#002E41"))))
198 '(org-block-background
199 ((t (:background "#000000"))))
201 ((t (:background "#000000"))))
203 ((t (:foreground "#008ED1" :background "#002E41"))))
205 '(mode-line-buffer-id ((t (:foreground "black" :bold t))))
206 '(which-func ((t (:foreground "green"))))))
208 (org-src-color-blocks-dark)
212 improve color for org-mode
213 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
214 (deftheme ha/org-theme "Sub-theme to beautify org mode")
217 (defvar sd/variable-font-tuple
218 (cond ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro"))
219 ((x-list-fonts "Lucida Grande") '(:font "Lucida Grande"))
220 ((x-list-fonts "Verdana") '(:font "Verdana"))
221 ((x-family-fonts "Sans Serif") '(:family "Sans Serif"))
222 (nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro.")))
223 "My variable width font available to org-mode files and whatnot."))
225 (defun sd/org-color ()
226 (let* ((sd/fixed-font-tuple (list :font sd/fixed-font-family))
227 (base-font-color (face-foreground 'default nil 'default))
228 (background-color (face-background 'default nil 'default))
229 (primary-color (face-foreground 'mode-line nil))
230 (secondary-color (face-background 'secondary-selection nil 'region))
231 (base-height (face-attribute 'default :height))
232 (headline `(:inherit default :weight bold :foreground ,base-font-color)))
233 (custom-theme-set-faces 'ha/org-theme
234 `(org-agenda-structure ((t (:inherit default :height 2.0 :underline nil))))
235 `(org-verbatim ((t (:inherit 'fixed-pitched :foreground "#aef"))))
236 `(org-table ((t (:inherit 'fixed-pitched))))
237 `(org-block ((t (:inherit 'fixed-pitched))))
238 `(org-block-background ((t (:inherit 'fixed-pitched))))
239 `(org-block-begin-line ((t (:inherit 'fixed-pitched))))
240 `(org-block-end-line ((t (:inherit 'fixed-pitched))))
241 `(org-level-8 ((t (,@headline ,@sd/variable-font-tuple))))
242 `(org-level-7 ((t (,@headline ,@sd/variable-font-tuple))))
243 `(org-level-6 ((t (,@headline ,@sd/variable-font-tuple))))
244 `(org-level-5 ((t (,@headline ,@sd/variable-font-tuple))))
245 `(org-level-4 ((t (,@headline ,@sd/variable-font-tuple
246 :height ,(round (* 1.1 base-height))))))
247 `(org-level-3 ((t (,@headline ,@sd/variable-font-tuple
248 :height ,(round (* 1.25 base-height))))))
249 `(org-level-2 ((t (,@headline ,@sd/variable-font-tuple
250 :height ,(round (* 1.5 base-height))))))
251 `(org-level-1 ((t (,@headline ,@sd/variable-font-tuple
252 :height ,(round (* 1.75 base-height))))))
253 `(org-document-title ((t (,@headline ,@sd/variable-font-tuple :height 1.5 :underline nil)))))))
260 ** Org-mode Basic setting
262 Always indents header, and hide header leading starts so that no need type =#+STATUP: indent=
264 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
269 (setq org-startup-indented t)
270 (setq org-hide-leading-starts t)
271 (setq org-src-fontify-natively t)
272 (setq org-src-tab-acts-natively t)
273 (setq org-confirm-babel-evaluate nil)
274 (setq org-use-speed-commands t)
275 (setq org-completion-use-ido t))
277 (org-babel-do-load-languages
278 'org-babel-load-languages
296 use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 charactes
298 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
300 (use-package org-bullets
303 (add-hook 'org-mode-hook
305 (org-bullets-mode t))))
311 [[https://github.com/abo-abo/worf][worf]] mode is an extension of vi-like binding for org-mode.
312 In =worf-mode=, it is mapping =[=, =]= as =worf-backward= and =worf-forward= in global, wich
313 cause we cannot input =[= and =]=, so here I unset this mappings. And redifined this two to
314 =M-[= and =M-]=. see this [[https://github.com/abo-abo/worf/issues/19#issuecomment-223756599][issue]]
316 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
321 :init (add-hook 'org-mode-hook 'worf-mode)
323 ;; (define-key worf-mode-map "[" nil)
324 ;; (define-key worf-mode-map "]" nil)
325 ;; (define-key worf-mode-map (kbd "M-[") 'worf-backward)
326 ;; (define-key worf-mode-map (kbd "M-]") 'worf-forward)
337 [[https://github.com/magit/magit][Magit]] is a very cool git interface on Emacs.
339 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
343 :commands magit-status magit-blame)
352 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
356 :init (setq ido-enable-flex-matching t
357 ido-ignore-extensions t
358 ido-use-virtual-buffers t
363 (add-to-list 'completion-ignored-extensions ".pyc"))
369 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
373 :init (setq ido-enable-flex-matching t
375 :config (flx-ido-mode 1))
381 #+BEGIN_SRC emacs-lisp :tangle yes :result silent
383 (use-package ido-vertical-mode
386 (setq ido-vertical-define-keys 'C-n-C-p-up-and-down)
388 (ido-vertical-mode 1))
394 #+BEGIN_SRC emacs-lisp :tangle yes :result silent
398 :init (smex-initialize)
401 ("M-X" . smex-major-mode-commands))
408 ** [[https://github.com/abo-abo/hydra][Hydra]]
410 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
419 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
421 (defhydra sd/font-zoom (global-map "<f2>")
423 ("g" text-scale-increase "in")
424 ("l" text-scale-decrease "out"))
428 *** Windmove Splitter
430 Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-example]], to enlarge or shrink the windows splitter
432 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
434 (defun hydra-move-splitter-left (arg)
435 "Move window splitter left."
437 (if (let ((windmove-wrap-around))
438 (windmove-find-other-window 'right))
439 (shrink-window-horizontally arg)
440 (enlarge-window-horizontally arg)))
442 (defun hydra-move-splitter-right (arg)
443 "Move window splitter right."
445 (if (let ((windmove-wrap-around))
446 (windmove-find-other-window 'right))
447 (enlarge-window-horizontally arg)
448 (shrink-window-horizontally arg)))
450 (defun hydra-move-splitter-up (arg)
451 "Move window splitter up."
453 (if (let ((windmove-wrap-around))
454 (windmove-find-other-window 'up))
456 (shrink-window arg)))
458 (defun hydra-move-splitter-down (arg)
459 "Move window splitter down."
461 (if (let ((windmove-wrap-around))
462 (windmove-find-other-window 'up))
464 (enlarge-window arg)))
470 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
474 (defhydra sd/hydra-window (:color red :columns nil)
476 ("h" windmove-left nil)
477 ("j" windmove-down nil)
478 ("k" windmove-up nil)
479 ("l" windmove-right nil)
480 ("H" hydra-move-splitter-left nil)
481 ("J" hydra-move-splitter-down nil)
482 ("K" hydra-move-splitter-up nil)
483 ("L" hydra-move-splitter-right nil)
494 ("o" delete-other-windows "one" :exit t)
495 ("a" ace-window "ace")
496 ("s" ace-swap-window "swap")
497 ("d" ace-delete-window "ace-one" :exit t)
498 ("i" ace-maximize-window "ace-one" :exit t)
499 ("b" ido-switch-buffer "buf")
500 ("m" headlong-bookmark-jump "bmk")
502 ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
503 ("r" (progn (winner-redo) (setq this-command 'winner-redo)) "redo")
506 (global-unset-key (kbd "M-o"))
507 (global-set-key (kbd "M-o") 'sd/hydra-window/body)
513 Enable linum mode on programming modes
515 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
517 (add-hook 'prog-mode-hook 'linum-mode)
521 Fix the font size of line number
523 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
525 (defun fix-linum-size ()
527 (set-face-attribute 'linum nil :height 110))
529 (add-hook 'linum-mode-hook 'fix-linum-size)
533 I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like the =set relativenumber= on =vim=
535 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
537 (use-package linum-relative
540 (defun linum-new-mode ()
541 "If line numbers aren't displayed, then display them.
542 Otherwise, toggle between absolute and relative numbers."
545 (linum-relative-toggle)
549 ("A-k" . linum-new-mode))
551 ;; auto enable linum-new-mode in programming modes
552 (add-hook 'prog-mode-hook 'linum-relative-mode)
556 ** Save File Position
558 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
561 (setq-default save-place t)
562 (setq save-place-forget-unreadable-files t)
563 (setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)")
569 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
571 (use-package multi-term
578 [[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
579 Type =o= to go to the link
581 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
583 (use-package ace-link
586 (ace-link-setup-default))
592 [[https://github.com/re5et/emux][emux]] is
594 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
596 (el-get-bundle re5et/emux)
602 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
604 (use-package smartparens
608 (require 'smartparens-config)
609 (add-hook 'prog-mode-hook 'smartparens-mode)))
615 [[https://github.com/abo-abo/ace-window][ace-window]]
617 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
619 (use-package ace-window
623 ; (global-set-key (kbd "M-o") 'ace-window)
625 (setq aw-keys '(?a ?s ?d ?f ?j ?k ?l)))
631 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
633 (use-package projectile
636 (setq projectile-enable-caching t)
638 (projectile-global-mode t))
640 (use-package persp-projectile
645 (:map projectile-mode-map
646 ("s-p" . projectile-persp-switch-project)))
655 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
657 (use-package color-identifiers-mode
660 (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode)
662 :diminish color-identifiers-mode)
668 In Lisp Mode, =M-o= is defined, but I use this for global hydra window. So here disable this key
669 bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questions/298048/how-to-handle-conflicting-keybindings][here]]
671 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
676 (eval-after-load 'lispy
678 (define-key lispy-mode-map (kbd "M-o") nil)))
680 (add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1))))
686 [[https://www.emacswiki.org/emacs/CPerlMode][CPerl mode]] has more features than =PerlMode= for perl programming. Alias this to =CPerlMode=
688 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
690 (defalias 'perl-mode 'cperl-mode)
692 ;(setq cperl-hairy t) ;; Turns on most of the CPerlMode options
693 (setq cperl-auto-newline t)
694 (setq cperl-highlight-variables-indiscriminately t)
695 ;(setq cperl-indent-level 4)
696 ;(setq cperl-continued-statement-offset 4)
697 (setq cperl-close-paren-offset -4)
698 (setq cperl-indent-parents-as-block t)
699 (setq cperl-tab-always-indent t)
700 ;(setq cperl-brace-offset 0)
702 (add-hook 'cperl-mode-hook
704 (cperl-set-style "C++")))
707 ;(template-initialize)
715 Change the compile-command to set the default command run when call =compile=
716 Mapping =s-r= (on Mac, it's =Command + R= to run the script. Here =current-prefix-arg= is set
717 to call =compilation= interactively.
719 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
721 (defun my-perl-hook ()
723 (setq-local compilation-read-command nil)
724 (set (make-local-variable 'compile-command)
725 (concat "/usr/bin/perl "
727 (shell-quote-argument buffer-file-name))))
728 (local-set-key (kbd "s-r")
731 ; (setq current-prefix-arg '(4)) ; C-u
732 (call-interactively 'compile)))))
734 (add-hook 'cperl-mode-hook 'my-perl-hook)
741 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
743 (setq c-default-style "stroustrup"
750 Set the environments vairables in compilation mode
752 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
757 (setq compilation-environment (cons "LC_ALL=C" compilation-environment)))
763 Enable auto-insert mode
765 #+BEGIN_SRC emacs-lisp :tangle yes :results silenc
768 (setq auto-insert-query nil)
774 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
776 (eval-after-load 'autoinsert
777 '(define-auto-insert '("\\.cpp\\'" . "C++ skeleton")
781 "\n * " (file-name-nondirectory (buffer-file-name))
783 "#include <iostream>" \n
785 (file-name-sans-extension
786 (file-name-nondirectory (buffer-file-name)))
788 "using namespace std;" \n \n
796 (eval-after-load 'autoinsert
797 '(define-auto-insert '("\\.c\\'" . "C skeleton")
801 " * " (file-name-nondirectory (buffer-file-name)) "\n"
803 "#include <stdio.h>" \n
805 (file-name-sans-extension
806 (file-name-nondirectory (buffer-file-name)))
819 Refer [[https://www.emacswiki.org/emacs/AutoInsertMode][AutoInsertMode]] Wiki
821 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
823 (eval-after-load 'autoinsert
824 '(define-auto-insert '("\\.pl\\'" . "Perl skeleton")
827 "#!/usr/bin/perl -w" \n
838 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
842 :diminish company-mode
844 (global-company-mode))