159/163: gnu: Add texlive-cochineal.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 18b844e42a1b0e44c42609ede91842e22203321a
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Fri Aug 18 14:15:16 2023 +0200

    gnu: Add texlive-cochineal.
    
    * gnu/packages/tex.scm (texlive-cochineal): New variable.
---
 gnu/packages/tex.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 61425847da..74d9d2022e 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -6700,6 +6700,36 @@ the same way the package's author did when writing the 
book, and your output
 will look just like the pseudocode in the text.")
     (license license:lppl)))
 
+(define-public texlive-cochineal
+  (package
+    (name "texlive-cochineal")
+    (version (number->string %texlive-revision))
+    (source (texlive-origin
+             name version
+             (list "doc/fonts/cochineal/"
+                   "fonts/afm/public/cochineal/"
+                   "fonts/enc/dvips/cochineal/"
+                   "fonts/map/dvips/cochineal/"
+                   "fonts/opentype/public/cochineal/"
+                   "fonts/tfm/public/cochineal/"
+                   "fonts/type1/public/cochineal/"
+                   "fonts/vf/public/cochineal/"
+                   "tex/latex/cochineal/")
+             (base32
+              "04kziysq9szhz3brwkqwnjmvy3m0wnb3mhp86h8l7qwgndzx9j8w")))
+    (outputs '("out" "doc"))
+    (build-system texlive-build-system)
+    (home-page "https://ctan.org/pkg/cochineal";)
+    (synopsis "Cochineal fonts with LaTeX support")
+    (description
+     "Cochineal is a fork from the Crimson fonts (Roman, Italic, Bold,
+@code{BoldItalic} only), which contain roughly 4200 glyphs in the four styles
+mentioned above.  Cochineal adds more than 1500 glyphs in those styles so that
+it is possible to make a TeX support collection that contains essentially all
+glyphs in all styles.  The fonts are provided in OpenType and PostScript
+formats.")
+    (license (list license:silofl1.1 license:lppl1.3+))))
+
 (define-public texlive-codeanatomy
   (package
     (name "texlive-codeanatomy")