From f83f5a601927fb9a42d5d0af25bed0302b095aaf Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Sat, 9 Sep 2023 16:42:30 +0300
Subject: aeshetics.el: Add thanos/load-theme & nerd-icons-completion

---
 .emacs.d/modules/thanos-aesthetics.el | 14 ++++++++++++--
 1 file 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)
-- 
cgit v1.2.3