Wayland support

tecosaur · Apr 1, 2024 · 2770c0c · 2770c0c
1 parent ddb092d
commit 2770c0c
Showing 1 changed file with 13 additions and 4 deletions.
diff --git a/screenshot.el b/screenshot.el
@@ -539,10 +539,19 @@ If BODY starts with :no-img then `screenshot--process' is not called."
 
 (screenshot--def-action copy
   "Copy the current selection (BEG-END) as an image to the clipboard."
-  (call-process "xclip" nil nil nil
-                "-selection" "clipboard"
-                "-target" "image/png"
-                "-in" screenshot--tmp-file)
+  (let ((wayland-p (getenv "WAYLAND_DISPLAY")))
+    (cond
+     ((and wayland-p (executable-find "wl-copy"))
+      (call-process "wl-copy" screenshot--tmp-file nil nil
+                    "--type" "image/png"))
+     ((and (not wayland-p) (executable-find "xclip"))
+      (call-process "xclip" nil nil nil
+                    "-selection" "clipboard"
+                    "-target" "image/png"
+                    "-in" screenshot--tmp-file))
+     (t
+      (user-error "Missing `%s' executable, needed to copy images to the clipboard"
+                  (if wayland-p "wl-copy" "xclip")))))
   (delete-file screenshot--tmp-file)
   (message "Screenshot copied"))