Update for waybar

This commit is contained in:
2025-10-09 22:40:38 -07:00
parent d7fbed68bf
commit 5b551a4075
5 changed files with 31 additions and 7 deletions

View File

@ -38,6 +38,9 @@ PID can be a string or a number."
(setq args (nconc (list "-c" cfg-dir) args)))
(apply 'call-process "eww" nil 0 nil args)))
(defun update-waybar ()
(call-process "pkill" nil 0 nil "-RTMIN+1" "waybar"))
(cl-defun has-focused-window-p (&optional (server "server"))
"Return non-nil if SERVER has at least one focused window.
SERVER defaults to \"server\"."
@ -50,7 +53,8 @@ SERVER defaults to \"server\"."
"org.fcitx.Fcitx.Controller1" "Toggle")
(let ((state (dbus-call-method :session "org.fcitx.Fcitx5" "/controller"
"org.fcitx.Fcitx.Controller1" "State")))
(set-eww-fcitx-state state)))
(set-eww-fcitx-state state)
(update-waybar)))
;; Local Variables:
;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)