Scratch buffer keys.

skeeto · Nov 7, 2012 · d02e3b0 · d02e3b0
1 parent dd96c31
commit d02e3b0
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/my-funcs.el b/my-funcs.el
@@ -160,3 +160,15 @@ prefix argument, the process's buffer is displayed."
   (message (format "%s: %s" proc event)))
 
 (global-set-key (kbd "s-x") 'launch)
+
+;; Quick switch to scratch buffers
+
+(defmacro scratch-key (key buffer-name mode)
+  `(global-set-key ,key (lambda ()
+                          (interactive)
+                          (switch-to-buffer ,buffer-name)
+                          (,mode))))
+
+(scratch-key (kbd "C-S-s") "*scratch*"    lisp-interaction-mode)
+(scratch-key (kbd "C-S-d") "*javascript*" js2-mode)
+(scratch-key (kbd "C-S-a") "*lisp*"       lisp-mode)