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))
399 ** [[https://github.com/abo-abo/hydra][Hydra]]
401 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
410 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
412 (defhydra sd/font-zoom (global-map "<f2>")
414 ("g" text-scale-increase "in")
415 ("l" text-scale-decrease "out"))
419 *** Windmove Splitter
421 Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-example]], to enlarge or shrink the windows splitter
423 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
425 (defun hydra-move-splitter-left (arg)
426 "Move window splitter left."
428 (if (let ((windmove-wrap-around))
429 (windmove-find-other-window 'right))
430 (shrink-window-horizontally arg)
431 (enlarge-window-horizontally arg)))
433 (defun hydra-move-splitter-right (arg)
434 "Move window splitter right."
436 (if (let ((windmove-wrap-around))
437 (windmove-find-other-window 'right))
438 (enlarge-window-horizontally arg)
439 (shrink-window-horizontally arg)))
441 (defun hydra-move-splitter-up (arg)
442 "Move window splitter up."
444 (if (let ((windmove-wrap-around))
445 (windmove-find-other-window 'up))
447 (shrink-window arg)))
449 (defun hydra-move-splitter-down (arg)
450 "Move window splitter down."
452 (if (let ((windmove-wrap-around))
453 (windmove-find-other-window 'up))
455 (enlarge-window arg)))
461 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
465 (defhydra sd/hydra-window (:color red :columns nil)
467 ("h" windmove-left nil)
468 ("j" windmove-down nil)
469 ("k" windmove-up nil)
470 ("l" windmove-right nil)
471 ("H" hydra-move-splitter-left nil)
472 ("J" hydra-move-splitter-down nil)
473 ("K" hydra-move-splitter-up nil)
474 ("L" hydra-move-splitter-right nil)
485 ("o" delete-other-windows "one" :exit t)
486 ("a" ace-window "ace")
487 ("s" ace-swap-window "swap")
488 ("d" ace-delete-window "ace-one" :exit t)
489 ("i" ace-maximize-window "ace-one" :exit t)
490 ("b" ido-switch-buffer "buf")
491 ("m" headlong-bookmark-jump "bmk")
493 ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
494 ("r" (progn (winner-redo) (setq this-command 'winner-redo)) "redo")
497 (global-unset-key (kbd "M-o"))
498 (global-set-key (kbd "M-o") 'sd/hydra-window/body)
504 Enable linum mode on programming modes
506 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
508 (add-hook 'prog-mode-hook 'linum-mode)
512 Fix the font size of line number
514 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
516 (defun fix-linum-size ()
518 (set-face-attribute 'linum nil :height 110))
520 (add-hook 'linum-mode-hook 'fix-linum-size)
524 I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like the =set relativenumber= on =vim=
526 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
528 (use-package linum-relative
531 (defun linum-new-mode ()
532 "If line numbers aren't displayed, then display them.
533 Otherwise, toggle between absolute and relative numbers."
536 (linum-relative-toggle)
540 ("A-k" . linum-new-mode))
542 ;; auto enable linum-new-mode in programming modes
543 (add-hook 'prog-mode-hook 'linum-relative-mode)
547 ** Save File Position
549 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
552 (setq-default save-place t)
553 (setq save-place-forget-unreadable-files t)
554 (setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)")
560 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
562 (use-package multi-term
569 [[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
570 Type =o= to go to the link
572 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
574 (use-package ace-link
577 (ace-link-setup-default))
583 [[https://github.com/re5et/emux][emux]] is
585 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
587 (el-get-bundle re5et/emux)
593 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
595 (use-package smartparens
602 [[https://github.com/abo-abo/ace-window][ace-window]]
604 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
606 (use-package ace-window
610 ; (global-set-key (kbd "M-o") 'ace-window)
612 (setq aw-keys '(?a ?s ?d ?f ?j ?k ?l)))
622 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
624 (use-package color-identifiers-mode
627 (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode)
629 :diminish color-identifiers-mode)
635 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
640 ;(add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1)))
646 [[https://www.emacswiki.org/emacs/CPerlMode][CPerl mode]] has more features than =PerlMode= for perl programming. Alias this to =CPerlMode=
648 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
650 (defalias 'perl-mode 'cperl-mode)
652 ;(setq cperl-hairy t) ;; Turns on most of the CPerlMode options
653 (setq cperl-auto-newline t)
654 (setq cperl-highlight-variables-indiscriminately t)
655 ;(setq cperl-indent-level 4)
656 ;(setq cperl-continued-statement-offset 4)
657 (setq cperl-close-paren-offset -4)
658 (setq cperl-indent-parents-as-block t)
659 (setq cperl-tab-always-indent t)
660 ;(setq cperl-brace-offset 0)
662 (add-hook 'cperl-mode-hook
664 (cperl-set-style "C++")))
667 ;(template-initialize)
675 Change the compile-command to set the default command run when call =compile=
676 Mapping =s-r= (on Mac, it's =Command + R= to run the script. Here =current-prefix-arg= is set
677 to call =compilation= interactively.
679 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
681 (defun my-perl-hook ()
683 (setq-local compilation-read-command nil)
684 (set (make-local-variable 'compile-command)
685 (concat "/usr/bin/perl "
687 (shell-quote-argument buffer-file-name))))
688 (local-set-key (kbd "s-r")
691 ; (setq current-prefix-arg '(4)) ; C-u
692 (call-interactively 'compile)))))
694 (add-hook 'cperl-mode-hook 'my-perl-hook)
701 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
703 (setq c-default-style "stroustrup"
710 Set the environments vairables in compilation mode
712 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
717 (setq compilation-environment (cons "LC_ALL=C" compilation-environment)))
723 Enable auto-insert mode
725 #+BEGIN_SRC emacs-lisp :tangle yes :results silenc
728 (setq auto-insert-query nil)
734 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
736 (eval-after-load 'autoinsert
737 '(define-auto-insert '("\\.cpp\\'" . "C++ skeleton")
741 "\n * " (file-name-nondirectory (buffer-file-name))
743 "#include <iostream>" \n
745 (file-name-sans-extension
746 (file-name-nondirectory (buffer-file-name)))
748 "using namespace std;" \n \n
756 (eval-after-load 'autoinsert
757 '(define-auto-insert '("\\.c\\'" . "C skeleton")
761 " * " (file-name-nondirectory (buffer-file-name)) "\n"
763 "#include <stdio.h>" \n
765 (file-name-sans-extension
766 (file-name-nondirectory (buffer-file-name)))
779 Refer [[https://www.emacswiki.org/emacs/AutoInsertMode][AutoInsertMode]] Wiki
781 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
783 (eval-after-load 'autoinsert
784 '(define-auto-insert '("\\.pl\\'" . "Perl skeleton")
787 "#!/usr/bin/perl -w" \n
798 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
802 :diminish company-mode
804 (global-company-mode))