diff options
Diffstat (limited to '.stumpwm.d/modeline.lisp')
-rw-r--r-- | .stumpwm.d/modeline.lisp | 45 |
1 files changed, 0 insertions, 45 deletions
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)) |