stumpwm: Update modeline

1 files changed, 32 insertions, 9 deletions

diff --git a/stumpwm.org b/stumpwm.org
index 9d25224..ba27642 100644
--- a/stumpwm.org
+++ b/stumpwm.org
@@ -206,7 +206,6 @@
   (load-module "cpu")
   (load-module "mpd")
   (load-module "mem")
-  ;(load-module "stumptray")
 
 
   (setf *mode-line-timeout* 2)
@@ -217,7 +216,7 @@
 	,*mode-line-foreground-color* thanos-hope-fg)
 
   (setf *mode-line-border-color* thanos-hope1
-	,*mode-line-border-width* 0)
+	,*mode-line-border-width* 2)
 
   (setf mem::*mem-modeline-fmt*        "%a%p"
 	mpd:*mpd-modeline-fmt*         "%a - %t"
@@ -225,7 +224,6 @@
 	,*hidden-window-color*          "^**"
 	,*mode-line-highlight-template* "«~A»")
 
-
   (when *initializing*
     (grename "[EMACS]")
     (gnewbg "[BROWSER]")
@@ -239,12 +237,34 @@
 	(close stream)
 	hostname)))
 
-  (if (equal (get-hostname) "zeus")  
-      (setf stumpwm:*screen-mode-line-format*
-	    (list "%g %a%p | ^>" (stumpwm:run-shell-command "date" t)))
-    
-      (setf stumpwm:*screen-mode-line-format*
-	    (list "%g | ^> | Battery : %B |" (stumpwm:run-shell-command "date" t))))
+  (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 "exec ~/Developer/scripts/get-ram.sh" t)))
+	      "% | CPU:"
+	      '(:eval (string-trim '(#\Newline)
+		       (stumpwm:run-shell-command "exec ~/Developer/scripts/get-cpu.sh" t)))
+	      "%| VOL:"
+	      '(:eval (string-trim '(#\Newline)
+		       (stumpwm:run-shell-command "pamixer --get-volume" t)))
+	      "% | "
+	      ;; Check when hermes(laptop) t display battery
+	      (when (equal (get-hostname) "hermes")
+		"BAT:%B |")
+	      '(:eval (string-trim '(#\Newline)
+		       (stumpwm:run-shell-command "exec ~/Developer/scripts/get-weather.sh" t)))
+	      " %d"))
+#+end_src
+/Note: to trim new line when using shell commands for mode-line use something like this:/
+#+begin_src emacs-lisp :tangle nil
+  (setf *screen-mode-line-format*
+	(list
+	'(:eval (string-trim '(#\Newline)
+		  (run-shell-command "date" t)))
+	'(:eval (run-shell-command "date" t))))
 #+end_src
 * Keybindings
 #+begin_src lisp
@@ -259,6 +279,9 @@
   (define-key *root-map* (kbd "M-r") "restart-hard")
   (define-key *root-map* (kbd "p") "exec ~/Developer/rofi-pass/rofi-pass")
   (define-key *root-map* (kbd "f") "float-this")
+  (define-key *root-map* (kbd "b") "windowlist")
+  (define-key *root-map* (kbd "d") "delete-window")
+  (define-key *root-map* (kbd "D") "delete-window-and-frame")
 
   (define-key *root-map* (kbd "C-f") "unfloat-this")