From 550a7b3f95232295240852156d5e455b803992a9 Mon Sep 17 00:00:00 2001 From: Eric S Fraga Date: Thu, 11 Jul 2019 10:24:15 +0100 Subject: [PATCH 1/2] Add split-window-right option for editing src blocks * org-src.el (org-src-window-setup, org-src-switch-to-buffer): added new split-window-right option which splits horizontally. This has been motivated by the increasing use of wide monitors. --- lisp/org-src.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/org-src.el b/lisp/org-src.el index a83942fc5..3b0923c20 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -152,6 +152,8 @@ current-window Show edit buffer in the current window, keeping all other windows. split-window-below Show edit buffer below the current window, keeping all other windows. +split-window-right Show edit buffer to the right of the current window, + keeping all other windows. other-window Use `switch-to-buffer-other-window' to display edit buffer. reorganize-frame Show only two windows on the current frame, the current window and the edit buffer. When exiting the edit buffer, @@ -162,6 +164,7 @@ other-frame Use `switch-to-buffer-other-frame' to display edit buffer. :type '(choice (const current-window) (const split-window-below) + (const split-window-right) (const other-frame) (const other-window) (const reorganize-frame))) @@ -793,6 +796,11 @@ Raise an error when current buffer is not a source editing buffer." (delete-window) (select-window (split-window-vertically))) (pop-to-buffer-same-window buffer)) + (`split-window-right + (if (eq context 'exit) + (delete-window) + (select-window (split-window-horizontally))) + (pop-to-buffer-same-window buffer)) (`other-frame (pcase context (`exit -- 2.20.1