forge-gitea.el (2010B)
1 ;;; forge-gitea.el --- Gitea support -*- lexical-binding: t -*- 2 3 ;; Copyright (C) 2018-2022 Jonas Bernoulli 4 5 ;; Author: Jonas Bernoulli <jonas@bernoul.li> 6 ;; Maintainer: Jonas Bernoulli <jonas@bernoul.li> 7 ;; SPDX-License-Identifier: GPL-3.0-or-later 8 9 ;; This file is not part of GNU Emacs. 10 11 ;; Forge is free software; you can redistribute it and/or modify it 12 ;; under the terms of the GNU General Public License as published by 13 ;; the Free Software Foundation; either version 3, or (at your option) 14 ;; any later version. 15 ;; 16 ;; Forge is distributed in the hope that it will be useful, but WITHOUT 17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 18 ;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public 19 ;; License for more details. 20 ;; 21 ;; You should have received a copy of the GNU General Public License 22 ;; along with Forge. If not, see http://www.gnu.org/licenses. 23 24 ;;; Code: 25 26 (require 'gtea) 27 (require 'forge) 28 29 ;;; Class 30 31 (defclass forge-gitea-repository (forge-unusedapi-repository) 32 ((issues-url-format :initform "https://%h/%o/%n/issues") 33 (issue-url-format :initform "https://%h/%o/%n/issues/%i") 34 ;; The anchor for the issue itself is .../%i#issue-%i 35 (issue-post-url-format :initform "https://%h/%o/%n/issues/%i#issuecomment-%I") 36 (pullreqs-url-format :initform "https://%h/%o/%n/pulls") 37 (pullreq-url-format :initform "https://%h/%o/%n/pulls/%i") 38 (pullreq-post-url-format :initform "https://%h/%o/%n/pulls/%i#issuecomment-%I") 39 (commit-url-format :initform "https://%h/%o/%n/commit/%r") 40 (branch-url-format :initform "https://%h/%o/%n/commits/branch/%r") 41 (remote-url-format :initform "https://%h/%o/%n") 42 (create-issue-url-format :initform "https://%h/%o/%n/issues/new") 43 (create-pullreq-url-format :initform "https://%h/%o/%n/pulls") ; sic 44 (pullreq-refspec :initform "+refs/pull/*/head:refs/pullreqs/*"))) 45 46 ;;; _ 47 (provide 'forge-gitea) 48 ;;; forge-gitea.el ends here