Merge: Fix clipboard access on Mac/Windows

Closes <#66>.
alphapapa · Dec 13, 2023 · ebeb297 · ebeb297
2 parents 624e7b4 + 71b34be
commit ebeb297
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/README.org b/README.org
@@ -58,6 +58,7 @@ Install [[https://github.com/magnars/dash.el][dash.el]], [[https://github.com/ta
 
 *Fixes*
 + Default options to Wget (see [[https://github.com/alphapapa/org-web-tools/issues/35][#35]]).
++ Finding URL in clipboard on MacOS and Windows.  (See [[https://github.com/alphapapa/org-web-tools/pull/66][#66]].  Thanks to [[https://github.com/askdkc][@askdkc]].)
 
 *Internal*
 + Use ~plz~ HTTP library and make various related optimizations.

diff --git a/org-web-tools.el b/org-web-tools.el
@@ -449,8 +449,7 @@ HTML."
 
 (defun org-web-tools--get-first-url ()
   "Return URL in clipboard, or first URL in the `kill-ring', or nil if none."
-  (cl-loop for item in (append (list (gui-get-selection 'CLIPBOARD))
-                               kill-ring)
+  (cl-loop for item in (cons (current-kill 0) kill-ring)
            when (and item (string-match (rx bol "http" (optional "s") "://") item))
            return item))