diff options
| -rw-r--r-- | save.pl | 5 | ||||
| -rw-r--r-- | save.pl~ | 12 |
2 files changed, 13 insertions, 4 deletions
@@ -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 :- @@ -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 |