diff options
author | John Ankarström <john@ankarstrom.se> | 2022-01-22 18:19:30 +0100 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2022-01-22 18:19:30 +0100 |
commit | d258adb0a5b6d3a7f44d6d1f7b1c40d503e74543 (patch) | |
tree | 97d89e526022e6c2402e2fe1dd8c11dce24abe58 /save.pl~ | |
parent | 43cce08cf13573930315ae09683b846b8212e5f0 (diff) | |
download | save-d258adb0a5b6d3a7f44d6d1f7b1c40d503e74543.tar.gz |
M save.pl
M save.pl~
Diffstat (limited to 'save.pl~')
-rw-r--r-- | save.pl~ | 15 |
1 files changed, 9 insertions, 6 deletions
@@ -33,8 +33,7 @@ added(0) :- bold)), send(D, append, new(E, editor)), send(D, append, button(save, - and(message(@prolog, save, E, C), - message(D, destroy)))), + message(@prolog, save, E, C))), send(D, append, button(cancel, and(message(@prolog, reset), message(D, destroy)))), @@ -82,7 +81,11 @@ chain_atom_x(C, A0, A) :- ). commit(Msg) :- - setup_call_cleanup( - process_create(path(git), ['commit', '-m', Msg], [detached(true)]), - true, - true). + process_create(path(git), ['commit', '-m', Msg], + [process(PID)]), + process_wait(PID, S). + +added(1) :- + send(@display, report, error, + 'Files could not be added to index. +Ensure Git is in PATH.'). |