03/09: gnu: kconfigwidgets: Make QDirIterator follow symlinks.

[guix-commits]

htgoebel pushed a commit to branch master
in repository guix.

commit daff96de1fc9b2316fd4a62ac5f7173ea448afa5
Author: Hartmut Goebel <address@hidden>
Date:   Mon Oct 23 13:13:02 2017 +0200

    gnu: kconfigwidgets: Make QDirIterator follow symlinks.
    
    Transfer the NixOS patch "qdiriterator-follow-symlinks" for kconfigwidgets 
as
    of 2018-02-17.
    
    * gnu/packages/kde-frameworks.scm(kconfigwidgets)<patch>: New phase.
---
 gnu/packages/kde-frameworks.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index e8e2097..458437c 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -2152,6 +2152,13 @@ KCModules can be created with the KConfigWidgets 
framework.")
     (arguments
      `(#:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'patch
+           (lambda _
+             (substitute* "src/khelpclient.cpp"
+               ;; make QDirIterator follow symlinks
+               (("^\\s*(QDirIterator it\\(.*, 
QDirIterator::Subdirectories)(\\);)" _ a b)
+                (string-append a " | QDirIterator::FollowSymlinks" b)))
+             #t))
          (add-before 'check 'check-setup
            (lambda _
              ;; make Qt render "offscreen", required for tests