From 2fa391e20929f2de4535a496d5487231ab4fd27e Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 30 Apr 2022 02:09:48 +0100 Subject: xmonad: xmobar killable by transient --- init.org | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/init.org b/init.org index dd5e15e..0bddfac 100644 --- a/init.org +++ b/init.org @@ -484,10 +484,11 @@ *** xmonad #+begin_src emacs-lisp (defvar jao-xmonad-enabled (string= "xmonad" (or (getenv "wm") ""))) + (defun jao-xmonad-enabled-p () jao-xmonad-enabled) (defun jao-xmonad-enable () (setq jao-browse-doc-use-emacs-p t) - (setq jao-wallpaper-random-wake nil) + (setq jao-wallpaper-random-wake t) (jao-set-transparency) (jao-trisect) (message "Welcome to xmonad")) @@ -3255,7 +3256,8 @@ ["Window system" :if window-system ("w" "set wallpaper" jao-set-wallpaper) ("W" "set radom wallpaper" jao-set-random-wallpaper) - ("x" "restart xmobar" jao-xmobar-restart :if window-system)] + ("x" "restart xmobar" jao-xmobar-restart :if jao-exwm-enabled-p) + ("x" "kill xmobar" jao-xmobar-kill :if jao-xmonad-enabled-p)] ["Helpers" ("r" "org reveal" org-reveal) ("k" (lambda () (concat "keyboard" (when (jao-kb-toggled-p) "*"))) -- cgit v1.2.3