From 899b074f259e699d8b97bf5ff6644d9efc1e4bda Mon Sep 17 00:00:00 2001
From: Marcel Kapfer <opensource@mmk2410.org>
Date: Sat, 25 Nov 2017 23:00:56 +0100
Subject: [PATCH] StumpWM: Include stumptray in modeline

---
 stumpwm/stumpwmrc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc
index 56b5539..1fbb5b9 100644
--- a/stumpwm/stumpwmrc
+++ b/stumpwm/stumpwmrc
@@ -54,6 +54,9 @@
 ;; loading modeline modules
 (load-module "battery-portable")
 (load-module "hostname")
+(load-module "stumptray")
+
+(stumptray:stumptray)
 
 ;; mode-line style
 (setf *mode-line-background-color* "#333333"
@@ -63,7 +66,7 @@
       *mode-line-border-width* 3
       *mode-line-pad-x* 3
       *mode-line-pad-y* 3
-      *screen-mode-line-format* (list "[" '(:eval (RUN-SHELL-COMMAND "date '+%F %H:%M'|tr -d [:cntrl:]" T)) "] [%n]  %W ^> [%B] [marcel@%h]  "))
+      *screen-mode-line-format* (list "[" '(:eval (RUN-SHELL-COMMAND "date '+%F %H:%M'|tr -d [:cntrl:]" T)) "] [%n]  %w ^> [" '(:eval (RUN-SHELL-COMMAND "hostname -I |tr -d [:cntrl:]" T)) "][%B] [marcel@%h] %T"))
 
 ;; customize texts
 (setf *window-format* "^B %n ^b %20t "