Permalink
Browse files

Opening vc-dir, readme updates

  • Loading branch information...
1 parent 88f0945 commit f9dedcba248a09fa764ffbb55b5a204802414dc9 myfreeweb committed Aug 19, 2010
Showing with 10 additions and 2 deletions.
  1. +5 −1 README.md
  2. +5 −1 startproject.el
View
@@ -1,7 +1,7 @@
# startproject #
Simplest Emacs project starter for all you framework guys — Django, Sproutcore, whatever — they have start commands. Really, the name „startproject“ is from Django‘s script :-)
-It just runs framework‘s **start command** (or just a simple **tar** command extracting your project skeleton... or a **mkdir** if you‘re not a framework guy) and opens the newly created project with **dired**.
+It just runs framework‘s **start command** (or just a simple **tar** command extracting your project skeleton... or a **mkdir** if you‘re not a framework guy) and opens the newly created project with **dired**. Also it can initialize version control (bzr/hg/git) and open **vc-dir**.
Requires a modern **Emacs** and **ido**. ido usually works out of the box, *at least* with GNU Emacs from Ubuntu repos and Aquamacs for Mac.
@@ -28,6 +28,10 @@ Requires a modern **Emacs** and **ido**. ido usually works out of the box, *at l
- Q: Why I have to add a command for my favorite framework by hand? It‘s popular.
A: Because I‘m lazy to google these commands for all the mainstream frameworks. Just [email me](mailto:me@myfreeweb.ru) a command for your thing.
+- Q: I don‘t need to open vc-dir! Can I turn it off?
+
+ A: Of course! Just put it in your init file:
+ `(setq sp-open-vc-dir nil)`
- Q: Why it requires ido?
A: Ido is very awesome! I can‘t believe you don‘t have it installed. It **must** come with your Emacs!
View
@@ -34,6 +34,8 @@
(defvar vc-systems
'("bzr" "hg" "git" "none"))
+(defvar sp-open-vc-dir t)
+
(puthash "anything" "mkdir" project-starters)
(puthash "django" "django-admin.py startproject" project-starters)
(puthash "pylons" "paster create -t pylons" project-starters)
@@ -46,7 +48,9 @@
(gethash type project-starters) " " name))
(if (equal vcs "none") ()
(shell-command (concat "cd " projects-dir "/" name " && " vcs " init")))
- (dired (concat projects-dir name)))
+ (dired (concat projects-dir name))
+ (if (equal sp-open-vc-dir t)
+ (vc-dir (concat projects-dir name))))
(defun get-hash-keys (hashtable)
(let (keys)

0 comments on commit f9dedcb

Please sign in to comment.