From 27d7ae0a3f50b5554d4ead0fbb09c2490d62ad07 Mon Sep 17 00:00:00 2001
From: Marlon Schumacher <schumacher@hfm-karlsruhe.de>
Date: Thu, 06 Mar 2025 15:40:52 +0100
Subject: [PATCH] fix: adding leading whitespace to sox-trim string output
---
sources/effects/editing.lisp | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/sources/effects/editing.lisp b/sources/effects/editing.lisp
index 15f1a1d..b269076 100644
--- a/sources/effects/editing.lisp
+++ b/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))
)
--
Gitblit v1.9.1