Author: mhenoch Date: Thu Sep 6 02:13:11 2007 New Revision: 146 Modified: cl-darcs/trunk/cmdline.lisp Log: Add init command Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp (original) +++ cl-darcs/trunk/cmdline.lisp Thu Sep 6 02:13:11 2007 @@ -89,3 +89,7 @@ Usage: darcs whatsnew" (diff-repo-display (find-repo))) + +(define-darcs-command init () + "Initialize a darcs repository in the current directory." + (create-repo (truename *default-pathname-defaults*)))