gnu: Add font-sazanami.

* gnu/packages/fonts.scm (font-sazanami): New variable.

Change-Id: I7c7ae4110cdf56319648d37c6f4aa67942dce32c
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

1 files changed, 37 insertions, 0 deletions

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 9ae6c12a9b8..cebc94921ab 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -3629,6 +3629,43 @@ banned its use.  This font pushes the roundness to its limit while capturing the
 spirit of both past and present styles.")
       (license license:silofl1.1))))
 
+(define-public font-sazanami
+  (package
+    (name "font-sazanami")
+    (version "20040629")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://web.archive.org/web/20060619202616/"
+             "https://osdn.dl.sourceforge.jp/efont/10087/sazanami-"
+             version
+             ".tar.bz2"))
+       (sha256
+        (base32 "1dznxg5shdrn818j4wm6p98n6jik5xd3b5sdinzzp8x9f0pwwrrl"))))
+    (build-system font-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'install-license-files
+            (lambda _
+              (let ((doc-dir (string-append #$output "/share/doc/"
+                                            #$name "-" #$version)))
+                (mkdir-p doc-dir)
+                (invoke "iconv" "-f" "EUC-JP" "-t" "UTF-8" "README"
+                        "-o" (string-append doc-dir "/README"))))))))
+    (native-inputs (list glibc))
+    (home-page (string-append
+                "https://web.archive.org/web/20190601135410/"
+                "http://wiki.fdiary.net/font/?sazanami"))
+    (synopsis "Japanese TrueType fonts")
+    (description
+     "This package provides the Sazanami font, a Japanese font created by
+combining a font automatically generated by CLWFK, a derivative of the Wada
+Laboratory Font Kit, with an existing free bitmap font.")
+    (license (license:non-copyleft "file://README"))))
+
 (define-public font-catamaran
   (let ((commit "7559b4906f9c9148fb22c6f89508c3053a78a296")
         (revision "1"))