[stumpwm] use internal function for displaying time in modeline

This commit is contained in:
Marcel Kapfer 2021-11-18 18:37:11 +01:00
parent 8137f5931f
commit 3d3e001a88
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09

View file

@ -77,11 +77,12 @@
;; mode-line style ;; mode-line style
(setf *mode-line-background-color* "#333333" (setf *mode-line-background-color* "#333333"
*mode-line-foreground-color* "#cccccc" *mode-line-foreground-color* "#cccccc"
*time-modeline-string* "%a %b %e %k:%M"
*mode-line-timeout* 5 *mode-line-timeout* 5
*mode-line-border-width* 0 *mode-line-border-width* 0
*mode-line-pad-x* 3 *mode-line-pad-x* 3
*mode-line-pad-y* 3 *mode-line-pad-y* 3
*screen-mode-line-format* (list " [%g] %w ^> [%B] [" '(:eval (RUN-SHELL-COMMAND "date '+%F %H:%M'|tr -d [:cntrl:]" T)) "] %T")) *screen-mode-line-format* (list " [%g] %w ^> [%B] [ %d ] %T"))
;; Gaps ;; Gaps
(load-module "swm-gaps") (load-module "swm-gaps")