ryuslash/emacs-config
1
0
Fork 0
Code Activity

Clean up the mode-line for ielm buffers

Browse source
This commit is contained in:
Tom Willemse 2020-09-15 22:50:45 -07:00
parent 924c20ec85
commit aeeeb64bb9
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
oni-elisp/oni-elisp.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2020.0909.085302 ;; Version: 2020.0915.224953
;; Package-Requires: (oni-company oni-flycheck oni-paredit oni-fci oni-yasnippet oni-hydra rainbow-delimiters nameless erefactor flycheck-relint handle elisp-format) ;; Package-Requires: (oni-company oni-flycheck oni-paredit oni-fci oni-yasnippet oni-hydra rainbow-delimiters nameless erefactor flycheck-relint handle elisp-format)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -69,6 +69,20 @@
(setq-local auto-fill-inhibit-regexp (rx line-start ";; Package-Requires: ")) (setq-local auto-fill-inhibit-regexp (rx line-start ";; Package-Requires: "))
(auto-fill-mode)) (auto-fill-mode))
(defun oni-elisp-setup-ielm-mode-line ()
"Clean up the mode-line for ielm buffers."
(setq mode-line-buffer-identification
(list (propertize "Interactive Emacs Lisp Mode" 'face 'mode-line-buffer-id))
mode-line-format
'("%e"
mode-line-front-space
mode-line-remote
mode-line-frame-identification
mode-line-buffer-identification
" on "
(:eval (buffer-name ielm-working-buffer))
mode-line-end-spaces)))
(defhydra oni-elisp-hydra (:color teal :hint nil) (defhydra oni-elisp-hydra (:color teal :hint nil)
" "
^Eval^ ^Eval^
@ -91,6 +105,7 @@ _eb_: Buffer
'display-fill-column-indicator-mode 'display-fill-column-indicator-mode
'fci-mode)) 'fci-mode))
(add-hook 'ielm-mode-hook #'oni-elisp-setup-ielm-mode-line)
(add-hook 'ielm-mode-hook 'company-mode) (add-hook 'ielm-mode-hook 'company-mode)
(add-hook 'ielm-mode-hook 'paredit-mode) (add-hook 'ielm-mode-hook 'paredit-mode)