2013-10-20 20:05:13 +02:00
|
|
|
(mapc 'require '(projectile ac-nrepl cider project-explorer))
|
2013-07-08 01:15:05 +02:00
|
|
|
;; Initializes modes I use.
|
|
|
|
|
|
|
|
(add-hook 'prog-mode-hook 'esk-add-watchwords)
|
|
|
|
(add-hook 'prog-mode-hook 'idle-highlight-mode)
|
|
|
|
|
|
|
|
;; Configure markdown-mode
|
|
|
|
(autoload 'markdown-mode "markdown-mode"
|
|
|
|
"Major mode for editing Markdown files" t)
|
|
|
|
(add-to-list 'auto-mode-alist '("\\.txt\\'" . markdown-mode))
|
|
|
|
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
|
|
|
|
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
|
|
|
|
|
2013-08-19 00:53:05 +02:00
|
|
|
;; Use auto-complete as completion at point
|
|
|
|
(defun set-auto-complete-as-completion-at-point-function ()
|
|
|
|
(setq completion-at-point-functions '(auto-complete)))
|
2013-10-17 14:17:38 +02:00
|
|
|
|
|
|
|
(add-hook 'auto-complete-mode-hook
|
|
|
|
'set-auto-complete-as-completion-at-point-function)
|
2013-08-19 00:53:05 +02:00
|
|
|
|
|
|
|
|
2013-10-19 20:04:45 +02:00
|
|
|
;; Configure CIDER (Clojure REPL) and clojure-mode
|
2013-07-08 01:15:05 +02:00
|
|
|
|
2013-10-19 20:04:45 +02:00
|
|
|
(defun cider-mode-setup ()
|
2013-09-16 13:58:44 +02:00
|
|
|
"Activates paredit, rainbow delimiters and ac-nrepl"
|
|
|
|
(ac-nrepl-setup)
|
2013-10-22 12:06:55 +02:00
|
|
|
(paredit-mode))
|
2013-08-19 00:53:05 +02:00
|
|
|
|
2013-10-19 20:04:45 +02:00
|
|
|
(add-hook 'cider-repl-mode-hook 'cider-mode-setup)
|
|
|
|
(add-hook 'cider-interaction-mode-hook 'cider-mode-setup)
|
2013-08-28 00:56:20 +02:00
|
|
|
(eval-after-load "auto-complete"
|
2013-10-19 20:04:45 +02:00
|
|
|
'(add-to-list 'ac-modes 'cider-repl-mode))
|
2013-08-28 00:56:20 +02:00
|
|
|
|
2013-08-19 00:53:05 +02:00
|
|
|
;; Paredit in clojure
|
2013-07-08 01:15:05 +02:00
|
|
|
(add-hook 'clojure-mode-hook 'paredit-mode)
|
|
|
|
|
|
|
|
;; eldoc in clojure
|
2013-10-19 20:04:45 +02:00
|
|
|
(add-hook 'cider-interaction-mode-hook
|
|
|
|
'cider-turn-on-eldoc-mode)
|
2013-07-08 01:15:05 +02:00
|
|
|
|
|
|
|
;; Don't annoy me
|
2013-10-19 20:04:45 +02:00
|
|
|
(setq cider-hide-special-buffers t)
|
|
|
|
(setq cider-popup-stacktraces nil)
|
2013-10-19 22:25:00 +02:00
|
|
|
(setq cider-repl-pop-to-buffer-on-connect nil)
|
2013-10-19 20:04:45 +02:00
|
|
|
(setq cider-repl-popup-stacktraces t)
|
2013-07-08 01:15:05 +02:00
|
|
|
|
2013-07-08 01:31:03 +02:00
|
|
|
;; Enable projectile for all things programming
|
|
|
|
(add-hook 'prog-mode-hook 'projectile-on)
|
|
|
|
|
|
|
|
;; Enable rainbow-delimiters for all things programming
|
|
|
|
(add-hook 'prog-mode-hook 'rainbow-delimiters-mode)
|
|
|
|
|
2013-07-29 00:53:08 +02:00
|
|
|
;; Enable Paredit in Emacs Lisp mode
|
|
|
|
(add-hook 'emacs-lisp-mode-hook 'paredit-mode)
|
2013-07-14 18:08:44 +02:00
|
|
|
|
|
|
|
;; Always highlight matching brackets
|
|
|
|
(show-paren-mode 1)
|
|
|
|
|
2013-08-05 16:18:56 +02:00
|
|
|
;; Represent undo-history as an actual tree (visualize with C-x u)
|
|
|
|
(setq undo-tree-mode-lighter "")
|
|
|
|
(require 'undo-tree)
|
|
|
|
(global-undo-tree-mode)
|
2013-07-29 00:53:08 +02:00
|
|
|
|
|
|
|
;; Keep track of recent files
|
|
|
|
(recentf-mode)
|
|
|
|
|
2013-08-05 16:18:56 +02:00
|
|
|
;; Easily navigate sillycased words
|
|
|
|
(global-subword-mode 1)
|
|
|
|
|
|
|
|
;; Transparently open compressed files
|
|
|
|
(auto-compression-mode t)
|
2013-08-07 00:49:20 +02:00
|
|
|
|
|
|
|
(provide 'init-modes)
|