diff options
| -rw-r--r-- | .stumpwm.d/commands.lisp | 14 | ||||
| -rw-r--r-- | .stumpwm.d/modeline.lisp | 4 | ||||
| -rw-r--r-- | .stumpwm.d/theme.lisp | 17 |
3 files changed, 19 insertions, 16 deletions
diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp index 5a87d6e..1ad62a5 100644 --- a/.stumpwm.d/commands.lisp +++ b/.stumpwm.d/commands.lisp @@ -1,17 +1,3 @@ -;; Functions - -(defun feh-set-wallpaper (wallpaper-name) - "Set wallpaper using feh" - (let ((wallpaper-dir "~/wallpapers/")) - (format t "Setting wallpaper: ~a~%" wallpaper-name) - (run-shell-command (format nil "feh --bg-scale ~a~a" wallpaper-dir wallpaper-name)))) - - -(defun thanos/set-wallpapers () - "Set wallpapers depending on hostname." - (cond ((equal (asdf:hostname) "zeus") (feh-set-wallpaper "anime-night-mountains.jpg")) - ((equal (asdf:hostname) "hermes") (feh-set-wallpaper "library-old-house.jpg")))) - (defmacro defnyxt-search (name search-url command) `(stumpwm:defcommand ,(intern (concatenate 'string "nyxt-" name)) (query) diff --git a/.stumpwm.d/modeline.lisp b/.stumpwm.d/modeline.lisp index adac5ac..88ea14b 100644 --- a/.stumpwm.d/modeline.lisp +++ b/.stumpwm.d/modeline.lisp @@ -7,9 +7,9 @@ (setf *window-format* "%n: %30t") ;; set modeline colors and highlight -(setf *mode-line-background-color* thanos-hope +(setf *mode-line-background-color* "#252B48" *mode-line-foreground-color* thanos-hope-fg - stumpwm:*mode-line-border-color* thanos-hope + stumpwm:*mode-line-border-color* "#445069" stumpwm:*mode-line-highlight-template* "«~A»") diff --git a/.stumpwm.d/theme.lisp b/.stumpwm.d/theme.lisp index 98910bf..0160e1a 100644 --- a/.stumpwm.d/theme.lisp +++ b/.stumpwm.d/theme.lisp @@ -6,6 +6,23 @@ (stumpwm:load-module "ttf-fonts") (load "~/.stumpwm.d/colors.lisp") + +;; Wallpaper +(defun feh-set-wallpaper (wallpaper-name) + "Set wallpaper using feh" + (let ((wallpaper-dir "~/wallpapers/")) + (format t "Setting wallpaper: ~a~%" wallpaper-name) + (run-shell-command (format nil "feh --bg-scale ~a~a" wallpaper-dir wallpaper-name)))) + +(defun thanos/set-wallpapers () + "Set wallpapers depending on hostname." + (cond ((equal (asdf:hostname) "zeus") (feh-set-wallpaper "winter-dragons.jpg")) + ((equal (asdf:hostname) "hermes") (feh-set-wallpaper "cyberpunk-wallpaper2.jpg")))) + + +(when *initializing* + (thanos/set-wallpapers)) + (setf *message-window-gravity* :center *input-window-gravity* :center *window-border-style :thin |