From 198f8d57d806dc1e7f5186bab07490fa6340138f Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Thu, 18 Apr 2024 15:23:54 +0630
Subject: (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.
---
Emacs/.config/emacs/elisp/license.el | 26 ++++++++++++++------------
1 file changed, 14 insertions(+), 12 deletions(-)
(limited to 'Emacs/.config/emacs/elisp')
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)
--
cgit v1.2.3-13-gbd6f