gnu: Add sugar-portfolio-activity.

* gnu/packages/sugar.scm (sugar-portfolio-activity): New variable.

Change-Id: I52246ce832a90b0e909112aeeb788d29184b45ec

gnu/packages/sugar.scm

@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2023, 2024 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2023-2025 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -996,6 +996,60 @@ (define-public sugar-physics-activity
 inertia (ahh, slow down!).")
       (license license:gpl3+))))
 
+(define-public sugar-portfolio-activity
+  (let ((commit "331c3e2542b4885112fd32b3c32ed4f5916d204c")
+        (revision "1"))
+    (package
+      (name "sugar-portfolio-activity")
+      (version (git-version "52" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/sugarlabs/portfolio-activity")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "1zaab7ara40imkd85hilslc4rqyjsgkzrcngsrw99dryl9n4mx1p"))))
+      (build-system python-build-system)
+      (arguments
+       (list
+        #:tests? #false ;there are none
+        #: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 cairo
+             pango
+             gdk-pixbuf
+             gobject-introspection
+             gtk+
+             gstreamer
+             gst-plugins-base
+             python-dbus
+             python-pygobject
+             sugar-datastore
+             sugar-toolkit-gtk3
+             telepathy-glib))
+      (inputs
+       (list gettext-minimal))
+      (home-page "https://github.com/sugarlabs/portfolio-activity")
+      (synopsis "Portfolio for the Sugar Journal")
+      (description "The Portfolio activity creates a slide show from Sugar
+Journal entries that have been ‘starred’.")
+      (license license:gpl3+))))
+
 (define-public sugar-read-activity
   (package
     (name "sugar-read-activity")