emacs: Remove duplicate functions

1 files changed, 0 insertions, 33 deletions

diff --git a/.emacs.d/modules/thanos-aesthetics.el b/.emacs.d/modules/thanos-aesthetics.el
index 3ba8956..5117868 100644
--- a/.emacs.d/modules/thanos-aesthetics.el
+++ b/.emacs.d/modules/thanos-aesthetics.el
@@ -192,17 +192,6 @@
 (doom-modeline-mode 1)
 (setf doom-modeline-height 35)
 
-
-;; 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)
-
 ;; Don't display battery-mode on desktop
 (if is-zeus
     (display-battery-mode 0)
@@ -242,28 +231,6 @@
 (global-set-key (kbd "M-.") 'xref-find-definitions)
 (global-set-key (kbd "C-c L") 'display-line-numbers-mode)
 
-;; wallpapers
-(defvar wallpapers-dir "~/wallpapers/")
-
-(defun thanos/wallpaper-set (image)
-  "Set IMAGE as wallpaper, using feh."
-  (call-process-shell-command
-   (concat "xwallpaper --focus " wallpapers-dir image) nil 0))
-
-(defun thanos/wallpaper-random ()
-  "Set random wallpaper."
-  (interactive)
-  (let ((wallpapers (directory-files "~/wallpapers" nil "^[^.].*")))
-    (thanos/wallpaper-set (nth (random (length wallpapers)) wallpapers))))
-
-(defun thanos/wallpaper-select ()
-  "Set wallpaper."
-  (interactive)
-  (let ((wallpaper (completing-read "Choose wallpaper: " (directory-files wallpapers-dir nil "^[^.].*"))))
-    (thanos/wallpaper-set wallpaper)))
-
-(define-key thanos/applications-map (kbd "w") 'thanos/wallpaper-select)
-
 ;; Symbols
 (add-hook 'emacs-lisp-mode-hook 'prettify-symbols-mode)