Subject: bug#78243: closed (Re: [bug#78243] [PATCH] gnu: kio-extras: Fix kiod path.)

From: [email-masked] (GNU bug Tracking System)
Date: Thu, 08 May 2025 07:01:02 +0000

Your bug report

#78243: [PATCH] gnu: kio-extras: Fix kiod path.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
78243: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=78243
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#78243] [PATCH] gnu: kio-extras: Fix kiod path.
From: Z572 <[email-masked]>
To: Sughosha via Guix-patches via <[email-masked]>
Cc: Sughosha <[email-masked]>, [email-masked]
Date: Thu, 08 May 2025 15:00:26 +0800
List-Id: <debbugs-submit.debbugs.gnu.org>

Sughosha via Guix-patches via <[email-masked]> writes:

> * gnu/packages/kde.scm (kio-extras)[arguments]Realign.
> <#:phases>: Add fix-kiod-path phase.
>
> Change-Id: I64463443ab3fb7fbd6939f007c9433d751dbd12e
> ---
>  gnu/packages/kde.scm | 28 +++++++++++++++++++++-------
>  1 file changed, 21 insertions(+), 7 deletions(-)
>
> diff --git a/gnu/packages/kde.scm b/gnu/packages/kde.scm
> index cf9b0a5298f..9eece538710 100644
> --- a/gnu/packages/kde.scm
> +++ b/gnu/packages/kde.scm
> @@ -753,13 +753,27 @@ (define-public kio-extras
>                  "0h720wcgsdx9h5vlr4flxrd3djmhwvlwkrf0yzwsf4amcb9wds8r"))))
>      (build-system cmake-build-system)
>      (arguments
> -     (list #:phases #~(modify-phases %standard-phases
> -                        (replace 'check
> -                          (lambda* (#:key tests? #:allow-other-keys)
> -                            (when tests?
> -                              (setenv "HOME" (getcwd))
> -                              (setenv "TMPDIR" (getcwd))
> -                              (invoke "ctest" "-E" "(thumbnailtest|testkioarchive)")))))))
> +     (list #:phases
> +           #~(modify-phases %standard-phases
> +               (replace 'check
> +                 (lambda* (#:key tests? #:allow-other-keys)
> +                   (when tests?
> +                   (setenv "HOME" (getcwd))
> +                   (setenv "TMPDIR" (getcwd))
> +                   (invoke "ctest" "-E"
> +                           "(thumbnailtest|testkioarchive)"))))
> +               (add-after 'install 'fix-kiod-path
> +                 (lambda* (#:key outputs #:allow-other-keys)
> +                   (let* ((kio #$(this-package-input "kio"))
> +                          (kf-version
> +                           #$(version-major
> +                              (package-version (this-package-input "kio")))))
> +                     (substitute* (string-append #$output
> +                                                 "/share/dbus-1/services/"
> +                                                 "org.kde.kmtpd5.service")
> +                       (("Exec=.*$")
> +                        (string-append "Exec=" kio "/libexec/kf" kf-version
> +                                       "/kiod" kf-version "\n")))))))))
>      (native-inputs (list extra-cmake-modules dbus kdoctools pkg-config qttools))
>      ;; TODO: libappimage
>      (inputs (list gperf
>
> base-commit: cea6eedfcea2defa526bc58d4fb2085cc8c0cb36
pushed, closing.

Subject: [PATCH] gnu: kio-extras: Fix kiod path.
From: Sughosha <[email-masked]>
To: [email-masked]
Cc: Sughosha <[email-masked]>
Date: Sun, 4 May 2025 20:02:52 +0530
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/kde.scm (kio-extras)[arguments]Realign.
<#:phases>: Add fix-kiod-path phase.

Change-Id: I64463443ab3fb7fbd6939f007c9433d751dbd12e
---
 gnu/packages/kde.scm | 28 +++++++++++++++++++++-------
 1 file changed, 21 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/kde.scm b/gnu/packages/kde.scm
index cf9b0a5298f..9eece538710 100644
--- a/gnu/packages/kde.scm
+++ b/gnu/packages/kde.scm
@@ -753,13 +753,27 @@ (define-public kio-extras
                 "0h720wcgsdx9h5vlr4flxrd3djmhwvlwkrf0yzwsf4amcb9wds8r"))))
     (build-system cmake-build-system)
     (arguments
-     (list #:phases #~(modify-phases %standard-phases
-                        (replace 'check
-                          (lambda* (#:key tests? #:allow-other-keys)
-                            (when tests?
-                              (setenv "HOME" (getcwd))
-                              (setenv "TMPDIR" (getcwd))
-                              (invoke "ctest" "-E" "(thumbnailtest|testkioarchive)")))))))
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (replace 'check
+                 (lambda* (#:key tests? #:allow-other-keys)
+                   (when tests?
+                   (setenv "HOME" (getcwd))
+                   (setenv "TMPDIR" (getcwd))
+                   (invoke "ctest" "-E"
+                           "(thumbnailtest|testkioarchive)"))))
+               (add-after 'install 'fix-kiod-path
+                 (lambda* (#:key outputs #:allow-other-keys)
+                   (let* ((kio #$(this-package-input "kio"))
+                          (kf-version
+                           #$(version-major
+                              (package-version (this-package-input "kio")))))
+                     (substitute* (string-append #$output
+                                                 "/share/dbus-1/services/"
+                                                 "org.kde.kmtpd5.service")
+                       (("Exec=.*$")
+                        (string-append "Exec=" kio "/libexec/kf" kf-version
+                                       "/kiod" kf-version "\n")))))))))
     (native-inputs (list extra-cmake-modules dbus kdoctools pkg-config qttools))
     ;; TODO: libappimage
     (inputs (list gperf

base-commit: cea6eedfcea2defa526bc58d4fb2085cc8c0cb36
-- 
2.48.1