Ludo, Can you please help review this patch? It's been idle for a long long time, Thanks a lot.




在 2020-08-31 12:27:19,"Zhu Zihao" <all_but_last@163.com> 写道:

From f4745ab244032643bcdbe00ea91e5bfe550f8dad Mon Sep 17 00:00:00 2001
From: Zhu Zihao <all_but_last@163.com>
Date: Mon, 31 Aug 2020 11:39:31 +0800
Subject: [PATCH 1/2] gnu: Add font-apl385

* gnu/packages/fonts.scm (font-apl385): New variable.
---
 gnu/packages/fonts.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 77484157e3..794d988df2 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -1961,3 +1961,22 @@ operators and special symbols.")
 is a stylish type with a polished yet relaxed feel.  Its versatility makes it
 suitable for a wide range of uses.")
       (license license:silofl1.1))))
+
+(define-public font-apl385
+  (let ((revision "0"))
+    (package
+      (name "font-apl385")
+      (version (string-append "1.0.0-" revision))
+      (source
+       (origin
+         (method url-fetch/zipbomb)
+         (uri "https://apl385.com/fonts/apl385.zip")
+         (sha256
+          (base32 "132qfsnx0v6qf8x8iy3flivv449nz42nnpkwjysmz65w6wqxpk1g"))))
+      (build-system font-build-system)
+      (home-page "https://apl385.com")
+      (synopsis "Monospace font for APL programming")
+      (description "APL385 is developed with all APL software vendors
+in the late 1980s and enhanced as required with new characters to meet
+interpreter updates.")
+      (license license:public-domain))))
--
2.27.0



From 952a5b50902eab13c43599de44c1b4ac501c71df Mon Sep 17 00:00:00 2001
From: Zhu Zihao <all_but_last@163.com>
Date: Mon, 31 Aug 2020 11:40:49 +0800
Subject: [PATCH 2/2] gnu: Add font-apl333

* gnu/packages/fonts.scm (font-apl333): New variable.
---
 gnu/packages/fonts.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 794d988df2..e61a0d2f4a 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -1980,3 +1980,20 @@ suitable for a wide range of uses.")
 in the late 1980s and enhanced as required with new characters to meet
 interpreter updates.")
       (license license:public-domain))))
+
+(define-public font-apl333
+  (let ((revision "0"))
+    (package
+      (name "font-apl333")
+      (version (string-append "1.0.0-" revision))
+      (source
+       (origin
+         (method url-fetch/zipbomb)
+         (uri "https://apl385.com/fonts/apl333.zip")
+         (sha256
+          (base32 "132qfsnx0v6qf8x8iy3flivv449nz42nnpkwjysmz65w6wqxpk1g"))))
+      (build-system font-build-system)
+      (home-page "https://apl385.com")
+      (synopsis "Proportional font for APL programming")
+      (description "APL333 is the proportional variant of APL385.")
+      (license license:public-domain))))
--
2.27.0