From 9ca85aa3c4f617ee29e58e4d2686e54a9ecc50fe Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Thu, 18 Nov 2021 07:25:15 +0100 Subject: [PATCH 1/6] [stumpwm] Move inputs and outputs to center --- stumpwm/stumpwmrc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc index 27022fa..8456dd3 100644 --- a/stumpwm/stumpwmrc +++ b/stumpwm/stumpwmrc @@ -49,10 +49,10 @@ (gravity :center) ;; input bar position -(setf *input-window-gravity* :bottom) +(setf *input-window-gravity* :center) ;; message bar position -(setf *message-window-gravity* :bottom) +(setf *message-window-gravity* :center) ;; message timeout (setf *timeout-wait* 3) From 76063e5f6fe28f0b7c6c7cf53bd273fc7bc28253 Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Thu, 18 Nov 2021 07:25:43 +0100 Subject: [PATCH 2/6] [stumpwm] Refine modeline style --- stumpwm/stumpwmrc | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc index 8456dd3..68f4031 100644 --- a/stumpwm/stumpwmrc +++ b/stumpwm/stumpwmrc @@ -78,13 +78,20 @@ ;; mode-line style (setf *mode-line-background-color* "#333333" *mode-line-foreground-color* "#cccccc" - *mode-line-border-color* "#b00045" *mode-line-timeout* 5 - *mode-line-border-width* 3 + *mode-line-border-width* 0 *mode-line-pad-x* 3 *mode-line-pad-y* 3 *screen-mode-line-format* (list "[" '(:eval (RUN-SHELL-COMMAND "date '+%F %H:%M'|tr -d [:cntrl:]" T)) "] [%n] %w ^> [%B] [marcel@%h] %T")) +;; Gaps +(load-module "swm-gaps") +(setf swm-gaps:*inner-gaps-size* 5 + swm-gaps:*outer-gaps-size* 5 + swm-gaps:*head-gaps-size* 0) +(when *initializing* + (swm-gaps:toggle-gaps)) + ;; customize texts (setf *window-format* "^B %n ^b %20t " *group-format* "%t") From f6a959373aad54c3cd3f230403e08b77759bc134 Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Thu, 18 Nov 2021 07:26:07 +0100 Subject: [PATCH 3/6] [stumpwm] Rebind workspace keybindings --- stumpwm/stumpwmrc | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc index 68f4031..108dc6c 100644 --- a/stumpwm/stumpwmrc +++ b/stumpwm/stumpwmrc @@ -107,20 +107,20 @@ (define-key *root-map* (kbd "m") (concatenate 'string "exec " *music-player*)) ;;; bind keys for changing workspace -(define-key *root-map* (kbd "C-1") "change-workspace web") -(define-key *root-map* (kbd "C-2") "change-workspace emacs") -(define-key *root-map* (kbd "C-3") "change-workspace work") -(define-key *root-map* (kbd "C-4") "change-workspace misc") -(define-key *root-map* (kbd "C-9") "change-workspace music") -(define-key *root-map* (kbd "C-0") "change-workspace winkel") +(define-key *top-map* (kbd "s-1") "change-workspace web") +(define-key *top-map* (kbd "s-2") "change-workspace emacs") +(define-key *top-map* (kbd "s-3") "change-workspace work") +(define-key *top-map* (kbd "s-4") "change-workspace misc") +(define-key *top-map* (kbd "s-9") "change-workspace music") +(define-key *top-map* (kbd "s-0") "change-workspace winkel") ;; bind keys for moving the current window to another workspace -(define-key *root-map* (kbd "M-1") "gmove web") -(define-key *root-map* (kbd "M-2") "gmove emacs") -(define-key *root-map* (kbd "M-3") "gmove work") -(define-key *root-map* (kbd "M-4") "gmove misc") -(define-key *root-map* (kbd "M-9") "gmove music") -(define-key *root-map* (kbd "M-0") "gmove winkel") +(define-key *top-map* (kbd "s-C-1") "gmove web") +(define-key *top-map* (kbd "s-C-2") "gmove emacs") +(define-key *top-map* (kbd "s-C-3") "gmove work") +(define-key *top-map* (kbd "s-C-4") "gmove misc") +(define-key *top-map* (kbd "s-C-9") "gmove music") +(define-key *top-map* (kbd "s-C-0") "gmove winkel") ;;; mode-line key (define-key *root-map* (kbd "Menu") "mode-line") From 38de41ed7336d176e0f0fdeee3c18b9a60cdb5b4 Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Thu, 18 Nov 2021 07:26:24 +0100 Subject: [PATCH 4/6] [stumpwm] Rebind focus keybindings --- stumpwm/stumpwmrc | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc index 108dc6c..e96618e 100644 --- a/stumpwm/stumpwmrc +++ b/stumpwm/stumpwmrc @@ -122,6 +122,12 @@ (define-key *top-map* (kbd "s-C-9") "gmove music") (define-key *top-map* (kbd "s-C-0") "gmove winkel") +;; bind keys for focus changing +(define-key *top-map* (kbd "s-h") "move-focus left") +(define-key *top-map* (kbd "s-j") "move-focus down") +(define-key *top-map* (kbd "s-k") "move-focus up") +(define-key *top-map* (kbd "s-l") "move-focus right") + ;;; mode-line key (define-key *root-map* (kbd "Menu") "mode-line") From 5deb9e456987aa21d5f66a2b3ab3a5c394b74fe5 Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Thu, 18 Nov 2021 07:26:29 +0100 Subject: [PATCH 5/6] [stumpwm] Rebind window keybindings --- stumpwm/stumpwmrc | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc index e96618e..1eb71ed 100644 --- a/stumpwm/stumpwmrc +++ b/stumpwm/stumpwmrc @@ -128,6 +128,12 @@ (define-key *top-map* (kbd "s-k") "move-focus up") (define-key *top-map* (kbd "s-l") "move-focus right") +;; bind keys for window moving +(define-key *top-map* (kbd "s-C-h") "move-window left") +(define-key *top-map* (kbd "s-C-j") "move-window down") +(define-key *top-map* (kbd "s-C-k") "move-window up") +(define-key *top-map* (kbd "s-C-l") "move-window right") + ;;; mode-line key (define-key *root-map* (kbd "Menu") "mode-line") From fc180e22c435fdfb833a15f3bc9e87bafb22bf3a Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Thu, 18 Nov 2021 07:26:39 +0100 Subject: [PATCH 6/6] [stumpwm] Fix wrong variable name in make-web-jump --- stumpwm/stumpwmrc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc index 1eb71ed..b69ef39 100644 --- a/stumpwm/stumpwmrc +++ b/stumpwm/stumpwmrc @@ -312,7 +312,7 @@ (defmacro make-web-jump (name prefix) `(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string name " search: "))) (substitute #\+ #\Space search) - (run-shell-command (concatenate 'string *www-browser* " " ,prefix search)))) + (run-shell-command (concatenate 'string *web-browser* " " ,prefix search)))) (make-web-jump "google" "http://www.google.com/search?q=") (make-web-jump "googlede" "http://www.google.de/search?q=")