diff options
| -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 |