browse-url of entry at point about wikinfo

[mooseyboots]

i worked something out by shelling out to wiki-summary:

(defun wiki-summary-browse-current ()
    (interactive)
    (browse-url (concat "https://en.wikipedia.org/wiki/" wiki-summary-title)))
  (defun wikinfo-go (arg)
    (interactive "sWikinfo: ")
    (let* ((choice (wikinfo arg))
           (wikinfo (plist-get choice :wikinfo))
           (extract (plist-get wikinfo :extract))
           (title (plist-get wikinfo :title)))
      (wiki-summary title)
      (sleep-for 0.25) ; why is this needed?
      (with-current-buffer "*wiki-summary*"
        (setq-local wiki-summary-title title)
        (local-set-key (kbd "b") #'wiki-summary-browse-current))))
  (global-set-key (kbd "C-c w i") 'wikinfo-go)

this means you can seamlessly go from wikinfo, to wiki summary, to loading with browse-url.