+ #t)))
+ (add-after 'install 'move-gui-to-separate-output
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (gui (assoc-ref outputs "gui")))
+ (for-each
+ (lambda (file)
+ (mkdir-p (string-append gui (dirname file)))
+ (rename-file (string-append out file)
+ (string-append gui file)))
+ (list "/bin/xorriso-tcltk"
+ "/share/info/xorriso-tcltk.info"
+ "/share/man/man1/xorriso-tcltk.1"))
+ (wrap-program (string-append gui "/bin/xorriso-tcltk")
+ `("PATH" ":" prefix (,(string-append out "/bin"))))