parouby
/
Pamhyr2
mirror of https://gitlab.com/pamhyr/pamhyr2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

tools: licence.el: Minor change.

setup.py
Pierre-Antoine Rouby 2024-02-12 17:08:09 +01:00
parent deaf114fa3
commit e03ebedfdf
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tools/license.el
View File

@ -85,16 +85,20 @@
(defun pamhyr-update-all-license () (defun pamhyr-update-all-license ()
(interactive) (interactive)
(let* ((root (pamhyr-root-dir)) (let* ((root (pamhyr-root-dir))
(files-with-copyright (split-string (files-with-copyright
(split-string
(shell-command-to-string (shell-command-to-string
(format "git -C '%s' grep -e 'Copyright (C)'|cut -d ':' -f 1|uniq|grep [.]py" (format "git -C '%s' grep -e 'Copyright (C)'|cut -d ':' -f 1|uniq|grep [.]py"
root)) root))
"\n")) "\n"))
(files (split-string (files
(split-string
(shell-command-to-string (shell-command-to-string
(format "git -C '%s' ls-files | grep [.]py" (format "git -C '%s' ls-files | grep [.]py"
root)))) root))
(files-without-copyright (seq-filter (lambda (file) "\n"))
(files-without-copyright
(seq-filter (lambda (file)
(not (member file files-with-copyright))) (not (member file files-with-copyright)))
files))) files)))
(message (format "%s" files-with-copyright)) (message (format "%s" files-with-copyright))