diff options
| -rw-r--r-- | bard-elisp/bard-scratch.el | 32 | ||||
| -rw-r--r-- | bard-emacs-modules/bard-emacs-org.el | 19 |
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) |