Diverse aanpassingen
This commit is contained in:
+3
-3
@@ -15,9 +15,9 @@
|
|||||||
(flush-output)
|
(flush-output)
|
||||||
(let ((line (read-line)))
|
(let ((line (read-line)))
|
||||||
(set! line (string-trim line))
|
(set! line (string-trim line))
|
||||||
(run '(git add -A))
|
(apply git-add (map git-status-entry-path (git 'status)))
|
||||||
(run (append '(git "commit" -m ) (list line)))
|
(git 'commit line)
|
||||||
(run '(git push))
|
(git 'push)
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user