diff --git a/README.org b/README.org index 728e21f..8f15389 100644 --- 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 index 3938d22..51ae174 100644 --- 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))