init.el

;; This file is not part of gnu emacs

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.

;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;; 1.Emacs configuration for TeXing and c/c++ programming
;; 2.Speed up startup time by making defuns and hooks
;; 3.The configuration contains some specifical settins for Lenovo X200
;; 4.Introduce the newly pacage manager _el-get_ to manage various third party
;; packages

;; [done]1.Configure cedet and auto-complete
;; [next]2.Get to know more about elisp programming
;; [done]3.Make it portable between computers
;; [todo]4.keep simplifying this configuration file
;; [done]5.Make configuration of cedet really useful for programming
;; [done]6.Use gtags from el-get
;; [done]7.Consider using builtin cedet or replace it completely
;; [todo]8.Reorganize this file into org file using babel to generate it
;; [done]9.conform to lisp coding style
;; [todo]10. Configure org mode of babel programming and Chinese exporting
;; [todo]11. Add nodejs support

;; ########## local lisp ##########
;; (add-to-list 'load-path "~/.emacs.d/site-lisp")
;; ########## end ##########

;; ########## localization ##########
;; needs further checking and practicing, read more on x resource and fonts
(defun my-set-frame-parameters ()
  ;; set default font
  (set-fontset-font t nil
		    (font-spec :name "Inconsolata" :size 18))
  ;; set Chinese font
  (dolist (charset '(kana han symbol cjk-misc bopomofo))
    (set-fontset-font t charset
		      (font-spec :name "WenQuanYi Micro Hei Mono")))
  ;; set frame layout
  (modify-all-frames-parameters '((width . 80)
				  (height . 25)
				  (vertical-scroll-bars . nil)
				  (menu-bar-lines . 0)
				  (tool-bar-lines . 0)
				  (left-fringe . 0)
				  (right-fringe . 0))))
(if (and (fboundp 'daemonp) (daemonp))
    (add-hook 'after-make-frame-functions
              (lambda (frame)
                (with-selected-frame frame
                  (my-set-frame-parameters))))
  (my-set-frame-parameters))

;; encodings and locales
(defun my-coding-system-init()
  (prefer-coding-system 'chinese-gbk)
  (prefer-coding-system 'utf-8)
  (set-keyboard-coding-system 'utf-8)
  (set-clipboard-coding-system 'utf-8)
  (set-terminal-coding-system 'utf-8)
  (set-file-name-coding-system 'utf-8)
  (set-buffer-file-coding-system 'utf-8 'utf-8)
  '(set-buffer-process-coding-system 'utf-8 'utf-8)
  (modify-coding-system-alist 'process "*" 'utf-8)
  (setq default-process-coding-system '(utf-8 . utf-8)))
(my-coding-system-init)
;; ########## end ##########

;; ########## custom ##########
(setq custom-file "~/.emacs.d/site-start.d/my-custom.el")
(load custom-file)
;; ########## end ##########

;; ########## misc settings ##########
(defun my-misc-custom-init()
  ;; echo keystrokes
  (setq echo-keystrokes 0.1)
  ;; Easily navigate sillycased words
  (global-subword-mode 1)
  ;; high light current line
  (global-hl-line-mode 0)
  ;; emacs shell color encoding
  (ansi-color-for-comint-mode-on)
  ;; set inferior shell prompt read-only
  (setq comint-prompt-read-only t)
  (auto-image-file-mode t)
  (if (boundp 'tabbar-mode)
      (tabbar-mode -1)
    )
  ;; ido-mode
  (ido-mode t)
  (setq ido-enable-prefix nil
	ido-enable-flex-matching t
	ido-create-new-buffer 'always
	ido-use-filename-at-point 'guess
	ido-max-prospects 10)
  ;; icomplete
  (icomplete-mode t)
  (fset 'yes-or-no-p 'y-or-n-p)
  (setq use-dialog-box nil)
  ;; set my email address
  (setq user-mail-address "vmlinz@gmail.com")
  (setq user-full-name "Nick Qi")

  ;; ########## editing ##########
  (setq x-select-enable-clipboard t)
  (add-hook 'before-save-hook 'time-stamp)
  ;; delete trailing whitespaces before save
  (require 'whitespace)
  (eval-after-load 'whitespace
    '(progn
       (setq whitespace-style (remove `indentation whitespace-style))))
  (add-hook 'before-save-hook 'whitespace-cleanup)
  ;; check last line to be a newline
  (setq require-final-newline t)
  ;; set insert parenthese without space
  (setq parens-require-spaces nil)
  ;; set kill-ring-max to 512
  (setq kill-ring-max 512)
  ;; enter view-mode when buffer is read-only
  (setq view-read-only t)
  ;; set comment style to multi-line
  (setq comment-style 'multi-line)
  ;; inhibit startup echo area message
  (setq inhibit-startup-echo-area-message 1)
  ;; ########## end ##########

  ;; ########## fullscreen ##########
  ;; fullscreen
  (defun my-fullscreen (&optional f)
    (interactive)
    (set-frame-parameter f 'fullscreen
			 (if (frame-parameter f 'fullscreen) nil 'fullboth)))

  (global-set-key [f11] 'my-fullscreen)
  ;; ########## end ##########

  ;; ########## current position  ##########
  ;; Get current line number and column number
  (defun my-current-line-and-column ()
    "Get current line number and column number."
    (interactive)
    (message "Line %d, Column %d" (line-number-at-pos) (current-column))
    )

  (global-set-key "\C-x?" 'my-current-line-and-column)
  ;; ########## end ##########

  ;; ########## menu-bar ##########
  ;; turn off menu-bar when in terminal
  (unless (window-system)
    (menu-bar-mode -1)
    )
  ;; ########## end ##########

  ;; ########## switches ##########
  ;; various toggles for the disabled commands
  (put 'upcase-region 'disabled nil)
  (put 'downcase-region 'disabled nil)
  (put 'narrow-to-region 'disabled nil)
  ;; ########## end ##########

  ;; ########## browse url ##########
  (setq browse-url-browser-function 'browse-url-generic
	browse-url-generic-program "google-chrome")
  ;; ########## end ##########

  ;; ########## emacs title ##########
  (setq frame-title-format '("" "%b - Emacs " emacs-version))
  ;; ########## end ##########

  ;; ########## prefer newer init file ##########
  ;; ########## end ##########
  (setq load-prefer-newer t)
  (setq warning-suppress-types ()))
(my-misc-custom-init)
;; ########## end ##########

;; ########## emacs server ##########
;; only start emacs server when it's not started, I hate warnings.
(defun my-server-init()
  (setq server-socket-file
	(concat "/tmp/emacs"
		(int-to-string (user-uid)) "/server"))

  (unless (file-exists-p server-socket-file)
    (server-start))

  (defun my-server-force-start ()
    "delete current server socket and restart the server"
    (interactive)
    (progn
      '((server-force-delete)
	(server-start))))

  (defun my-server-kill-client ()
    "consistent exit emacsclient"
    (interactive)
    (if server-buffer-clients
	(server-edit)
      (delete-frame)))

  (global-set-key (kbd "C-c C-q") 'my-server-kill-client))
(my-server-init)
;; ########## end ##########

;; ########## expand function ##########
(defun my-hippie-expand-init()
  (setq hippie-expand-try-functions-list
	'(
	  try-expand-dabbrev
	  try-expand-dabbrev-visible
	  try-expand-dabbrev-all-buffers
	  try-expand-dabbrev-from-kill
	  try-expand-line
	  try-expand-line-all-buffers
	  try-expand-list
	  try-expand-list-all-buffers
	  try-complete-file-name
	  try-complete-file-name-partially
	  try-complete-lisp-symbol
	  try-complete-lisp-symbol-partially
	  try-expand-whole-kill))
  (global-set-key (kbd "M-;") 'hippie-expand))
(my-hippie-expand-init)
;;########## end ##########

;;########## key bindings ##########
;; some keybindings here are specifical to Lenovo Thinkpad
(defun my-key-init()
  ;; buffer switching keys
  (global-set-key (kbd "C-<") 'previous-buffer)
  (global-set-key [(XF86Back)] 'previous-buffer)
  (global-set-key (kbd "C->") 'next-buffer)
  (global-set-key [(XF86Forward)] 'next-buffer)
  ;; comment-dwim
  (global-set-key "\C-c\C-c" 'comment-dwim)
  (global-set-key "\C-x\C-b" 'ibuffer)
  ;; set mark
  (global-set-key "\M-m" 'set-mark-command)
  (global-set-key "\C-c\M-m" 'pop-to-mark-command)
  ;; woman
  (global-set-key "\C-hj" 'woman)
  ;; kill
  (global-set-key "\C-xk" 'kill-this-buffer)
  (global-set-key "\C-ck" 'browse-kill-ring)
  ;; recentf
  (global-set-key "\C-cf" 'recentf-open-files)
  ;; backward char delete
  (global-set-key (kbd "C-;") 'backward-delete-char)
  ;; backward word delete
  (global-set-key (kbd "C-M-;") 'backward-kill-word)
  )
(my-key-init)
;; ########## end ##########

;; ########## backup ##########
(defun my-backup-init()
  (setq backup-directory-alist '(("" . "~/.emacs.d/backup")))
  (setq make-backup-files t)
  (setq kept-old-versions 2)
  (setq kept-new-versions 10)
  (setq delete-old-versions t)
  (setq backup-by-copying t)
  (setq version-control t))
(my-backup-init)
;; ########## end ##########

;; ########## gtags ##########
;; it works for me
(defun my-tags-generate-files ()
  "Generate ctags reference file for emacs."
  (interactive)
  (cd
   (read-from-minibuffer
    "directory: "
    default-directory))
  (shell-command "ctags -e -R"))
(global-set-key "\C-c\C-t" 'my-tags-generate-files)
;; ########## end ##########

;; ########## org ##########
;; GTD
(defun my-gtd ()
  (interactive)
  (find-file "~/Documents/notes/dailylife.org"))

(defun my-org-mode-init()
  (setq org-directory "~/Documents/notes")
  (setq org-default-notes-file (concat org-directory "/notes.org"))
  (setq org-log-done 'note)

  ;; custom capture-templates
  (setq org-capture-templates
	'(
	  ("d" "Daily Notes" entry
	   (file+datetree (concat org-directory "/dailylife.org"))
	   "* TODO %^{Description} %^g\n%?")
	  ("s" "Study Journal" entry
	   (file+datetree (concat org-directory "/study.org"))
	   "* TODO %^{Description} %^g\n%?")
	  ("w" "Work Journal" entry
	   (file+datetree (concat org-directory "/work.org"))
	   "* TODO %^{Description} %^g\n%?")
	  ("l" "Time Log" entry
	   (file+datetree (concat org-directory "/timelog.org"))
	   "* %U - %^{Activity} :TIME:")
	  ("n" "Ramdom Notes" entry
	   (file+datetree (concat org-directory "/notes.org"))
	   "* %^{Description} %^g\n  %i\n  %?%U")
	  ("x" "Clipboard Notes" entry
	   (file+datetree (concat org-directory "/notes.org"))
	   "* %^{Description} %^g\n  %x\n  %?%U")))

  ;;custom commands for the use of GTD.
  (setq org-agenda-custom-commands
	'(
	  ("w" todo "WAITING" nil)
	  ("n" todo "NEXT" nil)
	  ("d" "Agenda + Next Actions" ((agenda) (todo "NEXT")))))

  (global-set-key "\C-cr" 'org-capture)
  (global-set-key "\C-cc" 'calendar)
  (global-set-key "\C-ca" 'org-agenda))
(my-org-mode-init)
;; ########## end ##########

;; ########## woman ##########
;; settings for woman
(add-hook 'after-init-hook
	  '(lambda()
	     (setq woman-use-own-frame nil)
	     (setq woman-fill-column 80)))
;; ########## end ##########

;; ########## emms ##########
;; now just ignore it, for programming and daily use come first
;; ########## end ##########

;; ########## cedet ##########
(add-to-list 'load-path "~/.emacs.d/site-start.d")
(require 'my-cedet-init)
(my-cedet-setup)
;; ########## end ##########

;; ########## cc-mode ##########
;; c mode common hook
(defun my-compile-init ()
  "compile mode init function"
  (add-hook 'compilation-finish-functions
	    '(lambda (buf str)
	       (if (string-match "exited abnormally" str)
		   (next-error)
		 ;;no errors, make the compilation window go away in a few seconds
		 (run-at-time "2 sec" nil 'delete-windows-on
			      (get-buffer-create "*compilation*"))
		 (message "No Compilation Errors!"))))
  (setq compilation-window-height 16)
  (setq compilation-scroll-output t))

(defun my-gud-init ()
  "gud mode init function"
  (add-hook 'gud-mode-hook
	    '(lambda()
	       (setq gdb-show-main t)
	       (setq gdb-many-windows -1)
	       (define-key gud-mode-map [(f8)] 'gdb-many-windows))))

(defun my-c-mode-key-init ()
  "c mode key bindings"
  (local-set-key "\C-c\C-c" 'comment-dwim)
  (define-key c-mode-base-map [(return)] 'newline-and-indent)
  (define-key c-mode-base-map [(f7)] 'compile)
  (define-key c-mode-base-map [(f8)] 'gdb)
  (define-key c-mode-base-map [(meta \')] 'c-indent-command))

(defun c-lineup-arglist-tabs-only (ignored)
  "Line up argument lists by tabs, not spaces"
  (let* ((anchor (c-langelem-pos c-syntactic-element))
	 (column (c-langelem-2nd-pos c-syntactic-element))
	 (offset (- (1+ column) anchor))
	 (steps (floor offset c-basic-offset)))
    (* (max steps 1)
       c-basic-offset)))

(defun my-c-linux-style-init ()
  "add linux c style"
  (c-add-style
   "linux-tabs-only"
   '("linux"
     (c-offsets-alist
      (arglist-cont-nonempty
       c-lineup-gcc-asm-reg
       c-lineup-arglist-tabs-only)))))

(defun my-c-mode-init ()
  (setq c-macro-shrink-window-flag t)
  (setq c-macro-preprocessor "cpp")
  (setq c-macro-cppflags " ")
  (setq c-macro-prompt-flag t)

  (c-set-style "linux-tabs-only")

  (setq indent-tabs-mode t)

  (auto-fill-mode 1)
  (hs-minor-mode 1))

(defun my-cc-mode-init()
  (add-hook 'c-mode-common-hook 'my-compile-init)
  (add-hook 'c-mode-common-hook 'my-gud-init)
  (add-hook 'c-mode-common-hook 'my-c-mode-key-init)
  (add-hook 'c-mode-common-hook 'my-c-linux-style-init)

  (add-hook 'c-mode-hook 'my-c-mode-init)
  (add-hook 'c++-mode-hook
	    '(lambda ()
	       (c-set-style "stroustrup")

	       (setq indent-tabs-mode nil)
	       (setq tab-width 4)
	       (setq c-basic-offset 4)))
  (add-hook 'java-mode-hook
	    '(lambda ()
	       (c-set-offset 'arglist-cont-nonempty '+)
	       (c-set-offset 'topmost-intro-cont 0)

	       (setq indent-tabs-mode nil)
	       (setq tab-width 4)
	       (setq c-basic-offset 4)))

  (add-to-list 'auto-mode-alist '("\\.aidl\\'" . java-mode)))

(my-cc-mode-init)
;; ########## end ##########

;; ########## auctex ##########
;; feature rich package for TeXing
(defun my-auctex-init()
  (add-hook 'LaTeX-mode-hook
	    '(lambda()
	       (add-to-list 'TeX-command-list
			    '("XeLaTeX" "%`xelatex%(mode)%' %t" TeX-run-TeX nil t))
	       (setq TeX-command-default "XeLaTeX")
	       (setq TeX-save-query nil)
	       (setq TeX-show-compilation t)
	       (setq Tex-master nil)))

  (eval-after-load "tex"
    '(progn
       (TeX-global-PDF-mode t)
       (setq TeX-output-view-style
	     (cons '("^pdf$" "." "acroread %o") TeX-output-view-style))))

  (add-hook 'TeX-mode-hook
	    '(lambda ()
	       (turn-on-reftex)
	       (auto-fill-mode)
	       (outline-minor-mode)
	       (flyspell-mode)))

  (add-hook 'LaTeX-mode-hook
	    '(lambda ()
	       (autoload 'reftex-mode "reftex" "RefTeX Minor Mode" t)
	       (autoload 'turn-on-reftex "reftex" "RefTeX Minor Mode" nil)
	       (autoload 'reftex-citation "reftex-cite" "Make citation" nil)
	       (autoload 'reftex-index-phrase-mode "reftex-index" "Phrase mode" t)
	       (LaTeX-math-mode)
	       (turn-on-reftex)
	       (auto-fill-mode)
	       (outline-minor-mode)
	       (flyspell-mode))))
(my-auctex-init)
;; ########## end ##########

;; ########## erc ##########
;; erc auto join channels
(add-hook 'erc-mode-hook
	  '(lambda()
	     (require 'erc-join)
	     (erc-autojoin-mode 1)
	     (setq erc-autojoin-channels-alist
		   '(("freenode.net"
		      "#emacs"
		      "#ubuntu"
		      "#ubuntu-cn"
		      "#kernel")))))
;; ########## end ##########

;; ########## sh mode ##########
;; .zsh files to sh auto-mode-alist
(defun my-sh-mode-init()
  (autoload 'sh-mode "sh-script"
    "Major mode for editing shell files" t)
  (setq auto-mode-alist
	(cons '("\\.zsh\\'" . sh-mode) auto-mode-alist)))
(my-sh-mode-init)
;; ########## end ##########

;; ########## lisp settings ##########
;; byte compile emacs init file and load it
(global-set-key [f12]
		'(lambda()
		   (interactive)
		   (byte-compile-file "~/.emacs.d/init.el" t)
		   (byte-recompile-directory "~/.emacs.d/site-start.d/" 0)))
;; ########## end ##########

;; ########## paredit mode ##########
(defun my-paredit-init()
  (autoload 'paredit-mode "paredit"
    "Minor mode for pseudo-structurally editing Lisp code." t)
  (add-hook 'emacs-lisp-mode-hook       (lambda () (paredit-mode +1)))
  (add-hook 'lisp-mode-hook             (lambda () (paredit-mode +1)))
  (add-hook 'lisp-interaction-mode-hook (lambda () (paredit-mode +1)))
  (add-hook 'scheme-mode-hook           (lambda () (paredit-mode +1)))
  (add-hook 'clojure-mode-hook          (lambda () (paredit-mode +1)))
  (eval-after-load 'paredit
    '(progn
       ;; These are handy everywhere, not just in lisp modes
       (global-set-key (kbd "M-(") 'paredit-wrap-round)
       (global-set-key (kbd "M-[") 'paredit-wrap-square)
       (global-set-key (kbd "M-{") 'paredit-wrap-curly)

       (global-set-key (kbd "M-)") 'paredit-close-round-and-newline)
       (global-set-key (kbd "M-]") 'paredit-close-square-and-newline)
       (global-set-key (kbd "M-}") 'paredit-close-curly-and-newline)

       (dolist (binding (list (kbd "C-<left>") (kbd "C-<right>")
			      (kbd "C-M-<left>") (kbd "C-M-<right>")))
	 (define-key paredit-mode-map binding nil))

       ;; Disable kill-sentence, which is easily confused with the kill-sexp
       ;; binding, but doesn't preserve sexp structure
       (define-key paredit-mode-map [remap kill-sentence] nil)
       (define-key paredit-mode-map [remap backward-kill-sentence] nil)))
  )
;; ########## end ##########

;; ########## yasnippet ##########
;; yasnippet is now managed by _el-get_
(defun my-yasnippet-init()
  "simple yasnippet mode init function"
  ;; set yasnippet default dirs
  (setq yas-snippet-dirs (list
			  (concat (file-name-as-directory el-get-dir)
				  (file-name-as-directory "yasnippet")
				  "snippets")
			  (concat (file-name-as-directory el-get-dir)
				  (file-name-as-directory "yasnippet")
				  (file-name-as-directory "extras")
				  "imported")
			  (concat (file-name-as-directory el-get-dir)
				  "yasnippet-extras")))
  (setq yas-use-menu 'abbreviate)
  (setq yas-prompt-functions
	(cons 'yas-ido-prompt
	      (remove 'yas-ido-prompt
		      yas-prompt-functions)))
  (setq yas-verbosity 0)
  (yas-global-mode t))
;; ########## end ##########

;; ########## auto-complete ##########
;; this package is good to use and easy to config
(defun my-ac-source-semantic-setup ()
  "semantic source configuration for auto-complete"
  (setq ac-sources
	(append '(ac-source-semantic ac-source-semantic-raw) ac-sources))
  (define-key ac-mode-map "\M-/" 'ac-complete-semantic-raw))

(defun my-ac-source-yasnippet-setup ()
  (setq ac-sources (append '(ac-source-yasnippet) ac-sources)))

(defun my-ac-source-gtags-setup ()
  (add-to-list 'ac-sources 'ac-source-gtags))

(defun my-ac-source-config ()
  (add-hook 'c-mode-common-hook 'my-ac-source-gtags-setup)
  (add-hook 'prog-mode-hook 'my-ac-source-yasnippet-setup))

(defun my-auto-complete-init()
  "auto-complete init function"
  (require 'auto-complete-config)
  (ac-config-default)

  (my-ac-source-config)

  (setq ac-dwim t)
  ;; (setq ac-auto-start nil)
  (ac-set-trigger-key "TAB")
  (setq ac-delay 0.1)
  (setq ac-use-quick-help nil)
  (setq ac-auto-show-menu t)
  (setq ac-menu-height 5)
  (setq ac-show-menu-immediately-on-auto-complete t)
  (setq ac-use-menu-map t)

  (define-key ac-menu-map "\C-n" 'ac-next)
  (define-key ac-menu-map "\M-n" 'ac-next)
  (define-key ac-menu-map "\C-p" 'ac-previous)
  (define-key ac-menu-map "\M-p" 'ac-previous)
  (define-key ac-menu-map "\C-f" 'ac-stop)
  (define-key ac-menu-map "\M-f" 'ac-stop)
  (define-key ac-menu-map "\C-j" 'ac-complete))
;; ########## end ##########

;; ########## git ##########
;; configure magit package for git support
(defun my-git-init()
  "magit init function for el-get"
  (autoload 'magit-status "magit" nil t)
  (global-set-key (kbd "C-x C-z") 'magit-status)
  (eval-after-load 'magit
    '(progn
       (set-face-foreground 'magit-diff-add "green3")
       (set-face-foreground 'magit-diff-del "red3"))))
;; ########## end #########

;; ########## python mode ##########
;; python mode customizations
(defun my-py-init()
  (add-hook 'python-mode-hook
	    '(lambda ()
	       (setq indent-tabs-mode nil)
	       (setq python-indent 4)
	       (setq python-python-command "python3"))))
(my-py-init)
;; ########## end ##########

;; ########## sgml and html mode ##########
(defun my-emmet-mode-init()
  (add-hook 'sgml-mode-hook 'emmet-mode)
  (add-hook 'css-mode-hook 'emmet-mode))
;; ########## end ##########

;; ########## evil mode ##########
(defun my-evil-init()
  "evil mode init function for el-get"
  (evil-mode)
  (autoload 'evil-local-mode "evil" nil t)
  (global-set-key "\C-c\C-v" 'evil-local-mode))
;; ########## end ##########

;; ########## nxhtml mode ##########
(defun my-nxhtml-init()
  "nxhtml init function for el-get"
  (eval-after-load "mumamo"
    '(setq mumamo-per-buffer-local-vars
	   (delq 'buffer-file-name mumamo-per-buffer-local-vars)))
  (autoload 'nxhtml-mode "autostart" nil t))
;; ########## end ##########

;; ########## markdown ##########
;; markdown-mode for translating Pro Git
(defun my-markdown-mode-init()
  (autoload 'markdown-mode "markdown-mode"
    "Major mode for editing Markdown files" t))
;; ########## end ##########

;; ########## global ##########
;; local global mode
(defun my-gtags-init()
  "GNU Gloabal init function for el-get"
  (define-key gtags-mode-map "\M-." 'gtags-find-tag)
  (define-key gtags-mode-map "\M-," 'gtags-find-rtag)
  (define-key gtags-mode-map "\M-*" 'gtags-pop-stack)

  (add-hook 'gtags-select-mode-hook
	    '(lambda ()
	       (setq hl-line-face 'underline)
	       (hl-line-mode 1)))

  (add-hook 'c-mode-common-hook
	    '(lambda ()
	       (gtags-mode 1))))
;; ########## end ##########

;; ########## package ##########
(defun my-package-init ()
  (add-to-list 'package-archives
	       '("melpa" . "http://melpa.milkbox.net/packages/") t)
  (package-initialize))
;; ########## end ##########

;; ########## multiple-cursors ##########
(defun my-multiple-cursors-init ()
  (global-set-key (kbd "C-M-{") 'mc/edit-lines)
  (global-set-key (kbd "M-n") 'mc/mark-next-like-this)
  (global-set-key (kbd "M-p") 'mc/mark-previous-like-this)
  (global-set-key (kbd "C-M-}") 'mc/mark-all-like-this))
;; ########## end ##########

;; ########## expand region ##########
(defun my-expand-region-init ()
  (global-set-key (kbd "C-'") 'er/expand-region))
;; ########## end ##########

;; ########## end ##########

;; ########## undo-tree ##########
(defun my-undo-tree-init ()
  (global-undo-tree-mode 1))
;; ########## end ##########

;; ########## geiser ##########
(defun my-geiser-init ()
  (setq geiser-impl-installed-implementations '(guile racket))
  (setq geiser-scheme-implementation 'guile)
  (add-hook 'geiser-repl-mode-hook (lambda () (paredit-mode +1))))
;; ########## end ##########

;; ########## rainbow delimiters ##########
(defun my-rainbow-delimiters-init ()
  (autoload 'rainbow-delimiters-mode "rainbow-delimiters"
    "rainbow delimiters" nil t)
  (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))
;; ########## end ##########

;; ########## diminish ##########
(defun my-diminish-init ()
  (eval-after-load "abbrev"
    '(diminish 'abbrev-mode ""))
  (eval-after-load "projectile"
    '(diminish 'projectile-mode ""))
  (eval-after-load "undo-tree"
    '(diminish 'undo-tree-mode ""))
  (eval-after-load "yasnippet"
    '(diminish 'yas-minor-mode ""))
  (eval-after-load "paredit"
    '(diminish 'paredit-mode "")))
;; ########## end ##########

;; ########## ac-cider ##########
(defun my-ac-cider-init ()
  (setq cider-popup-stacktraces nil)
  (add-hook 'cider-mode-hook 'ac-cider-setup)
  (add-hook 'cider-mode-hook 'ac-flyspell-workaround)
  (add-hook 'cider-mode-hook 'subword-mode)
  (add-hook 'cider-mode-hook 'paredit-mode)
  (add-hook 'cider-interaction-mode-hook 'ac-cider-setup)
  (add-hook 'cider-interaction-mode-hook 'cider-turn-on-eldoc-mode)
  (eval-after-load "auto-complete"
    '(add-to-list 'ac-modes 'cider-mode))
  (eval-after-load 'cider
    '(define-key cider-interaction-mode-map (kbd "C-c C-d")
       'ac-cider-popup-doc)))
;; ########## end ##########

;; ########## clojure ##########
(defun my-clojure-mode-init ()
  (add-hook 'clojure-mode-hook 'subword-mode)
  (setq auto-mode-alist
	(cons '("\\.cljs\\'" . clojure-mode) auto-mode-alist)))
;; ########## end ##########

;; ########## ruby mode ##########
(defun my-ruby-init ()
  (add-to-list 'auto-mode-alist '("Capfile" . ruby-mode))
  (add-to-list 'auto-mode-alist '("Gemfile" . ruby-mode))
  (add-to-list 'auto-mode-alist '("Rakefile" . ruby-mode))
  (add-to-list 'auto-mode-alist '("Guardfile" . ruby-mode))
  (add-to-list 'auto-mode-alist '("\\.rake\\'" . ruby-mode))
  (add-to-list 'auto-mode-alist '("\\.rb\\'" . ruby-mode))
  (add-to-list 'auto-mode-alist '("\\.ru\\'" . ruby-mode)))
(my-ruby-init)
;; ########## end ##########

;; ########## helm ##########
(defun my-helm-gtags-init ()
  ;; Enable helm-gtags-mode
  (add-hook 'c-mode-hook 'helm-gtags-mode)
  (add-hook 'c++-mode-hook 'helm-gtags-mode)
  (add-hook 'asm-mode-hook 'helm-gtags-mode)
  ;; customize
  (setq helm-gtags-path-style 'relative)
  (setq helm-gtags-ignore-case t)
  (setq helm-gtags-read-only t)
  ;; key bindings
  (add-hook 'helm-gtags-mode-hook
	    '(lambda ()
	       (local-set-key (kbd "M-t") 'helm-gtags-find-tag)
	       (local-set-key (kbd "M-r") 'helm-gtags-find-rtag)
	       (local-set-key (kbd "M-s") 'helm-gtags-find-symbol)
	       (local-set-key (kbd "C-t") 'helm-gtags-pop-stack))))
;; ########## end ##########

;; ########## tagedit ##########
(defun my-tagedit-init ()
  (eval-after-load "sgml-mode"
    '(progn
       (require 'tagedit)
       (tagedit-add-paredit-like-keybindings)
       (add-hook 'html-mode-hook (lambda () (tagedit-mode 1))))))
;; ########## end ##########

;; ########## js2-mode ##########
(defun my-js2-mode-init ()
  (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode)))
;; ########## end ##########

;; ########## theme ##########
(defun my-theme-init ()
  (load-theme 'zenburn t))
;; ########## end ##########

;; ########## el-get ##########
;; the great package management tool el-get
(defun my-el-get-init()
  (add-to-list 'load-path "~/.emacs.d/el-get/el-get")
  (unless (require 'el-get nil t)
    (url-retrieve
     "https://raw.github.com/dimitri/el-get/master/el-get-install.el"
     (lambda (s)
       (let (el-get-master-branch)
	 (goto-char (point-max))
	 (eval-print-last-sexp)))))
  (setq el-get-github-default-url-type 'https)

  (setq el-get-sources
	'((:name magit
		 :after (progn (my-git-init)))
	  (:name package
		 :after (progn (my-package-init)))
	  (:name multiple-cursors
		 :after (progn (my-multiple-cursors-init)))
	  (:name expand-region
		 :after (progn (my-expand-region-init)))
	  (:name rainbow-delimiters
		 :after (progn (my-rainbow-delimiters-init)))
	  (:name diminish
		 :after (progn (my-diminish-init)))
	  (:name powerline
		 :after (progn (powerline-center-evil-theme)))
	  (:name undo-tree
		 :features undo-tree
		 :after (progn (my-undo-tree-init)))
	  (:name evil
		 :after (progn (my-evil-init))
		 :build (("make" "all"))
		 :info nil)
	  (:name gtags
		 :features gtags
		 :after (progn (my-gtags-init)))
	  (:name ggtags
		 :type github
		 :pkgname "leoliu/ggtags")
	  (:name geiser
		 :after (progn (my-geiser-init)))
	  (:name emmet-mode
		 :type github
		 :pkgname "smihica/emmet-mode"
		 :after (progn (my-emmet-mode-init)))
	  (:name nxhtml
		 :after (progn (my-nxhtml-init))
		 :load nil)
	  (:name markdown-mode
		 :after (progn (my-markdown-mode-init)))
	  (:name clojure-mode
		 :after (progn (my-clojure-mode-init)))
	  (:name paredit
		 :after (progn (my-paredit-init)))
	  (:name yasnippet
		 :after (progn (my-yasnippet-init)))
	  (:name yasnippet-extras
		 :type github
		 :pkgname "vmlinz/yasnippet-extras"
		 :depends (yasnippet))
	  (:name auto-complete
		 :features auto-complete
		 :after (progn (my-auto-complete-init)))
	  (:name zenburn-emacs
		 :type github
		 :pkgname "bbatsov/zenburn-emacs"
		 :prepare (progn (add-to-list 'custom-theme-load-path
					      default-directory))
		 :after (progn (my-theme-init)))
	  (:name helm-gtags
		 :features helm-gtags
		 :type github
		 :pkgname "syohex/emacs-helm-gtags"
		 :depends (helm)
		 :after (progn (my-helm-gtags-init)))
	  (:name disaster
		 :type elpa)
	  (:name tagedit
		 :after (progn (my-tagedit-init)))
	  (:name scss-mode
		 :after (progn (setq scss-compile-at-save nil)))
	  (:name js2-mode
		 :after (progn (my-js2-mode-init)))
	  (:name ac-cider-compliment
		 :after (progn (my-ac-cider-init)))
	  (:name projectile
		 :after (progn (projectile-global-mode)))
	  (:name exec-path-from-shell
		 :after (progn (exec-path-from-shell-initialize)))
	  (:name scala-mode2)
	  (:name sbt-mode)
	  (:name ensime)
	  (:name go-mode)
	  (:name go-autocomplete)
	  (:name go-flymake)
	  (:name go-imports)
	  (:name go-lint)
	  (:name go-test)
	  (:name go-oracle)
	  (:name go-projectile)))

  (setq my-packages
	(append
	 '(el-get
	   pos-tip
	   vkill
	   notify
	   helm
	   smartparens)
	 (mapcar 'el-get-source-name el-get-sources)))

  (el-get 'sync my-packages))
(my-el-get-init)
;; ########## end ##########

;;; init.el for emacs ends here