ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-01 00:52:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: kdoctools: Use G-expressions.

Browse source 
* gnu/packages/kde-frameworks.scm (kdoctools)[arguments]:
Rewrite as G-expressions.

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Zheng Junjie 2023-07-12 14:09:15 +08:00 committed by 宋文武
parent 16bea255c7
commit e6d22dfbe9
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 24 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
gnu/packages/kde-frameworks.scm
View file

@ -1705,28 +1705,30 @@ (define-public kdoctools
perl-uri
qtbase-5))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'cmake-find-docbook
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "cmake" "\\.cmake$")
(("CMAKE_SYSTEM_PREFIX_PATH")
"CMAKE_PREFIX_PATH"))
(substitute* "cmake/FindDocBookXML4.cmake"
(("^.*xml/docbook/schema/dtd.*$")
"xml/dtd/docbook\n"))
(substitute* "cmake/FindDocBookXSL.cmake"
(("^.*xml/docbook/stylesheet.*$")
(string-append "xml/xsl/docbook-xsl-"
,(package-version docbook-xsl) "\n")))))
(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"))))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'cmake-find-docbook
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "cmake" "\\.cmake$")
(("CMAKE_SYSTEM_PREFIX_PATH")
"CMAKE_PREFIX_PATH"))
(substitute* "cmake/FindDocBookXML4.cmake"
(("^.*xml/docbook/schema/dtd.*$")
"xml/dtd/docbook\n"))
(substitute* "cmake/FindDocBookXSL.cmake"
(("^.*xml/docbook/stylesheet.*$")
(string-append "xml/xsl/docbook-xsl-"
#$(package-version docbook-xsl)
"\n")))))
(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"))))))))
(home-page "https://community.kde.org/Frameworks")
(synopsis "Create documentation from DocBook")
(description "Provides tools to generate documentation in various format