From 7415e81bcf8cd41e6b2717e9ea7e19573eae0108 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Wed, 14 Sep 2022 10:40:10 +1000 Subject: [client] Removing prepending level 1 heading --- lisp/servall-wikipedia.el | 1 - 1 file changed, 1 deletion(-) (limited to 'lisp') diff --git a/lisp/servall-wikipedia.el b/lisp/servall-wikipedia.el index 060e10d..c63a1fc 100644 --- a/lisp/servall-wikipedia.el +++ b/lisp/servall-wikipedia.el @@ -130,7 +130,6 @@ (erase-buffer) (if (and (file-exists-p filename) (not force)) (insert-file-contents filename) - (insert "* " title "\n") (insert (servall-api-wikipedia-org title)) (servall-wikipedia-fix-tables) (when servall-wikipedia-auto-save -- cgit v1.2.3 From 0eac70ce283a35627e2c2173ae230344e40e4b52 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Wed, 14 Sep 2022 11:09:13 +1000 Subject: [client] Adding a call to summary to get canonical title --- lisp/servall-client.el | 4 ++++ lisp/servall-wikipedia.el | 1 + 2 files changed, 5 insertions(+) (limited to 'lisp') diff --git a/lisp/servall-client.el b/lisp/servall-client.el index cb01aed..82a5f35 100644 --- a/lisp/servall-client.el +++ b/lisp/servall-client.el @@ -13,6 +13,10 @@ (servall-url-fetch-json (concat servall-endpoint "/wikipedia/org/" name))) +(defun servall-api-wikipedia-summary (name) + (servall-url-fetch-json + (concat servall-endpoint "/wikipedia/summary/" name))) + (defun servall-parse-http-header (text) (let ((status) (fields)) (with-temp-buffer diff --git a/lisp/servall-wikipedia.el b/lisp/servall-wikipedia.el index c63a1fc..c6ba504 100644 --- a/lisp/servall-wikipedia.el +++ b/lisp/servall-wikipedia.el @@ -117,6 +117,7 @@ servall-wikipedia-history-next next))) (defun servall-wikipedia-load (title &optional force prev) + (setq title (alist-get 'title (servall-api-wikipedia-summary title))) (let* ((buffer-name (servall-wikipedia-view-buffer title)) (buffer (get-buffer buffer-name)) (filename (format "%s/%s.org" servall-wikipedia-save-dir title))) -- cgit v1.2.3