1066 lines
42 KiB
Scheme
1066 lines
42 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2023, 2024 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 audio)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages bash)
|
||
#:use-module (gnu packages freedesktop)
|
||
#:use-module (gnu packages game-development)
|
||
#: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 speech)
|
||
#: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.121")
|
||
(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
|
||
"1s31sz1j7x82vynd233k7jqqp881bpz7486r78wfz2i84f2n4n06"))))
|
||
(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)))
|
||
;; This .po file does not exist
|
||
(substitute* "po/LINGUAS"
|
||
(("^ig") ""))))
|
||
(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"))))
|
||
(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")
|
||
"'")))
|
||
;; This is a global location on Guix System. Ideally we would
|
||
;; have a search path here.
|
||
(substitute* "extensions/cpsection/background/model.py"
|
||
(("\\('/usr', 'share', 'backgrounds'\\)")
|
||
"('/run', 'current-system', 'profile', 'share', 'backgrounds')"))
|
||
(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
|
||
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-for-gtk3))
|
||
(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.121")
|
||
(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
|
||
"00m3dmwswfy4whc2hs51lqckz1z1f2jnw94jhxgw40b17w00pzwj"))))
|
||
(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-2.71 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.121")
|
||
(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
|
||
"01mp0vyg9d6ig29p484prqlgqpa7a3pai8ki37dyk682gr0fhljb"))))
|
||
(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-2.71
|
||
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.121")
|
||
(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
|
||
"0x80jqx0z89jxfy2dvn4l35qbyvq3c2hg9jq4i0llq1qgkc4034b"))))
|
||
(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-for-gtk3))
|
||
(native-inputs
|
||
(list autoconf-2.71
|
||
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 "26a58f14254d6ae38b7bfa3cb2fc63291eefcc97")
|
||
(revision "1"))
|
||
(package
|
||
(name "sugar-block-party-activity")
|
||
(version (git-version "12" 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
|
||
"0zinqhwmvyvk1zvs28dr71p68vb6widn4v3zp35zlzj4ayyn5rvx"))))
|
||
(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 "208")
|
||
(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
|
||
"1lxwkwz7bz8vd0jgsgvlwdm6gkrmzcmwlyqvp12j2jk5mpr4fp44"))))
|
||
(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
|
||
python-pygobject
|
||
sugar-toolkit-gtk3
|
||
telepathy-glib
|
||
webkitgtk-for-gtk3))
|
||
(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-chat-activity
|
||
;; The last release was in 2019 and since then commits have been published
|
||
;; that include build fixes and translation updates.
|
||
(let ((commit "a6a14b99576619639fd82fd265c4af096bcf52dc")
|
||
(revision "1"))
|
||
(package
|
||
(name "sugar-chat-activity")
|
||
(version (git-version "86" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/sugarlabs/chat")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1gp1ljazm119hqzwz0rkr6k588ngd68manndm808pj5vgbv7qsdq"))))
|
||
(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 gdk-pixbuf
|
||
gobject-introspection
|
||
gtk+
|
||
gstreamer
|
||
gst-plugins-base
|
||
python-pygobject
|
||
sugar-toolkit-gtk3
|
||
telepathy-glib))
|
||
(native-inputs
|
||
(list gettext-minimal))
|
||
(home-page "https://help.sugarlabs.org/chat.html")
|
||
(synopsis "Sugar activity to chat")
|
||
(description "Chat is an activity used to exchange messages with friends
|
||
or classmates.")
|
||
(license license:gpl2+))))
|
||
|
||
(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 "44ad1da717904a7c7d93a08985b94468a9b7ab7a")
|
||
(revision "2"))
|
||
(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
|
||
"1c8g4h52jnwzk5vlkrkm8j0p5dbrjqd8hv3bdz5rp39w9in3skzk"))))
|
||
(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 "32")
|
||
(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
|
||
"0506mwxy3agyxlilb5v3pn29pg45lzaxm8rhj9azm58irs3wdmnq"))))
|
||
(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-physics-activity
|
||
(let ((commit "cfd17b82b783f1ce4952ccdef6a8ddbe3d8f3e46")
|
||
(revision "1"))
|
||
(package
|
||
(name "sugar-physics-activity")
|
||
(version (git-version "35" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/sugarlabs/physics")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0yzq4cbgcngf1ayi4bsn04l3mz6pnayd6db9bv0v9xfrpjmffvyk"))))
|
||
(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"))))))
|
||
(add-after 'unpack 'inject-load-path
|
||
(lambda _
|
||
(substitute* "activity.py"
|
||
(("^import os")
|
||
(string-append "\
|
||
import sys, os
|
||
for directory in \"" (getenv "GUIX_PYTHONPATH") "\".split(\":\"):
|
||
try:
|
||
sys.path.index(directory)
|
||
except ValueError:
|
||
sys.path.insert(1, directory)
|
||
")))))
|
||
(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+
|
||
gdk-pixbuf))
|
||
(inputs
|
||
(list python-pybox2d
|
||
python-pygame
|
||
sugar-toolkit-gtk3
|
||
gettext-minimal))
|
||
(home-page "https://github.com/sugarlabs/physics")
|
||
(synopsis "Physical world simulator and playground")
|
||
(description "Physics is a physical world simulator and playground---you
|
||
can add squares, circles, triangles, or draw your own shapes, and see them
|
||
come to life with forces (think gravity, Newton!), friction (scrrrrape), and
|
||
inertia (ahh, slow down!).")
|
||
(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-for-gtk3))
|
||
(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-turtleart-activity
|
||
(let ((commit "a4340adea18efbdb987eca6477fa71d5c924811f")
|
||
(revision "1"))
|
||
(package
|
||
(name "sugar-turtleart-activity")
|
||
(version (git-version "202" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/sugarlabs/turtleart-activity")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"11agqyahjhxb7bakzix63lazcbin0jfiypqx0sm2i85bsl30fp7y"))))
|
||
(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"))))))
|
||
(add-after 'unpack 'patch-locations
|
||
(lambda _
|
||
(substitute* "setup.py"
|
||
(("'/usr/share/applications")
|
||
"'share/applications"))))
|
||
(add-after 'unpack 'patch-tool-references
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* '("TurtleArtActivity.py"
|
||
"TurtleArt/turtleblocks.py")
|
||
(("glib-compile-schemas")
|
||
(search-input-file inputs "/bin/glib-compile-schemas")))
|
||
(substitute* '("plugins/turtle_blocks_extras/turtle_blocks_extras.py"
|
||
"pysamples/speak.py"
|
||
"TurtleArt/tacollaboration.py")
|
||
(("'espeak")
|
||
(string-append "'" (search-input-file inputs "/bin/espeak"))))
|
||
(substitute* '("pysamples/csound.py"
|
||
"plugins/turtle_blocks_extras/turtle_blocks_extras.py")
|
||
(("'csound '")
|
||
(string-append "'" (search-input-file inputs "/bin/csound")
|
||
" '")))
|
||
(substitute* '("plugins/turtle_blocks_extras/turtle_blocks_extras.py"
|
||
"pysamples/speak.py"
|
||
"TurtleArt/tacollaboration.py")
|
||
(("\\| aplay")
|
||
(string-append "| "
|
||
(search-input-file inputs "/bin/aplay"))))
|
||
(substitute* "pysamples/sinewave.py"
|
||
(("'speaker-test")
|
||
(string-append "'"
|
||
(search-input-file inputs "/bin/speaker-test"))))))
|
||
(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 gstreamer
|
||
gtk+
|
||
telepathy-glib
|
||
webkitgtk-for-gtk3))
|
||
(inputs
|
||
(list alsa-utils
|
||
csound
|
||
espeak
|
||
(list glib "bin")
|
||
gettext-minimal
|
||
sugar-toolkit-gtk3))
|
||
(home-page "https://help.sugarlabs.org/en/turtleart.html")
|
||
(synopsis "Block-based Logo programming environment")
|
||
(description "Turtle Art, also known as Turtle Blocks, is an activity
|
||
with a Logo-inspired graphical “turtle” that draws colorful art based on
|
||
snap-together visual programming elements. Its “low floor” provides an easy
|
||
entry point for beginners. It also has “high ceiling” programming, graphics,
|
||
mathematics, and Computer Science features which will challenge the more
|
||
adventurous student.")
|
||
(license license:expat))))
|
||
|
||
(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+))))
|