(Emacs/elisp/license)~Behavior when licence-choice is NIL

Instead of defaulting to the Unlicense, we now completely copyright
the material.  This is the default behavior when a LICENSE is not
attached to a project in open source: copyright is completely
preserved.

1 files changed, 14 insertions, 12 deletions

diff --git a/Emacs/.config/emacs/elisp/license.el b/Emacs/.config/emacs/elisp/license.el
index 8ea64fd..5921d59 100644
--- a/Emacs/.config/emacs/elisp/license.el
+++ b/Emacs/.config/emacs/elisp/license.el
@@ -419,20 +419,22 @@ For more information, please refer to <https://unlicense.org>")))
     (car (alist-get choice +license/licenses-alist "" nil #'string=))))
 
 (defun +license/copyright-notice ()
-  (let ((license-name (or (if (listp +license/license-choice)
-                              (car +license/license-choice)
-                            +license/license-choice)
-                          "Unlicense")))
-    (format "Copyright (C) %s %s
-
-You may distribute and modify this code under the terms of the %s
+  (let ((license-name (if (listp +license/license-choice)
+                          (car +license/license-choice)
+                        +license/license-choice)))
+    (concat
+     (format "Copyright (C) %s %s\n\n" (format-time-string "%Y") user-full-name)
+     (if license-name
+         (format "You may distribute and modify this code under the terms of the %s
 license.  You should have received a copy of the %s license with
 this file.  If not, please write to: %s."
-            (format-time-string "%Y")
-            user-full-name
-            license-name
-            license-name
-            user-mail-address)))
+                 license-name
+                 license-name
+                 user-mail-address)
+       (format
+        "All rights reserved. You may not distribute or modify this code
+without explicit legal permission from the author \"%s\""
+        user-full-name)))))
 
 (defun +license/insert-complete-license ()
   (interactive)