mmk2410/dotfiles
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

StumpWM: Updated make-web-jump to parameter applications

Browse source
This commit is contained in:
Marcel Kapfer 2019-04-06 07:48:10 +02:00
parent dcb8d29c4b
commit 840854bd84
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
stumpwm/stumpwmrc
View file

@ -320,14 +320,14 @@
(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 ,prefix search)))) (run-shell-command (concatenate 'string *www-browser* " " ,prefix search))))
(make-web-jump "google" "x-www-browser http://www.google.com/search?q=") (make-web-jump "google" "http://www.google.com/search?q=")
(make-web-jump "googlede" "x-www-browser http://www.google.de/search?q=") (make-web-jump "googlede" "http://www.google.de/search?q=")
(make-web-jump "duckduckgo" "x-www-browser https://duckduckgo.com/?q=") (make-web-jump "duckduckgo" "https://duckduckgo.com/?q=")
(make-web-jump "packages" "x-www-browser https://packages.debian.org/") (make-web-jump "packages" "https://packages.debian.org/")
(make-web-jump "wikipedia" "x-www-browser https://en.wikipedia.org/w/index.php?search=") (make-web-jump "wikipedia" "https://en.wikipedia.org/w/index.php?search=")
(make-web-jump "wikipediade" "x-www-browser https://de.wikipedia.org/w/index.php?search=") (make-web-jump "wikipediade" "https://de.wikipedia.org/w/index.php?search=")
(defun list-screen-layouts () (defun list-screen-layouts ()
"Return an alist of possible screen layouts. Those are the layouts saved in "Return an alist of possible screen layouts. Those are the layouts saved in