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

StumpWM: Browser saved in a constant

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)
(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")