diff --git a/tools/license.el b/tools/license.el index 106375bb37ef50d90621d0de53600d120787338a..afb49975302f0a33d67f216795ea1fe63fc3de24 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))