gnu: itk-snap: Add Wayland.

* gnu/packages/image-processing.scm (itk-snap)[inputs]: Add qtwayland.
[arguments]<#:phases>{wrap-executable}: Fix it.

Change-Id: I1293b81baeee02a1e2126b2b77706326d281056b

1 files changed, 12 insertions, 1 deletions

diff --git a/gnu/packages/image-processing.scm b/gnu/packages/image-processing.scm
index 404bec4818d..2e30bf5450a 100644
--- a/gnu/packages/image-processing.scm
+++ b/gnu/packages/image-processing.scm
@@ -1645,7 +1645,17 @@ combine the information contained in both.")
                  (list (string-append #$(this-package-input "qtbase")
                                       "/lib/qt6/plugins")
                        (string-append #$(this-package-input "qtdeclarative")
-                                      "/lib/qt6/plugins")))))))))
+                                      "/lib/qt6/plugins")
+                       (string-append #$(this-package-input "qtwayland")
+                                      "/lib/qt6/plugins"))))
+              ;; The application uses argv[0] to locate itself.  The wrapper
+              ;; generated by wrap-program uses 'exec -a "${0##*/}"' which sets
+              ;; argv[0] to just "itksnap" without a path, causing "Error
+              ;; locating executable" on startup.  Remove the -a flag so
+              ;; argv[0] contains the full path to .itksnap-real.
+              (substitute* (string-append #$output "/bin/itksnap")
+                (("exec -a \"\\$\\{0##\\*/\\}\" ")
+                 "exec ")))))))
     (inputs
      (list curl
            freetype
@@ -1657,6 +1667,7 @@ combine the information contained in both.")
            mesa-opencl
            qtbase
            qtdeclarative
+           qtwayland
            vtk))
     (native-inputs
      (list