[stumpwm] Fix wrong variable name in make-web-jump

This commit is contained in:
Marcel Kapfer 2021-11-18 07:26:39 +01:00
parent 5deb9e4569
commit fc180e22c4
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09

View file

@ -312,7 +312,7 @@
(defmacro make-web-jump (name prefix) (defmacro make-web-jump (name prefix)
`(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string name " search: "))) `(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string name " search: ")))
(substitute #\+ #\Space search) (substitute #\+ #\Space search)
(run-shell-command (concatenate 'string *www-browser* " " ,prefix search)))) (run-shell-command (concatenate 'string *web-browser* " " ,prefix search))))
(make-web-jump "google" "http://www.google.com/search?q=") (make-web-jump "google" "http://www.google.com/search?q=")
(make-web-jump "googlede" "http://www.google.de/search?q=") (make-web-jump "googlede" "http://www.google.de/search?q=")