From df249ff2002239412a8aa25660cca6a6d294be9a Mon Sep 17 00:00:00 2001 From: Max Beutelspacher Date: Sun, 23 Jan 2022 20:18:05 +0100 Subject: [PATCH] fix goodreads parsing Revert partly Add LibraryThing series scraping capability (2dab7957e98bc0bf8e8aa024c594461ee4a7cb41) --- org-books.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/org-books.el b/org-books.el index 4c6a3bd..0091a2c 100644 --- a/org-books.el +++ b/org-books.el @@ -295,9 +295,10 @@ Assumes it has one." Return a list of three items: title (string), author (string) and an alist of properties to be applied to the org entry. If the url is not supported, throw an error." - (let ((output 'no-match)) + (let ((output 'no-match) + (url-host-string (url-host (url-generic-parse-url url)))) (cl-dolist (pattern-fn-pair org-books-url-pattern-dispatches) - (when (s-matches? (car pattern-fn-pair) url) + (when (s-matches? (car pattern-fn-pair) url-host-string) (setq output (funcall (cdr pattern-fn-pair) url)) (cl-return))) (if (eq output 'no-match)