add function that puts text buffer in right side window

common/generic_functions.el

@@ -41,6 +41,27 @@
   )
 )
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; open text-mode scratch in right side window
+(defun kmn/scratch-text-on-right (&optional dir_path)
+  (defvar parameters
+    '(window-parameters . ((no-other-window . t)
+                           (no-delete-other-windows . t))))
+
+  (setq fit-window-to-buffer-horizontally t)
+  (setq window-resize-pixelwise t)
+
+  "Display `default-directory' in side window on left, hiding details."
+  (interactive)
+  (let ((buffer (scratch 'text-mode)))
+    (display-buffer-in-side-window
+     buffer `((side . right) (slot . -1)
+              (window-width . fit-window-to-buffer)
+              , parameters)
+    )
+  )
+)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; quick reference notes as a pop up window
 (defun kmn/popwin-quick-ref ()

common/workspaces.el

@@ -138,6 +138,6 @@
   (let ((frame (make-frame)))
     (select-frame-set-input-focus frame)
     (delete-other-windows)
-    (scratch)
+    (scratch 'text-mode)
   )
 )