commit 686eac9a1fae366933598d31881b2684f69dbeaa
from: Omar Polo <op@omarpolo.com>
date: Mon Dec 07 10:33:17 2020 UTC

implemented vc-got-push

commit - 9ad1eb5d84e342aa18e2520976253104d6103418
commit + 686eac9a1fae366933598d31881b2684f69dbeaa
blob - 3af9891fc3190bb6dcc9d35f9b8d5d7531d90521
blob + 32c1b2a61fc11dbdadc3e6c436a0c8a3a97ca4a7
--- vc-got.el
+++ vc-got.el
@@ -66,6 +66,8 @@
 ;; - merge-branch                       DONE
 ;; - merge-news                         NOT IMPLEMENTED
 ;; - pull                               DONE
+;; - push                               DONE
+;;      uses git
 ;; - steal-lock                         NOT IMPLEMENTED
 ;; - modify-change-comment              NOT IMPLEMENTED
 ;;      can be implemented via histedit, if I understood correctly
@@ -120,6 +122,14 @@
   (declare (indent defun))
   `(when-let (default-directory (vc-got-root ,file))
      ,@body))
+
+(defun vc-got--repo-root ()
+  "Return the path to the repository root.
+Assume `default-directory' is inside a got worktree."
+  (vc-got-with-worktree default-directory
+    (with-temp-buffer
+      (insert-file-contents ".got/repository")
+      (string-trim (buffer-string) nil "\n"))))
 
 (defun vc-got--call (&rest args)
   "Call `vc-got-cmd' in the `default-directory' with ARGS and put the output in the current buffer."
@@ -423,17 +433,29 @@ DIR-OR-FILE."
          (branch (completing-read "Merge from branch: " branches)))
     (when branch
       (vc-got--integrate branch))))
+
+(defun vc-got--push-pull (cmd op prompt root)
+  "Execute CMD OP, or prompt the user if PROMPT is non-nil.
+ROOT is the worktree root."
+  (let ((buffer (format "*vc-got : %s*" (expand-file-name root))))
+    (when-let (cmd (if prompt
+                       (split-string
+                        (read-shell-command (format "%s %s command: " cmd op)
+                                            (format "%s %s" cmd op))
+                        " " t)
+                     (list cmd op)))
+      (apply #'vc-do-command buffer 0 (car cmd) nil (cdr cmd)))))
 
 (defun vc-got-pull (prompt)
   "Execute got pull, prompting the user for the full command if PROMPT is not nil."
+  (vc-got--push-pull vc-got-cmd "fetch" prompt (vc-got-root default-directory)))
+
+(defun vc-got-push (prompt)
+  "Run git push (not got!) in the repository dir.
+If PROMPT is non-nil, prompt for the git command to run."
   (let* ((root (vc-got-root default-directory))
-         (buffer (format "*vc-got : %s*" (expand-file-name root))))
-    (when-let (cmd (if prompt
-                       (split-string
-                        (read-shell-command "Got pull command: " "got fetch")
-                        " " t)
-                     '("got" "fetch")))
-      (apply #'vc-do-command buffer 0 vc-got-cmd nil (cdr cmd)))))
+         (default-directory (vc-got--repo-root)))
+    (vc-got--push-pull "git" "push" prompt root)))
 
 (defun vc-got-print-log (files buffer &optional _shortlog start-revision limit)
   "Insert the revision log for FILES into BUFFER.