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

StumpWM: use browser from x-www-browser

Browse source 
instead of using an own variable
This commit is contained in:
Marcel Kapfer 2018-09-02 23:05:15 +02:00
parent 6382b5ded0
commit 01fb2ee941
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
stumpwm/stumpwmrc
View file

@ -9,7 +9,6 @@
(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")
@ -88,8 +87,8 @@
;; root keybindings ;; root keybindings
; ;
;; browser ;; browser
(define-key *root-map* (kbd "W") (concatenate 'string "exec" " " browser)) (define-key *root-map* (kbd "W") "exec x-www-browser")
(define-key *root-map* (kbd "P") (concatenate 'string "exec" " " browser " " "--private-window")) (define-key *root-map* (kbd "P") "exec x-www-browser --private-window")
;;; terminal ;;; terminal
(define-key *root-map* (kbd "c") "exec urxvt") (define-key *root-map* (kbd "c") "exec urxvt")
@ -265,12 +264,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" (concatenate 'string browser " " "http://www.google.com/search?q=")) (make-web-jump "google" "x-www-browser http://www.google.com/search?q=")
(make-web-jump "googlede" (concatenate 'string browser " " "http://www.google.de/search?q=")) (make-web-jump "googlede" "x-www-browser http://www.google.de/search?q=")
(make-web-jump "duckduckgo" (concatenate 'string browser " " "https://duckduckgo.com/?q=")) (make-web-jump "duckduckgo" "x-www-browser https://duckduckgo.com/?q=")
(make-web-jump "packages" (concatenate 'string browser " " "https://packages.debian.org/")) (make-web-jump "packages" "x-www-browser https://packages.debian.org/")
(make-web-jump "wikipedia" (concatenate 'string browser " " "https://en.wikipedia.org/w/index.php?search=")) (make-web-jump "wikipedia" "x-www-browser https://en.wikipedia.org/w/index.php?search=")
(make-web-jump "wikipediade" (concatenate 'string browser " " "https://de.wikipedia.org/w/index.php?search=")) (make-web-jump "wikipediade" "x-www-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
@ -338,7 +337,7 @@ script."
(run-shell-command "bwsyncandshare") (run-shell-command "bwsyncandshare")
;; firefox ;; firefox
(run-shell-command browser) (run-shell-command "x-www-browser")
;; telegram ;; telegram
(run-shell-command "telegram-desktop") (run-shell-command "telegram-desktop")