From 5ade92a42a076bd0fe86aeeb85447683ca167691 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 7 Mar 2024 01:17:08 +0200 Subject: stumpwm: Add cpu temp on modeline --- .stumpwm.d/modeline.lisp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to '.stumpwm.d') diff --git a/.stumpwm.d/modeline.lisp b/.stumpwm.d/modeline.lisp index cf9bcc3..308186f 100644 --- a/.stumpwm.d/modeline.lisp +++ b/.stumpwm.d/modeline.lisp @@ -26,9 +26,14 @@ (setf *time-modeline-string* "%a %d/%m/%Y | %H:%M") (setf stumpwm:*screen-mode-line-format* - (list "%g ^> %C| RAM:%M| VOL:" + (list "%g ^> %C " '(:eval (string-trim '(#\Newline) - (stumpwm:run-shell-command "amixer get Master | awk '/Front Left:/ { print substr($5, 2, length($5)-2) }'" t))) + (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") -- cgit v1.2.3