jumps.lisp

(in-package:lispkit)


(defparameter*jumps* (make-hash-table:test#'equal))

(defundefjump (place prefix url)
 (setf (gethash prefix place) url))

(defjump *jumps*"g""https://google.com/search?q=~a")
(defjump *jumps*"gh""https://github.com/search?&q=~a")
(defjump *jumps*"y""https://www.youtube.com/results?search_query=~a")
(defjump *jumps*"r""https://www.reddit.com/r/~a/")


(defunlookup-jump (s table)
 (gethash s table))

(defunextract-jump-str (s)
 (let ((splits (split-sequence #\Space s)))
 (list (first splits) (formatnil"~{~a~^~}" (rest splits)))))

(defmacromultiple-value-destructuring-bind (lambda-list value-list &body body)
 (let ((ignore (gensym)))
`(destructuring-bind (,@lambda-list &rest,ignore)
 (multiple-value-list,value-list)
 (declare (ignore,ignore))
,@body)))

(defunapply-jumps (s browser)
 (multiple-value-destructuring-bind ((jump args)) (extract-jump-str s)
 (let ((jump? (lookup-jump jump *jumps*)))
 (when jump?
 (load-url (formatnil jump? args) browser)
t))))