ngz pushed a commit to branch tex-team
in repository guix.
commit 9d757df9c7f79ce6a40d690c23a28c17a43c7f15
Author: Nicolas Goaziou <m...@nicolasgoaziou.fr>
AuthorDate: Mon May 27 10:50:04 2024 +0200
gnu: Add texlive-libptexenc.
* gnu/packages/tex.scm (texlive-libptexenc): New variable.
Change-Id: I102a97a4b5319e434becbe2187336dd5bc36833e
---
gnu/packages/tex.scm | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 60 insertions(+)
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 3bfcd13e5a..06c7250c86 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -275,6 +275,66 @@
of user-specified directories similar to how shells look up executables.")
(license license:lgpl2.1)))
+(define-public texlive-libptexenc
+ (package
+ (name "texlive-libptexenc")
+ (version (number->string %texlive-revision))
+ (source
+ (origin
+ (inherit texlive-source)
+ (modules '((guix build utils)
+ (ice-9 ftw)))
+ (snippet
+ #~(let ((delete-other-directories
+ (lambda (root dirs)
+ (with-directory-excursion root
+ (for-each
+ delete-file-recursively
+ (scandir "."
+ (lambda (file)
+ (and (not (member file (append '("." "..")
dirs)))
+ (eq? 'directory (stat:type (stat
file)))))))))))
+ (delete-other-directories "libs" '())
+ (delete-other-directories "utils" '())
+ (delete-other-directories "texk" '("ptexenc"))))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:out-of-source? #t
+ #:configure-flags
+ #~(list "--disable-static"
+ "--disable-native-texlive-build"
+ "--enable-shared"
+ "--with-banner-add=/GNU Guix"
+ "--disable-all-pkgs")
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'install-missing-files
+ ;; These two files are not installed (on purpose, see ChangeLog),
+ ;; but are required nonetheless if this library is meant to be
+ ;; used externally.
+ (lambda _
+ (with-directory-excursion "texk/ptexenc/ptexenc"
+ (let ((inc (string-append #$output "/include/ptexenc")))
+ (for-each (lambda (f) (install-file f inc))
+ '("kanjicnv.h" "unicode-jp.h"))))))
+ (replace 'check
+ (lambda* (#:key tests? #:allow-other-keys)
+ (when tests?
+ (with-directory-excursion "texk/ptexenc"
+ (invoke "make" "check")))))
+ (replace 'install
+ (lambda* (#:key inputs #:allow-other-keys)
+ (with-directory-excursion "texk/ptexenc"
+ (invoke "make" "install")))))))
+ (native-inputs (list pkg-config texlive-libkpathsea))
+ (inputs (list libiconv))
+ (home-page "http://tutimura.ath.cx/ptexlive/?ptexenc%2FDetails";)
+ (synopsis "Library for Japanese pTeX")
+ (description
+ "This package provides a library for Japanese pTeX and its surrounding
tools.")
+ (license license:gpl2)))
+
(define-public texlive-scripts
(package
(name "texlive-scripts")
