forge-revnote.el (1629B)
1 ;;; forge-revnote.el --- Revnote 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 'forge) 27 (require 'forge-post) 28 (require 'forge-topic) 29 30 ;;; Class 31 32 (defclass forge-revnote (forge-topic) 33 ((closql-table :initform 'revnote) 34 (closql-primary-key :initform 'id) 35 ;; (closql-order-by :initform [(desc number)]) 36 (closql-foreign-key :initform 'repository) 37 (closql-class-prefix :initform "forge-") 38 (id :initarg :id) 39 (repository :initarg :repository) 40 (commit :initarg :commit) 41 (file :initarg :file) 42 (line :initarg :line) 43 (author :initarg :author) 44 (body :initarg :body))) 45 46 ;;; _ 47 (provide 'forge-revnote) 48 ;;; forge-revnote.el ends here