From fb98ca88c047ad5197876a678bfe39105492a61c Mon Sep 17 00:00:00 2001 From: eriedaberrie Date: Thu, 31 Oct 2024 21:41:34 -0700 Subject: [PATCH] feat: sync-music: put backticks around filepaths in output --- sync-music/actions.lisp | 16 ++++++++-------- sync-music/main.lisp | 2 +- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/sync-music/actions.lisp b/sync-music/actions.lisp index 5b85ace..6e32f42 100644 --- a/sync-music/actions.lisp +++ b/sync-music/actions.lisp @@ -19,11 +19,11 @@ Pushes status message about this action to QUEUE if given.")) (:documentation "Status message, as printed during ACTION-PERFORM.")) (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) - (format s "[D] ~A~%" (action-target a))) + (format s "[D] `~A`~%" (action-target a))) (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) (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))) (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)) - (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)) - (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)) - (format nil "Deleting ~A..." (action-target a))) + (format nil "Deleting `~A`..." (action-target a))) (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 (defmethod fset:compare ((a1 action) (a2 action)) diff --git a/sync-music/main.lisp b/sync-music/main.lisp index a937402..a648f5f 100644 --- a/sync-music/main.lisp +++ b/sync-music/main.lisp @@ -72,7 +72,7 @@ ((or (getf options :help) (/= free-argc 2)) (opts:describe :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" :args "[ORIGIN] TARGET") (return-from main)))