From 2f5f23782b77f1f5bf31cc5504e02984336a3aba Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= 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