--- a/stumpwmrc Mon Jul 09 11:23:52 2018 -0400
+++ b/stumpwmrc Mon Jul 16 14:37:00 2018 +0000
@@ -16,11 +16,6 @@
;;;; Utils --------------------------------------------------------------------
-(defun ensure-mode-line ()
- (when (not (stumpwm::head-mode-line (current-head)))
- (toggle-mode-line (current-screen) (current-head))))
-
-
(defun string-contains (needle string)
(and (search needle string :test #'char=) t))
@@ -294,6 +289,10 @@
;;;; Modeline -----------------------------------------------------------------
+(defun ensure-mode-line ()
+ (when (not (stumpwm::head-mode-line (current-head)))
+ (toggle-mode-line (current-screen) (current-head))))
+
(defun configure-modeline ()
(setf
*time-modeline-string*