From 2963e3c32314f4f590373555b157d3663efb1737 Mon Sep 17 00:00:00 2001 From: KemoNine Date: Wed, 12 Apr 2023 18:17:49 -0400 Subject: [PATCH] add way to open scratch buffer on right with a prompt on major mode to use --- common/generic_functions.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/common/generic_functions.el b/common/generic_functions.el index 075d7ee..d942ef9 100644 --- a/common/generic_functions.el +++ b/common/generic_functions.el @@ -62,6 +62,27 @@ ) ) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; open text-mode scratch in right side window +(defun kmn/scratch-prompt-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 (let ((current-prefix-arg t)) (scratch--buffer-querymode))))) + (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 ()