From e4283f8ef2a7f438397f9cdaff396a1cd051ac97 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Sat, 22 Jan 2022 19:03:31 +0100 Subject: M save.pl M save.pl~ --- save.pl | 5 +++-- save.pl~ | 12 ++++++++++-- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/save.pl b/save.pl index 257a73a..df03446 100644 --- a/save.pl +++ b/save.pl @@ -18,6 +18,8 @@ unlink(D) :-> :- pce_global(@commit_browser, new(browser)). :- pce_global(@save_button, new(button(save, message(@prolog, save), 'RET'))). +:- pce_global(@refresh_button, + new(button(refresh, message(@prolog, refresh)))). main :- pce_main_loop(main). @@ -48,8 +50,7 @@ added(0) :- bold)), send(@dialog, append, @editor), send(@dialog, append, @save_button), - send(@dialog, append, button(refresh, - and(message(@prolog, refresh)))), + send(@dialog, append, @refresh_button), send(@dialog, open). refresh :- diff --git a/save.pl~ b/save.pl~ index c4f2e08..849cdc9 100644 --- a/save.pl~ +++ b/save.pl~ @@ -18,6 +18,8 @@ unlink(D) :-> :- pce_global(@commit_browser, new(browser)). :- pce_global(@save_button, new(button(save, message(@prolog, save), 'RET'))). +:- pce_global(@refresh_button, + button(refresh, message(@prolog, refresh))). main :- pce_main_loop(main). @@ -48,8 +50,7 @@ added(0) :- bold)), send(@dialog, append, @editor), send(@dialog, append, @save_button), - send(@dialog, append, button(refresh, - and(message(@prolog, refresh)))), + send(@dialog, append, @refresh_button), send(@dialog, open). refresh :- @@ -67,6 +68,13 @@ status(C) :- read_to_chain(Out, C), close(Out)). +log(C) :- + setup_call_cleanup( + process_create(path(git), ['log', '--format=format:%ai'], + [stdout(pipe(Out))]), + read_to_chain(Out, C), + close(Out)). + read_to_chain(S, C) :- read_line_to_codes(S, Cs), ( Cs == end_of_file -- cgit v1.2.3