From 7e6885a85be99e25d12920806e7d4fc04a8bada0 Mon Sep 17 00:00:00 2001 From: bard Date: Wed, 3 Apr 2024 17:27:19 -0400 Subject: condensed into a file --- bard-elisp/bard-scratch.el | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 bard-elisp/bard-scratch.el (limited to 'bard-elisp/bard-scratch.el') diff --git a/bard-elisp/bard-scratch.el b/bard-elisp/bard-scratch.el deleted file mode 100644 index 7180ccb..0000000 --- a/bard-elisp/bard-scratch.el +++ /dev/null @@ -1,32 +0,0 @@ -;; 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) -- cgit v1.2.3