From 767014dba5f86e0b1ba76404b1b010868418f134 Mon Sep 17 00:00:00 2001
From: Jim Myhrberg <contact@jimeh.me>
Date: Thu, 9 Apr 2020 13:56:24 +0100
Subject: [PATCH] feat(workspaces): Enable easy re-ordering of persp-mode
 perspectives

---
 modules/misc/siren-refine.el           | 17 +++++++++++++++++
 modules/workspaces/siren-persp-mode.el | 11 ++++++++++-
 2 files changed, 27 insertions(+), 1 deletion(-)
 create mode 100644 modules/misc/siren-refine.el

diff --git a/modules/misc/siren-refine.el b/modules/misc/siren-refine.el
new file mode 100644
index 0000000..4c6386d
--- /dev/null
+++ b/modules/misc/siren-refine.el
@@ -0,0 +1,17 @@
+;;; siren-refine.el --- jimeh's Emacs Siren: refine configuration.
+
+;;; Commentary:
+
+;; Basic configuration for refine.
+
+;;; Code:
+
+(use-package refine
+  :commands refine
+  :bind
+  (:map refine-mode-map
+        ("M-n" . refine-move-forward)
+        ("M-p" . refine-move-backward)))
+
+(provide 'siren-refine)
+;;; siren-refine.el ends here
diff --git a/modules/workspaces/siren-persp-mode.el b/modules/workspaces/siren-persp-mode.el
index f473e8b..8d02b8c 100644
--- a/modules/workspaces/siren-persp-mode.el
+++ b/modules/workspaces/siren-persp-mode.el
@@ -6,6 +6,8 @@
 
 ;;; Code:
 
+(require 'siren-refine)
+
 (use-package persp-mode
   :hook
   (emacs-startup . persp-mode)
@@ -42,7 +44,9 @@
         ("C-z l" . persp-load-state-from-file)
         ("C-z L" . persp-load-from-file-by-names)
         ("C-z ;" . siren-persp-mode-show-current-perspective-name)
-        ("C-z C-;" . siren-persp-mode-show-current-perspective-name))
+        ("C-z C-;" . siren-persp-mode-show-current-perspective-name)
+        ("C-z e" . siren-persp-mode-edit-names-cache)
+        ("C-z C-e" . siren-persp-mode-edit-names-cache))
 
   :custom
   (persp-auto-save-num-of-backups 10)
@@ -64,6 +68,11 @@
       (interactive "P")
     (with-persp-buffer-list () (ibuffer arg)))
 
+  (defun siren-persp-mode-edit-names-cache ()
+    "Use refine package to edit persp-names-cache variable."
+    (interactive)
+    (refine 'persp-names-cache))
+
   (defun siren-persp-mode-show-current-perspective-name (&rest _)
     "Show current perspectives, highlighting the active one."
     (interactive)