M save.pl

M  save.pl~

1 files changed, 14 insertions, 13 deletions

diff --git a/save.pl~ b/save.pl~
index ab73aea..7fe2a02 100644
--- a/save.pl~
+++ b/save.pl~
@@ -3,6 +3,11 @@
 :- consult(library(process)).
 
 :- pce_global(@dialog, new(dialog('Save'))).
+:- pce_global(@files, new(chain)).
+:- pce_global(@editor, new(editor)).
+:- pce_global(@save_button,
+	      new(button(save,
+			 message(@prolog, save)))).
 
 main :-
 	pce_main_loop(main).
@@ -21,25 +26,22 @@ Ensure Git is in PATH.').
 
 added(0) :-
 	%send(@pce, load_defaults, 'Defaults'),
-	new(D, @dialog),
 
 	% File browser.
-	new(C, chain),
-	status(C),
-	send(new(B, browser), right, D),
-	send(B, members(C)),
+	status(@files),
+	send(new(B, browser), right, @dialog),
+	send(B, members(@files)),
 
 	% Input fields.
-	send(D, append, text('Commit message (optional):',
+	send(@dialog, append, text('Commit message (optional):',
 			     left,
 			     bold)),
-	send(D, append, new(E, editor)),
-	send(D, append, button(save,
-			       message(@prolog, save, E, C))),
-	send(D, append, button(cancel,
+	send(@dialog, append, @editor),
+	send(@dialog, append, @save_button),
+	send(@dialog, append, button(cancel,
 			       and(message(@prolog, reset),
-				   message(D, destroy)))),
-	send(D, open).
+				   message(@dialog, destroy)))),
+	send(@dialog, open).
 
 reset :-
 	shell("git reset").
@@ -83,7 +85,6 @@ chain_atom_x(C, A0, A) :-
 	).
 
 commit(Msg) :-
-	write('creating process'), nl,
 	process_create(path(git), ['commit', '-m', Msg],
 		       [process(PID)]),
 	process_wait(PID, S),