From 0f7d4d71df12bd775fd1482ff6774ac02247d823 Mon Sep 17 00:00:00 2001 From: bard Date: Tue, 27 Feb 2024 13:18:24 -0500 Subject: new scratch buffer functions --- bard-emacs-modules/bard-emacs-org.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'bard-emacs-modules') 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) -- cgit v1.2.3