Add a more better way to open src block.
>From d0db82e0b3f7e6ff0102b4b08ba18de883da32e2 Mon Sep 17 00:00:00 2001
From: stardiviner <[email protected]>
Date: Tue, 13 Mar 2018 01:23:52 +0800
Subject: [PATCH] org-src.el: (org-edit-src) support open edit src window
below.
---
lisp/org-src.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/lisp/org-src.el b/lisp/org-src.el
index dfa2ae3de..5d3c2e538 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -155,6 +155,8 @@ Possible values for this option are:
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.
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,
@@ -164,6 +166,7 @@ other-frame Use `switch-to-buffer-other-frame' to display edit buffer.
:group 'org-edit-structure
:type '(choice
(const current-window)
+ (const split-window-below)
(const other-frame)
(const other-window)
(const reorganize-frame)))
@@ -746,6 +749,9 @@ If BUFFER is non-nil, test it instead."
(`current-window (pop-to-buffer-same-window buffer))
(`other-window
(switch-to-buffer-other-window buffer))
+ (`split-window-below
+ (select-window (split-window-vertically))
+ (pop-to-buffer-same-window buffer))
(`other-frame
(pcase context
(`exit
--
2.16.2
