move scratch to own library

2 files changed, 32 insertions, 19 deletions

diff --git a/bard-elisp/bard-scratch.el b/bard-elisp/bard-scratch.el
new file mode 100644
index 0000000..7775336
--- /dev/null
+++ b/bard-elisp/bard-scratch.el
@@ -0,0 +1,32 @@
+;; Text Scratch buffers
+(defun bard/new-org-buffer ()
+  (interactive)
+  (let ((xbuf (generate-new-buffer "*org*")))
+    (switch-to-buffer xbuf)
+    (funcall (quote org-mode))
+    (text-scale-increase 1.5)
+    xbuf))
+(define-key global-map (kbd "M-=") #'bard/new-org-buffer)
+
+(defun bard/new-plain-buffer ()
+  (interactive)
+  (let ((xbuf (generate-new-buffer "*plain*")))
+    (switch-to-buffer xbuf)
+    (text-scale-increase 1.5)
+    xbuf))
+
+(define-key global-map (kbd "M--") #'bard/new-plain-buffer)
+
+;; elisp scratch buffer
+
+(defun bard/new-elisp-buffer ()
+  (interactive)
+  (let ((xbuf (generate-new-buffer "*elisp*")))
+    (switch-to-buffer xbuf)
+    (funcall (quote emacs-lisp-mode))
+    (text-scale-increase 1.5)
+    xbuf))
+
+(define-key global-map (kbd "C-z C-s") #'bard-new-elisp-buffer)
+
+(provide 'bard-scratch.el)
diff --git a/bard-emacs-modules/bard-emacs-org.el b/bard-emacs-modules/bard-emacs-org.el
index 1128dcc..3ef1a64 100644
--- a/bard-emacs-modules/bard-emacs-org.el
+++ b/bard-emacs-modules/bard-emacs-org.el
@@ -160,23 +160,4 @@
          :if-new (file+head "Ideas/%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n")
          :unnarrowed t)))
 
-;; Text Scratch buffers
-(defun bard/new-org-buffer ()
-  (interactive)
-  (let ((xbuf (generate-new-buffer "*org*")))
-    (switch-to-buffer xbuf)
-    (funcall (quote org-mode))
-    (text-scale-increase 1.5)
-    xbuf))
-
-(defun bard/new-plain-buffer ()
-  (interactive)
-  (let ((xbuf (generate-new-buffer "*plain*")))
-    (switch-to-buffer xbuf)
-    (text-scale-increase 1.5)
-    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)