From 314dec9c9711c0961d7e80a334d8c609d55dfd2d Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Tue, 13 Mar 2018 23:26:13 +0100 Subject: [PATCH] StumpWM: Browser saved in a constant --- stumpwm/stumpwmrc | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc index 915af51..cd1e76c 100644 --- a/stumpwm/stumpwmrc +++ b/stumpwm/stumpwmrc @@ -9,6 +9,7 @@ (in-package :stumpwm) (defparameter *key-layout* "us -variant altgr-intl" "Stores the current key layout") +(defconstant browser "firefox" "Constant holding the default browser.") ;; creating or rename groups (setf (group-name (first (screen-groups (current-screen)))) "web") @@ -87,8 +88,8 @@ ;; root keybindings ; ;; browser -(define-key *root-map* (kbd "W") "exec firefox") -(define-key *root-map* (kbd "P") "exec firefox --private-window") +(define-key *root-map* (kbd "W") (concatenate 'string "exec" " " browser)) +(define-key *root-map* (kbd "P") (concatenate 'string "exec" " " browser " " "--private-window")) ;;; terminal (define-key *root-map* (kbd "c") "exec urxvt") @@ -264,12 +265,12 @@ (substitute #\+ #\Space search) (run-shell-command (concatenate 'string ,prefix search)))) -(make-web-jump "google" "firefox-nightly http://www.google.com/search?q=") -(make-web-jump "googlede" "firefox-nightly http://www.google.de/search?q=") -(make-web-jump "duckduckgo" "firefox-nightly https://duckduckgo.com/?q=") -(make-web-jump "packages" "firefox-nightly https://packages.debian.org/search?suite=sid&searchon=names&keywords=") -(make-web-jump "wikipedia" "firefox-nightly https://en.wikipedia.org/w/index.php?search=") -(make-web-jump "wikipediade" "firefox-nightly https://de.wikipedia.org/w/index.php?search=") +(make-web-jump "google" (concatenate 'string browser " " "http://www.google.com/search?q=")) +(make-web-jump "googlede" (concatenate 'string browser " " "http://www.google.de/search?q=")) +(make-web-jump "duckduckgo" (concatenate 'string browser " " "https://duckduckgo.com/?q=")) +(make-web-jump "packages" (concatenate 'string browser " " "https://packages.debian.org/")) +(make-web-jump "wikipedia" (concatenate 'string browser " " "https://en.wikipedia.org/w/index.php?search=")) +(make-web-jump "wikipediade" (concatenate 'string browser " " "https://de.wikipedia.org/w/index.php?search=")) (defun list-screen-layouts () "Return an alist of possible screen layouts. Those are the layouts saved in @@ -334,7 +335,7 @@ script." (run-shell-command "bwsyncandshare") ;; firefox -(run-shell-command "firefox") +(run-shell-command browser) ;; telegram (run-shell-command "telegram-desktop")