From 161752ee1943dbb25060a1488086da1a00aeaadb Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 10 Jul 2023 13:12:18 +1000 Subject: Implement wiki-fetch-prefer-local --- wiki-utils.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'wiki-utils.el') diff --git a/wiki-utils.el b/wiki-utils.el index 5b66075..c2500a4 100644 --- a/wiki-utils.el +++ b/wiki-utils.el @@ -34,14 +34,14 @@ "If non-nil, visit the local file if exists when instructed for fetching.") -(defun wiki-fetch-url (url &optional callback title) +(defun wiki-fetch-url (url dir &optional callback title) "Fetch URL asynchronously. Then calls CALLBACK which is a closure taking no argument." (interactive "sURL: ") (let ((file-name (expand-file-name (or title (wiki-make-file-name-from-url url)) - wiki-download-dir)) + dir)) (cb (lambda (status file-name) (wiki-fetch-url-save-and-switch status file-name) (when callback (funcall callback))))) -- cgit v1.2.3