eriedaberrie/lisp-scripts
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

chore: sync-music: capitalize comments

Browse source
This commit is contained in:
eriedaberrie 2024-11-07 15:18:18 -08:00
parent 117325d1ef
commit 394224eadd
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sync-music/actions.lisp
View file

@ -79,6 +79,6 @@ Pushes status message about this action to QUEUE if given."))
(defmethod action-perform-describe ((a directory-action)) (defmethod action-perform-describe ((a directory-action))
(format nil "Ensuring `~A` exists..." (action-target a))) (format nil "Ensuring `~A` exists..." (action-target a)))
;; NOTE: delete actions are equal to copy actions to the same target ;; NOTE: Delete actions are equal to copy actions to the same target
(defmethod fset:compare ((a1 action) (a2 action)) (defmethod fset:compare ((a1 action) (a2 action))
(fset:compare-slots a1 a2 #'action-target)) (fset:compare-slots a1 a2 #'action-target))

2
sync-music/sync-music.lisp
View file

@ -91,7 +91,7 @@ total task count as arguments."
(defun clean-directory (target) (defun clean-directory (target)
"Delete all empty folders and folders containing only empty folders in TARGET." "Delete all empty folders and folders containing only empty folders in TARGET."
;; NOTE: want (every #'clean-directory ...) but without short-circuiting ;; NOTE: Want (every #'clean-directory ...) but without short-circuiting
(and (every #'identity (and (every #'identity
(mapcar #'clean-directory (uiop:subdirectories target))) (mapcar #'clean-directory (uiop:subdirectories target)))
(null (uiop:directory-files target)) (null (uiop:directory-files target))