summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--save.exebin278441 -> 278500 bytes
-rw-r--r--save.pl11
-rw-r--r--save.pl~5
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
Binary files 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)).