From fa44401753d5c70f0e177270072b8eb70d166dd6 Mon Sep 17 00:00:00 2001
From: nixo <nicolo@nixo.xyz>
Date: Fri, 21 May 2021 18:15:04 +0200
Subject: [PATCH 1/2] gnu: Add kanjivg.

* gnu/packages/education.scm (kanjivg): New variable.
---
 gnu/packages/education.scm | 44 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/education.scm b/gnu/packages/education.scm
index 0986d2a19e..043933abe0 100644
--- a/gnu/packages/education.scm
+++ b/gnu/packages/education.scm
@@ -405,6 +405,50 @@ specialized device.")
     (home-page "https://bipede.fr/contrib/")
     (license license:gpl3)))
 
+(define-public kanjivg
+  (package
+    (name "kanjivg")
+    (version "20160426")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/KanjiVG/kanjivg")
+             (commit (string-append "r" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "10pkcay9zixr0nwwcm4z360w7pkcr1v91kp7889qbsfj8123mywh"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f                      ; no check target
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure)
+         (replace 'build
+           (lambda _
+             (invoke "python" "kvg.py" "release")))
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (fname "kanjivg.xml"))
+               (mkdir-p out)
+               ;; FIXME: No idea in which path it should be copied (and if
+               ;; other files are needed)
+               (copy-file fname (string-append out "/" fname))))))))
+    (native-inputs
+     ;; Does not work with python3
+     `(("python2" ,python-2)))
+    (synopsis "Kanji description and vectorial data in correct stroke order")
+    (description "KanjiVG is a description of the sinographs (or kanji) used
+by the Japanese language.  For each character, it provides a SVG file that
+gives the shape, direction and of each of its strokes.  This file is also
+enriched with exhaustive information about the components of the character,
+the type of stroke employed, etc.
+
+Using KanjiVG, it is possible to create stroke order diagrams or animations
+and kanji dictionaries.")
+    (home-page "https://kanjivg.tagaini.net")
+    (license license:cc-by-sa3.0)))
 (define-public childsplay
   (package
     (name "childsplay")
-- 
2.31.1