toki/doom-config
1
0
Fork 0
Code Issues Pull requests Activity

fix: delay loading of function override

Browse source
This commit is contained in:
Kiana Sheibani 2025-10-22 13:39:23 -04:00
parent 3e66f68c49
commit 28d500c39e
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

32
config.org
View file

@ -2659,23 +2659,23 @@ Emacs Everywhere is a great idea. Unfortunately, the default package on MELPA us
emacs-everywhere-copy-command emacs-everywhere-copy-command
'("sh" "-c" "wl-copy < %f") '("sh" "-c" "wl-copy < %f")
emacs-everywhere-window-focus-command emacs-everywhere-window-focus-command
'("hyprctl" "dispatch" "focuswindow" "address:%w"))) '("hyprctl" "dispatch" "focuswindow" "address:%w"))
;; Function for accessing current window ;; Function for accessing current window
(defun emacs-everywhere--app-info-linux-hyprland () (defun emacs-everywhere--app-info-linux-hyprland ()
"Return information on the active window, on Hyprland." "Return information on the active window, on Hyprland."
(pcase-let* (pcase-let*
((`(,window-id ,window-class ,window-title . ,window-dims-) ((`(,window-id ,window-class ,window-title . ,window-dims-)
(split-string (shell-command-to-string (split-string (shell-command-to-string
"hyprctl activewindow -j | jaq -r \ "hyprctl activewindow -j | jaq -r \
'.address, .class, .title, .at[], .size[]'") '.address, .class, .title, .at[], .size[]'")
"\n")) "\n"))
(window-dims (mapcar #'string-to-number (butlast window-dims-)))) (window-dims (mapcar #'string-to-number (butlast window-dims-))))
(make-emacs-everywhere-app (make-emacs-everywhere-app
:id window-id :id window-id
:class window-class :class window-class
:title window-title :title window-title
:geometry window-dims))) :geometry window-dims))))
(defpatch! emacs-everywhere (defpatch! emacs-everywhere
(defun emacs-everywhere--app-info-linux) () (defun emacs-everywhere--app-info-linux) ()