StumpWM: Swichted to defined default applications

This commit is contained in:
Marcel Kapfer 2019-04-06 07:47:29 +02:00
parent 7980733982
commit dcb8d29c4b
Signed by: mmk2410
GPG Key ID: CADE6F0C09F21B09
1 changed files with 8 additions and 8 deletions

View File

@ -93,25 +93,25 @@
;;; emacs ;;; emacs
(defcommand emacs () () (defcommand emacs () ()
"run emacs" "run emacs"
(run-or-raise "es" '(:class "Emacs"))) (run-or-raise *editor* '(:class "Emacs")))
;; root keybindings ;; root keybindings
; ;
;; browser ;; browser
(define-key *root-map* (kbd "W") "exec x-www-browser") (define-key *root-map* (kbd "W") (concatenate 'string "exec " *web-browser*))
(define-key *root-map* (kbd "P") "exec x-www-browser --private-window") (define-key *root-map* (kbd "P") (concatenate 'string "exec " *web-browser* " --private-window"))
;;; terminal ;;; terminal
(define-key *root-map* (kbd "c") "exec x-terminal-emulator") (define-key *root-map* (kbd "c") (concatenate 'string "exec " *terminal*))
;;; es as emacs ;;; (text) editor
(define-key *root-map* (kbd "e") "exec es") (define-key *root-map* (kbd "e") (concatenate 'string "exec " *editor*))
;;; ranger ;;; ranger
(define-key *root-map* (kbd "C-c") "exec nemo --no-desktop") (define-key *root-map* (kbd "C-c") (concatenate 'string "exec " *file-manager*))
;;; spotify ;;; spotify
(define-key *root-map* (kbd "m") "exec spotify") (define-key *root-map* (kbd "m") (concatenate 'string "exec " *music-player*))
;;; bind keys for changing workspace ;;; bind keys for changing workspace
(define-key *root-map* (kbd "C-1") "change-workspace web") (define-key *root-map* (kbd "C-1") "change-workspace web")