From 04479fd97f3cc8f416ae2502173b29d0de8775b1 Mon Sep 17 00:00:00 2001 From: "Marcel Kapfer (mmk2410)" Date: Fri, 23 Dec 2016 14:40:23 +0100 Subject: [PATCH] Print number of workspace on workspace switch --- .stumpwmrc | 25 ++++++++++++++++--------- 1 file changed, 16 insertions(+), 9 deletions(-) diff --git a/.stumpwmrc b/.stumpwmrc index f3314dc..7bee610 100644 --- a/.stumpwmrc +++ b/.stumpwmrc @@ -44,15 +44,15 @@ (define-key *root-map* (kbd "c") "exec urxvt") ;;; groups to rpws keys -(define-key *root-map* (kbd "C-1") "gselect 1") -(define-key *root-map* (kbd "C-2") "gselect 2") -(define-key *root-map* (kbd "C-3") "gselect 3") -(define-key *root-map* (kbd "C-4") "gselect 4") -(define-key *root-map* (kbd "C-5") "gselect 5") -(define-key *root-map* (kbd "C-6") "gselect 6") -(define-key *root-map* (kbd "C-7") "gselect 7") -(define-key *root-map* (kbd "C-8") "gselect 8") -(define-key *root-map* (kbd "C-9") "gselect 9") +(define-key *root-map* (kbd "C-1") "change-workspace 1") +(define-key *root-map* (kbd "C-2") "change-workspace 2") +(define-key *root-map* (kbd "C-3") "change-workspace 3") +(define-key *root-map* (kbd "C-4") "change-workspace 4") +(define-key *root-map* (kbd "C-5") "change-workspace 5") +(define-key *root-map* (kbd "C-6") "change-workspace 6") +(define-key *root-map* (kbd "C-7") "change-workspace 7") +(define-key *root-map* (kbd "C-8") "change-workspace 8") +(define-key *root-map* (kbd "C-9") "change-workspace 9") ;; xserver (run-shell-command "xmodmap ~/.Xmodmap") @@ -127,3 +127,10 @@ (switch-layout-to "en_US"))) (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)))