Update for waybar
This commit is contained in:
@ -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)
|
||||
|
Reference in New Issue
Block a user