forge-gogs.el (1943B)
1 ;;; forge-gogs.el --- Gogs 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 'gogs) 27 (require 'forge) 28 29 ;;; Class 30 31 (defclass forge-gogs-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 (issue-post-url-format :initform "https://%h/%o/%n/issues/%i#issuecomment-%I") 35 (pullreqs-url-format :initform "https://%h/%o/%n/pulls") 36 (pullreq-url-format :initform "https://%h/%o/%n/pulls/%i") 37 (pullreq-post-url-format :initform "https://%h/%o/%n/pulls/%i#issuecomment-%I") 38 (commit-url-format :initform "https://%h/%o/%n/commit/%r") 39 (branch-url-format :initform "https://%h/%o/%n/commits/%r") 40 (remote-url-format :initform "https://%h/%o/%n") 41 (create-issue-url-format :initform "https://%h/%o/%n/issues/new") 42 (create-pullreq-url-format :initform "https://%h/%o/%n/pulls") ; sic 43 (pullreq-refspec :initform "+refs/pull/*/head:refs/pullreqs/*"))) 44 45 ;;; _ 46 (provide 'forge-gogs) 47 ;;; forge-gogs.el ends here