aboutsummaryrefslogtreecommitdiff
path: root/Emacs
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2024-04-18 15:23:54 +0630
committerAryadev Chavali <aryadev@aryadevchavali.com>2024-04-18 15:23:54 +0630
commit198f8d57d806dc1e7f5186bab07490fa6340138f (patch)
tree69540de9464cac13eebdc07c5afb4e02ce99c363 /Emacs
parent65c7cd01386eb0acd8680ed8adc1e7f8f8b85b6e (diff)
downloaddotfiles-198f8d57d806dc1e7f5186bab07490fa6340138f.tar.gz
dotfiles-198f8d57d806dc1e7f5186bab07490fa6340138f.tar.bz2
dotfiles-198f8d57d806dc1e7f5186bab07490fa6340138f.zip
(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.
Diffstat (limited to 'Emacs')
-rw-r--r--Emacs/.config/emacs/elisp/license.el26
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)