From 18ea0de77032fe88257f53fd350f42ad728df945 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Wed, 18 Jun 2014 00:26:24 -0400
Subject: Define scratch functions for different modes

---
 lisp/init-buffile.el | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'lisp')

diff --git a/lisp/init-buffile.el b/lisp/init-buffile.el
index f0293b1..135103b 100644
--- a/lisp/init-buffile.el
+++ b/lisp/init-buffile.el
@@ -80,4 +80,28 @@ user."
       recentf-max-menu-items 15)
 (recentf-mode t)
 
+;;; Temporary scratch files
+
+(define-prefix-command 'scratch-map)
+(global-set-key (kbd "C-c s") 'scratch-map)
+
+(defmacro km/make-find-scratch-func (name extension)
+  `(defun ,(intern (concat "km/find-scratch-" name)) ()
+     (interactive)
+     (find-file ,(concat "/tmp/scratch" extension))))
+
+(km/make-find-scratch-func "elisp" ".el")
+(km/make-find-scratch-func "python" ".py")
+(km/make-find-scratch-func "r" ".r")
+(km/make-find-scratch-func "haskell" ".hs")
+(km/make-find-scratch-func "org" ".org")
+(km/make-find-scratch-func "nomode" "")
+
+(define-key scratch-map "e" 'km/find-scratch-elisp)
+(define-key scratch-map "p" 'km/find-scratch-python)
+(define-key scratch-map "r" 'km/find-scratch-r)
+(define-key scratch-map "h" 'km/find-scratch-haskell)
+(define-key scratch-map "o" 'km/find-scratch-org)
+(define-key scratch-map "n" 'km/find-scratch-nomode)
+
 (provide 'init-buffile)
-- 
cgit v1.2.3