Makefile changed

Makefile.rkt

@@ -11,25 +11,22 @@
         )
 
 (target commit
-        (display "commit message:")
-        (flush-output)
-        (let ((line (read-line)))
-          (set! line (string-trim line))
-          (apply git-add (map git-status-entry-path (git 'status)))
-          (git 'commit line)
-          (git 'push)
-          )
-        )
+        (let ((st (git 'status)))
+          (dgit 'status)
+          (when (> (length st) 0)
+            (dgit 'add '-A)
+            (dgit 'commit (git-prompt))
+            (dgit 'push))))
 
 (target push
-        (run '(git push)))
+        (dgit 'push))
 
 (target status
         (void (dgit 'status))
         )
 
 (target pull
-        (run '(git pull)))
+        (dgit 'pull))
 
 (target clean
         (for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))