From 9140b466356cb71231d98e8bc8b0fef870d174e1 Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremy.dormitzer@gmail.com>
Date: Tue, 7 Jul 2020 16:34:13 -0400
Subject: [PATCH] Add bad modeline hack

---
 stumpwm/.stumpwm.d/init.lisp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp
index a132db6..cf214cb 100644
--- a/stumpwm/.stumpwm.d/init.lisp
+++ b/stumpwm/.stumpwm.d/init.lisp
@@ -240,3 +240,11 @@
 ;; Syncthing Tray
 (run-shell-command "syncthingtray")
 
+;; Hack to get polybar to appear on startup
+(defcommand poke-modeline () ()
+  (mode-line)
+  (mode-line))
+(define-key *root-map* (kbd "C-m") "poke-modeline")
+
+;; (sleep 1)
+;; (poke-modeline)