09/306: gnu: Add texlive-algolrevived.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit bce8797d59b00978f05d4b2cef44180fe9a817c1
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Mon Aug 21 10:45:53 2023 +0200

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

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 2648a2a8bc..52b61bf7b4 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -1844,6 +1844,34 @@ standalone documents cumbersome to customize, and has 
arbitrary and
 inconsistent differences between the input syntax and the program text.")
     (license license:gpl3+)))
 
+(define-public texlive-algolrevived
+  (package
+    (name "texlive-algolrevived")
+    (version (number->string %texlive-revision))
+    (source (texlive-origin
+             name version
+             (list "doc/fonts/algolrevived/"
+                   "fonts/enc/dvips/algolrevived/"
+                   "fonts/map/dvips/algolrevived/"
+                   "fonts/opentype/public/algolrevived/"
+                   "fonts/tfm/public/algolrevived/"
+                   "fonts/type1/public/algolrevived/"
+                   "fonts/vf/public/algolrevived/"
+                   "tex/latex/algolrevived/")
+             (base32
+              "0709ijp5jqajwdc9ryhjp4jky0pqynj9wj3rryxk9z6sm63pbq1k")))
+    (outputs '("out" "doc"))
+    (build-system texlive-build-system)
+    (home-page "https://ctan.org/pkg/algolrevived";)
+    (synopsis "Revival of Frutiger's Algol alphabet")
+    (description
+     "The package revives Frutiger's Algol alphabet, designed in 1963 for the
+code segments in an ALGOL manual.  It provides OpenType and Type 1, regular
+and medium weights, upright and slanted variations.  Albeit not monospaced,
+this font is good for listings if you don't need code to be aligned with
+specific columns.  It also makes a passable but limited text font.")
+    (license (list license:silofl1.1 license:lppl1.3c))))
+
 (define-public texlive-algorithm2e
   (package
     (name "texlive-algorithm2e")