General refactor & cleanup + update TODO

This commit is contained in:
Henrik Lissner 2017-05-15 20:44:08 +02:00
parent c98efbe28e
commit b03f2cbf48
5 changed files with 45 additions and 54 deletions

View file

@ -41,9 +41,9 @@
"TODO"
(interactive
(list (completing-read "Search on: "
(mapcar #'car +lookup-search-url-alist)
(mapcar #'car +jump-search-url-alist)
nil t)))
(let ((url (cdr (assoc where +lookup-search-url-alist)))
(let ((url (cdr (assoc where +jump-search-url-alist)))
(search (or search (read-string "Query: "))))
(browse-url (format url (url-encode-url search)))))

View file

@ -13,15 +13,16 @@
;; functionality. Warning: xref may change drastically in future updates.
;; 3. Simple ways to look up the symbol at point in external resources, like
;; stackoverflow, devdocs.io or google. See `+jump/online' (TODO Test me!)
;; 4. TODO Automatic and transparent integration with cscope databases and ctags
;; files. Databases are optionally isolated to the Emacs environment.
;; 4. TODO Automatic & transparent integration with cscope dbs + ctags.
;; Databases are optionally isolated to the Emacs environment.
(defvar +lookup-search-url-alist
'(("Google" . "https://google.com/?q=%s")
(defvar +jump-search-url-alist
'(("Google" . "https://google.com/search?q=%s")
("DuckDuckGo" . "https://duckduckgo.com/?q=%s")
("DevDocs.io" . "http://devdocs.io/#q=%s")
("StackOverflow" . "https://stackoverflow.com/search?q=%s"))
"An alist that maps online resources to their search url.")
"An alist that maps online resources to their search url. Used by
`+jump/online'.")
(set! :popup "*xref*" :size 10 :noselect t :autokill t :autoclose t)