ambrevar: Add find-missing-files.
parent
fb9d7f203d
commit
e3e2576546
|
@ -399,3 +399,13 @@ INTERFACE is a string in the form of `wlp2s0'."
|
||||||
"sudo sh -c 'echo 1 > /sys/module/snd_hda_intel/parameters/power_save'")))
|
"sudo sh -c 'echo 1 > /sys/module/snd_hda_intel/parameters/power_save'")))
|
||||||
(enable-audio-codec-power-management)
|
(enable-audio-codec-power-management)
|
||||||
(bbswitch-off)))
|
(bbswitch-off)))
|
||||||
|
|
||||||
|
(export-always 'find-missing-files)
|
||||||
|
(defun find-missing-files (source target)
|
||||||
|
"Report files from SOURCE that are not in TARGET.
|
||||||
|
Files are compared by size."
|
||||||
|
(let ((source-files (uiop:with-current-directory (source)
|
||||||
|
(fof:finder)))
|
||||||
|
(target-files (uiop:with-current-directory (target)
|
||||||
|
(fof:finder))))
|
||||||
|
(set-difference source-files target-files :key #'fof:size)))
|
||||||
|
|
Loading…
Reference in New Issue