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

Print number of workspace on workspace switch

Browse source
This commit is contained in:
Marcel Kapfer (mmk2410) 2016-12-23 14:40:23 +01:00
parent b2776d1acc
commit 04479fd97f
1 changed files with 16 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
.stumpwmrc
View file

@ -44,15 +44,15 @@
(define-key *root-map* (kbd "c") "exec urxvt") (define-key *root-map* (kbd "c") "exec urxvt")
;;; groups to rpws keys ;;; groups to rpws keys
(define-key *root-map* (kbd "C-1") "gselect 1") (define-key *root-map* (kbd "C-1") "change-workspace 1")
(define-key *root-map* (kbd "C-2") "gselect 2") (define-key *root-map* (kbd "C-2") "change-workspace 2")
(define-key *root-map* (kbd "C-3") "gselect 3") (define-key *root-map* (kbd "C-3") "change-workspace 3")
(define-key *root-map* (kbd "C-4") "gselect 4") (define-key *root-map* (kbd "C-4") "change-workspace 4")
(define-key *root-map* (kbd "C-5") "gselect 5") (define-key *root-map* (kbd "C-5") "change-workspace 5")
(define-key *root-map* (kbd "C-6") "gselect 6") (define-key *root-map* (kbd "C-6") "change-workspace 6")
(define-key *root-map* (kbd "C-7") "gselect 7") (define-key *root-map* (kbd "C-7") "change-workspace 7")
(define-key *root-map* (kbd "C-8") "gselect 8") (define-key *root-map* (kbd "C-8") "change-workspace 8")
(define-key *root-map* (kbd "C-9") "gselect 9") (define-key *root-map* (kbd "C-9") "change-workspace 9")
;; xserver ;; xserver
(run-shell-command "xmodmap ~/.Xmodmap") (run-shell-command "xmodmap ~/.Xmodmap")
@ -127,3 +127,10 @@
(switch-layout-to "en_US"))) (switch-layout-to "en_US")))
(define-key *top-map* (kbd "s-SPC" ) "switch-layout") (define-key *top-map* (kbd "s-SPC" ) "switch-layout")
;; switch workspace with a message
(defcommand change-workspace (n)
((:string n))
"Switch workspace"
(run-commands (concatenate 'string "gselect " n))
(echo (concatenate 'string "Switched to " n)))