From 09df4ef4f667ae1322ea517111889adcdead5fda Mon Sep 17 00:00:00 2001
From: Zheng Junjie <zhengjunjie@iscas.ac.cn>
Date: Tue, 16 Jul 2024 20:36:03 +0800
Subject: [PATCH] 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 5b4048eb49..c95cf653c2 100644
--- a/gnu/packages/kde-pim.scm
+++ b/gnu/packages/kde-pim.scm
@@ -1166,6 +1166,7 @@ and retrieving certificates from LDAP servers.")
            boost
            gpgme-1.23
            grantleetheme
+           kaddressbook
            kbookmarks
            kcalendarcore
            kcalutils
@@ -1186,6 +1187,7 @@ and retrieving certificates from LDAP servers.")
            kitemviews
            kjobwidgets
            kldap
+           kmail-account-wizard
            kmailcommon
            kmailtransport
            kmessagelib
@@ -1223,6 +1225,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?