From 86bb113b322dcd94bc865c89b5a18836f5dd0fa0 Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Tue, 19 Apr 2022 20:36:47 +0300 Subject: [PATCH] feat(exwm): confirm on create workspace --- .emacs.d/desktop.el | 4 +++- Desktop.org | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/.emacs.d/desktop.el b/.emacs.d/desktop.el index c99a8c4..75a2cdb 100644 --- a/.emacs.d/desktop.el +++ b/.emacs.d/desktop.el @@ -508,7 +508,9 @@ _d_: Discord `(,(kbd (format "s-%d" i)) . (lambda () (interactive) - (exwm-workspace-switch-create ,i)))) + (when (or (< ,i (exwm-workspace--count)) + (y-or-n-p (format "Create workspace %d" ,i))) + (exwm-workspace-switch-create ,i) )))) (number-sequence 0 9)))) (defun exwm-input--fake-last-command () diff --git a/Desktop.org b/Desktop.org index f2f3b48..78cea10 100644 --- a/Desktop.org +++ b/Desktop.org @@ -987,7 +987,9 @@ And keybindings that are available in both =char-mode= and =line-mode=: `(,(kbd (format "s-%d" i)) . (lambda () (interactive) - (exwm-workspace-switch-create ,i)))) + (when (or (< ,i (exwm-workspace--count)) + (y-or-n-p (format "Create workspace %d" ,i))) + (exwm-workspace-switch-create ,i) )))) (number-sequence 0 9)))) #+end_src