462/465: gnu: kmail: Wrap program.

[guix-commits]

z572 pushed a commit to branch kde-team
in repository guix.

commit 703856873a9f9744f0cf7fe33f304293ad3b6b76
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Tue Jul 16 20:36:03 2024 +0800

    gnu: kmail: Wrap program.
    
    * gnu/packages/kde-pim.scm (kmail): Wrap program.
    [inputs]: Add kaddressbook and kmail-account-wizard.
    [arguments]<#:phases>: Add wrap-program phase.
    
    Change-Id: I82d7c897a188d8ac0d0b743d4fe4146aaf4081eb
---
 gnu/packages/kde-pim.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/kde-pim.scm b/gnu/packages/kde-pim.scm
index 0a0c378c9c..d640d9ac3f 100644
--- a/gnu/packages/kde-pim.scm
+++ b/gnu/packages/kde-pim.scm
@@ -1175,6 +1175,7 @@ and retrieving certificates from LDAP servers.")
            gpgme-1.23
            grantlee
            grantleetheme
+           kaddressbook
            kbookmarks
            kcalendarcore
            kcalutils
@@ -1195,6 +1196,7 @@ and retrieving certificates from LDAP servers.")
            kitemviews
            kjobwidgets
            kldap
+           kmail-account-wizard
            kmailcommon
            kmailtransport
            kmessagelib
@@ -1232,6 +1234,19 @@ and retrieving certificates from LDAP servers.")
       #:qtbase qtbase
       #:phases
       #~(modify-phases %standard-phases
+          (add-after 'install 'wrap-program
+            (lambda* (#:key inputs #:allow-other-keys)
+              (define (find-program-directory name)
+                (dirname (search-input-file
+                          inputs (string-append "/bin/" name))))
+              (wrap-program (string-append #$output "/bin/kmail")
+                `("XDG_DATA_DIRS" ":" prefix
+                  (,(getenv "XDG_DATA_DIRS")))
+                `("PATH" ":" prefix
+                  ,(map find-program-directory
+                        (list "kaddressbook"
+                              "akonadictl"
+                              "accountwizard"))))))
           (replace 'check
             (lambda* (#:key tests? #:allow-other-keys)
               (when tests?