forge-bitbucket.el (1968B)
1 ;;; forge-bitbucket.el --- Bitbucket 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 'buck) 27 (require 'forge) 28 29 ;;; Class 30 31 (defclass forge-bitbucket-repository (forge-noapi-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#comment-%I") 36 (pullreqs-url-format :initform "https://%h/%o/%n/pull-requests") 37 (pullreq-url-format :initform "https://%h/%o/%n/pull-requests/%i") 38 (pullreq-post-url-format :initform "https://%h/%o/%n/pull-requests/%i#comment-%I") 39 (commit-url-format :initform "https://%h/%o/%n/commits/%r") 40 (branch-url-format :initform "https://%h/%o/%n/branch/%r") 41 (remote-url-format :initform "https://%h/%o/%n/src") 42 (create-issue-url-format :initform "https://%h/%o/%n/issues/new") 43 (create-pullreq-url-format :initform "https://%h/%o/%n/pull-requests/new"))) 44 45 ;;; _ 46 (provide 'forge-bitbucket) 47 ;;; forge-bitbucket.el ends here