From d258adb0a5b6d3a7f44d6d1f7b1c40d503e74543 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sat, 22 Jan 2022 18:19:30 +0100
Subject: M  save.pl M  save.pl~

---
 save.pl | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

(limited to 'save.pl')

diff --git a/save.pl b/save.pl
index bb3d7af..2c93580 100644
--- a/save.pl
+++ b/save.pl
@@ -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,8 +81,14 @@ 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),
+	commited(S).
+
+commited(1) :-
+	send(@display, report, error,
+	     'Files could not be saved.').
+
+commited(0) :-
+	halt.
-- 
cgit v1.2.3