[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vc-got 0a66694 046/145: vc-got--log: add flag for rever
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vc-got 0a66694 046/145: vc-got--log: add flag for reverse and mark as no side effects |
Date: |
Thu, 9 Sep 2021 15:58:30 -0400 (EDT) |
branch: externals/vc-got
commit 0a66694e897e35f0472d5ada455a76b7719cc285
Author: Omar Polo <op@omarpolo.com>
Commit: Omar Polo <op@omarpolo.com>
vc-got--log: add flag for reverse and mark as no side effects
---
vc-got.el | 28 ++++++++++++++++------------
1 file changed, 16 insertions(+), 12 deletions(-)
diff --git a/vc-got.el b/vc-got.el
index a451aa8..827fc90 100755
--- a/vc-got.el
+++ b/vc-got.el
@@ -190,7 +190,8 @@ Assume `default-directory' is inside a got worktree."
(with-temp-buffer
(apply #'vc-got--call "add" (append vc-register-switches files))))
-(defun vc-got--log (&optional path limit start-commit stop-commit
search-pattern)
+(defun vc-got--log (&optional path limit start-commit stop-commit
+ search-pattern reverse)
"Execute the log command in the worktree of PATH.
The output in the current buffer.
@@ -199,20 +200,23 @@ LIMIT limits the maximum number of commit returned.
START-COMMIT: start traversing history at the specified commit.
STOP-COMMIT: stop traversing history at the specified commit.
SEARCH-PATTERN: limit to log messages matched by the regexp given.
+REVERSE: display the log messages in reverse order.
Return nil if the command failed or if PATH isn't included in any
worktree."
- (vc-got-with-worktree (or path default-directory)
- (zerop
- (apply #'vc-got--call
- (cl-remove-if #'null
- (flatten-list
- (list "log"
- (when limit (list "-l" (format "%s" limit)))
- (when start-commit (list "-c" start-commit))
- (when stop-commit (list "-x" stop-commit))
- (when search-pattern (list "-s"
search-pattern))
- path)))))))
+ (let (process-file-side-effects)
+ (vc-got-with-worktree (or path default-directory)
+ (zerop
+ (apply #'vc-got--call
+ (cl-remove-if #'null
+ (flatten-list
+ (list "log"
+ (when limit (list "-l" (format "%s" limit)))
+ (when start-commit (list "-c" start-commit))
+ (when stop-commit (list "-x" stop-commit))
+ (when search-pattern (list "-s"
search-pattern))
+ (when reverse '("-R"))
+ path))))))))
(defun vc-got--status (dir-or-file &rest files)
"Return the output of ``got status''.
- [elpa] externals/vc-got 49945a0 105/145: mark ignore and ignore-completion-table as NOT NEEDED, (continued)
- [elpa] externals/vc-got 49945a0 105/145: mark ignore and ignore-completion-table as NOT NEEDED, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 807ca5a 120/145: mark completely staged files as 'up-to-date, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 9114bbc 112/145: use wrapper function instead of replicating it, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 01bf4e0 128/145: reword docstring to avoid checkdoc complain, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 65255dc 133/145: update README.md, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got c3185bf 113/145: add various -- to avoid arguments being interpreted as flags, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 8b45e61 137/145: mention version requirement for got send, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got d06f988 019/145: suggest to add .got to vc-directory-exclusion-list, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got ba12390 027/145: adding vc-got-stage, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 21914ca 032/145: apply-impl should not be interactive, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 0a66694 046/145: vc-got--log: add flag for reverse and mark as no side effects,
ELPA Syncer <=
- [elpa] externals/vc-got a5c1731 047/145: drop vc-got-stage, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 8da4c01 049/145: remove debugging comments, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 3f25d9f 051/145: add vc-got-annotate (#4), ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 8228942 050/145: fix vc-got-dir-status-files, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got fab791a 052/145: vc-got--call flatten and filter arg list, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 8b635a9 054/145: implement repository-url, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got c27df03 055/145: print more info in vc-got-dir-extra-headers, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got a96df0e 056/145: provide unregister and delete-file commands (#7), ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 3d2d3c3 059/145: drop vc-got-unregister, not used, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got c819459 077/145: trap c-g during stage operation, ELPA Syncer, 2021/09/09