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/modeline.lisp | 46 +---------------------------------------------
 1 file changed, 1 insertion(+), 45 deletions(-)
 mode change 100644 => 120000 .stumpwm.d/modeline.lisp

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

diff --git a/.stumpwm.d/modeline.lisp b/.stumpwm.d/modeline.lisp
deleted file mode 100644
index 308186f..0000000
--- a/.stumpwm.d/modeline.lisp
+++ /dev/null
@@ -1,45 +0,0 @@
-;; Modeline configuration
-(load "~/.stumpwm.d/colors.lisp")
-
-(setf *default-package* :stumpwm)
-
-(load-module "battery-portable")
-;; (stumpwm:load-module "stumptray")
-(load-module "mem")
-(load-module "cpu")
-
-(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-black-bg ;"#252B48"
-      *mode-line-foreground-color* thanos-hope-fg
-      *mode-line-border-color* thanos-black-bg
-      *mode-line-highlight-template* "«~A»"
-      mem::*mem-modeline-fmt* "%p"
-      cpu:*cpu-modeline-fmt* "%c")
-
-(setf *mode-line-border-color* thanos-black-bg
-      *mode-line-border-width* 2)
-
-(setf *time-modeline-string* "%a %d/%m/%Y | %H:%M")
-
-(setf stumpwm:*screen-mode-line-format*
-      (list "%g ^> %C "
-	    '(:eval (string-trim '(#\Newline)
-				 (stumpwm:run-shell-command
-				  "echo $(($(cat /sys/class/thermal/thermal_zone0/temp) / 1000))C" t)))
-	    "| RAM:%M| VOL:"
-	    '(:eval (string-trim '(#\Newline)
-				 (stumpwm:run-shell-command
-				  "amixer get Master | awk '/Front Left:/ { print substr($5, 2, length($5)-2) }'" 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/modeline.lisp b/.stumpwm.d/modeline.lisp
new file mode 120000
index 0000000..be38179
--- /dev/null
+++ b/.stumpwm.d/modeline.lisp
@@ -0,0 +1 @@
+/gnu/store/4garpamz8m6h8dnfy7m4p59zp0s5lyys-home-dotfiles--stumpwm-d-modeline-lisp
\ No newline at end of file
-- 
cgit v1.2.3