From 7ee3dea387689acbe84bf8766124d54699ca28ae Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Thu, 18 Nov 2021 19:03:45 +0100 Subject: [PATCH 1/3] [stumpwm] fix problems with cut-off windows when using gaps --- stumpwm/stumpwmrc | 5 ----- 1 file changed, 5 deletions(-) diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc index e732967..32a8856 100644 --- a/stumpwm/stumpwmrc +++ b/stumpwm/stumpwmrc @@ -30,11 +30,6 @@ (gnewbg "music") (gnewbg "winkel")) -;; border width -(setf *maxsize-border-width* 3) -(setf *transient-border-width* 3) -(setf *normal-border-width* 3) - ;; border style (setf *window-border-style* :tight) (set-focus-color "#b00045") From aceaeb4c93ad6eaeed76200c8364a5bf732c605c Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Thu, 18 Nov 2021 19:03:59 +0100 Subject: [PATCH 2/3] [stumpwm] define larger outer gaps --- stumpwm/stumpwmrc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc index 32a8856..b9dbb7a 100644 --- a/stumpwm/stumpwmrc +++ b/stumpwm/stumpwmrc @@ -83,7 +83,7 @@ ;; Gaps (load-module "swm-gaps") (setf swm-gaps:*inner-gaps-size* 5 - swm-gaps:*outer-gaps-size* 5 + swm-gaps:*outer-gaps-size* 10 swm-gaps:*head-gaps-size* 0) (when *initializing* (swm-gaps:toggle-gaps)) From 39b8ab94a0949d23fd6007b4cc558228522a8d87 Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Thu, 18 Nov 2021 19:04:14 +0100 Subject: [PATCH 3/3] [stumpwm] update kbds: use gselect instead of change-workspace --- stumpwm/stumpwmrc | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc index b9dbb7a..38f6871 100644 --- a/stumpwm/stumpwmrc +++ b/stumpwm/stumpwmrc @@ -103,12 +103,13 @@ (define-key *root-map* (kbd "m") (concatenate 'string "exec " *music-player*)) ;;; bind keys for changing workspace -(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") +(define-key *top-map* (kbd "s-1") "gselect web") +(define-key *top-map* (kbd "s-2") "gselect emacs") +(define-key *top-map* (kbd "s-3") "gselect work") +(define-key *top-map* (kbd "s-4") "gselect misc") +(define-key *top-map* (kbd "s-9") "gselect music") +(define-key *top-map* (kbd "s-0") "gselect winkel") +(define-key *top-map* (kbd "s-p") "gother") ;; bind keys for moving the current window to another workspace (define-key *top-map* (kbd "s-C-1") "gmove web")