diff options
author | Yuchen Pei <hi@ypei.me> | 2022-09-14 11:10:20 +1000 |
---|---|---|
committer | Yuchen Pei <hi@ypei.me> | 2022-09-14 11:10:20 +1000 |
commit | c6bf32b3c49fe3a80d2e4dae3077bbe607ee940d (patch) | |
tree | d5eebda0894276b3517b08b14cfe9d3685ee4973 | |
parent | 7b28a1cdf2c0b5f431377f218720698e8dfdbb47 (diff) | |
parent | 0eac70ce283a35627e2c2173ae230344e40e4b52 (diff) |
Merge branch 'master' of localhost:/srv/git/servall
-rw-r--r-- | lisp/servall-client.el | 4 | ||||
-rw-r--r-- | lisp/servall-wikipedia.el | 2 |
2 files changed, 5 insertions, 1 deletions
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 060e10d..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))) @@ -130,7 +131,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 |