howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changes to Linux for pasting text into buffers.

Browse source
This commit is contained in:
Howard Abrams 2026-01-28 19:52:58 -08:00
parent c20eda48a8
commit e90fc277d3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ha-org-clipboard.org
View file

@ -166,10 +166,10 @@ And define the same interface for Linux. Keep in mind, we need the exit code fro
(defun ha-get-linux-clipboard () (defun ha-get-linux-clipboard ()
"Return the clipbaard for a Unix-based system. See `ha-get-clipboard'." "Return the clipbaard for a Unix-based system. See `ha-get-clipboard'."
(cl-destructuring-bind (exit-code contents) (cl-destructuring-bind (exit-code contents)
(shell-command-with-exit-code "xclip" "-o" "-t" "text/html") (shell-command-with-exit-code "wl-paste" "--type" "text/html")
(if (= 0 exit-code) (if (= 0 exit-code)
(list :html contents) (list :html contents)
(list :text (shell-command-to-string "xclip -o"))))) (list :text (shell-command-to-string "wl-paste")))))
(defun shell-command-with-exit-code (program &rest args) (defun shell-command-with-exit-code (program &rest args)
"Run PROGRAM with ARGS and return the exit code and output in a list." "Run PROGRAM with ARGS and return the exit code and output in a list."