branch master updated: gnu: Add font-api-mj-mincho.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

roptat pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 3c10271  gnu: Add font-api-mj-mincho.
3c10271 is described below

commit 3c102716d0926602330d3cf616ec9dd0640b7c81
Author: Julien Lepiller <address@hidden>
AuthorDate: Thu Apr 30 18:19:11 2020 +0200

    gnu: Add font-api-mj-mincho.
    
    * gnu/packages/fonts.scm (font-api-mj-mincho): New variable.
---
 gnu/packages/fonts.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 64d5c17..f4071f4 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -33,6 +33,7 @@
 ;;; Copyright © 2020 Michael Rohleder <address@hidden>
 ;;; Copyright © 2020 John Soo <address@hidden>
 ;;; Copyright © 2020 Raghav Gururajan <address@hidden>
+;;; Copyright © 2020 Julien Lepiller <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1737,3 +1738,35 @@ variation Arial.  Tamil characters are inherently 
vertically-elliptical.  The
 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-mj-mincho
+  (package
+    (name "font-ipa-mj-mincho")
+    (version "006.01")
+    (source (origin
+              (method url-fetch/zipbomb)
+              (uri (string-append 
"https://mojikiban.ipa.go.jp/OSCDL/IPAmjMincho";
+                                  "/ipamjm" (string-join (string-split version 
#\.) "")
+                                  ".zip"))
+              (sha256
+               (base32
+                "0s2vs9p7vd7ajnn6c2icli069sjwi4d45a39fczqpwwn507lwj9m"))))
+    (build-system font-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'install-doc
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((doc-dir (string-append (assoc-ref outputs "out")
+                                           "/share/doc/font-ipa-mj-mincho")))
+               (mkdir-p doc-dir)
+               (copy-file "Readme.txt" (string-append doc-dir "/README"))
+               (copy-file "IPA_Font_License_Agreement_v1.0.txt"
+                          (string-append doc-dir "/LICENSE"))
+               #t))))))
+    (home-page "https://mojikiban.ipa.go.jp/1300.html";)
+    (synopsis "Japanese font from the Information-technology Promotion Agency")
+    (description "MJM Mincho is a font that aims at, for example, allowing you
+to write people's name, or for formal business situations where it is necessary
+to have a detailed and proper character style.")
+    (license license:ipa)))