emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

General cleanup (again)

Browse source
This commit is contained in:
Henrik Lissner 2016-03-29 23:13:31 -04:00
parent 53c94b8273
commit f9f0b9a2e4
11 changed files with 84 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

56
modules/module-lisp.el
View file

@ -3,24 +3,15 @@
(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)
(define-repl! emacs-lisp-mode narf/elisp-inf-ielm)
;; [pedantry intensifies]
;; 'Emacs Lisp' is too long [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)
(add-hook 'after-save-hook 'narf/elisp-auto-compile nil t)
(let ((header-face 'font-lock-constant-face))
(add-to-list 'imenu-generic-expression
@ -59,26 +50,27 @@
(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))))
'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