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

---
 save.exe | Bin 278441 -> 278500 bytes
 save.pl  |  11 +++++++----
 save.pl~ |   5 ++++-
 3 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/save.exe b/save.exe
index 8d84dd5..d9abb00 100644
Binary files a/save.exe and b/save.exe differ
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)).
-- 
cgit v1.2.3