diff options
Diffstat (limited to '.emacs.d/modules/thanos-aesthetics.el')
| -rw-r--r-- | .emacs.d/modules/thanos-aesthetics.el | 33 |
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) |