[bug#48620] [PATCH] gnu: Add font-ipa-ex.

[Leo Prikler]

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

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 726bef183c..711344191c 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -2031,6 +2031,49 @@ orthography of Roman glyphs of Meera Inimai are also 
based on this
 characteristic so that they sit smoothly with the Tamil glyphs.")
     (license license:silofl1.1)))
 
+(define-public font-ipa-ex
+  (package
+    (name "font-ipa-ex")
+    (version "004.01")
+    (source (origin
+              (method url-fetch/zipbomb)
+              (uri (string-append 
"https://moji.or.jp/wp-content/ipafont/IPAexfont/";
+                                  "IPAexfont" (string-join (string-split 
version #\.) "")
+                                  ".zip"))
+              (sha256
+               (base32
+                "0jwpszgisrls1lsgq1ngcm99zjaikb8hshr02512qrzrnd53gy5w"))))
+    (build-system font-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'make-read-only
+           (lambda _
+             (for-each
+              (lambda (file)
+                (chmod file #o444))
+              (find-files "." #:directories? #f))
+             #t))
+         (add-after 'install 'install-doc
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((font+version (string-append
+                                  "IPAexfont"
+                                  ,(string-join (string-split version #\.) 
"")))
+                   (doc-dir (string-append (assoc-ref outputs "out")
+                                           "/share/doc/font-ipa-ex")))
+               (with-directory-excursion font+version
+                 (mkdir-p doc-dir)
+                 (copy-file (string-append "Readme_" font+version ".txt")
+                            (string-append doc-dir "/README"))
+                 (copy-file "IPA_Font_License_Agreement_v1.0.txt"
+                            (string-append doc-dir "/LICENSE")))
+               #t))))))
+    (home-page "https://moji.or.jp/ipafont/";)
+    (synopsis "Japanese font from the Information-technology Promotion Agency")
+    (description "IPAex is fixed-width font that aims to improve the
+convenience of Japanese document creation.")
+    (license license:ipa)))
+
 (define-public font-ipa-mj-mincho
   (package
     (name "font-ipa-mj-mincho")
-- 
2.31.1