porcelain added where needed

main.rkt

@@ -76,5 +76,9 @@
 (def-cmd git-commit cmd-git-commit 'commit
   (λ (args) (check-git-args 'commit args '((-m 1 "A commit message is mandatory"))))
   )
-(def-cmd git-push cmd-git-push 'push)
+(def-cmd git-push cmd-git-push 'push
+  (λ (args) (if (has-git-arg? args '--porcelain)
+                args
+                (cons '--porcelain args)))
+  )
 (def-cmd git-pull cmd-git-pull 'pull)

private/git-commands.rkt

@@ -50,7 +50,6 @@
 
 
 (define (std-process-git-result cmd result output out)
-  (displayln output)
   (git-displ out)
   (if result
       result