General refactor & cleanup + update TODO
This commit is contained in:
parent
c98efbe28e
commit
b03f2cbf48
5 changed files with 45 additions and 54 deletions
|
@ -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)))))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue