;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2023 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu packages sugar) #:use-module (gnu packages) #:use-module (gnu packages abiword) #:use-module (gnu packages autotools) #:use-module (gnu packages base) #:use-module (gnu packages bash) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #:use-module (gnu packages gstreamer) #:use-module (gnu packages gtk) #:use-module (gnu packages linux) #:use-module (gnu packages networking) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) #:use-module (gnu packages python-xyz) #:use-module (gnu packages search) #:use-module (gnu packages sphinx) #:use-module (gnu packages ssh) #:use-module (gnu packages time) #:use-module (gnu packages webkit) #:use-module (gnu packages xorg) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system gnu) #:use-module (guix build-system python) #:use-module (guix download) #:use-module (guix git-download) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix utils) #:use-module (guix gexp)) (define-public sugar (package (name "sugar") (version "0.120") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/sugar") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0imhaj49n7ain33kmrqk19rzlfr50m84fbc011vgg1010ddp3vdw")))) (build-system glib-or-gtk-build-system) (arguments (list #:imported-modules `(,@%glib-or-gtk-build-system-modules (guix build python-build-system)) #:modules '((guix build glib-or-gtk-build-system) ((guix build python-build-system) #:prefix python:) (guix build utils)) #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-build-system (lambda _ (substitute* "autogen.sh" (("^\"\\$srcdir/configure" m) (string-append "#" m))))) (add-after 'unpack 'fix-references (lambda* (#:key inputs #:allow-other-keys) (substitute* "bin/sugar.in" (("exec python3") (string-append "exec " (which "python3")))) (substitute* "src/jarabe/main.py" (("'metacity'") (string-append "'" (search-input-file inputs "/bin/metacity") "'")) (("'metacity-message") (string-append "'" (search-input-file inputs "/bin/metacity-message")))) (substitute* "src/jarabe/intro/window.py" (("ssh-keygen") (search-input-file inputs "/bin/ssh-keygen"))) (substitute* "src/jarabe/journal/model.py" (("xdg-user-dir") (search-input-file inputs "/bin/xdg-user-dir"))) (substitute* "extensions/cpsection/datetime/model.py" (("/usr/share/zoneinfo/zone.tab") (search-input-file inputs "/share/zoneinfo/zone.tab"))) (substitute* "extensions/cpsection/modemconfiguration/model.py" (("/usr/share/zoneinfo/iso3166.tab") (search-input-file inputs "/share/zoneinfo/iso3166.tab")) (("/usr/share/mobile-broadband-provider-info") (dirname (search-input-file inputs "/share/mobile-broadband-provider-info/serviceproviders.xml")))) ;; XXX: spawn_command_line_sync is not used correctly here, so ;; we need to patch invocations. (substitute* '("extensions/cpsection/aboutcomputer/model.py" "src/jarabe/model/brightness.py") (("spawn_command_line_sync\\(cmd\\)") "spawn_command_line_sync(cmd, 0)")) (substitute* "extensions/cpsection/aboutcomputer/model.py" (("ethtool") (search-input-file inputs "/sbin/ethtool"))) (substitute* "extensions/cpsection/language/model.py" (("'locale'") (string-append "'" (search-input-file inputs "/bin/locale") "'"))) ;; XXX: The brightness component crashes, so we disable it here. (substitute* "src/jarabe/main.py" (("brightness.get_instance\\(\\)") "")) ;; TODO: these locations should be set to places that exist on ;; Guix System. #; (substitute* "extensions/cpsection/background/model.py" (("\\('/usr', 'share', 'backgrounds'\\)") "('TODO')")) (substitute* "src/jarabe/view/viewhelp.py" (("/usr/share/sugar/activities/") "/run/current-system/profile/share/sugar/activities/")))) (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap (lambda* (#:key inputs outputs #:allow-other-keys) (for-each (lambda (executable) (wrap-program executable `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,(python:site-packages inputs outputs))) `("GI_TYPELIB_PATH" prefix (,(getenv "GI_TYPELIB_PATH"))))) (find-files (string-append #$output "/bin") "^sugar.*"))))))) (inputs (list bash-minimal ethtool gtk+ metacity mobile-broadband-provider-info openssh ;for ssh-keygen python sugar-toolkit-gtk3 tzdata xdg-user-dirs)) ;; Some packages are propagated so that they can be used with gobject ;; introspection at runtime; others are propagated for their dbus ;; services. (propagated-inputs (list gsettings-desktop-schemas gstreamer gtk+ gtksourceview-3 libsoup-minimal-2 libwnck libxklavier network-manager python-gwebsockets sugar-artwork ;for cursor theme sugar-datastore ;for org.laptop.sugar.DataStore telepathy-gabble ;for link-local XMPP telepathy-glib ;; This is for org.freedesktop.Telepathy.AccountManager at runtime telepathy-mission-control telepathy-salut ;for XMPP neighborhood ;; This is for the UPowerGlib namespace upower webkitgtk-with-libsoup2)) (native-inputs (list autoconf automake gettext-minimal intltool (list glib "bin") libtool pkg-config python-empy)) (home-page "https://www.sugarlabs.org/") (synopsis "Sugar GTK shell") (description "Sugar is the desktop environment component of a worldwide effort to provide every child with an equal opportunity for a quality education. Available in more than twenty-five languages, Sugar Activities are used every school day by children in more than forty countries.") (license license:gpl3+))) (define-public sugar-artwork (package (name "sugar-artwork") (version "0.120") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/sugar-artwork") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1mjydyx7kbk429s3kswfb8x7g5smjwnai924avwxab1kjsjjksm9")))) (build-system gnu-build-system) (arguments (list #:configure-flags '(list "--without-gtk2") #:phases '(modify-phases %standard-phases (add-after 'unpack 'patch-build-system (lambda _ (substitute* "autogen.sh" (("^\"\\$srcdir/configure" m) (string-append "#" m)))))))) (inputs (list cairo gtk+)) (native-inputs (list autoconf automake icon-naming-utils libtool pkg-config python python-empy xcursorgen)) (home-page "https://www.sugarlabs.org/") (synopsis "Sugar icons and themes") (description "Sugar Artwork provides icons, and GTK+ CSS to build activities and other Sugar components.") (license (list license:lgpl2.1+ license:asl2.0)))) (define-public sugar-datastore (package (name "sugar-datastore") (version "0.120") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/sugar-datastore") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1wf33w6dm26i8a1zpb40339fj3l9vxjznagls9bc845nld318sqc")))) (build-system glib-or-gtk-build-system) (arguments (list #:imported-modules `(,@%glib-or-gtk-build-system-modules (guix build python-build-system)) #:modules '((guix build glib-or-gtk-build-system) ((guix build python-build-system) #:prefix python:) (guix build utils)) #:phases '(modify-phases %standard-phases (add-after 'unpack 'patch-build-system (lambda _ (substitute* "autogen.sh" (("^\"\\$srcdir/configure" m) (string-append "#" m))))) (add-after 'unpack 'patch-tool-references (lambda* (#:key inputs #:allow-other-keys) (substitute* "src/carquinyol/datastore.py" (("/usr/bin/du") (which "du"))) (substitute* "src/carquinyol/optimizer.py" (("'md5sum'") (string-append "'" (search-input-file inputs "/bin/md5sum") "'"))))) (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap (lambda* (#:key inputs outputs #:allow-other-keys) (for-each (lambda (executable) (wrap-program executable `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,(python:site-packages inputs outputs))) `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))) (list (search-input-file outputs "bin/copy-from-journal") (search-input-file outputs "bin/copy-to-journal") (search-input-file outputs "bin/datastore-service")))))))) (inputs (list bash-minimal coreutils python sugar-toolkit-gtk3)) (propagated-inputs (list python-dbus python-pygobject python-xapian-bindings)) (native-inputs (list autoconf automake libtool pkg-config)) (home-page "https://www.sugarlabs.org/") (synopsis "Service for Sugar activities to store and retrieve data") (description "Sugar Datastore provides activities with a way to store data and metadata, and the journal with querying and full text search.") (license license:gpl2+))) (define-public sugar-toolkit-gtk3 (package (name "sugar-toolkit-gtk3") (version "0.120") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/sugar-toolkit-gtk3") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1wqanc38zplyiq1vxda4bj1n0xd78zqlwml6lzklsrbz923llykz")))) (build-system glib-or-gtk-build-system) (arguments (list #:imported-modules `(,@%glib-or-gtk-build-system-modules (guix build python-build-system)) #:modules '((guix build glib-or-gtk-build-system) ((guix build python-build-system) #:prefix python:) (guix build utils)) #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-build-system (lambda _ (substitute* "autogen.sh" (("^\"\\$srcdir/configure" m) (string-append "#" m))))) (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap (lambda* (#:key inputs outputs #:allow-other-keys) (wrap-program (search-input-file outputs "bin/sugar-activity3") `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,(python:site-packages inputs outputs))) `("GI_TYPELIB_PATH" prefix (,(getenv "GI_TYPELIB_PATH") ,(string-append #$output "/lib/girepository-1.0"))))))))) (inputs (list alsa-lib bash-minimal libice libsm libx11 libxfixes libxi python)) (propagated-inputs ;; The gi typelib files are needed by users of this library. (list gdk-pixbuf gobject-introspection gstreamer ;for speech gst-plugins-espeak gtk+ (librsvg-for-system) ;; This package is used as a Python library by users, so these must ;; be propagated. python-pycairo python-dateutil python-dbus python-decorator python-pygobject python-six telepathy-glib webkitgtk-with-libsoup2)) (native-inputs (list autoconf automake gettext-minimal glib (list glib "bin") intltool libtool pkg-config)) (home-page "https://www.sugarlabs.org/") (synopsis "GTK+ widgets and services for Sugar components") (description "Sugar Toolkit provides services and a set of GTK+ widgets to build activities and other Sugar components. This is the GTK+ 3 binding of the Sugar Toolkit.") (license license:lgpl2.1+))) (define-public sugar-block-party-activity (let ((commit "a49e68ec00e647af712d8e284622722f2f78b6bf") (revision "1")) (package (name "sugar-block-party-activity") (version (git-version "11" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/block-party-activity") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0hy82c0gn1hr34arhnh9k6mx2789ki85fkgvga4sw6gwh31278pl")))) (build-system python-build-system) (arguments (list #:test-target "check" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-launcher (lambda* (#:key inputs #:allow-other-keys) (substitute* "activity/activity.info" (("exec = sugar-activity3") (string-append "exec = " (search-input-file inputs "/bin/sugar-activity3")))))) (replace 'install (lambda _ (invoke "python" "setup.py" "install" (string-append "--prefix=" #$output))))))) (propagated-inputs (list gtk+ gstreamer gst-plugins-base sugar-toolkit-gtk3)) (home-page "https://github.com/sugarlabs/block-party-activity") (synopsis "Tetris-like game for Sugar desktop environment") (description "Block Party is an activity for the Sugar desktop providing a Tetris-like game.") (license license:expat)))) (define-public sugar-browse-activity (package (name "sugar-browse-activity") (version "207") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/browse-activity") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "01p1gfdw9fhn92didc9sq23n6a3krs6findbbmicijz91kx8kfb2")))) (build-system python-build-system) (arguments (list #:test-target "check" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-reference-to-gschema-compiler (lambda* (#:key inputs #:allow-other-keys) (substitute* "browser.py" (("glib-compile-schemas") (search-input-file inputs "/bin/glib-compile-schemas"))))) (add-after 'unpack 'patch-launcher (lambda* (#:key inputs #:allow-other-keys) (substitute* "activity/activity.info" (("exec = sugar-activity3") (string-append "exec = " (search-input-file inputs "/bin/sugar-activity3")))))) (replace 'install (lambda _ (setenv "HOME" "/tmp") (invoke "python" "setup.py" "install" (string-append "--prefix=" #$output))))))) ;; All these libraries are accessed via gobject introspection. (propagated-inputs (list evince gobject-introspection gtk+ (librsvg-for-system) libsoup-minimal-2 python-pygobject sugar-toolkit-gtk3 telepathy-glib webkitgtk-with-libsoup2)) (inputs (list (list glib "bin"))) (native-inputs (list gettext-minimal)) (home-page "https://help.sugarlabs.org/browse.html") (synopsis "Sugar activity to browse the internet") (description "Browse is a web browser activity for the Sugar desktop.") (license (list license:cc0 ;metadata license:lgpl2.0+ license:gpl2+ license:gpl3+)))) (define-public sugar-help-activity (let ((commit "492531e95a4c60af9b85c79c59c24c06c2cd4bb3") (revision "1")) (package (name "sugar-help-activity") (version (git-version "20" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/help-activity") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0awjbqyc9f74dx0d7fgjk42vfsygxr8jhwqiv4hpggqcawc02xv8")))) (build-system python-build-system) (arguments (list #:test-target "check" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-launcher (lambda* (#:key inputs #:allow-other-keys) (substitute* "activity/activity.info" (("exec = sugar-activity3") (string-append "exec = " (search-input-file inputs "/bin/sugar-activity3")))))) (replace 'build (lambda _ (invoke "make" "html"))) (replace 'install (lambda _ (invoke "python" "setup.py" "install" (string-append "--prefix=" #$output))))))) (native-inputs (list sugar-toolkit-gtk3 python-sphinx)) (home-page "https://github.com/sugarlabs/help-activity") (synopsis "Sugar activity for accessing documentation and manuals") (description "This is an activity for the Sugar environment which aims to provide users with easy access to documentation and manuals.") (license license:gpl3+)))) (define-public sugar-jukebox-activity (let ((commit "e11f40c94c1c6302d3e36ddf4dc8101732ffb9d9") (revision "1")) (package (name "sugar-jukebox-activity") (version (git-version "36" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/jukebox-activity") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0gm1cj4vrwwdriyshd27w6vc0palwpg9pnnab5axinrnkzczyk1v")))) (build-system python-build-system) (arguments (list #:test-target "check" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-launcher (lambda* (#:key inputs #:allow-other-keys) (substitute* "activity/activity.info" (("exec = sugar-activity3") (string-append "exec = " (search-input-file inputs "/bin/sugar-activity3")))))) (replace 'install (lambda _ (setenv "HOME" "/tmp") (invoke "python" "setup.py" "install" (string-append "--prefix=" #$output))))))) ;; All these libraries are accessed via gobject introspection. (propagated-inputs (list gtk+ gstreamer gst-plugins-base sugar-toolkit-gtk3)) (inputs (list gettext-minimal)) (home-page "https://help.sugarlabs.org/jukebox.html") (synopsis "Media player for the Sugar learning environment") (description "Jukebox is the media player to play different kinds of audio and video files including online streams. It also supports playlists like @file{.m3u} and @file{.pls}.") (license license:gpl2+)))) (define-public sugar-log-activity (let ((commit "0c45118958be14a1844456703f0b392de250bc88") (revision "1")) (package (name "sugar-log-activity") (version (git-version "42" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/log-activity") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0pacd677gfhyym153x5grwimk8wgm4c9k0a463pq6fdrhm1g5wpc")))) (build-system python-build-system) (arguments (list #:test-target "check" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-locations (lambda* (#:key inputs #:allow-other-keys) (substitute* "logcollect.py" (("'/sbin/ifconfig'") (string-append "'" (search-input-file inputs "/bin/ifconfig") "'")) (("'/sbin/route") (string-append "'" (search-input-file inputs "/bin/route"))) (("'/bin/df") (string-append "'" (search-input-file inputs "/bin/df"))) (("'/bin/ps") (string-append "'" (search-input-file inputs "/bin/ps"))) (("'/usr/bin/free") (string-append "'" (search-input-file inputs "/bin/free"))) (("'/usr/bin/top") (string-append "'" (search-input-file inputs "/bin/top"))) (("'/usr/share/sugar/activities") "'/run/current-system/profile/share/sugar/activities")))) (add-after 'unpack 'patch-launcher (lambda* (#:key inputs #:allow-other-keys) (substitute* "activity/activity.info" (("exec = sugar-activity3") (string-append "exec = " (search-input-file inputs "/bin/sugar-activity3")))))) (replace 'install (lambda _ (setenv "HOME" "/tmp") (invoke "python" "setup.py" "install" (string-append "--prefix=" #$output))))))) ;; All these libraries are accessed via gobject introspection. (propagated-inputs (list gtk+ sugar-toolkit-gtk3)) (inputs (list coreutils net-tools procps)) (native-inputs (list gettext-minimal)) (home-page "https://help.sugarlabs.org/log.html") (synopsis "Log activity for the Sugar learning environment") (description "Log is part of the Sugar desktop. Log is used when looking for why an activity or Sugar is not working properly.") (license license:gpl2+)))) (define-public sugar-maze-activity (package (name "sugar-maze-activity") (version "31") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/maze-activity") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0ai2ws3mqkxi13chy0hidd1gxiv97862r9lg8qgxb7qkxqyh6afr")))) (build-system python-build-system) (arguments (list #:test-target "check" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-launcher (lambda* (#:key inputs #:allow-other-keys) (substitute* "activity/activity.info" (("exec = sugar-activity3") (string-append "exec = " (search-input-file inputs "/bin/sugar-activity3")))))) (replace 'install (lambda _ (setenv "HOME" "/tmp") (invoke "python" "setup.py" "install" (string-append "--prefix=" #$output))))))) ;; All these libraries are accessed via gobject introspection. (propagated-inputs (list gtk+ telepathy-glib)) (inputs (list sugar-toolkit-gtk3 gettext-minimal)) (home-page "https://github.com/sugarlabs/maze-activity") (synopsis "Simple maze game for the Sugar learning environment") (description "Try to make your way through an increasingly difficult path, or you can also play with a friend!") (license license:gpl3+))) (define-public sugar-read-activity (let ((commit "25f69e41a4fa69d93c73c0c9367b4777a014b1cd") (revision "1")) (package (name "sugar-read-activity") (version (git-version "123" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/read-activity") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "03piap3r6j58s38cza55bm16g5icrmnhl0s6kpy5hj46vaa5x4fh")))) (build-system python-build-system) (arguments (list #:test-target "check" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-launcher (lambda* (#:key inputs #:allow-other-keys) (substitute* "activity/activity.info" (("exec = sugar-activity3") (string-append "exec = " (search-input-file inputs "/bin/sugar-activity3")))))) (replace 'install (lambda _ (setenv "HOME" "/tmp") (invoke "python" "setup.py" "install" (string-append "--prefix=" #$output))))))) ;; All these libraries are accessed via gobject introspection. (propagated-inputs (list evince gtk+ sugar-toolkit-gtk3 webkitgtk-with-libsoup2)) (inputs (list gettext-minimal)) (home-page "https://help.sugarlabs.org/read.html") (synopsis "Read PDF and TXT files in the Sugar learning environment") (description "The Read activity allows the laptop to act as a book reader. It has a simple interface, and will view many kinds of text and image-based book-like materials. It will have particular strengths in handheld mode, with extremely low power consumption and simple navigation controls.") (license license:gpl2+)))) (define-public sugar-terminal-activity (let ((commit "a1f92b9da6121bc9a6fbba2c3f3b885dd26d4617") (revision "1")) (package (name "sugar-terminal-activity") (version (git-version "47" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/terminal-activity") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "11p7rrnlaw374h3qravhp915vdblvn07i2mnrzn7mhapkwvkg4h5")))) (build-system python-build-system) (arguments (list #:test-target "check" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-launcher (lambda* (#:key inputs #:allow-other-keys) (substitute* "activity/activity.info" (("exec = sugar-activity3") (string-append "exec = " (search-input-file inputs "/bin/sugar-activity3")))))) (replace 'install (lambda _ (setenv "HOME" "/tmp") (invoke "python" "setup.py" "install" (string-append "--prefix=" #$output))))))) ;; All these libraries are accessed via gobject introspection. (propagated-inputs (list gtk+ vte sugar-toolkit-gtk3)) (inputs (list gettext-minimal)) (home-page "https://help.sugarlabs.org/terminal.html") (synopsis "Terminal activity for the Sugar learning environment") (description "Terminal is a full-screen text mode program that provides a Command-Line Interface (CLI) to the system.") (license (list license:gpl2+ license:gpl3+))))) (define-public sugar-typing-turtle-activity (package (name "sugar-typing-turtle-activity") (version "32") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/typing-turtle-activity") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0shadv9wgddjvl97kvsqb8iw1wmmfw5lzcqk78hd70pzvh4c1hmd")))) (build-system python-build-system) (arguments (list #:test-target "check" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-reference-to-executables (lambda* (#:key inputs #:allow-other-keys) (substitute* "keyboard.py" (("setxkbmap") (search-input-file inputs "/bin/setxkbmap"))))) (add-after 'unpack 'patch-launcher (lambda* (#:key inputs #:allow-other-keys) (substitute* "activity/activity.info" (("exec = sugar-activity3") (string-append "exec = " (search-input-file inputs "/bin/sugar-activity3")))))) (replace 'install (lambda _ (invoke "python" "setup.py" "install" (string-append "--prefix=" #$output))))))) (native-inputs (list gettext-minimal sugar-toolkit-gtk3)) (inputs (list setxkbmap)) (home-page "https://help.sugarlabs.org/en/typing_turtle.html") (synopsis "Learn typing") (description "Need some help typing? In this activity for the Sugar environment you will learn the best way to hold your hands in order for you to become a faster typist.") (license license:gpl3+))) (define-public sugar-write-activity (let ((commit "dd854c06378cabf0d064d8dc87b5789d2a1a7746") (revision "1")) (package (name "sugar-write-activity") (version (git-version "101" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sugarlabs/write-activity") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0lw34hf31fyfvqilzlmcz3c7zki0iqkn1zp2sv3dih016gwqg5pw")))) (build-system python-build-system) (arguments (list #:test-target "check" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-launcher (lambda* (#:key inputs #:allow-other-keys) (substitute* "activity/activity.info" (("exec = sugar-activity3") (string-append "exec = " (search-input-file inputs "/bin/sugar-activity3")))))) (replace 'install (lambda _ (setenv "HOME" "/tmp") (invoke "python" "setup.py" "install" (string-append "--prefix=" #$output))))))) ;; All these libraries are accessed via gobject introspection. (propagated-inputs (list abiword gdk-pixbuf gtk+ libgsf telepathy-glib)) (inputs (list sugar-toolkit-gtk3 gettext-minimal)) (home-page "https://help.sugarlabs.org/write.html") (synopsis "Word processor for Sugar desktop") (description "Write is a word processor activity for the Sugar desktop. Write embeds the AbiWord word processor, and can be used to write and edit text documents.") (license license:gpl2+))))