updated
This commit is contained in:
parent
17a1fd39f0
commit
fa7e391246
1 changed files with 5 additions and 0 deletions
5
gpm.hs
Executable file → Normal file
5
gpm.hs
Executable file → Normal file
|
@ -13,6 +13,8 @@ main = do
|
||||||
mkNewEmptyBranch "gpm"
|
mkNewEmptyBranch "gpm"
|
||||||
initIssues
|
initIssues
|
||||||
initDocs
|
initDocs
|
||||||
|
debug "git commit -m 'gpm initialized'"
|
||||||
|
debug "git checkout master"
|
||||||
|
|
||||||
mkNewEmptyBranch :: Text -> IO ()
|
mkNewEmptyBranch :: Text -> IO ()
|
||||||
mkNewEmptyBranch br = do
|
mkNewEmptyBranch br = do
|
||||||
|
@ -31,12 +33,14 @@ initIssues = do
|
||||||
echo "* issue.org"
|
echo "* issue.org"
|
||||||
input ("templates" </> "issues.org")
|
input ("templates" </> "issues.org")
|
||||||
& output "issues.org"
|
& output "issues.org"
|
||||||
|
debug "git add issues.org"
|
||||||
|
|
||||||
initDocs :: IO ()
|
initDocs :: IO ()
|
||||||
initDocs = do
|
initDocs = do
|
||||||
echo "* wiki.org"
|
echo "* wiki.org"
|
||||||
input ("templates" </> "wiki.org")
|
input ("templates" </> "wiki.org")
|
||||||
& output "wiki.org"
|
& output "wiki.org"
|
||||||
|
debug "git add wiki.org"
|
||||||
|
|
||||||
initReview :: IO ()
|
initReview :: IO ()
|
||||||
initReview = do
|
initReview = do
|
||||||
|
@ -45,3 +49,4 @@ initReview = do
|
||||||
putText $ format ("* "%fp) fic
|
putText $ format ("* "%fp) fic
|
||||||
input ("templates" </> "review.org")
|
input ("templates" </> "review.org")
|
||||||
& output fic
|
& output fic
|
||||||
|
debug "git add reviews"
|
||||||
|
|
Loading…
Reference in a new issue