diff options
Diffstat (limited to 'create-license.el')
| -rw-r--r-- | create-license.el | 40 |
1 files changed, 23 insertions, 17 deletions
diff --git a/create-license.el b/create-license.el index 2f828c3..7e52f02 100644 --- a/create-license.el +++ b/create-license.el @@ -3,7 +3,10 @@ ;; Copyright (C) 2024 Tristan Riehs ;; Author: Tristan Riehs <tristan.riehs@bordeaux-inp.fr> -;; Keywords: convenience +;; Keywords: convenience license +;; Version: 1.0.0 +;; Maintainer: Tristan Riehs <tristan.riehs@bordeaux-inp.fr> +;; URL: https://tristanriehs.fr/git/create-license ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -22,9 +25,13 @@ ;; This packages aims at providing a convenient way of creating license ;; files. The core command is `create-license', which you can invoke -;; interactively using M-x. +;; interactively using \\[create-license]. +;; Before using this package, you have to download the licenses listed +;; in `create-license-common' using \\[create-license-download-common]. ;; The licenses are stored in the directory `create-license-directory'. +;; When a license is copied, the new file is named according to the +;; content if `create-license-file-name'. ;;; Code: @@ -60,6 +67,20 @@ Functions in this hook are called with no arguments." :group 'create-license :type 'hook) +(defcustom create-license-common + '(("GPL3" . "https://www.gnu.org/licenses/gpl-3.0.txt") + ("GPL2" . "https://www.gnu.org/licenses/old-licenses/gpl-2.0.txt") + ("Apache2" . "https://www.apache.org/licenses/LICENSE-2.0.txt") + ("MPL2" . "https://www.mozilla.org/media/MPL/2.0/index.f75d2927d3c1.txt") + ("CC-BY" . "https://creativecommons.org/licenses/by/4.0/legalcode.txt") + ("CC-BY-SA" . "https://creativecommons.org/licenses/by-sa/4.0/legalcode.txt") + ("FDL" . "https://www.gnu.org/licenses/fdl-1.3.txt")) + "Common known licenses. + +Each member of this list is of the form (NAME . URL)." + :group 'create-license + :type '(list (cons string string))) + (defvar create-license--hist nil "History for `create-license'.") @@ -87,21 +108,6 @@ The destination file name under DIR is given by `create-license-download-common'" create-license-directory))) -(defcustom create-license-common - '(("GPL3" . "https://www.gnu.org/licenses/gpl-3.0.txt") - ("GPL2" . "https://www.gnu.org/licenses/old-licenses/gpl-2.0.txt") - ("Apache2" . "https://www.apache.org/licenses/LICENSE-2.0.txt") - ("MPL2" . "https://www.mozilla.org/media/MPL/2.0/index.f75d2927d3c1.txt") - ("CC-BY" . "https://creativecommons.org/licenses/by/4.0/legalcode.txt") - ("CC-BY-SA" . - "https://creativecommons.org/licenses/by-sa/4.0/legalcode.txt") - ("FDL" . "https://www.gnu.org/licenses/fdl-1.3.txt")) - "Common known licenses. - -Each member of this list is of the form (NAME . URL)." - :group 'create-license - :type '(list (cons string string))) - ;;;###autoload (defun create-license-download-common () "Download licenses listed in `create-license-common'." |