hans/racket-makefile
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Makefile changed

Browse Source
This commit is contained in:
Hans Dijkema
2026-08-11 16:18:24 +02:00
parent 571ebc9b44
commit 051cce6e33
1 changed files with 8 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Makefile.rkt
+8 -11
View File
@@ -11,25 +11,22 @@
) )
(target commit (target commit
(display "commit message:") (let ((st (git 'status)))
(flush-output) (dgit 'status)
(let ((line (read-line))) (when (> (length st) 0)
(set! line (string-trim line)) (dgit 'add '-A)
(apply git-add (map git-status-entry-path (git 'status))) (dgit 'commit (git-prompt))
(git 'commit line) (dgit 'push))))
(git 'push)
)
)
(target push (target push
(run '(git push))) (dgit 'push))
(target status (target status
(void (dgit 'status)) (void (dgit 'status))
) )
(target pull (target pull
(run '(git pull))) (dgit 'pull))
(target clean (target clean
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t)) (for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))