pinwheel: Copy to clipboard via OSC 52 in Emacs so it works over SSH

hosts/pinwheel/modules/emacs/config.org

@@ -86,8 +86,24 @@
 * Setup
 #+BEGIN_SRC emacs-lisp
 #+END_SRC
-** Use wl-clipboard for interprocess copy/paste
+** Use wl-clipboard and OSC 52 for interprocess copy/paste
 #+BEGIN_SRC emacs-lisp
+  (setq kill-do-not-save-duplicates t)
+
+  (defun alex/osc52-copy (text)
+    (unless (display-graphic-p)
+      (send-string-to-terminal
+       (concat "\e]52;c;"
+               (base64-encode-string (encode-coding-string text 'utf-8) t)
+               "\a"))))
+
+  (defun alex/clipboard-copy (text)
+    (alex/osc52-copy text)
+    (when (fboundp 'wl-copy)
+      (wl-copy text)))
+
+  (setq interprogram-cut-function 'alex/clipboard-copy)
+
   (setq wl-copy-process nil)
   (when (string-prefix-p "wayland" (getenv "WAYLAND_DISPLAY"))
     (defun wl-copy (text)
@@ -103,7 +119,6 @@
           nil ; should return nil if we're the current paste owner
           (shell-command-to-string "wl-paste -n | tr -d \r")))
 
-    (setq interprogram-cut-function 'wl-copy)
     (setq interprogram-paste-function 'wl-paste))
 #+END_SRC
 ** Don't create backup files, don't create #autosave# files