29/29: gnu: kdoctools: Symlink some files referred to by different names.

[Hartmut Goebel]

htgoebel pushed a commit to branch wip-qt-paths
in repository guix.

commit e788290b97b2fc310b29a65253584ecd141a1758
Author: Hartmut Goebel <address@hidden>
Date:   Fri Oct 6 11:41:43 2017 +0200

    gnu: kdoctools: Symlink some files referred to by different names.
    
    * gnu/package/kde-frameworks.scm (kdoctools)[arguments]
      <#:phases>'add-symlinks': New phase.
---
 gnu/packages/kde-frameworks.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 8c0a336..1c72541 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -2034,7 +2034,15 @@ KCModules can be created with the KConfigWidgets 
framework.")
            (lambda _
              ;; make Qt render "offscreen", required for tests
              (setenv "QT_QPA_PLATFORM" "offscreen")
-             #t)))))
+             #t))
+         (add-after 'install 'add-symlinks
+           ;; Some package(s) (e.g. plasma-desktop) refer to these locales by
+           ;; a different spelling.
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((xsl (string-append (assoc-ref outputs "out")
+                                        
"share/kf5/kdoctools/customization/xsl/")))
+               (symlink (string-append kst5 "pt_br.xml")
+                        (string-append kst5 "pt-BR.xml"))))))))
     (home-page "https://community.kde.org/Frameworks";)
     (synopsis "Widgets for configuration dialogs")
     (description "KConfigWidgets provides easy-to-use classes to create