summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-09-03 15:30:20 +0300
committerThanos Apollo <[email protected]>2023-09-03 15:30:20 +0300
commitf7c3db0c688b9b98762464cc9e4cc7c87a9dbe96 (patch)
tree5d42eadea41d1e6270007c7a82129ee5c93ac5f0
parent1d570b3c17d23ae9813769d99a3ed48133d7ee44 (diff)
stumpwm: modularize
-rw-r--r--.stumpwm.d/colors.lisp45
-rw-r--r--.stumpwm.d/commands.lisp56
-rw-r--r--.stumpwm.d/groups.lisp9
-rw-r--r--.stumpwm.d/init.lisp297
-rw-r--r--.stumpwm.d/keybindings.lisp75
-rw-r--r--.stumpwm.d/modeline.lisp42
-rw-r--r--.stumpwm.d/stumpwm.log0
-rw-r--r--.stumpwm.d/stumpwm.log.10
-rw-r--r--.stumpwm.d/theme.lisp43
-rw-r--r--.stumpwm.d/utils.lisp35
10 files changed, 275 insertions, 327 deletions
diff --git a/.stumpwm.d/colors.lisp b/.stumpwm.d/colors.lisp
index 7967801..b84b42a 100644
--- a/.stumpwm.d/colors.lisp
+++ b/.stumpwm.d/colors.lisp
@@ -1,22 +1,6 @@
-(defvar thanos-nord0 "#2e3440")
-(defvar thanos-nord1 "#3b4252")
-(defvar thanos-nord2 "#434c5e")
-(defvar thanos-nord3 "#4c566a")
-(defvar thanos-nord4 "#d8dee9")
-(defvar thanos-nord5 "#e5e9f0")
-(defvar thanos-nord6 "#eceff4")
-(defvar thanos-nord7 "#8fbcbb")
-(defvar thanos-nord8 "#88c0d0")
-(defvar thanos-nord9 "#81a1c1")
-(defvar thanos-nord10 "#5e81ac")
-(defvar thanos-nord11 "#bf616a")
-(defvar thanos-nord12 "#d08770")
-(defvar thanos-nord13 "#ebcb8b")
-(defvar thanos-nord14 "#a3be8c")
-(defvar thanos-nord15 "#b48ead")
-(defvar thanos-hope "#1c1d20")
-(defvar thanos-hope-alt "#151619")
+(defvar thanos-hope "#1c1d20")
+(defvar thanos-hope-alt "#151619")
(defvar thanos-hope0 "#1B2229")
(defvar thanos-hope1 "#1c1f24")
(defvar thanos-hope2 "#202328")
@@ -26,29 +10,6 @@
(defvar thanos-hope6 "#686b78")
(defvar thanos-hope7 "#9ca0a4")
(defvar thanos-hope8 "#DFDFDF")
-(defvar thanos-hope-fg "#cbccd1")
+(defvar thanos-hope-fg "#cbccd1")
(defvar thanos-hope-alt "#5B6268")
-(setq *colors*
- `(,thanos-nord0 ;; 0 black
- ,thanos-nord11 ;; 1 red
- ,thanos-nord14 ;; 2 green
- ,thanos-nord13 ;; 3 yellow
- ,thanos-nord10 ;; 4 blue
- ,thanos-nord14 ;; 5 magenta
- ,thanos-nord8 ;; 6 cyan
- ,thanos-nord5)) ;; 7 white
-(setq *colors*
- `(,thanos-hope "#1c1d20"
- ,thanos-hope-alt "#151619"
- ,thanos-hope0 "#1B2229"
- ,thanos-hope1 "#1c1f24"
- ,thanos-hope2 "#202328"
- ,thanos-hope3 "#23272e"
- ,thanos-hope4 "#3f444a"
- ,thanos-hope5 "#5B6268"
- ,thanos-hope6 "#686b78"
- ,thanos-hope7 "#9ca0a4"
- ,thanos-hope8 "#DFDFDF"
- ,thanos-hope-fg "#cbccd1"
- ,thanos-hope-alt "#5B6268"))
diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp
new file mode 100644
index 0000000..1976e9d
--- /dev/null
+++ b/.stumpwm.d/commands.lisp
@@ -0,0 +1,56 @@
+;; Functions
+
+(defun feh-set-wallpaper (wallpaper-name)
+ "Set wallpaper using feh"
+ (let ((wallpaper-dir "~/wallpapers/"))
+ (format t "Setting wallpaper: ~a~%" wallpaper-name)
+ (stumpwm: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"))))
+
+;; Web jump (works for DuckDuckGo)
+(defmacro make-web-jump (name prefix)
+ `(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string "Ask the " name ": ")))
+ (nsubstitute #\+ #\Space search)
+ (run-shell-command (concatenate 'string ,prefix search))))
+
+(make-web-jump "Duck" "firefox https://duckduckgo.com/?q=")
+(make-web-jump "Invidious" "firefox https://yewtu.be/search?q=")
+(defcommand firefox () ()
+ "Run or raise Firefox."
+ (sb-thread:make-thread (lambda () (run-or-raise "firefox" '(:class "firefox") t nil))))
+
+(defcommand delete-window-and-frame () ()
+ "Delete the current frame with its window."
+ (delete-window)
+ (remove-split))
+
+(defcommand hsplit-and-focus () ()
+ "Create a new frame on the right and focus it."
+ (hsplit)
+ (move-focus :right))
+
+(defcommand vsplit-and-focus () ()
+ "Create a new frame below and move focus to it."
+ (vsplit)
+ (move-focus :down))
+
+(defcommand term (&optional program) ()
+ "Invoke a terminal, possibly with a @arg{program}."
+ (sb-thread:make-thread
+ (lambda ()
+ (run-shell-command (if program
+ (format nil "kitty ~A" program)
+ "kitty")))))
+
+(when *initializing*
+ (mapc #'stumpwm:run-shell-command
+ '("emacs --daemon"
+ "picom"
+ "transmission-daemon"
+ "xsetroot -cursor_name left_ptr"))
+ (thanos/set-wallpapers))
diff --git a/.stumpwm.d/groups.lisp b/.stumpwm.d/groups.lisp
new file mode 100644
index 0000000..0715022
--- /dev/null
+++ b/.stumpwm.d/groups.lisp
@@ -0,0 +1,9 @@
+(when *initializing*
+ (grename "[ALPHA]")
+ (gnewbg "[BETA]")
+ (gnewbg "[GAMMA]")
+ (gnewbg-dynamic "[DELTA]"))
+
+
+(clear-window-placement-rules)
+(setf *dynamic-group-master-split-ratio* 1/2)
diff --git a/.stumpwm.d/init.lisp b/.stumpwm.d/init.lisp
index 801fa04..1e9657a 100644
--- a/.stumpwm.d/init.lisp
+++ b/.stumpwm.d/init.lisp
@@ -1,285 +1,12 @@
-(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
- (user-homedir-pathname))))
- (when (probe-file quicklisp-init)
- (load quicklisp-init)))
-
-(in-package :stumpwm)
-(setf *default-package* :stumpwm)
-(set-module-dir "~/.stumpwm.d/modules")
-
-(load-module "beckon")
-(load-module "end-session")
-(load-module "globalwindows")
-(load-module "mpd")
-(load-module "stump-backlight")
-(load-module "urgentwindows")
-(load-module "pinentry")
-(load-module "swm-gaps")
-(load-module "pass")
-(load-module "kbd-layouts")
-(load-module "ttf-fonts")
-(load-module "battery-portable")
-
-(mpd:mpd-connect)
-
-(ql:quickload :slynk)
-
-
-(stumpwm:defcommand sly-start-server () ()
- "Start a slynk server for sly."
- (sb-thread:make-thread (lambda () (slynk:create-server :dont-close t))))
-
-
-(stumpwm:defcommand sly-stop-server () ()
- "Stop current slynk server for sly."
- (sb-thread:make-thread (lambda () (slynk:stop-server 4005))))
-
-(setf *wallpapers* "~/wallpapers/")
-
-(defun feh-set-wallpaper (wallpaper-name)
- "Set wallpaper using feh"
- (let ((wallpaper-dir "~/wallpapers/"))
- (format t "Setting wallpaper: ~a~%" wallpaper-name)
- (stumpwm: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"))))
-
-(when *initializing*
- (mapc #'stumpwm:run-shell-command
- '("emacs --daemon"
- "picom"
- "transmission-daemon"
- "xsetroot -cursor_name left_ptr"))
- (thanos/set-wallpapers))
-
-(setf kbd-layouts:*caps-lock-behavior* :swapped)
-(kbd-layouts:keyboard-layout-list "us" "gr" "ru -variant phonetic")
-
-
-(setf *startup-message* "Welcome back, Thanos")
-
-;; Web jump (works for DuckDuckGo)
-(defmacro make-web-jump (name prefix)
- `(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string "Ask the " name ": ")))
- (nsubstitute #\+ #\Space search)
- (run-shell-command (concatenate 'string ,prefix search))))
-
-(make-web-jump "Duck" "firefox https://duckduckgo.com/?q=")
-(make-web-jump "Invidious" "firefox https://yewtu.be/search?q=")
-(defcommand firefox () ()
- "Run or raise Firefox."
- (sb-thread:make-thread (lambda () (run-or-raise "firefox" '(:class "firefox") t nil))))
-
-(defcommand delete-window-and-frame () ()
- "Delete the current frame with its window."
- (delete-window)
- (remove-split))
-
-
-(defcommand mpv-play-url (url) ((:string "URL: "))
- "Play video URL with mpv."
- (stumpwm:run-shell-command (format nil "mpv '~s'" url)))
-
-(defcommand hsplit-and-focus () ()
- "Create a new frame on the right and focus it."
- (hsplit)
- (move-focus :right))
-
-(defcommand vsplit-and-focus () ()
- "Create a new frame below and move focus to it."
- (vsplit)
- (move-focus :down))
-
-(defcommand term (&optional program) ()
- "Invoke a terminal, possibly with a @arg{program}."
- (sb-thread:make-thread
- (lambda ()
- (run-shell-command (if program
- (format nil "kitty ~A" program)
- "kitty")))))
-
-(defvar *my/desktop-dump-file* "~/.cache/stump-at-work"
- "Where my desktop dump should go and be loaded from.")
-
-(defcommand dump-work () ()
- "Save desktop layout when at work."
- (dump-desktop-to-file *my/desktop-dump-file*))
-
-(defcommand at-work () ()
- "Restore desktop layout when at work."
- (restore-from-file *my/desktop-dump-file*)
- (run-shell-command "gpclient")
- (run-shell-command "bluetoothctl power on && bluetoothctl connect 14:3F:A6:6D:E3:D9"))
-
-(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)
-
-
-
-
-;; Colors
-(load ".stumpwm.d/colors.lisp")
-
-(when *initializing*
- (update-color-map (current-screen)))
-
-(set-border-color thanos-hope)
-(set-focus-color thanos-hope)
-(set-unfocus-color thanos-hope-alt)
-(set-float-focus-color thanos-hope1)
-(set-float-unfocus-color thanos-hope3)
-
-(set-fg-color thanos-hope-fg)
-(set-bg-color thanos-hope-alt)
-
-(setf swm-gaps:*head-gaps-size* 0
- swm-gaps:*inner-gaps-size* 5
- swm-gaps:*outer-gaps-size* 5)
-
-(when *initializing*
- (swm-gaps:toggle-gaps-on))
-
-(ql:quickload :clx-truetype)
-
-(set-font `(,(make-instance 'xft:font :family "JetBrains Mono" :subfamily "Regular" :size 12 :antialias t)
- ;; ,(make-instance 'xft:font :family "DejaVu Sans Mono for Powerline" :subfamily "Book" :size 8.5 :antialias t)
- ;; ,(make-instance 'xft:font :family "siji" :subfamily "Medium" :size 10 :antialias t)
- ;; ,(make-instance 'xft:font :family "FantasqueSansMono Nerd Font Mono" :subfamily "Regular" :size 9.5 :antialias t)
- ))
-
-(setf *mode-line-timeout* 2)
-(setf *group-format* "%t")
-(setf *window-format* "%n: %30t")
-
-;; set modeline colors and highlight
-(setf *mode-line-background-color* thanos-hope
- *mode-line-foreground-color* thanos-hope-fg
- stumpwm:*mode-line-border-color* thanos-hope
- stumpwm:*mode-line-highlight-template* "«~A»")
-
-
-(setf *mode-line-border-color* thanos-hope1
- *mode-line-border-width* 2)
-
-(when *initializing*
- (grename "[ALPHA]")
- (gnewbg "[BETA]")
- (gnewbg "[GAMMA]")
- (gnewbg-dynamic "[DELTA]")
- (gnewbg "[LAMBDA]"))
-
-(clear-window-placement-rules)
-(setf *dynamic-group-master-split-ratio* 1/2)
-(setf)
-
-(setf *time-modeline-string* "%a %d/%m/%Y | %H:%M")
-
-(setf stumpwm:*screen-mode-line-format*
- (list "%g ^>"
- "RAM:"
- '(:eval (string-trim '(#\Newline)
- (stumpwm:run-shell-command
- "free | awk '/Mem/ { printf(\"%.2f%\"), $3/$2 * 100.0 }'" t)))
- "% | CPU:"
- '(:eval (string-trim '(#\Newline)
- (stumpwm:run-shell-command
- "grep 'cpu ' /proc/stat | awk '{usage=($2+$4)*100/($2+$4+$5)} END {printf(\"%.2f\", usage)}'" t)))
- "% | VOL:"
- '(:eval (string-trim '(#\Newline)
- (stumpwm:run-shell-command "pamixer --get-volume" t)))
- "% | "
- ;; Check when hermes(laptop) t display battery
- (when (equal (asdf:hostname) "hermes")
- "BAT:%B |")
- "%d"))
-
-(when stumpwm:*initializing*
- (mode-line))
-
-(defcommand colon1 (&optional (initial "")) (:rest)
- (let ((cmd (read-one-line (current-screen) ": " :initial-input initial)))
- (when cmd
- (eval-command cmd t))))
-
-(define-key *root-map* (kbd "C-r") "exec emacsclient -e '(thanos/app-launcher\)'")
-(define-key *root-map* (kbd ",") "exec flameshot gui")
-(define-key *root-map* (kbd "C-R") "restart-hard")
-(define-key *root-map* (kbd "M-r") "restart-soft")
-(define-key *root-map* (kbd "p") "exec emacsclient -e '(thanos/pass-launcher)'")
-(define-key *root-map* (kbd "F") "float-this")
-(define-key *root-map* (kbd "U") "unfloat-this")
-(define-key *root-map* (kbd "b") "windowlist")
-(define-key *root-map* (kbd "d") "delete-window")
-(define-key *root-map* (kbd "C-d") "remove")
-;; Focus
-(define-key *root-map* (kbd "C-f") "move-focus right")
-(define-key *root-map* (kbd "C-b") "move-focus left")
-
-(defvar *thanos-buffers-map*
- (let ((m (make-sparse-keymap)))
- (define-key m (kbd "0") "delete-window-and-frame")
- (define-key m (kbd "3") "hsplit-and-focus")
- (define-key m (kbd "b") "windowlist")
- m ; NOTE: this is important
- ))
-
-(define-key *root-map* (kbd "C-x") *thanos-buffers-map*)
-
-(define-key *root-map* (kbd "e") "exec emacsclient -c")
-
-(define-key *root-map* (kbd "C-e") "exec emacs")
-
-;; Ssh somewhere
-(define-key *root-map* (kbd "C-S") "colon1 exec xterm -e ssh ")
-
-;; Lock screen
-(define-key *root-map* (kbd "C-l") "exec slock")
-
-(define-key *top-map* (kbd "F11") "fullscreen")
-;; Audio
-(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec pamixer -d 5")
-(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec pamixer -i 5")
-
-;; x220 specific
-(define-key *top-map* (kbd "F1") "exec brightnessctl --device='intel_backlight' set 5%-")
-(define-key *top-map* (kbd "F2") "exec brightnessctl --device='intel_backlight' set +5%")
-(define-key *top-map* (kbd "F3") "exec ~/.scripts/keyboard-light-x220.sh")
-
- ;;; Groups
-;; Switch to group
-(define-key *root-map* (kbd "M-1") "gselect 1")
-(define-key *root-map* (kbd "M-2") "gselect 2")
-(define-key *root-map* (kbd "M-3") "gselect 3")
-(define-key *root-map* (kbd "M-4") "gselect 4")
-(define-key *root-map* (kbd "M-5") "gselect 5")
-(define-key *root-map* (kbd "M-6") "gselect 6")
-(define-key *root-map* (kbd "M-7") "gselect 7")
-(define-key *root-map* (kbd "M-0") "gselect 5")
-(define-key *root-map* (kbd "M-9") "gselect")
-;; Move window to group
-(define-key *root-map* (kbd "M-!") "gmove 1")
-(define-key *root-map* (kbd "M-@") "gmove 2")
-(define-key *root-map* (kbd "M-#") "gmove 3")
-(define-key *root-map* (kbd "M-$") "gmove 4")
-(define-key *root-map* (kbd "M-%") "gmove 5")
-(define-key *root-map* (kbd "M-^") "gmove 6")
-(define-key *root-map* (kbd "M-)") "gmove 5")
-(define-key *root-map* (kbd "M-(") "gmove")
-;; Focus
-(define-key *root-map* (kbd "M-b") "move-window left")
-(define-key *root-map* (kbd "M-f") "move-window right")
-(define-key *root-map* (kbd "M-n") "move-window down")
-
-(define-key *root-map* (kbd "s") "Duck")
-;(define-key *root-map* (kbd "v") "Invidious")
+;; Utils
+(load "~/.stumpwm.d/utils.lisp")
+;; Theme
+(load "~/.stumpwm.d/theme.lisp")
+;; Commmands
+(load "~/.stumpwm.d/commands.lisp")
+;; Groups
+(load "~/.stumpwm.d/groups.lisp")
+;; Modeline
+(load "~/.stumpwm.d/modeline.lisp")
+;; Keybindings
+(load "~/.stumpwm.d/keybindings.lisp")
diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp
new file mode 100644
index 0000000..f091ccf
--- /dev/null
+++ b/.stumpwm.d/keybindings.lisp
@@ -0,0 +1,75 @@
+
+(defcommand colon1 (&optional (initial "")) (:rest)
+ (let ((cmd (read-one-line (current-screen) ": " :initial-input initial)))
+ (when cmd
+ (eval-command cmd t))))
+
+(define-key *root-map* (kbd "C-r") "exec emacsclient -e '(thanos/app-launcher\)'")
+(define-key *root-map* (kbd ",") "exec flameshot gui")
+(define-key *root-map* (kbd "C-R") "restart-hard")
+(define-key *root-map* (kbd "M-r") "restart-soft")
+(define-key *root-map* (kbd "p") "exec emacsclient -e '(thanos/pass-launcher)'")
+(define-key *root-map* (kbd "F") "float-this")
+(define-key *root-map* (kbd "U") "unfloat-this")
+(define-key *root-map* (kbd "b") "windowlist")
+(define-key *root-map* (kbd "d") "delete-window")
+(define-key *root-map* (kbd "C-d") "remove")
+;; Focus
+(define-key *root-map* (kbd "C-f") "move-focus right")
+(define-key *root-map* (kbd "C-b") "move-focus left")
+
+(defvar *thanos-buffers-map*
+ (let ((m (make-sparse-keymap)))
+ (define-key m (kbd "0") "delete-window-and-frame")
+ (define-key m (kbd "3") "hsplit-and-focus")
+ (define-key m (kbd "b") "windowlist")
+ m))
+
+(define-key *root-map* (kbd "C-x") *thanos-buffers-map*)
+
+(define-key *root-map* (kbd "e") "exec emacsclient -c")
+
+(define-key *root-map* (kbd "C-e") "exec emacs")
+
+;; Ssh somewhere
+(define-key *root-map* (kbd "C-S") "colon1 exec xterm -e ssh ")
+
+;; Lock screen
+(define-key *root-map* (kbd "C-l") "exec slock")
+
+(define-key *top-map* (kbd "F11") "fullscreen")
+;; Audio
+(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec pamixer -d 5")
+(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec pamixer -i 5")
+
+;; x220 specific
+(define-key *top-map* (kbd "F1") "exec brightnessctl --device='intel_backlight' set 5%-")
+(define-key *top-map* (kbd "F2") "exec brightnessctl --device='intel_backlight' set +5%")
+(define-key *top-map* (kbd "F3") "exec ~/.scripts/keyboard-light-x220.sh")
+
+ ;;; Groups
+;; Switch to group
+(define-key *root-map* (kbd "M-1") "gselect 1")
+(define-key *root-map* (kbd "M-2") "gselect 2")
+(define-key *root-map* (kbd "M-3") "gselect 3")
+(define-key *root-map* (kbd "M-4") "gselect 4")
+(define-key *root-map* (kbd "M-5") "gselect 5")
+(define-key *root-map* (kbd "M-6") "gselect 6")
+(define-key *root-map* (kbd "M-7") "gselect 7")
+(define-key *root-map* (kbd "M-0") "gselect 5")
+(define-key *root-map* (kbd "M-9") "gselect")
+;; Move window to group
+(define-key *root-map* (kbd "M-!") "gmove 1")
+(define-key *root-map* (kbd "M-@") "gmove 2")
+(define-key *root-map* (kbd "M-#") "gmove 3")
+(define-key *root-map* (kbd "M-$") "gmove 4")
+(define-key *root-map* (kbd "M-%") "gmove 5")
+(define-key *root-map* (kbd "M-^") "gmove 6")
+(define-key *root-map* (kbd "M-)") "gmove 5")
+(define-key *root-map* (kbd "M-(") "gmove")
+;; Focus
+(define-key *root-map* (kbd "M-b") "move-window left")
+(define-key *root-map* (kbd "M-f") "move-window right")
+(define-key *root-map* (kbd "M-n") "move-window down")
+
+(define-key *root-map* (kbd "s") "Duck")
diff --git a/.stumpwm.d/modeline.lisp b/.stumpwm.d/modeline.lisp
new file mode 100644
index 0000000..adac5ac
--- /dev/null
+++ b/.stumpwm.d/modeline.lisp
@@ -0,0 +1,42 @@
+;; Modeline configuration
+(load "~/.stumpwm.d/colors.lisp")
+(load-module "battery-portable")
+
+(setf *mode-line-timeout* 2)
+(setf *group-format* "%t")
+(setf *window-format* "%n: %30t")
+
+;; set modeline colors and highlight
+(setf *mode-line-background-color* thanos-hope
+ *mode-line-foreground-color* thanos-hope-fg
+ stumpwm:*mode-line-border-color* thanos-hope
+ stumpwm:*mode-line-highlight-template* "«~A»")
+
+
+(setf *mode-line-border-color* thanos-hope1
+ *mode-line-border-width* 2)
+
+(setf *time-modeline-string* "%a %d/%m/%Y | %H:%M")
+
+(setf stumpwm:*screen-mode-line-format*
+ (list "%g ^>"
+ "RAM:"
+ '(:eval (string-trim '(#\Newline)
+ (stumpwm:run-shell-command
+ "free | awk '/Mem/ { printf(\"%.2f%\"), $3/$2 * 100.0 }'" t)))
+ "% | CPU:"
+ '(:eval (string-trim '(#\Newline)
+ (stumpwm:run-shell-command
+ "grep 'cpu ' /proc/stat | awk '{usage=($2+$4)*100/($2+$4+$5)} END {printf(\"%.2f\", usage)}'" t)))
+ "% | VOL:"
+ '(:eval (string-trim '(#\Newline)
+ (stumpwm:run-shell-command "pamixer --get-volume" t)))
+ "% | "
+ ;; Check when hermes(laptop) t display battery
+ (when (equal (asdf:hostname) "hermes")
+ "BAT:%B |")
+ "%d"))
+
+
+(when stumpwm:*initializing*
+ (mode-line))
diff --git a/.stumpwm.d/stumpwm.log b/.stumpwm.d/stumpwm.log
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/.stumpwm.d/stumpwm.log
diff --git a/.stumpwm.d/stumpwm.log.1 b/.stumpwm.d/stumpwm.log.1
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/.stumpwm.d/stumpwm.log.1
diff --git a/.stumpwm.d/theme.lisp b/.stumpwm.d/theme.lisp
new file mode 100644
index 0000000..acd876a
--- /dev/null
+++ b/.stumpwm.d/theme.lisp
@@ -0,0 +1,43 @@
+;; Startup message
+
+(setf *startup-message* "Welcome back, Thanos")
+
+;; Colors
+(load-module "ttf-fonts")
+(load "~/.stumpwm.d/colors.lisp")
+
+(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-hope)
+(set-focus-color thanos-hope)
+(set-unfocus-color thanos-hope-alt)
+(set-float-focus-color thanos-hope1)
+(set-float-unfocus-color thanos-hope3)
+
+(set-fg-color thanos-hope-fg)
+(set-bg-color thanos-hope-alt)
+
+(setf swm-gaps:*head-gaps-size* 0
+ swm-gaps:*inner-gaps-size* 5
+ swm-gaps:*outer-gaps-size* 5)
+
+(when *initializing*
+ (swm-gaps:toggle-gaps-on))
+
+(ql:quickload :clx-truetype)
+
+(set-font
+ `(,(make-instance 'xft:font :family "JetBrains Mono" :subfamily "Regular" :size 12 :antialias t)))
diff --git a/.stumpwm.d/utils.lisp b/.stumpwm.d/utils.lisp
new file mode 100644
index 0000000..1aeae66
--- /dev/null
+++ b/.stumpwm.d/utils.lisp
@@ -0,0 +1,35 @@
+(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
+ (user-homedir-pathname))))
+ (when (probe-file quicklisp-init)
+ (load quicklisp-init)))
+
+(in-package :stumpwm)
+
+(setf *default-package* :stumpwm)
+(set-module-dir "~/.stumpwm.d/modules")
+
+(load-module "kbd-layouts")
+(load-module "mpd")
+(load-module "pinentry")
+(load-module "swm-gaps")
+(load-module "pass")
+(load-module "swm-emacs")
+(load-module "end-session")
+(load-module "globalwindows")
+(load-module "urgentwindows")
+
+(ql:quickload :slynk)
+
+(stumpwm:defcommand sly-start-server () ()
+ "Start a slynk server for sly."
+ (sb-thread:make-thread (lambda () (slynk:create-server :dont-close t))))
+
+
+(stumpwm:defcommand sly-stop-server () ()
+ "Stop current slynk server for sly."
+ (sb-thread:make-thread (lambda () (slynk:stop-server 4005))))
+
+(mpd:mpd-connect)
+
+(setf kbd-layouts:*caps-lock-behavior* :swapped)
+(kbd-layouts:keyboard-layout-list "us" "gr" "bg -variant phonetic")