From e03ebedfdf1a95457faad54d9437ef55235b7496 Mon Sep 17 00:00:00 2001
From: Pierre-Antoine Rouby <pierre-antoine.rouby@inrae.fr>
Date: Mon, 12 Feb 2024 17:08:09 +0100
Subject: [PATCH] tools: licence.el: Minor change.
---
tools/license.el | 28 ++++++++++++++++------------
1 file changed, 16 insertions(+), 12 deletions(-)
diff --git a/tools/license.el b/tools/license.el
index 106375bb..afb49975 100644
--- a/tools/license.el
+++ b/tools/license.el
@@ -85,18 +85,22 @@
(defun pamhyr-update-all-license ()
(interactive)
(let* ((root (pamhyr-root-dir))
- (files-with-copyright (split-string
- (shell-command-to-string
- (format "git -C '%s' grep -e 'Copyright (C)'|cut -d ':' -f 1|uniq|grep [.]py"
- root))
- "\n"))
- (files (split-string
- (shell-command-to-string
- (format "git -C '%s' ls-files | grep [.]py"
- root))))
- (files-without-copyright (seq-filter (lambda (file)
- (not (member file files-with-copyright)))
- files)))
+ (files-with-copyright
+ (split-string
+ (shell-command-to-string
+ (format "git -C '%s' grep -e 'Copyright (C)'|cut -d ':' -f 1|uniq|grep [.]py"
+ root))
+ "\n"))
+ (files
+ (split-string
+ (shell-command-to-string
+ (format "git -C '%s' ls-files | grep [.]py"
+ root))
+ "\n"))
+ (files-without-copyright
+ (seq-filter (lambda (file)
+ (not (member file files-with-copyright)))
+ files)))
(message (format "%s" files-with-copyright))
(mapcar 'pamhyr--update-license (mapcar (lambda (file) (concat root "/" file))
files-with-copyright))
--
GitLab