From 3adca25f883641cc7d43a7e8b8774fb6316aa399 Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Sun, 19 Feb 2023 23:58:25 +0300
Subject: [PATCH] feat(emacs): perspective-exwm update

---
 .emacs.d/desktop.el | 9 +++++----
 Desktop.org         | 1 +
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/.emacs.d/desktop.el b/.emacs.d/desktop.el
index ebfc0e2..f957010 100644
--- a/.emacs.d/desktop.el
+++ b/.emacs.d/desktop.el
@@ -131,6 +131,7 @@ _=_: Balance          "
           (2 . "browser")
           (3 . "comms")
           (4 . "dev")))
+  (setq perspective-exwm-cycle-max-message-length 180)
   (general-define-key
    :keymaps 'perspective-map
    "e" #'perspective-exwm-move-to-workspace
@@ -430,8 +431,8 @@ _d_: Discord
    :keymaps '(exwm-mode-map)
    "C-q" #'exwm-input-send-next-key
    "<print>" (my/app-command "flameshot gui")
-   "<mode-line> s-<mouse-4>" #'perspective-exwm-cycle-exwm-buffers-backward
-   "<mode-line> s-<mouse-5>" #'perspective-exwm-cycle-exwm-buffers-forward
+   "<mode-line> s-<mouse-4>" #'perspective-exwm-cycle-all-buffers-backward
+   "<mode-line> s-<mouse-5>" #'perspective-exwm-cycle-all-buffers-forward
    "M-x" #'counsel-M-x
    "M-SPC" (general-key "SPC"))
   (setq exwm-input-simulation-keys `((,(kbd "M-w") . ,(kbd "C-w"))
@@ -506,8 +507,8 @@ _d_: Discord
           (,(kbd "s-<tab>") . my/exwm-workspace-switch-monitor)
   
           ;; Perspectives
-          (,(kbd "s-[") . perspective-exwm-cycle-exwm-buffers-backward)
-          (,(kbd "s-]") . perspective-exwm-cycle-exwm-buffers-forward)
+          (,(kbd "s-[") . perspective-exwm-cycle-all-buffers-backward)
+          (,(kbd "s-]") . perspective-exwm-cycle-all-buffers-forward)
           (,(kbd "s-<mouse-4>") . perspective-exwm-cycle-exwm-buffers-backward)
           (,(kbd "s-<mouse-5>") . perspective-exwm-cycle-exwm-buffers-forward)
           (,(kbd "s-`") . perspective-exwm-switch-perspective)
diff --git a/Desktop.org b/Desktop.org
index e75cbce..74cc2e2 100644
--- a/Desktop.org
+++ b/Desktop.org
@@ -422,6 +422,7 @@ References:
           (2 . "browser")
           (3 . "comms")
           (4 . "dev")))
+  (setq perspective-exwm-cycle-max-message-length 180)
   (general-define-key
    :keymaps 'perspective-map
    "e" #'perspective-exwm-move-to-workspace