Add a download facility

Add a custom variable for specifying what licenses to download.

1 files changed, 14 insertions, 0 deletions

diff --git a/create-license.el b/create-license.el
index b7af4d1..456d1ae 100644
--- a/create-license.el
+++ b/create-license.el
@@ -62,5 +62,19 @@ The destination file name under DIR is given by
   (copy-file (expand-file-name name create-license-directory)
 	     (expand-file-name create-license-file-name dir)))
 
+(defcustom create-license-common
+  '(("GPL-3.0" . "https://www.gnu.org/licenses/gpl-3.0.txt")
+    ("GPL-2.0" . "https://www.gnu.org/licenses/old-licenses/gpl-2.0.txt")
+    ("Apache-2.0" . "https://www.apache.org/licenses/LICENSE-2.0.txt"))
+  "Common known licenses.
+
+Each member of this list is of the form (NAME . URL). Whenever possible,
+the NAME is the SPDX identifier of the license."
+  :group 'create-license
+  :type '(list (string . string)))
+
+;; autoload ?
+(defun create-license-download-common ())
+
 (provide 'create-license)
 ;;; create-license.el ends here