From 3723b427e0d97deb3d14d74344b6ef0b70fe4d24 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Fri, 10 May 2024 08:52:19 +0300
Subject: Readd stumpwm?

---
 .stumpwm.d/theme.lisp | 65 +--------------------------------------------------
 1 file changed, 1 insertion(+), 64 deletions(-)
 mode change 100644 => 120000 .stumpwm.d/theme.lisp

(limited to '.stumpwm.d/theme.lisp')

diff --git a/.stumpwm.d/theme.lisp b/.stumpwm.d/theme.lisp
deleted file mode 100644
index 55691db..0000000
--- a/.stumpwm.d/theme.lisp
+++ /dev/null
@@ -1,64 +0,0 @@
-;; 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)))
diff --git a/.stumpwm.d/theme.lisp b/.stumpwm.d/theme.lisp
new file mode 120000
index 0000000..7d51a75
--- /dev/null
+++ b/.stumpwm.d/theme.lisp
@@ -0,0 +1 @@
+/gnu/store/82s7lvf8s6hpmqvxamqxf2yp2wi7xy18-home-dotfiles--stumpwm-d-theme-lisp
\ No newline at end of file
-- 
cgit v1.2.3