diff options
| author | Kjetil Orbekk <kj@orbekk.com> | 2024-04-24 20:04:48 -0400 |
|---|---|---|
| committer | Kjetil Orbekk <kj@orbekk.com> | 2024-04-24 20:04:48 -0400 |
| commit | f990892b1c52b4a8f42062f2333e70d2972c7117 (patch) | |
| tree | 0a1f27a3b10e7b3f48d3726a012441b60a7e2c22 | |
| parent | 639f52fac4bb61ab07d28173929bb82aadf567c7 (diff) | |
Update mode line hiding
| -rw-r--r-- | emacs/.config/emacs/emacs-custom.el | 4 | ||||
| -rw-r--r-- | emacs/.config/emacs/lisp/kj-development.el | 1 | ||||
| -rw-r--r-- | emacs/.config/emacs/lisp/kj-init.el | 20 |
3 files changed, 24 insertions, 1 deletions
diff --git a/emacs/.config/emacs/emacs-custom.el b/emacs/.config/emacs/emacs-custom.el index 5d1cf73..df4c014 100644 --- a/emacs/.config/emacs/emacs-custom.el +++ b/emacs/.config/emacs/emacs-custom.el @@ -10,7 +10,9 @@ "88267200889975d801f6c667128301af0bc183f3450c4b86138bfb23e8a78fb1" default)) '(safe-local-variable-values - '((eval sly-connect "localhost" 9090) (sly-port . 9090) + '((Package . CL-WHO) (Package . HUNCHENTOOT) (Base . 10) + (Package . CL-USER) (Syntax . COMMON-LISP) + (eval sly-connect "localhost" 9090) (sly-port . 9090) (checkdoc-package-keywords-flag)))) (custom-set-faces ;; custom-set-faces was added by Custom. diff --git a/emacs/.config/emacs/lisp/kj-development.el b/emacs/.config/emacs/lisp/kj-development.el index 69e4976..cee8dee 100644 --- a/emacs/.config/emacs/lisp/kj-development.el +++ b/emacs/.config/emacs/lisp/kj-development.el @@ -9,6 +9,7 @@ :defer t :init (puni-global-mode) + (electric-pair-mode 1) :config (keymap-set puni-mode-map "C-w" nil) :bind diff --git a/emacs/.config/emacs/lisp/kj-init.el b/emacs/.config/emacs/lisp/kj-init.el index 98738e9..24c7538 100644 --- a/emacs/.config/emacs/lisp/kj-init.el +++ b/emacs/.config/emacs/lisp/kj-init.el @@ -73,6 +73,26 @@ :config (setq doom-modeline-buffer-encoding 'nondefault)) +(use-package emacs + :elpaca nil + :defer 1 + :init + (defvar kj/minor-mode-alist-overrides + '((ws-butler "") + (gcmh-mode "") + (editorconfig-mode "") + (yas-minor-mode "") + (selected-minor-mode "") + (anzu-mode "") + (projectile-mode "") + (eldoc-mode "") + (which-key-mode ""))) + (defun kj/clean-mode-line () + (dolist (override kj/minor-mode-alist-overrides) + (if-let ((e (assoc (car override) minor-mode-alist))) + (setf (nth 1 e) (nth 1 override))))) + (add-to-list 'change-major-mode-hook 'kj/clean-mode-line)) + (use-package emojify :bind (("C-c C-i C-e" . emojify-insert-emoji)) |