From 936ebbe5fe318acb15819b8daf7871023f765b2a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 27 Jun 2023 23:44:00 +0300 Subject: stumpwm: Update stumpwm mode-line --- stumpwm.org | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/stumpwm.org b/stumpwm.org index e59392a..f87ab45 100644 --- a/stumpwm.org +++ b/stumpwm.org @@ -207,18 +207,16 @@ (setf *group-format* "%t") (setf *window-format* "%n: %30t") - (setf *mode-line-background-color* thanos-hope-alt - ,*mode-line-foreground-color* thanos-hope-fg) + ;; 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 mem::*mem-modeline-fmt* "%a%p" - mpd:*mpd-modeline-fmt* "%a - %t" - mpd:*mpd-status-fmt* "%a - %t" - ,*hidden-window-color* "^**" - ,*mode-line-highlight-template* "«~A»") - (when *initializing* (grename "[EMACS]") (gnewbg "[BROWSER]") @@ -249,8 +247,8 @@ ;; 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))) + ;; '(: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:/ -- cgit v1.2.3