View difference between Paste ID: 1Znm91h3 and sKLzszBF

 ;;; Customize Variables and Custom Faces:
 (custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(calendar-latitude 39.55)
  '(calendar-longitude 116.23)
  '(cfs--current-profile "profile2" t)
  '(cfs--profiles-steps
    (quote
     (("profile2" . 3)
      ("profile3" . 7)
      ("profile1" . 7))) t)
  '(column-number-mode t)
  '(custom-safe-themes
    (quote
     ("55d31108a7dc4a268a1432cd60a7558824223684afecefa6fae327212c40f8d3" "1bd383f15ee7345c270b82c5e41554754b2a56e14c2ddaa2127c3590d0303b95" "3de3f36a398d2c8a4796360bfce1fa515292e9f76b655bb9a377289a6a80a132" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" "d677ef584c6dfc0697901a44b885cc18e206f05114c8a3b7fde674fce6180879" "3c83b3676d796422704082049fc38b6966bcad960f896669dfc21a7a37a748fa" "c74e83f8aa4c78a121b52146eadb792c9facc5b1f02c917e3dbb454fca931223" "a27c00821ccfd5a78b01e4f35dc056706dd9ede09a8b90c6955ae6a390eb1c1e" default)))
  '(delete-selection-mode nil)
  '(elpy-rpc-python-command "/Users/repl/Documents/PythonEnv/venv3.6.1/bin/python")
  '(exec-path
    (quote
     ("/usr/bin" "/bin" "/usr/sbin" "/sbin" "/Applications/Emacs.app/Contents/MacOS/bin-x86_64-10_9" "/Applications/Emacs.app/Contents/MacOS/libexec-x86_64-10_9" "/Applications/Emacs.app/Contents/MacOS/libexec" "/Applications/Emacs.app/Contents/MacOS/bin" "/usr/local/bin")))
  '(global-linum-mode t)
  '(inhibit-default-init t)
  '(inhibit-startup-buffer-menu t)
  '(inhibit-startup-screen t)
  '(initial-buffer-choice nil)
  '(jdee-jdk-registry (quote (("1.8.0_112" . "/usr/lib64/jdk8u121_b13/"))))
  '(jdee-server-dir "/home/repl/Documents/Dot.emacs/extra/jdee-server/target")
  '(org-latex-compiler "xelatex")
  '(package-selected-packages
    (quote
     (yaml-mode autumn-light-theme org-tree-slide org-present epresent helm merlin utop inkpot-theme circe sphinx-doc fzf markdown-mode add-hooks jinja2-mode emmet-mode hexo jdee theme-changer solarized-theme chinese-pyim py-yapf company-mode rainbow-blocks rainbow-delimiters hl-sexp chinese-pyim-greatdict powerline robe haskell-mode bfbuilder geiser sml-mode elpy slime yasnippet chinese-fonts-setup magit color-moccur smart-mode-line counsel multiple-cursors expand-region lispy ace-jump-mode moccur-edit eclipse-theme use-package)))
  '(python-shell-interpreter "/Users/repl/Documents/PythonEnv/venv3.6.1/bin/python")
  '(ring-bell-function (quote ignore))
  '(safe-local-variable-values (quote ((encoding . utf-8))))
  '(sml-program-name "/usr/bin/poly")
  '(yas-snippet-dirs
    (quote
     ("~/Documents/Dot.emacs/snippets" yas-installed-snippets-dir))))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(rainbow-blocks-depth-1-face ((t (:foreground "#30A096"))))
  '(rainbow-blocks-depth-2-face ((t (:foreground "#D99D17"))))
  '(rainbow-blocks-depth-3-face ((t (:foreground "#349CEA"))))
  '(rainbow-blocks-depth-4-face ((t (:foreground "#EB531E"))))
  '(rainbow-blocks-depth-5-face ((t (:foreground "#99AE17"))))
  '(rainbow-blocks-depth-6-face ((t (:foreground "#D99D17"))))
  '(rainbow-blocks-depth-7-face ((t (:foreground "#349CEA"))))
  '(rainbow-blocks-depth-8-face ((t (:foreground "#EB531E"))))
  '(rainbow-blocks-depth-9-face ((t (:foreground "#99AE17"))))
  '(rainbow-delimiters-depth-1-face ((t (:foreground "#30A096"))))
  '(rainbow-delimiters-depth-2-face ((t (:foreground "#D99D17"))))
  '(rainbow-delimiters-depth-3-face ((t (:foreground "#349CEA"))))
  '(rainbow-delimiters-depth-4-face ((t (:foreground "#EB531E"))))
  '(rainbow-delimiters-depth-5-face ((t (:foreground "#99AE17"))))
  '(rainbow-delimiters-depth-6-face ((t (:foreground "#D99D17"))))
  '(rainbow-delimiters-depth-7-face ((t (:foreground "#349CEA"))))
  '(rainbow-delimiters-depth-8-face ((t (:foreground "#EB531E"))))
  '(rainbow-delimiters-depth-9-face ((t (:foreground "#99AE17")))))
 
 ;;; Initialize Emacs and prepare packages:
 ;; C-c @ C-t: show top level, C-c @ C-a: show all again.
 (add-hook
  'emacs-lisp-mode-hook
  (lambda ()
    (make-local-variable
     'outline-regexp)
    (setq outline-regexp "^;;; ")
    (make-local-variable
     'outline-heading-end-regexp)
    (setq outline-heading-end-regexp
 	 ":\n")
    (outline-minor-mode 1)))
 (setq debug-on-error t)
 (setq gc-cons-threshold 400000000)
 (require 'package)
 (setq package-archives
       '(;; ("gnu"   . "http://elpa.zilongshanren.com/gnu/")
 	("gnu"   . "https://elpa.gnu.org/packages/")
 	;; ("melpa" . "http://elpa.zilongshanren.com/melpa/")
 	("melpa" . "https://melpa.org/packages/")
 	("elpy" . "https://jorgenschaefer.github.io/packages/")))
 (package-initialize)
 (unless (package-installed-p 'use-package)
   (package-refresh-contents)
   (package-install 'use-package))
 (eval-when-compile
   (require 'use-package))
 (require 'server)
 (or (server-running-p)
     (server-start))
 (setq gc-cons-threshold 800000)
 ;; disable on 2017/04/28
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (scroll-bar-mode -1)
 (setq-default tramp-ssh-controlmaster-options nil)
 ;; 2017/01/09
 (setq prettify-symbols-alist '(("lambda" . 955)))
 (global-prettify-symbols-mode 1)
 (add-to-list 'load-path
 	     "~/Documents/Dot.emacs/extra")
 ;; 2017/03/14
 ;; (load-theme 'tango-dark t)
 ;; (load-theme 'adwaita t)
 
 ;; 五  8/11 15:38:58 2017
 ;; (load-theme 'base16-brewer t)
 
 ;; 2017/02/16
 ;; org-mode configuration
 (global-set-key "\C-cl" 'org-store-link)
 (global-set-key "\C-ca" 'org-agenda)
 (global-set-key "\C-cc" 'org-capture)
 (global-set-key "\C-cb" 'org-iswitchb)
 
 ;; 2017/05/16
 (global-set-key (kbd "<f9>") 'compile)
 (global-set-key (kbd "<f12>") 'eshell)
 (global-set-key (kbd "<f5>") 'gdb)
 (setq gdb-many-windows t)
 
 ;; 2017/06/03
 (define-key text-mode-map (kbd "<tab>") 'tab-to-tab-stop)
 (setq tab-stop-list (number-sequence 2 160 2))
 
 (defun set-tab-stop-width (width)
   "Set all tab stops to WIDTH in current buffer.
 
     This updates `tab-stop-list', but not `tab-width'.
 
     By default, `indent-for-tab-command' uses tabs to indent, see
     `indent-tabs-mode'."
   (interactive "nTab width: ")
   (let* ((max-col (car (last tab-stop-list)))
 	 ;; If width is not a factor of max-col,
 	 ;; then max-col could be reduced with each call.
 	 (n-tab-stops (/ max-col width)))
     (set (make-local-variable 'tab-stop-list)
 	 (mapcar (lambda (x) (* width x))
 		 (number-sequence 1 n-tab-stops)))
     ;; So preserve max-col, by adding to end.
     (unless (zerop (% max-col width))
       (setcdr (last tab-stop-list)
 	      (list max-col)))))
 
 (defun local-text-mode-hook-fun ()
   (set-tab-stop-width 2)
   (setq indent-tabs-mode nil))
 
 (add-hook 'text-mode-hook 'local-text-mode-hook-fun)
 (add-hook 'python-mode-hook 'local-text-mode-hook-fun)
 (add-hook 'ruby-mode-hook 'local-text-mode-hook-fun)
 
 (global-set-key (kbd "C-x r p") 'query-replace-regexp)
 
 ;; 2017/09/05
 (setenv "PATH" (concat "/Library/TeX/texbin" ":" (getenv "PATH")))
 
 ;;; Packages:
 (setq use-package-always-ensure t)
 (use-package slime
   :config
   (slime-setup '(slime-fancy)))
 (use-package yasnippet
   :init
   (yas-global-mode 1))
 (use-package chinese-fonts-setup
   :config
   (chinese-fonts-setup-enable))
 
 ;; disable smart-mode-line on 2017/01/09
 
 ;; (use-package smart-mode-line
 ;;   :config
 ;;   (setq sml/theme 'light)
 ;;   (sml/setup))
 
 ;; disable on 2017/01/09
 ;; enable on 2017/03/15
 
 ;; (use-package eclipse-theme)
 
 (use-package multiple-cursors
   :config
   (global-set-key (kbd "<f7>") 'mc/mark-next-like-this)
   (global-set-key (kbd "<f8>") 'mc/mark-previous-like-this)
   (global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)
   (global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines))
 (use-package counsel
   :config
   (global-set-key (kbd "M-x") 'counsel-M-x)
   (global-set-key (kbd "C-x C-f") 'counsel-find-file)
   (global-set-key (kbd "<f1> f") 'counsel-describe-function)
   (global-set-key (kbd "<f1> v") 'counsel-describe-variable)
   (global-set-key (kbd "<f1> l") 'counsel-load-library)
   (global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol)
   (global-set-key (kbd "<f2> u") 'counsel-unicode-char)
   (global-set-key (kbd "C-c g") 'counsel-git)
   (global-set-key (kbd "C-c j") 'counsel-git-grep)
   (global-set-key (kbd "C-c k") 'counsel-ag)
   (global-set-key (kbd "C-x l") 'counsel-locate)
   (global-set-key (kbd "C-S-o") 'counsel-rhythmbox)
   (define-key read-expression-map (kbd "C-r") 'counsel-expression-history))
 (use-package swiper
   :init
   (ivy-mode 1)
   (setq ivy-use-virtual-buffers t)
   :config
   (global-set-key "\C-s" 'swiper)
   (global-set-key (kbd "C-c C-r") 'ivy-resume)
   (global-set-key (kbd "<f6>") 'ivy-resume))
 (use-package
   magit
   :config
   (global-set-key (kbd "C-x g") 'magit-status)
   (global-set-key (kbd "C-x M-g") 'magit-dispatch-popup))
 (use-package ace-jump-mode
   :bind ("C-x j" . ace-jump-mode))
 (use-package lispy
   :init
   (add-hook 'emacs-lisp-mode-hook
 	    (lambda () (lispy-mode 1)))
   (add-hook 'lisp-mode-hook
 	    (lambda () (lispy-mode 1)))
   (add-hook 'scheme-mode-hook
 	    (lambda () (lispy-mode 1))))
 (use-package hydra
   :config
   (defhydra hydra-zoom (global-map "<f2>")
     "zoom"
     ("g" text-scale-increase "in")
     ("l" text-scale-decrease "out")
     ("r" (text-scale-set 0) "reset")
     ("0" (text-scale-set 0) :bind nil :exit t)
     ("1" (text-scale-set 0) nil :bind nil :exit t))
   (defhydra hydra-buffer-menu (:color pink
 				      :hint nil)
     "
 ^Mark^             ^Unmark^           ^Actions^          ^Search
 ^^^^^^^^-----------------------------------------------------------------
 _m_: mark          _u_: unmark        _x_: execute       _R_: re-isearch
 _s_: save          _U_: unmark up     _b_: bury          _I_: isearch
 _d_: delete        ^ ^                _g_: refresh       _O_: multi-occur
 _D_: delete up     ^ ^                _T_: files only: % -28`Buffer-menu-files-only
 _~_: modified
 "
     ("m" Buffer-menu-mark)
     ("u" Buffer-menu-unmark)
     ("U" Buffer-menu-backup-unmark)
     ("d" Buffer-menu-delete)
     ("D" Buffer-menu-delete-backwards)
     ("s" Buffer-menu-save)
     ("~" Buffer-menu-not-modified)
     ("x" Buffer-menu-execute)
     ("b" Buffer-menu-bury)
     ("g" revert-buffer)
     ("T" Buffer-menu-toggle-files-only)
     ("O" Buffer-menu-multi-occur :color blue)
     ("I" Buffer-menu-isearch-buffers :color blue)
     ("R" Buffer-menu-isearch-buffers-regexp :color blue)
     ("c" nil "cancel")
     ("v" Buffer-menu-select "select" :color blue)
     ("o" Buffer-menu-other-window "other-window" :color blue)
     ("q" quit-window "quit" :color blue))
   (define-key Buffer-menu-mode-map "." 'hydra-buffer-menu/body)
   (defhydra hydra-window (:color red
 				 :columns nil)
     "window"
     ("h" windmove-left nil)
     ("j" windmove-down nil)
     ("k" windmove-up nil)
     ("l" windmove-right nil)
     ("H" hydra-move-splitter-left nil)
     ("J" hydra-move-splitter-down nil)
     ("K" hydra-move-splitter-up nil)
     ("L" hydra-move-splitter-right nil)
     ("v" (lambda ()
 	   (interactive)
 	   (split-window-right)
 	   (windmove-right))
      "vert")
     ("x" (lambda ()
 	   (interactive)
 	   (split-window-below)
 	   (windmove-down))
      "horz")
     ("t" transpose-frame "'" :exit t)
     ("o" delete-other-windows "one" :exit t)
     ("a" ace-window "ace")
     ("s" ace-swap-window "swap")
     ("d" ace-delete-window "del")
     ("i" ace-maximize-window "ace-one" :exit t)
     ("b" ido-switch-buffer "buf")
     ("m" headlong-bookmark-jump "bmk")
     ("q" nil "cancel")
     ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
     ("f" nil))
   (global-set-key (kbd "C-M-o") 'hydra-window/body))
 (use-package ace-window
   :init
   (bind-key "M-p" 'ace-window)
   (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)))
 (use-package expand-region
   :ensure expand-region
   :bind ("C-=" . er/expand-region))
 
 ;; 2016/12/11
 
 (use-package
   elpy
   :init (elpy-enable)
   :config (setq elpy-rpc-backend "jedi")
   (elpy-use-ipython)
   :bind
   ("C-c <down>" . elpy-nav-forward-block)
   ("C-c <up>" . elpy-nav-backward-block)
   ("C-c <left>" . elpy-nav-backward-indent)
   ("C-c <right>" . elpy-nav-forward-indent)
   ("C-c f" . elpy-autopep8-fix-code)
   ("M-*" . pop-tag-mark)
   ("C-<tab>" . elpy-company-backend))
 
 ;; 2017/01/05
 (use-package hl-sexp
   :config
   (add-hook 'lisp-mode-hook
 	    #'hl-sexp-mode))
 ;; 2017/01/09
 
 ;; rainbow-delimiters will determin the color-theme based on this
 ;; variable
 (setq frame-background-mode 'light)
 (use-package rainbow-delimiters
   :config
   (add-hook 'emacs-lisp-mode-hook
 	    #'rainbow-delimiters-mode)
   (add-hook 'lisp-mode-hook
 	    #'rainbow-delimiters-mode)
   (add-hook 'scheme-mode-hook
 	    #'rainbow-delimiters-mode))
 (use-package rainbow-blocks
   :config
   (add-hook 'emacs-lisp-mode-hook
 	    #'rainbow-blocks-mode)
   (add-hook 'lisp-mode-hook
 	    #'rainbow-blocks-mode)
   (add-hook 'scheme-mode-hook
 	    #'rainbow-blocks-mode))
 ;; (use-package solarized-theme
 ;;   :config
 ;;   ;; (load-theme 'solarized-dark)
 ;;   ;; (add-hook 'lisp-mode-hook
 ;;   ;; 	    (lambda ()
 ;;   ;; 	      (load-theme 'solarized-dark t)))
 
 ;;   (add-hook 'emacs-lisp-mode-hook
 ;;   	    (lambda ()
 ;;   	      (load-theme 'solarized-dark t))))
 
 ;; (use-package theme-changer
 ;;   :config
 ;;   (setq calendar-location-name "Beijing, China")
 ;;   (setq calendar-latitude 39.55)
 ;;   (setq calendar-longitude 116.23)
 ;;   ;; (change-theme 'base16-monokai
 ;;   ;; 		'base16-monokai)
 
 ;;   (change-theme 'solarized-light
 ;;   		'solarized-light))
 
 ;; Try highlight-sexps
 
 (require 'highlight-sexps)
 (add-hook 'emacs-lisp-mode-hook
 	  #'highlight-sexps-mode)
 (add-hook 'lisp-mode-hook
 	  #'highlight-sexps-mode)
 (add-hook 'scheme-mode-hook
 	  #'highlight-sexps-mode)
 
 ;; For quicklisp-slime-helper
 (let ((quicklisp-slime-helper
        (expand-file-name "~/quicklisp/slime-helper.el")))
   (when (file-exists-p quicklisp-slime-helper)
     (load quicklisp-slime-helper)))
 
 ;; 2016/12/30
 ;; (use-package fcitx
 ;;   :config
 ;;   (fcitx-aggressive-setup)
 ;;   (setq fcitx-use-dbus t))
 
 ;; 2017/01/16
 (use-package sml-mode
   ;; `C-c C-s` start sml REPL
   )
 ;; 2017/01/25
 (use-package geiser
   ;; `C-c C-a` runs the command geiser-mode-switch-to-repl-and-enter. `C-c C-k` compile current buffer, don't forget to add `#lang racket` and `(provide (all-defined-out))` at the beginning of source file. `C-c C-q` exit racket REPL. or `C-u C-c C-q`
   ;; There is a snippet named RACKETMLIMIT, it's used to limit memory used by racket. It can avoid Racket and Emacs get stuck when program is in indefinite loop.
   :config
   (setq geiser-active-implementations '(racket)))
 ;; 2017/01/26
 (use-package bfbuilder
   :config
   (add-to-list 'auto-mode-alist '("\\.bf$" . bfbuilder-mode)))
 ;; 2017/01/30
 (use-package haskell-mode
   :bind
   (("C-c C-l" . haskell-process-load-or-reload)
    ("C-c C-z" . haskell-interactive-bring)
    ("C-c C-t" . haskell-process-do-type)
    ("C-c C-i" . haskell-process-do-info)
    ("C-c C-c" . haskell-process-cabal-build)
    ("C-c C-k" . haskell-interactive-mode-clear)
    ("C-c C" . haskell-process-cabal)))
 ;; (use-package groovy-mode)
 ;; 2017/02/04
 ;; M-. to jump to the definition
 ;; M-, to jump back
 ;; C-c C-d to see the documentation
 ;; C-c C-k to refresh Rails environment
 ;; C-M-i to complete the symbol at point
 
 (use-package robe
   :config
   (add-hook 'ruby-mode-hook
 	    'robe-mode))
 
 ;; 2017/03/24
 ;; 2017/08/16
 (use-package powerline
   :config
   ;; (powerline-center-theme)
   (setq ns-use-srgb-colorspace nil)
   (powerline-default-theme))
 
 ;; 2017/03/29
 (use-package company
   :config
   ;; (add-hook 'after-init-hook 'global-company-mode)
   )
 
 (use-package py-yapf
   :config
   (add-hook 'python-mode-hook 'py-yapf-enable-on-save))
 
 (use-package chinese-pyim
   :ensure t
   :config
   ;; 激活 basedict 拼音词库
   (use-package chinese-pyim-basedict
     :ensure t
     :config (chinese-pyim-basedict-enable))
 
   (use-package chinese-pyim-greatdict
     :ensure t
     :config (chinese-pyim-greatdict-enable))
 
   (setq default-input-method "chinese-pyim")
 
   ;; 我使用全拼
   (setq pyim-default-scheme 'quanpin)
 
   ;; 设置 pyim 探针设置，这是 pyim 高级功能设置，可以实现 *无痛* 中英文切换 :-)
   ;; 我自己使用的中英文动态切换规则是：
   ;; 1. 光标只有在注释里面时，才可以输入中文。
   ;; 2. 光标前是汉字字符时，才能输入中文。
   ;; 3. 使用 M-j 快捷键，强制将光标前的拼音字符串转换为中文。
   (setq-default pyim-english-input-switch-functions
                 '(pyim-probe-dynamic-english
                   pyim-probe-isearch-mode
                   pyim-probe-program-mode
                   pyim-probe-org-structure-template))
 
   (setq-default pyim-punctuation-half-width-functions
                 '(pyim-probe-punctuation-line-beginning
                   pyim-probe-punctuation-after-punctuation))
 
   ;; 开启拼音搜索功能
   (setq pyim-isearch-enable-pinyin-search t)
 
   ;; 使用 pupup-el 来绘制选词框
   (setq pyim-page-tooltip 'pos-tip)
   (setq x-gtk-use-system-tooltips t)
 
   ;; 选词框显示5个候选词
   (setq pyim-page-length 5)
 
   ;; 让 Emacs 启动时自动加载 pyim 词库
   (add-hook 'emacs-startup-hook
             #'(lambda () (pyim-restart-1 t)))
   :bind
   (("M-j" . pyim-convert-code-at-point) ;与 pyim-probe-dynamic-english 配合
    ("C-;" . pyim-delete-word-from-personal-buffer)))
 
 ;; 2017/04/02
 ;; (use-package jdee)
 
 ;; 2017/04/11
 (use-package hexo)
 
 ;; 2017/04/25
 (use-package emmet-mode
   :config
   ;; Auto-start on any markup modes
   (add-hook 'sgml-mode-hook 'emmet-mode)
   ;; enable Emmet's css abbreviation
   (add-hook 'css-mode-hook  'emmet-mode))
 
 (use-package jinja2-mode)
 
 ;; 2017/05/16
 ;; (use-package base16-theme)
 
 ;; 2017/06/17
 (use-package ensime
   :ensure t)
 
 ;; 2017/07/06
 (use-package markdown-mode
   :ensure t
   :commands (markdown-mode gfm-mode)
   :mode (("README\\.md\\'" . gfm-mode)
          ("\\.md\\'" . markdown-mode)
          ("\\.markdown\\'" . markdown-mode))
   :init (setq markdown-command "multimarkdown"))
 
 ;; 2017/07/16
 ;; Open .v files with Proof General's Coq mode
 (load "~/Documents/Dot.emacs/extra/PG/generic/proof-site")
 
 (use-package company-coq
   :ensure t
   :config (add-hook 'coq-mode-hook #'company-coq-mode))
 
 ;; 2017/08/04
 ;; (use-package auctex)
 (load "auctex.el" nil t t)
 (setq TeX-auto-save t)
 (setq TeX-parse-self t)
 (setq-default TeX-master nil)
 (add-hook 'LaTeX-mode-hook 'visual-line-mode)
 (add-hook 'LaTeX-mode-hook 'flyspell-mode)
 (add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)
 (add-hook 'LaTeX-mode-hook 'turn-on-reftex)
 (setq reftex-plug-into-AUCTeX t)
 
 ;; 2017/08/11
 (use-package fzf)
 
 ;; 2017/08/15
 (use-package
   sphinx-doc
   :config (add-hook
 	   'python-mode-hook
 	   (lambda ()
 	     (require 'sphinx-doc)
 	     (sphinx-doc-mode t))))
 (use-package
   circe
   :init
   (load ".private.el")
   :config (setq circe-network-options
 		`(("Freenode"
 		   :tls t
 		   :nick "abel-abel"
 		   :sasl-username "abel-abel"
 		   :sasl-password ,freenode-password
 		   :channels ("#GentooWithoutJUJU"
 			      "#archlinux-cn"
 			      "#lisp"
 			      "#lispgames"))))
   (setq circe-reduce-lurker-spam t))
 
 ;; 2017/08/16
 ;; (use-package inkpot-theme)
 
 ;; 2017/08/23
 ;; (use-package tuareg)
 ;; (use-package utop)
 ;; (use-package merlin)
 ;; (setq auto-mode-alist
 ;;       (append '(("\\.ml[ily]?$" . tuareg-mode)
 ;;                 ("\\.topml$" . tuareg-mode))
 ;;               auto-mode-alist))
 ;; (autoload 'utop-setup-ocaml-buffer "utop" "Toplevel for OCaml" t)
 ;; (add-hook 'tuareg-mode-hook 'utop-setup-ocaml-buffer)
 ;; (add-hook 'tuareg-mode-hook 'merlin-mode)
 ;; (setq merlin-use-auto-complete-mode t)
 ;; (setq merlin-error-after-save nil)
 ;;
 ;; 2017/08/24
 (use-package helm)
 (global-set-key (kbd "C-x x") 'helm-M-x)
 
 ;; 2017/09/05
 (use-package epresent)
 (use-package org-present)
 (eval-after-load "org-present"
   '(progn
      (add-hook 'org-present-mode-hook
 	       (lambda ()
 		 (org-present-big)
 		 (org-display-inline-images)
 		 (org-present-hide-cursor)
 		 (org-present-read-only)))
      (add-hook 'org-present-mode-quit-hook
 	       (lambda ()
 		 (org-present-small)
 		 (org-remove-inline-images)
 		 (org-present-show-cursor)
 		 (org-present-read-write)))))
 
 (use-package org-tree-slide
   :config
   (global-set-key (kbd "<f8>") 'org-tree-slide-mode)
   (global-set-key (kbd "S-<f8>") 'org-tree-slide-skip-done-toggle)
   (define-key org-tree-slide-mode-map (kbd "<f9>")
     'org-tree-slide-move-previous-tree)
   (define-key org-tree-slide-mode-map (kbd "<f10>")
     'org-tree-slide-move-next-tree)
   (define-key org-tree-slide-mode-map (kbd "<f11>")
     'org-tree-slide-content)
   (setq org-tree-slide-skip-outline-level 4)
   (org-tree-slide-narrowing-control-profile)
   (setq org-tree-slide-skip-done nil))
 
 ;; 2017/09/07
 (use-package autumn-light-theme)
 
 ;; 2017/09/12
 (use-package yaml-mode
   :config
   (add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode))
   (add-hook 'yaml-mode-hook
 	    '(lambda ()
 	       (define-key yaml-mode-map "\C-m" 'newline-and-indent))))
 
 ;;; Platform:
 (cond
  ((string-equal system-type
 		"darwin")
   (setq inferior-lisp-program "/usr/local/bin/sbcl")
   (setq initial-frame-alist
 	'((width . 145) (height . 50))))
  ((string-equal system-type
 		"gnu/linux")
   (setq initial-frame-alist '((width . 91) (height . 24)))
   (setq inferior-lisp-program "/usr/bin/clisp"))
  ((string-equal system-type
 		"windows-nt")
   (setq initial-frame-alist '((width . 120) (height . 45)))))