# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1531751820 0
# Node ID 6d2fdb8941e988634a2710257e665fb4798170a9
# Parent  8b037f76f4c067d3036a01fed3451383b73dd479
Move function

diff -r 8b037f76f4c0 -r 6d2fdb8941e9 stumpwmrc
--- 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*