diff options
author | EuAndreh <eu@euandre.org> | 2022-01-13 15:16:32 -0300 |
---|---|---|
committer | EuAndreh <eu@euandre.org> | 2022-01-13 15:16:32 -0300 |
commit | 025e75d803abb936bb26046b9c176c1b68dab26b (patch) | |
tree | 2665b1110e3ec1ab19db2b4a56b1fce2e93022f9 /src/xyz | |
parent | src/xyz/euandreh/queue.scm: Move grap to the beginning of the file (diff) | |
download | package-repository-025e75d803abb936bb26046b9c176c1b68dab26b.tar.gz package-repository-025e75d803abb936bb26046b9c176c1b68dab26b.tar.xz |
Revert "src/xyz/euandreh/pending.scm: Remove po4a-text package"
This reverts commit 393b65acb0c9ea560cb18f985280a2db4345c969.
Diffstat (limited to 'src/xyz')
-rw-r--r-- | src/xyz/euandreh/pending.scm | 89 |
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) |