;;; 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)))))