2015-11-24 16:44:17 +08:00
|
|
|
;;; module-lisp --- all things lisp
|
2015-06-15 15:06:10 +08:00
|
|
|
;; see lib/elisp-defuns.el
|
|
|
|
|
|
2015-12-09 14:54:30 +08:00
|
|
|
(define-repl! emacs-lisp-mode ielm)
|
2015-06-15 15:06:10 +08:00
|
|
|
(add-hook! emacs-lisp-mode 'turn-on-eldoc-mode)
|
|
|
|
|
|
|
|
|
|
;; [pedantry intensifies]
|
|
|
|
|
(defadvice emacs-lisp-mode (after emacs-lisp-mode-rename-modeline activate)
|
|
|
|
|
(setq mode-name "Elisp"))
|
|
|
|
|
|
2015-06-19 22:09:41 +08:00
|
|
|
(defun narf-elisp-auto-compile ()
|
2015-06-24 21:47:25 +08:00
|
|
|
(when (narf/is-recompilable-p)
|
2015-06-19 22:09:41 +08:00
|
|
|
(narf:compile-el)))
|
|
|
|
|
|
2015-11-20 17:00:38 +08:00
|
|
|
(add-hook! emacs-lisp-mode 'narf|enable-tab-width-8)
|
2015-06-19 22:09:41 +08:00
|
|
|
(add-hook! emacs-lisp-mode
|
2015-11-10 04:55:03 +08:00
|
|
|
(add-hook 'before-save-hook 'delete-trailing-whitespace nil t)
|
2015-11-20 17:00:38 +08:00
|
|
|
(add-hook 'after-save-hook 'narf-elisp-auto-compile nil t)
|
|
|
|
|
|
|
|
|
|
(add-to-list 'imenu-generic-expression
|
|
|
|
|
'("Package"
|
2015-12-09 15:03:13 +08:00
|
|
|
"\\(^\\s-*(use-package +\\)\\(\\_<.+\\_>\\)" 2)))
|
2015-11-08 05:57:24 +08:00
|
|
|
|
2015-11-11 07:10:32 +08:00
|
|
|
(font-lock-add-keywords
|
|
|
|
|
'emacs-lisp-mode `(("\\(lambda\\)" (0 (narf/show-as ?λ)))))
|
|
|
|
|
|
2015-06-15 15:06:10 +08:00
|
|
|
;; Real go-to-definition for elisp
|
2015-11-30 18:31:20 +08:00
|
|
|
(map! :map emacs-lisp-mode-map
|
|
|
|
|
:m "gd" 'narf/elisp-find-function-at-pt
|
|
|
|
|
:m "gD" 'narf/elisp-find-function-at-pt-other-window)
|
2015-06-15 15:06:10 +08:00
|
|
|
|
2015-11-24 16:44:17 +08:00
|
|
|
(use-package slime :defer t
|
|
|
|
|
:config
|
|
|
|
|
(setq inferior-lisp-program "clisp"))
|
|
|
|
|
|
|
|
|
|
(provide 'module-lisp)
|
2015-06-15 15:06:10 +08:00
|
|
|
;;; module-elisp.el ends here
|
