Makefile changed

2026-08-11 16:18:24 +02:00
parent 571ebc9b44
commit 051cce6e33
1 changed files with 8 additions and 11 deletions
@@ -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))