add way to open scratch buffer frame with a prompt on major mode to use

common/workspaces.el

@@ -141,3 +141,14 @@
     (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)))
+  )
+)