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

StumpWM: Browser saved in a constant

Browse source
This commit is contained in:
Marcel Kapfer 2018-03-13 23:26:13 +01:00
parent 9567e26c05
commit 314dec9c97
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
stumpwm/stumpwmrc
View file

@ -9,6 +9,7 @@
(in-package :stumpwm) (in-package :stumpwm)
(defparameter *key-layout* "us -variant altgr-intl" "Stores the current key layout") (defparameter *key-layout* "us -variant altgr-intl" "Stores the current key layout")
(defconstant browser "firefox" "Constant holding the default browser.")
;; creating or rename groups ;; creating or rename groups
(setf (group-name (first (screen-groups (current-screen)))) "web") (setf (group-name (first (screen-groups (current-screen)))) "web")
@ -87,8 +88,8 @@
;; root keybindings ;; root keybindings
; ;
;; browser ;; browser
(define-key *root-map* (kbd "W") "exec firefox") (define-key *root-map* (kbd "W") (concatenate 'string "exec" " " browser))
(define-key *root-map* (kbd "P") "exec firefox --private-window") (define-key *root-map* (kbd "P") (concatenate 'string "exec" " " browser " " "--private-window"))
;;; terminal ;;; terminal
(define-key *root-map* (kbd "c") "exec urxvt") (define-key *root-map* (kbd "c") "exec urxvt")
@ -264,12 +265,12 @@
(substitute #\+ #\Space search) (substitute #\+ #\Space search)
(run-shell-command (concatenate 'string ,prefix search)))) (run-shell-command (concatenate 'string ,prefix search))))
(make-web-jump "google" "firefox-nightly http://www.google.com/search?q=") (make-web-jump "google" (concatenate 'string browser " " "http://www.google.com/search?q="))
(make-web-jump "googlede" "firefox-nightly http://www.google.de/search?q=") (make-web-jump "googlede" (concatenate 'string browser " " "http://www.google.de/search?q="))
(make-web-jump "duckduckgo" "firefox-nightly https://duckduckgo.com/?q=") (make-web-jump "duckduckgo" (concatenate 'string browser " " "https://duckduckgo.com/?q="))
(make-web-jump "packages" "firefox-nightly https://packages.debian.org/search?suite=sid&searchon=names&keywords=") (make-web-jump "packages" (concatenate 'string browser " " "https://packages.debian.org/"))
(make-web-jump "wikipedia" "firefox-nightly https://en.wikipedia.org/w/index.php?search=") (make-web-jump "wikipedia" (concatenate 'string browser " " "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 "wikipediade" (concatenate 'string browser " " "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
@ -334,7 +335,7 @@ script."
(run-shell-command "bwsyncandshare") (run-shell-command "bwsyncandshare")
;; firefox ;; firefox
(run-shell-command "firefox") (run-shell-command browser)
;; telegram ;; telegram
(run-shell-command "telegram-desktop") (run-shell-command "telegram-desktop")