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