fix: adding leading whitespace to sox-trim string output

Marlon Schumacher

3 days ago 27d7ae0a3f50b5554d4ead0fbb09c2490d62ad07

fix: adding leading whitespace to sox-trim string output

 sources/effects/editing.lisp

@@ -105,15 +105,15 @@
  :menuins '((1 (("seconds" "seconds") ("samples" "samples"))))
  :doc "Trims off unwanted parts from beginning and end of audio"

  (let* ((thestring (format nil "trim ~d" start))
  (let* ((thestring (format nil " trim ~d" start))
         (thestring (sox-units thestring unit)))
    (sox-concat sox-append thestring))
  )

(defmethod! sox-trim ((start-and-end list) &key unit sox-append)
  (let* ((thestring (if (equal unit "samples") 
                        (format nil "trim ~ds ~ds " (first start-and-end) (- (second start-and-end) (first start-and-end)))
                      (format nil "trim ~d ~d " (first start-and-end) (- (second start-and-end) (first start-and-end))))))         
                        (format nil " trim ~ds ~ds " (first start-and-end) (- (second start-and-end) (first start-and-end)))
                      (format nil " trim ~d ~d " (first start-and-end) (- (second start-and-end) (first start-and-end))))))         
    (sox-concat sox-append thestring))
  )