From 4be35779ecfe5a9c20a9837e2ebea26c68d20978 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 5 Mar 2022 23:31:00 +0000
Subject: xmobar is not only for exwm

---
 exwm.org |  9 ---------
 init.org | 21 +++++++++++++++++----
 2 files changed, 17 insertions(+), 13 deletions(-)

diff --git a/exwm.org b/exwm.org
index 1975cc3..56073f5 100644
--- a/exwm.org
+++ b/exwm.org
@@ -281,15 +281,6 @@
     (jao-def-exwm-runner jao-exwm-packages 0 "*Packages*" list-packages nil)
     (jao-def-exwm-runner jao-exwm-proced 0 "*Proced*" proced)
 
-    (defun jao-exwm-kill-xmobar ()
-      (interactive)
-      (shell-command "killall xmobar-exwm"))
-
-    (defun jao-exwm-xmobar ()
-      (interactive)
-      (jao-exwm-kill-xmobar)
-      (start-process "" nil "xmobar-exwm" "-d"))
-
     (jao-def-exwm-runner jao-exwm-open-with-zathura nil nil "zathura" (buffer-file-name))
     (jao-def-exwm-runner jao-exwm-open-with-mupdf nil nil "mupdf" (buffer-file-name))
     (jao-def-exwm-runner jao-exwm-xterm 0 nil "xterm")
diff --git a/init.org b/init.org
index 5df0db5..af773e8 100644
--- a/init.org
+++ b/init.org
@@ -634,6 +634,18 @@
             select-enable-primary t
             selection-timeout 100)
     #+END_SRC
+*** xmobar
+    #+begin_src emacs-lisp
+      (defun jao-xmobar-kill ()
+        (interactive)
+        (shell-command "killall xmobar-exwm"))
+
+      (defun jao-xmobar-restart ()
+        (interactive)
+        (jao-xmobar-kill)
+        (start-process "" nil "xmobar-exwm" "-d"))
+
+    #+end_src
 * Mode line and minibuffer
 *** Time display
     #+begin_src emacs-lisp
@@ -3115,19 +3127,20 @@
        ["Monitors"
         ("p" "htop" jao-term-htop)
         ("v" "vpn status" jao-mullvad-status)
-        ("T" "telegram rooster" telega)
         ("N" "network interfaces" enwc)]
        ["Network"
         ("S" "ssh" jao-ssh)
         ("b" "bluetooth" bluetooth-list-devices)
-        ("c" "connect chats" jao-all-chats)]
+        ("c" "connect chats" jao-all-chats)
+        ("T" "telegram rooster" telega)]
        ["Chats"
         ("t" "telegram" jao-chats-telega)
         ("s" "slack" jao-chats-slack)
         ("i"  "irc" jao-chats-irc)]
-       ["Windows" :if window-system
+       ["Window system" :if window-system
         ("w" "set wallpaper" jao-set-wallpaper)
-        ("W" "set radom wallpaper" jao-set-random-wallpaper)]
+        ("W" "set radom wallpaper" jao-set-random-wallpaper)
+        ("x" "restart xmobar" jao-xmobar-restart :if window-system)]
        ["Helpers"
         ("r" "org reveal" org-reveal)
         ("k" (lambda () (concat "keyboard" (when (jao-kb-toggled-p) "*")))
-- 
cgit v1.2.3