M save.exe

M  save.pl
M  save.pl~

3 files changed, 11 insertions, 5 deletions

diff --git a/save.exe b/save.exe
index 8d84dd5..d9abb00 100644
--- a/save.exe
+++ b/save.exe
diff --git a/save.pl b/save.pl
index a12f6a1..a387f9a 100644
--- a/save.pl
+++ b/save.pl
@@ -2,6 +2,9 @@
 :- consult(library(pce)).
 :- consult(library(process)).
 
+:- op(920,fy, *).
+*_.
+
 :- pce_begin_class(save_dialog, dialog).
 
 unlink(D) :->
@@ -41,7 +44,7 @@ added(0) :-
 
 	% Right side.
 	send(@file_browser, right, @dialog),
-	send(@commit_browser, right, @dialog),
+	*send(@commit_browser, right, @dialog),
 	refresh,
 
 	% Left side.
@@ -57,9 +60,9 @@ refresh :-
 	send(@files, clear),
 	status(@files),
 	send(@file_browser, members(@files)),
-	send(@commits, clear),
-	log(@commits),
-	send(@commit_browser, members(@commits)).
+	*send(@commits, clear),
+	*log(@commits),
+	*send(@commit_browser, members(@commits)).
 
 status(C) :-
 	setup_call_cleanup(
diff --git a/save.pl~ b/save.pl~
index df03446..ed3ac5f 100644
--- a/save.pl~
+++ b/save.pl~
@@ -2,6 +2,9 @@
 :- consult(library(pce)).
 :- consult(library(process)).
 
+:- op(920,fy, *).
+*_.
+
 :- pce_begin_class(save_dialog, dialog).
 
 unlink(D) :->
@@ -70,7 +73,7 @@ status(C) :-
 
 log(C) :-
 	setup_call_cleanup(
-	    process_create(path(git), ['log', '--format=format:%ai'],
+	    process_create(path(git), ['log', '--format=format:%ai %s'],
 			   [stdout(pipe(Out))]),
 	    read_to_chain(Out, C),
 	    close(Out)).