awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-13 13:13:35 -05:00
Code Issues Packages Projects Releases Wiki Activity

feat(vc): add codeberg support to browse-at-remote

Browse Source 
This should be PRed upstream later.
This commit is contained in:
Henrik Lissner
2023-02-18 16:45:14 -05:00
parent 81268cc5cf
commit 79736d832d
2 changed files with 26 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
modules/emacs/vc/autoload/vc.el
View File

@@ -1,11 +1,33 @@
;;; emacs/vc/autoload/vc.el -*- lexical-binding: t; -*-
;;
;;; Helpers
(defun +vc--remote-homepage ()
(require 'browse-at-remote)
(or (let ((url (browse-at-remote--remote-ref)))
(cdr (browse-at-remote--get-url-from-remote (car url))))
(user-error "Can't find homepage for current project")))
;; TODO: PR these upstream?
;;;###autoload
(defun browse-at-remote--format-region-url-as-codeberg (repo-url location filename &optional linestart lineend)
"URL formatted for codeberg."
(cond
((and linestart lineend)
(format "%s/src/%s/%s#L%d-L%d" repo-url location filename linestart lineend))
(linestart (format "%s/src/%s/%s#L%d" repo-url location filename linestart))
(t (format "%s/src/%s/%s" repo-url location filename))))
;;;###autoload
(defun browse-at-remote--format-commit-url-as-codeberg (repo-url commithash)
"Commit URL formatted for codeberg"
(format "%s/src/commit/%s" repo-url commithash))
;;
;;; Commands
(defvar browse-at-remote-prefer-symbolic)
;;;###autoload
(defun +vc/browse-at-remote (&optional arg)