blob: 0fe1d55aa5315b178bb942dbefa99006ed6abc2f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
;; Suppress splash screen
(setq inhibit-startup-message t)
(setq settings-dir
(expand-file-name "settings" user-emacs-directory))
(add-to-list 'load-path settings-dir)
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
(load custom-file)
;; Write backup files to own directory
(setq backup-directory-alist
`(("." . ,(expand-file-name
(concat user-emacs-directory "backups")))))
;; Are we on a mac?
(setq is-mac (equal system-type 'darwin))
(require 'setup-package)
(defun init--install-packages()
(packages-install
'(cider
clojure-mode
clojure-mode-extra-font-locking
clojure-snippets
dash
flycheck
flycheck-clojure
highlight-escape-sequences
ido-vertical-mode
markdown-mode
multiple-cursors
paredit
visual-regexp
yasnippet)))
(condition-case nil
(init--install-packages)
(error
(package-refresh-contents)
(init--install-packages)))
(require 'sane-defaults)
(when is-mac
(require-package 'exec-path-from-shell)
(exec-path-from-shell-initialize))
(require 'setup-ido)
(require 'setup-clojure-mode)
(require 'setup-markdown-mode)
(require 'setup-multiple-cursors)
(require 'visual-regexp)
(define-key global-map (kbd "M-&") 'vr/query-replace)
(define-key global-map (kbd "M-/") 'vr/replace)
;; full power
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
|
