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

feat: sync-music: put backticks around filepaths in output

Browse source
This commit is contained in:
eriedaberrie 2024-10-31 21:41:34 -07:00
parent ef9d463f47
commit fb98ca88c0
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
sync-music/actions.lisp
View file

@ -19,11 +19,11 @@ Pushes status message about this action to QUEUE if given."))
(:documentation "Status message, as printed during ACTION-PERFORM.")) (:documentation "Status message, as printed during ACTION-PERFORM."))
(defmethod action-describe ((a copy-action) &optional s) (defmethod action-describe ((a copy-action) &optional s)
(format s "[C] ~A -> ~A~%" (copy-action-origin a) (action-target a))) (format s "[C] `~A` -> `~A`~%" (copy-action-origin a) (action-target a)))
(defmethod action-describe ((a delete-action) &optional s) (defmethod action-describe ((a delete-action) &optional s)
(format s "[D] ~A~%" (action-target a))) (format s "[D] `~A`~%" (action-target a)))
(defmethod action-describe ((a directory-action) &optional s) (defmethod action-describe ((a directory-action) &optional s)
(format s "[M] ~A~%" (action-target a))) (format s "[M] `~A`~%" (action-target a)))
(defmethod action-perform ((a copy-action) &optional queue) (defmethod action-perform ((a copy-action) &optional queue)
(declare (ignore queue)) (declare (ignore queue))
@ -67,15 +67,15 @@ Pushes status message about this action to QUEUE if given."))
(lparallel.queue:push-queue (action-perform-describe a) queue))) (lparallel.queue:push-queue (action-perform-describe a) queue)))
(defmethod action-perform-describe ((a copy-action)) (defmethod action-perform-describe ((a copy-action))
(format nil "Copying ~A to ~A..." (copy-action-origin a) (action-target a))) (format nil "Copying `~A` to `~A`..." (copy-action-origin a) (action-target a)))
(defmethod action-perform-describe ((a copy-meta-action)) (defmethod action-perform-describe ((a copy-meta-action))
(format nil "Modifying ~A to ~A..." (copy-action-origin a) (action-target a))) (format nil "Modifying `~A` to `~A`..." (copy-action-origin a) (action-target a)))
(defmethod action-perform-describe ((a copy-flac-action)) (defmethod action-perform-describe ((a copy-flac-action))
(format nil "Converting ~A to ~A..." (copy-action-origin a) (action-target a))) (format nil "Converting `~A` to `~A`..." (copy-action-origin a) (action-target a)))
(defmethod action-perform-describe ((a delete-action)) (defmethod action-perform-describe ((a delete-action))
(format nil "Deleting ~A..." (action-target a))) (format nil "Deleting `~A`..." (action-target a)))
(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))

2
sync-music/main.lisp
View file

@ -72,7 +72,7 @@
((or (getf options :help) (/= free-argc 2)) ((or (getf options :help) (/= free-argc 2))
(opts:describe (opts:describe
:prefix "Sync music files between directories, converting flac to opus." :prefix "Sync music files between directories, converting flac to opus."
:suffix "ORIGIN is assumed to be ~/Music/ if not provided." :suffix "ORIGIN is assumed to be `~/Music/` if not provided."
:usage-of "sync-music" :usage-of "sync-music"
:args "[ORIGIN] TARGET") :args "[ORIGIN] TARGET")
(return-from main))) (return-from main)))