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))
328 [[https://github.com/magit/magit][Magit]] is a very cool git interface on Emacs.
330 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
334 :commands magit-status magit-blame)
343 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
347 :init (setq ido-enable-flex-matching t
348 ido-ignore-extensions t
349 ido-use-virtual-buffers t
354 (add-to-list 'completion-ignored-extensions ".pyc"))
360 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
364 :init (setq ido-enable-flex-matching t
366 :config (flx-ido-mode 1))
372 #+BEGIN_SRC emacs-lisp :tangle yes :result silent
374 (use-package ido-vertical-mode
377 (setq ido-vertical-define-keys 'C-n-C-p-up-and-down)
379 (ido-vertical-mode 1))
385 #+BEGIN_SRC emacs-lisp :tangle yes :result silent
389 :init (smex-initialize)
392 ("M-X" . smex-major-mode-commands))
398 ** [[https://github.com/abo-abo/hydra][Hydra]]
400 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
409 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
411 (defhydra sd/font-zoom (global-map "<f2>")
413 ("g" text-scale-increase "in")
414 ("l" text-scale-decrease "out"))
418 *** Windmove Splitter
420 Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-example]], to enlarge or shrink the windows splitter
422 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
424 (defun hydra-move-splitter-left (arg)
425 "Move window splitter left."
427 (if (let ((windmove-wrap-around))
428 (windmove-find-other-window 'right))
429 (shrink-window-horizontally arg)
430 (enlarge-window-horizontally arg)))
432 (defun hydra-move-splitter-right (arg)
433 "Move window splitter right."
435 (if (let ((windmove-wrap-around))
436 (windmove-find-other-window 'right))
437 (enlarge-window-horizontally arg)
438 (shrink-window-horizontally arg)))
440 (defun hydra-move-splitter-up (arg)
441 "Move window splitter up."
443 (if (let ((windmove-wrap-around))
444 (windmove-find-other-window 'up))
446 (shrink-window arg)))
448 (defun hydra-move-splitter-down (arg)
449 "Move window splitter down."
451 (if (let ((windmove-wrap-around))
452 (windmove-find-other-window 'up))
454 (enlarge-window arg)))
460 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
464 (defhydra sd/hydra-window (:color red :columns nil)
466 ("h" windmove-left nil)
467 ("j" windmove-down nil)
468 ("k" windmove-up nil)
469 ("l" windmove-right nil)
470 ("H" hydra-move-splitter-left nil)
471 ("J" hydra-move-splitter-down nil)
472 ("K" hydra-move-splitter-up nil)
473 ("L" hydra-move-splitter-right nil)
484 ("o" delete-other-windows "one" :exit t)
485 ("a" ace-window "ace")
486 ("s" ace-swap-window "swap")
487 ("d" ace-delete-window "ace-one" :exit t)
488 ("i" ace-maximize-window "ace-one" :exit t)
489 ("b" ido-switch-buffer "buf")
490 ("m" headlong-bookmark-jump "bmk")
492 ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
495 (global-set-key (kbd "M-o") 'sd/hydra-window/body)
501 Enable linum mode on programming modes
503 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
505 (add-hook 'prog-mode-hook 'linum-mode)
509 Fix the font size of line number
511 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
513 (defun fix-linum-size ()
515 (set-face-attribute 'linum nil :height 110))
517 (add-hook 'linum-mode-hook 'fix-linum-size)
521 I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like the =set relativenumber= on =vim=
523 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
525 (use-package linum-relative
528 (defun linum-new-mode ()
529 "If line numbers aren't displayed, then display them.
530 Otherwise, toggle between absolute and relative numbers."
533 (linum-relative-toggle)
537 ("A-k" . linum-new-mode))
539 ;; auto enable linum-new-mode in programming modes
540 (add-hook 'prog-mode-hook 'linum-relative-mode)
544 ** Save File Position
546 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
549 (setq-default save-place t)
550 (setq save-place-forget-unreadable-files t)
551 (setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)")
557 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
559 (use-package multi-term
566 [[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
567 Type =o= to go to the link
569 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
571 (use-package ace-link
574 (ace-link-setup-default))
580 [[https://github.com/re5et/emux][emux]] is
582 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
584 (el-get-bundle re5et/emux)
590 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
592 (use-package smartparens
599 [[https://github.com/abo-abo/ace-window][ace-window]]
601 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
603 (use-package ace-window
607 ; (global-set-key (kbd "M-o") 'ace-window)
609 (setq aw-keys '(?a ?s ?d ?f ?j ?k ?l)))
619 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
621 (use-package color-identifiers-mode
624 (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode)
626 :diminish color-identifiers-mode)
632 [[https://www.emacswiki.org/emacs/CPerlMode][CPerl mode]] has more features than =PerlMode= for perl programming. Alias this to =CPerlMode=
634 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
636 (defalias 'perl-mode 'cperl-mode)
638 ;(setq cperl-hairy t) ;; Turns on most of the CPerlMode options
639 (setq cperl-auto-newline t)
640 (setq cperl-highlight-variables-indiscriminately t)
641 ;(setq cperl-indent-level 4)
642 ;(setq cperl-continued-statement-offset 4)
643 (setq cperl-close-paren-offset -4)
644 (setq cperl-indent-parents-as-block t)
645 (setq cperl-tab-always-indent t)
646 ;(setq cperl-brace-offset 0)
648 (add-hook 'cperl-mode-hook
650 (cperl-set-style "C++")))
653 ;(template-initialize)
661 Change the compile-command to set the default command run when call =compile=
662 Mapping =s-r= (on Mac, it's =Command + R= to run the script. Here =current-prefix-arg= is set
663 to call =compilation= interactively.
665 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
667 (defun my-perl-hook ()
669 (setq-local compilation-read-command nil)
670 (set (make-local-variable 'compile-command)
671 (concat "/usr/bin/perl "
673 (shell-quote-argument buffer-file-name))))
674 (local-set-key (kbd "s-r")
677 ; (setq current-prefix-arg '(4)) ; C-u
678 (call-interactively 'compile)))))
680 (add-hook 'cperl-mode-hook 'my-perl-hook)
687 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
689 (setq c-default-style "stroustrup"
696 Set the environments vairables in compilation mode
698 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
703 (setq compilation-environment (cons "LC_ALL=C" compilation-environment)))
709 Enable auto-insert mode
711 #+BEGIN_SRC emacs-lisp :tangle yes :results silenc
714 (setq auto-insert-query nil)
720 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
722 (eval-after-load 'autoinsert
723 '(define-auto-insert '("\\.cpp\\'" . "C++ skeleton")
727 "\n * " (file-name-nondirectory (buffer-file-name))
729 "#include <iostream>" \n
731 (file-name-sans-extension
732 (file-name-nondirectory (buffer-file-name)))
734 "using namespace std;" \n \n
742 (eval-after-load 'autoinsert
743 '(define-auto-insert '("\\.c\\'" . "C skeleton")
747 " * " (file-name-nondirectory (buffer-file-name)) "\n"
749 "#include <stdio.h>" \n
751 (file-name-sans-extension
752 (file-name-nondirectory (buffer-file-name)))
765 Refer [[https://www.emacswiki.org/emacs/AutoInsertMode][AutoInsertMode]] Wiki
767 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
769 (eval-after-load 'autoinsert
770 '(define-auto-insert '("\\.pl\\'" . "Perl skeleton")
773 "#!/usr/bin/perl -w" \n