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

[Hartmut Goebel]

htgoebel pushed a commit to branch master
in repository guix.

commit f96302abe7c9009eceeb65d06ccb67a80c9bb1a6
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 | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 3bffeb2..3495164 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -1474,6 +1474,15 @@ application crashes.")
                (("^.*xml/docbook/stylesheet.*$")
                 (string-append "xml/xsl/docbook-xsl-"
                                ,(package-version docbook-xsl) "\n")))
+             #t))
+         (add-after 'install 'add-symlinks
+           ;; Some package(s) (e.g. kdelibs4support) refer to this locale 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 xsl "pt_br.xml")
+                        (string-append xsl "pt-BR.xml")))
              #t)))))
     (home-page "https://community.kde.org/Frameworks";)
     (synopsis "Create documentation from DocBook")