forked from purcell/emacs.d
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathinit-lisp.el
92 lines (70 loc) · 3.37 KB
/
init-lisp.el
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
;; pretty lambda (see also slime) -> "λ"
;; 'greek small letter lambda' / utf8 cebb / unicode 03bb -> \u03BB / mule?!
;; in greek-iso8859-7 -> 107 > 86 ec
(defun pretty-lambdas ()
(font-lock-add-keywords
nil `(("(\\(lambda\\>\\)"
(0 (progn (compose-region (match-beginning 1) (match-end 1)
,(make-char 'greek-iso8859-7 107))
'font-lock-keyword-face))))))
(autoload 'paredit-mode "paredit"
"Minor mode for pseudo-structurally editing Lisp code." t)
(autoload 'enable-paredit-mode "paredit" "Turn on paredit mode" t)
(dolist (hook '(emacs-lisp-mode-hook ielm-mode-hook))
(add-hook hook 'pretty-lambdas)
(add-hook hook 'enable-paredit-mode))
(add-hook 'minibuffer-setup-hook 'conditionally-enable-paredit-mode)
(defun conditionally-enable-paredit-mode ()
"Enable paredit-mode during eval-expression"
(if (eq this-command 'eval-expression)
(paredit-mode 1)))
(defun set-up-hippie-expand-for-elisp ()
(make-variable-buffer-local 'hippie-expand-try-functions-list)
(add-to-list 'hippie-expand-try-functions-list 'try-complete-lisp-symbol t)
(add-to-list 'hippie-expand-try-functions-list 'try-complete-lisp-symbol-partially t))
;; ----------------------------------------------------------------------------
;; Auto-complete tweaks for emacs-lisp mode
;; ----------------------------------------------------------------------------
(defface ac-symbol-menu-face
'((t (:background "lightgray" :foreground "darkgreen")))
"Face for slime candidate menu."
:group 'auto-complete)
(defface ac-symbol-selection-face
'((t (:background "darkgreen" :foreground "white")))
"Face for the slime selected candidate."
:group 'auto-complete)
;; Modify ac-source-symbols to add colours
(eval-after-load "auto-complete"
'(progn
(add-to-list 'ac-source-symbols '(candidate-face . ac-symbol-menu-face))
(add-to-list 'ac-source-symbols '(selection-face . ac-symbol-selection-face))))
(defun set-up-ac-for-elisp ()
(add-to-list 'ac-sources 'ac-source-symbols))
(defun maybe-map-paredit-newline ()
(unless (or (eq major-mode 'inferior-emacs-lisp-mode) (minibufferp))
(local-set-key (kbd "RET") 'paredit-newline)))
(add-hook 'paredit-mode-hook 'maybe-map-paredit-newline)
(dolist (hook '(emacs-lisp-mode-hook ielm-mode-hook))
(add-hook hook 'set-up-hippie-expand-for-elisp)
(add-hook hook 'set-up-ac-for-elisp)
(add-hook hook 'turn-on-eldoc-mode))
(add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode)
(add-to-list 'auto-mode-alist '("\\.emacs-project$" . emacs-lisp-mode))
(defun warn-disabled-command ()
(interactive)
(message "Command disabled")
(ding))
(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)
;; Disable kill-sentence, which is easily confused with the kill-sexp
;; binding, but doesn't preserve sexp structure
(define-key paredit-mode-map (kbd "M-K") 'warn-disabled-command)
(define-key paredit-mode-map (kbd "M-k") 'warn-disabled-command)))
(provide 'init-lisp)