From 5b0dd9c20faf5b095e8271ff0f6d571a8bf64701 Mon Sep 17 00:00:00 2001
From: KemoNine <kemonine@kemonine.info>
Date: Thu, 7 Mar 2024 12:58:46 -0500
Subject: [PATCH] cleanup scratch buffer 'stuff'

---
 common/_global.el    | 25 +++++++++++++++++++++++--
 common/workspaces.el | 25 +++----------------------
 2 files changed, 26 insertions(+), 24 deletions(-)

diff --git a/common/_global.el b/common/_global.el
index 13791f3..4213885 100644
--- a/common/_global.el
+++ b/common/_global.el
@@ -611,6 +611,27 @@ Other buffer group by `centaur-tabs-get-group-name' with project name."
 (global-set-key (kbd "C-c r w") 'persistent-scratch-save-to-file)
 (global-set-key (kbd "C-c r l") 'persistent-scratch-restore-from-file)
 
-; scratch.el (multi-scratch / melpa)
-(global-set-key (kbd "C-c r s") #'scratch) ; C-u C-c s s for mode prompt
+; scratch buffers frame - use 'scratch and prompts to manage as needed
+(defun kmn/workspace-frame-scratch()
+  (interactive)
+  (let ((frame (make-frame)))
+    (select-frame-set-input-focus frame)
+    (delete-other-windows)
+    (scratch 'text-mode)
+  )
+)
+
+; scratch buffers frame, prompt for initial mode - use 'scratch and prompts to manage as needed
+(defun kmn/workspace-frame-scratch-prompt()
+  (interactive)
+  (let ((frame (make-frame)))
+    (select-frame-set-input-focus frame)
+    (delete-other-windows)
+    (scratch (let ((current-prefix-arg t)) (scratch--buffer-querymode)))
+  )
+)
+
+; scratch.el (multi-scratch / melpa)
+(global-set-key (kbd "C-c r s") #'kmn/workspace-frame-scratch)
+(global-set-key (kbd "C-c r p") #'kmn/workspace-frame-scratch-prompt)
 
diff --git a/common/workspaces.el b/common/workspaces.el
index 6c1d650..a297b86 100644
--- a/common/workspaces.el
+++ b/common/workspaces.el
@@ -214,28 +214,6 @@
   (kmn/workspace-code-empty "~/src")
 )
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-; scratch buffers frame - use 'scratch and prompts to manage as needed
-(defun kmn/workspace-frame-scratch()
-  (interactive)
-  (let ((frame (make-frame)))
-    (select-frame-set-input-focus frame)
-    (delete-other-windows)
-    (scratch 'text-mode)
-  )
-)
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-; scratch buffers frame, prompt for initial mode - use 'scratch and prompts to manage as needed
-(defun kmn/workspace-frame-scratch-prompt()
-  (interactive)
-  (let ((frame (make-frame)))
-    (select-frame-set-input-focus frame)
-    (delete-other-windows)
-    (scratch (let ((current-prefix-arg t)) (scratch--buffer-querymode)))
-  )
-)
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; warframe game workspace
 (defun kmn/workspace-game-warframe ()
@@ -261,3 +239,6 @@
     (goto-char 0)
   )
 )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; _global.el for scratch workspace definitions