diff options
| -rw-r--r-- | .emacs.d/modules/thanos-aesthetics.el | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/.emacs.d/modules/thanos-aesthetics.el b/.emacs.d/modules/thanos-aesthetics.el index c2e022b..aa3db63 100644 --- a/.emacs.d/modules/thanos-aesthetics.el +++ b/.emacs.d/modules/thanos-aesthetics.el @@ -80,6 +80,16 @@ (load-theme 'doom-molokai) +;; Custom function to load theme +(defun thanos/load-theme () + "Disable current theme and load a new one." + (interactive) + (let ((theme (intern (completing-read "Theme: " (custom-available-themes))))) + (disable-theme (car custom-enabled-themes)) + (load-theme theme t))) + +(define-key thanos/applications-map (kbd "t") 'thanos/load-theme) + (doom-modeline-mode 1) (setf doom-modeline-height 35) @@ -90,9 +100,9 @@ (display-battery-mode 1)) ;; UI -- Vertico, consult, marginalia +(nerd-icons-completion-mode) (vertico-mode) (savehist-mode) -(define-key global-map (kbd "C-x C-f") 'find-file) (define-key global-map (kbd "C-s") 'consult-line) (define-key global-map (kbd "C-x b") 'consult-buffer) (define-key global-map (kbd "C-c m") 'consult-imenu) @@ -105,7 +115,7 @@ (require 'marginalia) (marginalia-mode) - +(add-hook 'marginalia-mode-hook #'nerd-icons-completion-marginalia-setup) ;; Helpful (require 'helpful) (define-key global-map (kbd "C-h f") #'helpful-callable) |