From 198f8d57d806dc1e7f5186bab07490fa6340138f Mon Sep 17 00:00:00 2001 From: Aryadev Chavali 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/license.el') 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 "))) (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 From 6aa3c170e93ea9a88b16816a3396778def524a01 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Sat, 11 May 2024 13:05:41 +0530 Subject: (Emacs/*)~clean up text, change license of elisp packages to GPLv2 strictly --- Emacs/.config/emacs/elisp/license.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'Emacs/.config/emacs/elisp/license.el') diff --git a/Emacs/.config/emacs/elisp/license.el b/Emacs/.config/emacs/elisp/license.el index 5921d59..a4922ab 100644 --- a/Emacs/.config/emacs/elisp/license.el +++ b/Emacs/.config/emacs/elisp/license.el @@ -5,10 +5,9 @@ ;; Author: Aryadev Chavali ;; Keywords: -;; 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 -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License version +;; 2 as published by the Free Software Foundation. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -19,9 +18,7 @@ ;; along with this program. If not, see . ;;; Commentary: - ;; - ;;; Code: (defvar +license/license-choice nil) -- cgit v1.2.3-13-gbd6f