X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Felisp%2Futilities.el;h=e6d8eff9fb02d4ab31ae08fde1413063b8681614;hb=3f12b4886baec121b2cf2da2a0aabf152542bed4;hp=7304762f9926d7adae5c0aba2315240a94a3b0ab;hpb=4392425517272acf008f7ee8957ddbc645d7e484;p=dotfiles.git

diff --git a/emacs.d/elisp/utilities.el b/emacs.d/elisp/utilities.el
index 7304762..e6d8eff 100644
--- a/emacs.d/elisp/utilities.el
+++ b/emacs.d/elisp/utilities.el
@@ -71,7 +71,18 @@ one window, window undo"
 			     100
 			   80))))
 
-
+(defun my-open-scratch-in-project  ()
+  "Create or open scratch buffer under currrent project."
+  (interactive)
+  (let (ret)
+    (dolist (buf (projectile-project-buffers) ret)
+      (if (string-match "*scratch*" (buffer-name buf))
+	  (setq ret buf)))
+    (if ret
+	(switch-to-buffer ret)
+      (switch-to-buffer (format "*scratch*<%s>" (projectile-project-name)))
+      (funcall initial-major-mode)
+      (insert (format ";; %s under  %s project\n\n" (buffer-name) (projectile-project-name))))))
 
 (provide 'utilities)
 ;;; utilities.el ends here