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

Enter in prompt for commit message.

Browse Source
This commit is contained in:
Hans Dijkema
2026-08-12 22:44:42 +02:00
parent f4b1c7631f
commit 32bf9570d3
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
main.rkt
+1 -1
View File
@@ -98,7 +98,7 @@
(def-cmd git-commit cmd-git-commit 'commit (def-cmd git-commit cmd-git-commit 'commit
(λ (args info) (λ (args info)
(with-handlers ([exn:fail? (λ (e) (with-handlers ([exn:fail? (λ (e)
(let ((msg (string-trim (git-prompt "Commit message: >")))) (let ((msg (string-trim (git-prompt "Commit message:\n>"))))
(if (string=? msg "") (if (string=? msg "")
(raise "A commit message is mandatory") (raise "A commit message is mandatory")
(cons '-m (cons msg args)))))]) (cons '-m (cons msg args)))))])