gnu: Add childsplay.
* gnu/packages/education.scm (childsplay): New variable.
This commit is contained in:
Nicolas Goaziou
parent
694cb8dc62
commit
4f963be052
|
|
@ -27,7 +27,10 @@
|
||||||
#:use-module (gnu packages base)
|
#:use-module (gnu packages base)
|
||||||
#:use-module (gnu packages bash)
|
#:use-module (gnu packages bash)
|
||||||
#:use-module (gnu packages compression)
|
#:use-module (gnu packages compression)
|
||||||
|
#:use-module (gnu packages databases)
|
||||||
|
#:use-module (gnu packages fonts)
|
||||||
#:use-module (gnu packages freedesktop)
|
#:use-module (gnu packages freedesktop)
|
||||||
|
#:use-module (gnu packages game-development)
|
||||||
#:use-module (gnu packages gettext)
|
#:use-module (gnu packages gettext)
|
||||||
#:use-module (gnu packages glib)
|
#:use-module (gnu packages glib)
|
||||||
#:use-module (gnu packages gnome)
|
#:use-module (gnu packages gnome)
|
||||||
|
|
@ -373,3 +376,107 @@ keyboard is also available if the child does not have any other
|
||||||
specialized device.")
|
specialized device.")
|
||||||
(home-page "https://bipede.fr/contrib/")
|
(home-page "https://bipede.fr/contrib/")
|
||||||
(license license:gpl3)))
|
(license license:gpl3)))
|
||||||
|
|
||||||
|
(define-public childsplay
|
||||||
|
(package
|
||||||
|
(name "childsplay")
|
||||||
|
(version "3.4")
|
||||||
|
(source (origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append
|
||||||
|
"mirror://sourceforge/schoolsplay/"
|
||||||
|
"childsplay-" version ".tgz"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"0z7yp2swjnbz51vn2zyfnjn40jq38l5mbh15yafmx1z3vn2z1m77"))))
|
||||||
|
(build-system python-build-system)
|
||||||
|
(arguments
|
||||||
|
`(#:python ,python-2
|
||||||
|
#:tests? #f
|
||||||
|
#:phases
|
||||||
|
(modify-phases %standard-phases
|
||||||
|
(add-after 'unpack 'unbundle-dejavu-font
|
||||||
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
|
(let* ((dejavu-dir
|
||||||
|
(string-append (assoc-ref inputs "font-dejavu")
|
||||||
|
"/share/fonts/truetype"))
|
||||||
|
(dejavu-font
|
||||||
|
(string-append dejavu-dir
|
||||||
|
"/DejaVuSansCondensed-Bold.ttf")))
|
||||||
|
(substitute* "SPConstants.py"
|
||||||
|
(("^(TTF(BOLD)? = ).*" _ prefix)
|
||||||
|
(string-append prefix "'" dejavu-font "'\n")))
|
||||||
|
(for-each (lambda (f) (delete-file f))
|
||||||
|
(find-files "lib/SPData" "DejaVu"))
|
||||||
|
#t)))
|
||||||
|
(delete 'build)
|
||||||
|
(replace 'install
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(pixmaps (string-append out "/share/pixmaps"))
|
||||||
|
(share (string-append out "/share/childsplay"))
|
||||||
|
(doc (string-append out "/share/doc/" ,name "-",version)))
|
||||||
|
;; Install icon.
|
||||||
|
(install-file "lib/SPData/themes/childsplay/logo_cp.svg" pixmaps)
|
||||||
|
;; Install data.
|
||||||
|
(mkdir-p share)
|
||||||
|
(for-each (lambda (f)
|
||||||
|
(copy-recursively f (string-append share "/" f)))
|
||||||
|
'("alphabet-sounds" "lib" "locale" "SPWidgets"))
|
||||||
|
(for-each (lambda (f) (install-file f share))
|
||||||
|
(find-files "." "\\.(py|dev|db)$"))
|
||||||
|
;; Install documentation.
|
||||||
|
(mkdir-p doc)
|
||||||
|
(copy-recursively "docs" doc)
|
||||||
|
#t)))
|
||||||
|
(add-after 'install 'create-executable
|
||||||
|
(lambda* (#:key outputs inputs #:allow-other-keys)
|
||||||
|
(let* ((python (string-append (assoc-ref inputs "python")
|
||||||
|
"/bin/python"))
|
||||||
|
(out (assoc-ref outputs "out"))
|
||||||
|
(bin (string-append out "/bin"))
|
||||||
|
(executable (string-append bin "/childsplay")))
|
||||||
|
(mkdir-p bin)
|
||||||
|
(call-with-output-file executable
|
||||||
|
(lambda (file)
|
||||||
|
(format file
|
||||||
|
"~a ~a"
|
||||||
|
python
|
||||||
|
(string-append out "/share/childsplay/childsplay.py"))))
|
||||||
|
(chmod executable #o555)
|
||||||
|
#t)))
|
||||||
|
(add-after 'install 'create-desktop-file
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(applications (string-append out "/share/applications")))
|
||||||
|
(mkdir-p applications)
|
||||||
|
(call-with-output-file
|
||||||
|
(string-append applications "/childsplay.desktop")
|
||||||
|
(lambda (file)
|
||||||
|
(format file
|
||||||
|
"[Desktop Entry]~@
|
||||||
|
Name=Childsplay~@
|
||||||
|
Comment=Suite of educational games for young children~@
|
||||||
|
Comment[ca]=Conjunt de jocs educatius per a xiquets~@
|
||||||
|
Comment[es]=Conjunto de juegos educativos para niños~@
|
||||||
|
Comment[de]=Sammlung mit lehrreichen Spielen für kleine Kinder~@
|
||||||
|
Exec=~a/bin/childsplay.py~@
|
||||||
|
Terminal=false~@
|
||||||
|
Icon=logo_cp.svg~@
|
||||||
|
Type=Application~@
|
||||||
|
Categories=Application;Game;Education;KidsGame;~@
|
||||||
|
Keywords=suite;children;games;young;educational;~%"
|
||||||
|
out)))
|
||||||
|
#t))))))
|
||||||
|
(inputs
|
||||||
|
`(("font-dejavu" ,font-dejavu)
|
||||||
|
("pygame" ,python2-pygame)
|
||||||
|
("sqlalchemy" ,python2-sqlalchemy)))
|
||||||
|
(synopsis "Suite of educational games for young children")
|
||||||
|
(description "Childsplay is a collection of educational activities
|
||||||
|
for young children. Childsplay can be used at home, kindergartens and
|
||||||
|
pre-schools. Childsplay is a fun and safe way to let young children
|
||||||
|
use the computer and at the same time teach them a little math,
|
||||||
|
letters of the alphabet, spelling, eye-hand coordination, etc.")
|
||||||
|
(home-page "http://www.schoolsplay.org")
|
||||||
|
(license license:gpl3+)))
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue