106 lines
4.0 KiB
EmacsLisp
106 lines
4.0 KiB
EmacsLisp
;;; module-lisp --- all things lisp
|
|
|
|
(add-hook! emacs-lisp-mode '(turn-on-eldoc-mode flycheck-mode))
|
|
|
|
;; Pop-up REPL
|
|
(defun narf-inf-ielm ()
|
|
(ielm)
|
|
(let ((buf (current-buffer)))
|
|
(bury-buffer)
|
|
(pop-to-buffer buf)))
|
|
(define-repl! emacs-lisp-mode narf-inf-ielm)
|
|
|
|
;; [pedantry intensifies]
|
|
(defadvice emacs-lisp-mode (after emacs-lisp-mode-rename-modeline activate)
|
|
(setq mode-name "Elisp"))
|
|
|
|
(defun narf-elisp-auto-compile ()
|
|
(when (narf/is-recompilable-p)
|
|
(narf:compile-el)))
|
|
|
|
(add-hook! emacs-lisp-mode
|
|
(add-hook 'before-save-hook 'delete-trailing-whitespace nil t)
|
|
(add-hook 'after-save-hook 'narf-elisp-auto-compile nil t)
|
|
|
|
(let ((header-face 'font-lock-constant-face))
|
|
(add-to-list 'imenu-generic-expression
|
|
`("Evil Command" "\\(^\\s-*(evil-define-command +\\)\\(\\_<.+\\_>\\)" 2))
|
|
(add-to-list 'imenu-generic-expression
|
|
`("Evil Operator" "\\(^\\s-*(evil-define-operator +\\)\\(\\_<.+\\_>\\)" 2))
|
|
(add-to-list 'imenu-generic-expression
|
|
`("Package" "\\(^\\s-*(use-package +\\)\\(\\_<.+\\_>\\)" 2))
|
|
(add-to-list 'imenu-generic-expression
|
|
`("Spaceline Segment" "\\(^\\s-*(spaceline-define-segment +\\)\\(\\_<.+\\_>\\)" 2))))
|
|
|
|
;; Add new colors to helm-imenu
|
|
(after! helm-imenu
|
|
(defun helm-imenu-transformer (candidates)
|
|
(cl-loop for (k . v) in candidates
|
|
for types = (or (helm-imenu--get-prop k)
|
|
(list "Function" k))
|
|
for bufname = (buffer-name (marker-buffer v))
|
|
for disp1 = (mapconcat
|
|
(lambda (x)
|
|
(propertize
|
|
x 'face (cond ((string= x "Variables")
|
|
'font-lock-variable-name-face)
|
|
((or (string= x "Function")
|
|
(string-prefix-p "Evil " x t))
|
|
'font-lock-function-name-face)
|
|
((string= x "Types")
|
|
'font-lock-type-face)
|
|
((string= x "Package")
|
|
'font-lock-negation-char-face)
|
|
((string= x "Spaceline Segment")
|
|
'font-lock-string-face))))
|
|
types helm-imenu-delimiter)
|
|
for disp = (propertize disp1 'help-echo bufname)
|
|
collect
|
|
(cons disp (cons k v)))))
|
|
|
|
(font-lock-add-keywords
|
|
'emacs-lisp-mode
|
|
`(("(\\(lambda\\)"
|
|
(1 (narf/show-as ?λ)))
|
|
;; Highlight narf macros (macros are fontified in emacs 25+)
|
|
(,(concat
|
|
"(\\("
|
|
(regexp-opt '("λ" "in" "map" "after" "exmap" "shut-up"
|
|
"add-hook" "associate" "open-with" "define-repl"
|
|
"define-builder" "narf-space-setup" "define-env-command"
|
|
"define-text-object" "add-yas-minor-mode" "define-docset"
|
|
"define-org-link!" "define-company-backend" "define-org-section"))
|
|
"!\\)")
|
|
(1 font-lock-keyword-face append))
|
|
;; Ert
|
|
(,(concat
|
|
"("
|
|
(regexp-opt '("ert-deftest") t)
|
|
" \\([^ ]+\\)")
|
|
(1 font-lock-keyword-face)
|
|
(2 font-lock-function-name-face))))
|
|
|
|
;; Real go-to-definition for elisp
|
|
(map! :map emacs-lisp-mode-map
|
|
:m "gd" 'narf/elisp-find-function-at-pt
|
|
:m "gD" 'narf/elisp-find-function-at-pt-other-window)
|
|
|
|
(define-minor-mode emacs-ert-mode
|
|
"Ert test file minor mode"
|
|
:lighter " Ert" :keymap (make-sparse-keymap)
|
|
(add-yas-minor-mode! 'emacs-ert-mode))
|
|
(associate! emacs-ert-mode :match "/test/.+-test\\.el$")
|
|
|
|
(map! :map emacs-lisp-mode-map
|
|
(:localleader
|
|
:n "tr" 'narf/ert-rerun-test
|
|
:n "ta" 'narf/ert-run-all-tests
|
|
:n "ts" 'narf/ert-run-test))
|
|
|
|
(use-package slime :defer t
|
|
:config
|
|
(setq inferior-lisp-program "clisp"))
|
|
|
|
(provide 'module-lisp)
|
|
;;; module-elisp.el ends here
|