commit 9ad1eb5d84e342aa18e2520976253104d6103418
from: Omar Polo <op@omarpolo.com>
date: Mon Dec 07 10:12:13 2020 UTC

implemented vc-got-log-outgoing

it shows an extra commit, but it's a start!

commit - f457868bce7f6b22373758f652ff4e17528a8939
commit + 9ad1eb5d84e342aa18e2520976253104d6103418
blob - 5c03daa5cc7da04a05a6ee884038b79756fb5038
blob + 3af9891fc3190bb6dcc9d35f9b8d5d7531d90521
--- vc-got.el
+++ vc-got.el
@@ -75,7 +75,7 @@
 ;;
 ;; HISTORY FUNCTIONS
 ;; * print-log                          DONE
-;; * log-outgoing                       NOT IMPLEMENTED
+;; * log-outgoing                       DONE
 ;; * log-incoming                       NOT IMPLEMENTED
 ;; - log-search                         DONE
 ;; - log-view-mode                      NOT IMPLEMENTED
@@ -130,13 +130,14 @@
   (with-temp-buffer
     (apply #'vc-got--call "add" (append vc-register-switches files))))
 
-(defun vc-got--log (&optional path limit start-commit search-pattern)
+(defun vc-got--log (&optional path limit start-commit stop-commit search-pattern)
   "Execute the log command in the worktree of PATH.
 The output in the current buffer.
 
 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.
 
 Return nil if the command failed or if PATH isn't included in any
@@ -149,6 +150,7 @@ worktree."
                            (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)))))))
 
@@ -443,13 +445,24 @@ LIMIT limits the number of commits, optionally startin
       (cl-loop for file in files
                do (vc-got--log (file-relative-name file) limit start-revision)))))
 
+;; XXX: this includes also the latest commit in REMOTE-LOCATION.
+(defun vc-got-log-outgoing (buffer remote-location)
+  "Fill BUFFER with the diff between the local worktree branch and REMOTE-LOCATION."
+  (vc-setup-buffer buffer)
+  (let ((rl (if (or (not remote-location) (string-empty-p remote-location))
+                (concat "origin/" (vc-got--current-branch))
+              remote-location))
+        (inhibit-read-only t))
+    (with-current-buffer buffer
+      (vc-got--log nil nil nil rl))))
+
 ;; XXX: vc.el specify only pattern, but in reality this takes a buffer
 ;; and a pattern.
 (defun vc-got-log-search (buffer pattern)
   "Search commits for PATTERN and write the results found in BUFFER."
   (with-current-buffer buffer
     (let ((inhibit-read-only t))
-      (vc-got--log nil nil nil pattern))))
+      (vc-got--log nil nil nil nil pattern))))
 
 ;; TODO: async
 ;; TODO: we should append (vc-switches 'got 'diff) to the switches.