From 3723b427e0d97deb3d14d74344b6ef0b70fe4d24 Mon Sep 17 00:00:00 2001 From: Thanos Apollo 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 From 0582004885cd35bfacbff5d4fdfdce8b834c32ce Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 10 May 2024 09:05:49 +0300 Subject: Remove stumpwm --- .stumpwm.d/colors.lisp | 1 - .stumpwm.d/commands.lisp | 1 - .stumpwm.d/init.lisp | 1 - .stumpwm.d/keybindings.lisp | 1 - .stumpwm.d/modeline.lisp | 1 - .stumpwm.d/modules | 1 - .stumpwm.d/theme.lisp | 1 - .stumpwm.d/utils.lisp | 1 - 8 files changed, 8 deletions(-) delete mode 120000 .stumpwm.d/colors.lisp delete mode 120000 .stumpwm.d/commands.lisp delete mode 120000 .stumpwm.d/init.lisp delete mode 120000 .stumpwm.d/keybindings.lisp delete mode 120000 .stumpwm.d/modeline.lisp delete mode 160000 .stumpwm.d/modules delete mode 120000 .stumpwm.d/theme.lisp delete mode 120000 .stumpwm.d/utils.lisp (limited to '.stumpwm.d/theme.lisp') diff --git a/.stumpwm.d/colors.lisp b/.stumpwm.d/colors.lisp deleted file mode 120000 index dbd2dbc..0000000 --- a/.stumpwm.d/colors.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/3wp5npi1xy1cmyzx8j3cg24kssq4n8vb-home-dotfiles--stumpwm-d-colors-lisp \ No newline at end of file diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp deleted file mode 120000 index dc1a495..0000000 --- a/.stumpwm.d/commands.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/0mzi180himhrnjgc33n49slvs5vwb7rb-home-dotfiles--stumpwm-d-commands-lisp \ No newline at end of file diff --git a/.stumpwm.d/init.lisp b/.stumpwm.d/init.lisp deleted file mode 120000 index c98020a..0000000 --- a/.stumpwm.d/init.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/lj5nq45z9a616607c956cdf73jq0nvq0-home-dotfiles--stumpwm-d-init-lisp \ No newline at end of file diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp deleted file mode 120000 index 26cf1e9..0000000 --- a/.stumpwm.d/keybindings.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/3fkzgz8klcybdjqc30k267aw2lyyn8kz-home-dotfiles--stumpwm-d-keybindings-lisp \ No newline at end of file diff --git a/.stumpwm.d/modeline.lisp b/.stumpwm.d/modeline.lisp deleted file mode 120000 index be38179..0000000 --- a/.stumpwm.d/modeline.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/4garpamz8m6h8dnfy7m4p59zp0s5lyys-home-dotfiles--stumpwm-d-modeline-lisp \ No newline at end of file diff --git a/.stumpwm.d/modules b/.stumpwm.d/modules deleted file mode 160000 index 472bdef..0000000 --- a/.stumpwm.d/modules +++ /dev/null @@ -1 +0,0 @@ -Subproject commit 472bdef0acaac8893c9c5a38d4319da86f10c876 diff --git a/.stumpwm.d/theme.lisp b/.stumpwm.d/theme.lisp deleted file mode 120000 index 7d51a75..0000000 --- a/.stumpwm.d/theme.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/82s7lvf8s6hpmqvxamqxf2yp2wi7xy18-home-dotfiles--stumpwm-d-theme-lisp \ No newline at end of file diff --git a/.stumpwm.d/utils.lisp b/.stumpwm.d/utils.lisp deleted file mode 120000 index 616b237..0000000 --- a/.stumpwm.d/utils.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/svvyhs2qfbdh620dagm5c30bflk7jn35-home-dotfiles--stumpwm-d-utils-lisp \ No newline at end of file -- cgit v1.2.3