new scratch buffer functions

1 files changed, 17 insertions, 0 deletions

diff --git a/bard-emacs-modules/bard-emacs-org.el b/bard-emacs-modules/bard-emacs-org.el
index 12f708b..7a0f912 100644
--- a/bard-emacs-modules/bard-emacs-org.el
+++ b/bard-emacs-modules/bard-emacs-org.el
@@ -158,4 +158,21 @@
          :html-extension "html"
          :body-only t)))
 
+;; Text Scratch buffers
+(defun bard/new-org-buffer ()
+  (interactive)
+  (let ((xbuf (generate-new-buffer "*org*")))
+    (switch-to-buffer xbuf)
+    (funcall (quote org-mode))
+    xbuf))
+
+(defun bard/new-plain-buffer ()
+  (interactive)
+  (let ((xbuf (generate-new-buffer "*plain*")))
+    (switch-to-buffer xbuf)
+    xbuf))
+
+(define-key global-map (kbd "M--") #'bard/new-plain-buffer)
+(define-key global-map (kbd "M-=") #'bard/new-org-buffer)
+
 (provide 'bard-emacs-org.el)