|
|
@ -33,29 +33,24 @@ |
|
|
;;; Code: |
|
|
;;; Code: |
|
|
|
|
|
|
|
|
(require 'prelude-programming) |
|
|
(require 'prelude-programming) |
|
|
(prelude-ensure-module-deps '(paredit rainbow-delimiters)) |
|
|
|
|
|
|
|
|
(prelude-ensure-module-deps '(rainbow-delimiters)) |
|
|
|
|
|
|
|
|
;; Lisp configuration |
|
|
;; Lisp configuration |
|
|
(define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) |
|
|
(define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) |
|
|
|
|
|
|
|
|
;; a great lisp coding hook |
|
|
;; a great lisp coding hook |
|
|
(defun prelude-lisp-coding-defaults () |
|
|
(defun prelude-lisp-coding-defaults () |
|
|
(paredit-mode +1) |
|
|
|
|
|
(rainbow-delimiters-mode +1)) |
|
|
(rainbow-delimiters-mode +1)) |
|
|
|
|
|
|
|
|
(setq prelude-lisp-coding-hook 'prelude-lisp-coding-defaults) |
|
|
(setq prelude-lisp-coding-hook 'prelude-lisp-coding-defaults) |
|
|
|
|
|
|
|
|
;; interactive modes don't need whitespace checks |
|
|
;; interactive modes don't need whitespace checks |
|
|
(defun prelude-interactive-lisp-coding-defaults () |
|
|
(defun prelude-interactive-lisp-coding-defaults () |
|
|
(paredit-mode +1) |
|
|
|
|
|
(rainbow-delimiters-mode +1) |
|
|
(rainbow-delimiters-mode +1) |
|
|
(whitespace-mode -1)) |
|
|
(whitespace-mode -1)) |
|
|
|
|
|
|
|
|
(setq prelude-interactive-lisp-coding-hook 'prelude-interactive-lisp-coding-defaults) |
|
|
(setq prelude-interactive-lisp-coding-hook 'prelude-interactive-lisp-coding-defaults) |
|
|
|
|
|
|
|
|
(eval-after-load "paredit" |
|
|
|
|
|
'(diminish 'paredit-mode " π")) |
|
|
|
|
|
|
|
|
|
|
|
(provide 'prelude-lisp) |
|
|
(provide 'prelude-lisp) |
|
|
|
|
|
|
|
|
;;; prelude-lisp.el ends here |
|
|
;;; prelude-lisp.el ends here |