aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEuAndreh <eu@euandre.org>2022-01-13 15:16:32 -0300
committerEuAndreh <eu@euandre.org>2022-01-13 15:16:32 -0300
commit025e75d803abb936bb26046b9c176c1b68dab26b (patch)
tree2665b1110e3ec1ab19db2b4a56b1fce2e93022f9
parent44d770b6321203408a0163970f82e94520df9658 (diff)
downloadpackage-repository-025e75d803abb936bb26046b9c176c1b68dab26b.tar.gz
Revert "src/xyz/euandreh/pending.scm: Remove po4a-text package"
This reverts commit 393b65acb0c9ea560cb18f985280a2db4345c969.
-rw-r--r--src/xyz/euandreh/pending.scm89
1 files changed, 89 insertions, 0 deletions
diff --git a/src/xyz/euandreh/pending.scm b/src/xyz/euandreh/pending.scm
new file mode 100644
index 0000000..b0d20e7
--- /dev/null
+++ b/src/xyz/euandreh/pending.scm
@@ -0,0 +1,89 @@
+(define-module (xyz euandreh pending)
+ #:use-module (guix licenses)
+ #:use-module (guix download)
+ #:use-module (guix packages)
+ #:use-module (guix build-system perl)
+ #:use-module (gnu packages)
+ #:use-module (gnu packages docbook)
+ #:use-module (gnu packages gettext)
+ #:use-module (gnu packages tex)
+ #:use-module (gnu packages xml)
+ #:use-module (gnu packages perl)
+ #:use-module (gnu packages perl-check))
+
+(define-public po4a-text
+ (package
+ (name "po4a-text")
+ (version "0.61")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "https://github.com/mquinson/po4a/releases/download/v"
+ version "/po4a-" version ".tar.gz"))
+ (sha256
+ (base32
+ "1nw61dj7ymrsjps79vvfdzp549drwd51kyj598937zvyafq4r5b2"))))
+ (build-system perl-build-system)
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (add-after 'install 'wrap-programs
+ (lambda* (#:key outputs inputs #:allow-other-keys)
+ ;; Make sure all executables in "bin" find the Perl modules
+ ;; provided by this package at runtime.
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin/"))
+ (path (string-append out "/lib/perl5/site_perl"))
+ (deps-path (string-append (assoc-ref inputs "perl-yaml-tiny")
+ "/lib/perl5/site_perl")))
+ (for-each (lambda (file)
+ (wrap-program file
+ `("PERL5LIB" ":" prefix (,path
+ ,deps-path))))
+ (find-files bin "\\.*$")))))
+ (add-before 'reset-gzip-timestamps 'make-compressed-files-writable
+ (lambda* (#:key outputs #:allow-other-keys)
+ (for-each make-file-writable
+ (find-files (string-append (assoc-ref outputs "out")
+ "/share/man")
+ ".*\\.gz$"))
+ #t))
+ (add-after 'unpack 'patch-docbook-xml
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* (find-files "." ".*\\.xml(-good)?")
+ (("http://www.oasis-open.org/docbook/xml/4.1.2/")
+ (string-append (assoc-ref inputs "docbook-xml")
+ "/xml/dtd/docbook/")))
+ #t))
+ (add-before 'check 'disable-failing-tests
+ (lambda _
+ (delete-file "t/01-classes.t")
+
+ (delete-file "t/add.t")
+ (delete-file "t/core-porefs.t")
+ (delete-file "t/fmt-asciidoc.t")
+ (delete-file "t/fmt-sgml.t")
+
+ #t)))))
+ (native-inputs
+ `(("gettext" ,gettext-minimal)
+ ("perl-module-build" ,perl-module-build)
+ ("docbook-xsl" ,docbook-xsl)
+ ("libxml2" ,libxml2)
+ ("xsltproc" ,libxslt)
+
+ ;; For tests.
+ ("docbook-xml" ,docbook-xml-4.1.2)
+ ("perl-test-pod" ,perl-test-pod)
+ ("texlive" ,texlive-tiny)))
+ (propagated-inputs
+ `(("perl-yaml-tiny" ,perl-yaml-tiny)))
+ (home-page "https://po4a.org/")
+ (synopsis "Scripts to ease maintenance of translations")
+ (description
+ "The po4a (PO for anything) project goal is to ease translations (and
+more interestingly, the maintenance of translations) using gettext tools on
+areas where they were not expected like documentation.")
+ (license gpl2+)))
+
+(list
+ po4a-text)