[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: Add sugar-log-activity.
From: |
guix-commits |
Subject: |
01/02: gnu: Add sugar-log-activity. |
Date: |
Sat, 4 Mar 2023 13:00:24 -0500 (EST) |
rekado pushed a commit to branch master
in repository guix.
commit a0b17c09770d3d84dcff38f35a61649e0340a879
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sat Mar 4 18:58:45 2023 +0100
gnu: Add sugar-log-activity.
* gnu/packages/sugar.scm (sugar-log-activity): New variable.
---
gnu/packages/sugar.scm | 63 ++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 63 insertions(+)
diff --git a/gnu/packages/sugar.scm b/gnu/packages/sugar.scm
index c782c3a6cc..5ed45b2608 100644
--- a/gnu/packages/sugar.scm
+++ b/gnu/packages/sugar.scm
@@ -506,6 +506,69 @@ 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-read-activity
(let ((commit "25f69e41a4fa69d93c73c0c9367b4777a014b1cd")
(revision "1"))