aa26332d00
vcs: + +git-gutter to conf-modes; -git-gutter from evil-insert-state-exit + switch github-browse-file for browse-at-remote + fix <leader>ob; add <leader>d[./sr] vc bindings + vc-annotate bindings and initial state Workgroups2 integration: + don't mess with buffers (speeds up emacs a lot!) + unicode numbers in display + single display function + remember workgroup uid instead (and smarter :tabrename) + clean up after wg update Org-mode + give highlight precedence to links in org-mode + enable encryption + config clean up + use different font for org + exclude attachments in recentf + redo latex and inline-image config + add narf/org-open-notes + update file templates for org CRM Mode-line + polish mode-line + decouple from spaceline-segments.el + refactor narf|spaceline-env-update + add macro-recording and buffer-size indicators to mode-line + python: '2>&1' in env-command + flycheck fringe indicator: change to arrow Aesthetics + update narf-dark-theme + add narf-minibuffer-active face + change writing indicator in writing-mode Misc + fix whitespace in display-startup-echo-area-message + reset fonts for more unicode characters + custom imenu entries + helm-imenu fontification + enable yascroll-bar in REPLs + reorganize my-commands.el + force quit iedit on ESC in normal mode + update snippets submodule + remove ido init (helm handles it all) [EXPERIMENTAL] + back to Terminus(TTF) font + popwin: update config for git-gutter and vc-diff windows + highlight :g[lobal] and :al[ign] matches + decouple narf/get-buffers+narf/get-all-buffers from wg-mess-with-buffer-list + fix narf/helm-buffers-dwim (add interactive form)
65 lines
2.5 KiB
EmacsLisp
65 lines
2.5 KiB
EmacsLisp
;;; module-lisp --- all things lisp
|
|
;; see lib/elisp-defuns.el
|
|
|
|
(define-repl! emacs-lisp-mode ielm)
|
|
(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"))
|
|
|
|
(defun narf-elisp-auto-compile ()
|
|
(when (narf/is-recompilable-p)
|
|
(narf:compile-el)))
|
|
|
|
(add-hook! emacs-lisp-mode 'narf|enable-tab-width-8)
|
|
(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
|
|
`("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)
|
|
((string= x "Function")
|
|
'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\\)" (0 (narf/show-as ?λ)))))
|
|
|
|
;; 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)
|
|
|
|
(use-package slime :defer t
|
|
:config
|
|
(setq inferior-lisp-program "clisp"))
|
|
|
|
(provide 'module-lisp)
|
|
;;; module-elisp.el ends here
|