Skip to content

Commit

Permalink
Remove broken helm wikipedia code
Browse files Browse the repository at this point in the history
  • Loading branch information
@thierryvolpiatto
thierryvolpiatto committed Mar 13, 2019
1 parent e8958f4 commit 4ef8299
Showing 1 changed file with 0 additions and 158 deletions.
158 changes: 0 additions & 158 deletions helm-net.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -79,27 +79,13 @@ a personal url, see your settings on duckduckgo."
:type 'string
:group 'helm-net)

(defcustom helm-wikipedia-suggest-url
"https://en.wikipedia.org/w/api.php?action=opensearch&search=%s"
"Url used for looking up Wikipedia suggestions.
This is a format string, don't forget the `%s'."
:type 'string
:group 'helm-net)

(defcustom helm-search-suggest-action-wikipedia-url
"https://en.wikipedia.org/wiki/Special:Search?search=%s"
"The Wikipedia search url.
This is a format string, don't forget the `%s'."
:type 'string
:group 'helm-net)

(defcustom helm-wikipedia-summary-url
"https://en.wikipedia.org/w/api.php?action=parse&format=json&prop=text&section=0&page=%s"
"URL for getting the summary of a Wikipedia topic.
This is a format string, don't forget the `%s'."
:type 'string
:group 'helm-net)

(defcustom helm-search-suggest-action-youtube-url
"https://www.youtube.com/results?aq=f&search_query=%s"
"The Youtube search url.
Expand Down Expand Up @@ -256,142 +242,6 @@ Can be \"-new-tab\" (default) or \"-new-window\"."
"Try to emacs lisp complete with google suggestions."
(helm-google-suggest-set-candidates "emacs lisp"))

;;; Wikipedia suggestions
;;
;;
(declare-function json-read-from-string "json" (string))
(defun helm-wikipedia-suggest-fetch ()
"Fetch Wikipedia suggestions and return them as a list."
(require 'json)
(let ((request (format helm-wikipedia-suggest-url
(url-hexify-string helm-pattern))))
(helm-net--url-retrieve-sync
request #'helm-wikipedia--parse-buffer)))

(defun helm-wikipedia--parse-buffer ()
(goto-char (point-min))
(when (re-search-forward "^\\[.+\\[\\(.*\\)\\]\\]" nil t)
(cl-loop for i across (aref (json-read-from-string (match-string 0)) 1)
collect i into result
finally return (or result
(append
result
(list (cons (format "Search for '%s' on wikipedia"
helm-pattern)
helm-pattern)))))))

(defvar helm-wikipedia--summary-cache (make-hash-table :test 'equal))
(defun helm-wikipedia-show-summary (input)
"Show Wikipedia summary for INPUT in new buffer."
(interactive)
(let ((buffer (get-buffer-create "*helm wikipedia summary*"))
(summary (helm-wikipedia--get-summary input)))
(with-current-buffer buffer
(visual-line-mode)
(erase-buffer)
(insert summary)
(pop-to-buffer (current-buffer))
(goto-char (point-min)))))

(defun helm-wikipedia-persistent-action (candidate)
(unless (string= (format "Search for '%s' on wikipedia"
helm-pattern)
(helm-get-selection nil t))
(message "Fetching summary from Wikipedia...")
(let ((buf (get-buffer-create "*helm wikipedia summary*"))
(result (helm-wikipedia--get-summary candidate)))
(with-current-buffer buf
(erase-buffer)
(setq cursor-type nil)
(insert result)
(fill-region (point-min) (point-max))
(goto-char (point-min)))
(display-buffer buf))))

(defun helm-wikipedia--get-summary (input)
"Return Wikipedia summary for INPUT as string.
Follows any redirections from Wikipedia, and stores results in
`helm-wikipedia--summary-cache'."
(let (result)
(while (progn
(setq result (or (gethash input helm-wikipedia--summary-cache)
(puthash input
(helm-wikipedia--fetch-summary input)
helm-wikipedia--summary-cache)))
(when (and result
(listp result))
(setq input (cdr result))
(message "Redirected to %s" input)
t)))
(unless result
(error "Error when getting summary."))
result))

(defun helm-wikipedia--fetch-summary (input)
(let* ((request (format helm-wikipedia-summary-url
(url-hexify-string input))))
(helm-net--url-retrieve-sync
request #'helm-wikipedia--parse-summary)))

(defun helm-wikipedia--parse-summary ()
(goto-char (point-min))
(when (search-forward "{" nil t)
(let ((result (cdr (assq '*
(assq 'text
(assq 'parse
(json-read-from-string
(buffer-substring-no-properties
(1- (point)) (point-max)))))))))
(when result
(if (string-match "<span class=\"redirectText\"><a href=[^>]+>\\([^<]+\\)" result)
(cons 'redirect (match-string 1 result))

;; find the beginning of the summary text in the result

;; check if there is a table before the summary and skip that
(when (or (string-match "</table>\\(\n<div.*?</div>\\)?\n<p>" result)
;; otherwise just find the first paragraph
(string-match "<p>" result))
;; remove cruft and do a simple formatting
(replace-regexp-in-string
"Cite error: .*" ""
(replace-regexp-in-string
"&#160;" ""
(replace-regexp-in-string
"\\[[^\]]+\\]" ""
(replace-regexp-in-string
"<[^>]*>" ""
(replace-regexp-in-string
"</p>\n<p>" "\n\n"
(substring result (match-end 0)))))))))))))


(defvar helm-wikipedia-map
(let ((map (copy-keymap helm-map)))
(define-key map (kbd "<C-return>") 'helm-wikipedia-show-summary-action)
map)
"Keymap for `helm-wikipedia-suggest'.")

(defvar helm-source-wikipedia-suggest
(helm-build-sync-source "Wikipedia Suggest"
:candidates #'helm-wikipedia-suggest-fetch
:action '(("Wikipedia" . (lambda (candidate)
(helm-search-suggest-perform-additional-action
helm-search-suggest-action-wikipedia-url
candidate)))
("Show summary in new buffer (C-RET)" . helm-wikipedia-show-summary))
:persistent-action #'helm-wikipedia-persistent-action
:persistent-help "show summary"
:volatile t
:keymap helm-wikipedia-map
:requires-pattern 3))

(defun helm-wikipedia-show-summary-action ()
"Exit Helm buffer and call `helm-wikipedia-show-summary' with selected candidate."
(interactive)
(with-helm-alive-p
(helm-exit-and-execute-action 'helm-wikipedia-show-summary)))


;;; Web browser functions.
;;
Expand Down Expand Up @@ -565,14 +415,6 @@ NOTE: Probably not supported on some systems (e.g Windows)."
(interactive)
(helm-other-buffer 'helm-source-google-suggest "*helm google*"))

;;;###autoload
(defun helm-wikipedia-suggest ()
"Preconfigured `helm' for Wikipedia lookup with Wikipedia suggest."
(interactive)
(helm :sources 'helm-source-wikipedia-suggest
:buffer "*helm wikipedia*"))


(provide 'helm-net)

;; Local Variables:
Expand Down

0 comments on commit 4ef8299

Please sign in to comment.