;;; priime-vc.el --- Version control configuration
;;; Commentary:
;; Provides configuration for Magit.
;;; Code:

(use-package magit :straight t
  :custom
  (auth-sources '("~/.authinfo.gpg"))
  (vc-follow-symlink t)
  (magit-format-file-function #'magit-format-file-all-the-icons)
  :bind (("<f5>" . magit-status)
         ("C-x g" . magit-status)))
(use-package forge :straight t
  :after (magit))
(use-package git-link :straight t)

(defun git-link-with-commit ()
  "Create a URL representing the current selection for the current commit."
  (interactive)
  (let* ((link-region (git-link--get-region))
         (old-link (git-link (git-link--remote) (car link-region) (cadr link-region)))
         (branch (git-link--branch))
         (commit (git-link--commit))
         (new-link (s-replace branch commit old-link)))
    (kill-new new-link)
    new-link))

(defun git-link--magit-commit-url (type)
  "Create a URL with the given TYPE to the current commit from Magit."
  (let* ((remote (git-link--remote))
         (remote-url (git-link--remote-url remote))
         (short-hash (magit-commit-at-point))
         (full-hash (magit-rev-hash short-hash))
         (target-link (concat remote-url type full-hash)))
    target-link))

(defun git-link-magit-commit-tree ()
  "Create a URL representing a tree to the current commit from Magit."
  (interactive)
  (let* ((target-link (git-link--magit-commit-url "/tree/")))
    (kill-new target-link)
    target-link))

(defun git-link-magit-commit ()
  "Create a URL representing a commit to the current commit from Magit."
  (interactive)
  (let* ((target-link (git-link--magit-commit-url "/commit/")))
    (kill-new target-link)
    target-link))

(defun git-link--format-line-prefix (filepath)
  "Format the prefix for line spec using FILEPATH."
  (concat
   (when (git-link--should-render-plain filepath)
     "?plain=1")
   "#"))

(defun git-link--format-line-range (start end)
  "Format the line from START to END."
  (format "L%s-L%s" start end))

(defun git-link--format-line-start (start)
  "Format the line START."
  (format "L%s" start))

(defun git-link--format-line-suffix (filepath start end)
  "Common helper function for formatting the line suffix at the end of a URL."
  (when start
    (concat (git-link--format-line-prefix filepath)
            (if end
                (git-link--format-line-range start end)
              (git-link--format-line-start start)))))

(defun git-link-priime-dev (hostname projname filepath branch commit start end)
  "git-link configuration for my own forge."
  (format "%s/%s/src/commit/%s/%s"
          hostname
          projname
          (or branch commit)
          (concat filepath
                  (git-link--format-line-suffix filepath start end))))

(add-to-list 'git-link-remote-alist '("git.priime.dev" git-link-priime-dev))

(provide 'priime-vc)

;;; priime-vc.el ends here