04/04: gnu: shotcut: Fix indentation.

[guix-commits]

monego pushed a commit to branch master
in repository guix.

commit aba86f290b9ba9e6bd1f256ded2c1e07b4584b1d
Author: Vinicius Monego <monego@posteo.net>
AuthorDate: Sun Mar 30 15:00:07 2025 -0300

    gnu: shotcut: Fix indentation.
    
    * gnu/packages/video.scm (shotcut): Fix indentation.
    
    Change-Id: I76569e5bd6117de603cda5a0af8c61bcb7d37345
---
 gnu/packages/video.scm | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 5851d83552..0ddfc022a9 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -6100,21 +6100,21 @@ transitions, and effects and then export your film to 
many common formats.")
     (arguments
      (list
       #:tests? #f                      ;there are no tests
-       #:phases
-       #~(modify-phases %standard-phases
-         (add-after 'unpack 'patch-executable-paths
-           (lambda _
-             ;; Shotcut expects ffmpeg and melt executables in the shotcut
-             ;; directory.  Use full store paths.
-             (let ((ffmpeg #$(this-package-input "ffmpeg"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-executable-paths
+            (lambda _
+              ;; Shotcut expects ffmpeg and melt executables in the shotcut
+              ;; directory.  Use full store paths.
+              (let ((ffmpeg #$(this-package-input "ffmpeg"))
                     (mlt #$(this-package-input "mlt")))
-               (substitute* "src/jobs/ffmpegjob.cpp"
-                 (("\"ffmpeg\"") (string-append "\"" ffmpeg "/bin/ffmpeg\"")))
-               (substitute* "src/jobs/meltjob.cpp"
-                 (("\"melt\"") (string-append "\"" mlt "/bin/melt\""))
-                 (("\"melt-7\"") (string-append "\"" mlt "/bin/melt-7\""))))))
-         (add-after 'install 'wrap-executable
-           (lambda _
+                (substitute* "src/jobs/ffmpegjob.cpp"
+                  (("\"ffmpeg\"") (string-append "\"" ffmpeg "/bin/ffmpeg\"")))
+                (substitute* "src/jobs/meltjob.cpp"
+                  (("\"melt\"") (string-append "\"" mlt "/bin/melt\""))
+                  (("\"melt-7\"") (string-append "\"" mlt "/bin/melt-7\""))))))
+          (add-after 'install 'wrap-executable
+            (lambda _
              (let ((frei0r #$(this-package-input "frei0r-plugins"))
                     (jack #$(this-package-input "jack"))
                     (ladspa #$(this-package-input "ladspa"))