6d2fdb8941e9

--- 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*