Readd stumpwm?

1 files changed, 1 insertions, 64 deletions

diff --git a/.stumpwm.d/theme.lisp b/.stumpwm.d/theme.lisp
index 55691db..7d51a75 100644..120000
--- a/.stumpwm.d/theme.lisp
+++ b/.stumpwm.d/theme.lisp
@@ -1,64 +1 @@
-;; Startup message
-
-(setf *startup-message* "Welcome back, Thanos")
-(stumpwm:load-module "swm-gaps")
-;; Colors
-(stumpwm:load-module "ttf-fonts")
-(load "~/.stumpwm.d/colors.lisp")
-
-(run-shell-command "~/.config/autostart/autostart.sh ")
-
-;; 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
-      *mouse-focus-policy* :click
-      *float-window-modifier* :META
-      *transient-border-width* 2
-      *normal-size-border-width* 2
-      *message-window-padding*   10
-      *message-window-y-padding* 10)
-  
-(when *initializing*
-  (update-color-map (current-screen)))
-
-
-(set-border-color        thanos-black-bg)
-(set-focus-color         thanos-black-active)
-(set-unfocus-color       thanos-black-inactive)
-(set-float-focus-color   thanos-hope1)
-(set-float-unfocus-color thanos-hope3)
-
-(set-fg-color thanos-hope-fg)
-(set-bg-color thanos-black-bg)
-
-(setf swm-gaps:*head-gaps-size*  6
-      swm-gaps:*inner-gaps-size* 6
-      swm-gaps:*outer-gaps-size* 6)
-
-(when stumpwm:*initializing*
-  (swm-gaps:toggle-gaps-on))
-
-;; (ql:quickload :clx-truetype)
-
-(stumpwm:set-font
- `(,(make-instance 'xft:font
-		   :family "JetBrains Mono"
-		   :subfamily "Regular"
-		   :size 12
-		   :antialias t)))
+/gnu/store/82s7lvf8s6hpmqvxamqxf2yp2wi7xy18-home-dotfiles--stumpwm-d-theme-lisp
\ No newline at end of file