A minor init file modification to make quickproject more convenient for git users.

.ccl-init.lisp

(ql:quickload '(:quickproject
                :external-program))

(push
 (lambda (pathname &rest args)
   (setf (current-directory) (fad:pathname-as-directory pathname))
   (rename-file "README.txt" "README.markdown")
   (external-program:run "git"
                         (list "init" "."))
   (external-program:run "git"
                         (list "add" "."))
   (external-program:run "git"
                         (list "commit" "-m" "Initial commit")))
 quickproject:*after-make-project-hooks*)