From 1c8cab9a44fa80e88afc016067623d7e3a25bb10 Mon Sep 17 00:00:00 2001
From: yuzu-eva <stevenhu@web.de>
Date: Tue, 17 Dec 2024 18:52:36 +0100
Subject: initial commit

---
 modeline.lisp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 modeline.lisp

(limited to 'modeline.lisp')

diff --git a/modeline.lisp b/modeline.lisp
new file mode 100644
index 0000000..c96a2e0
--- /dev/null
+++ b/modeline.lisp
@@ -0,0 +1,16 @@
+(defpackage #:config.modeline
+            (:use #:cl #:config #:stumpwm))
+(in-package #:config.modeline)
+
+(load-module "cpu")
+(load-module "mem")
+(load-module "stumptray")
+
+(setf *mode-line-timeout* 2)
+(setf *time-modeline-string* "%A, %F - %H:%M")
+(setf *window-format* "%n: %30t")
+
+(setf cpu::*cpu-modeline-fmt* "%c")
+
+(setf *screen-mode-line-format*
+      (list "[%n] %v ^> %C | %M | %d" (make-string 4 :initial-element #\Space)))
-- 
cgit v1.2.3