diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-09-14 11:09:13 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-09-14 11:09:13 +1000 |
| commit | 0eac70ce283a35627e2c2173ae230344e40e4b52 (patch) | |
| tree | d8ee0dcb3ea336d418a95149a364a2bae63f57cc | |
| parent | 7415e81bcf8cd41e6b2717e9ea7e19573eae0108 (diff) | |
[client] Adding a call to summary to get canonical title
| -rw-r--r-- | lisp/servall-client.el | 4 | ||||
| -rw-r--r-- | lisp/servall-wikipedia.el | 1 |
2 files changed, 5 insertions, 0 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 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))) |