Switch to upstream emacs-everywhere from personal Hyprland fork

Because upstream has been updated and is customizable enough to support Hyprland
relatively easily without needing a fork now.

init.el

@@ -831,15 +831,29 @@
   (org-msg-greeting-fmt "\nHi%s,\n\n"))
 
 (use-package emacs-everywhere
-  :ensure nil
-  :commands emacs-everywhere
   :custom
-  (emacs-everywhere-frame-parameters '((name . "emacs-everywhere")
+  (emacs-everywhere-app-info-function
-                                       (alpha-background . 1.0)))
+   (lambda ()
+     (let* ((string-data (emacs-everywhere-call "hyprctl" "-j" "activewindow"))
+            (window-data (json-parse-string string-data
+                                            :object-type 'plist
+                                            :array-type 'list
+                                            :null-object nil
+                                            :false-object nil))
+            (window-id (plist-get window-data :address))
+            (app-id (plist-get window-data :class))
+            (window-title (plist-get window-data :title))
+            (window-geometry (append (plist-get window-data :at)
+                                     (plist-get window-data :size))))
+       (make-emacs-everywhere-app
+        :id window-id
+        :class app-id
+        :title window-title
+        :geometry window-geometry))))
+  (emacs-everywhere-window-focus-command '("hyprctl" "dispatch" "focuswindow" "address:%w"))
   :config
-  (setq emacs-everywhere-frame-parameters
+  (dolist (f '((alpha-background . 1.0) (width . 120) (height . 20)))
-        (append '((alpha-background . 1.0) (width . 120) (height . 20))
+    (add-to-list 'emacs-everywhere-frame-parameters f)))
-                emacs-everywhere-frame-parameters)))
 
 (use-package prettify-symbols
   :ensure nil