guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 5ccabfd2708797c6d72abfaed8d0ad0d2f09bde5
Author: Danny Milosavljevic <[email protected]>
AuthorDate: Mon Jan 12 21:34:52 2026 +0100
gnu: itk-snap: Add Wayland.
* gnu/packages/image-processing.scm (itk-snap)[inputs]: Add qtwayland.
[arguments]<#:phases>{wrap-executable}: Fix it.
Change-Id: I1293b81baeee02a1e2126b2b77706326d281056b
---
gnu/packages/image-processing.scm | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/image-processing.scm
b/gnu/packages/image-processing.scm
index 404bec4818..2e30bf5450 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
