[bug#59525] [PATCH v2] gnu: Add portfolio

[bug#59525] [PATCH v2] gnu: Add portfolio

[conses]

* gnu/packages/gnome-xyz.scm (portfolio): New variable.
---
 gnu/packages/gnome-xyz.scm | 55 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index b7e10100fb..5a5c5b1700 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -55,6 +55,7 @@ (define-module (gnu packages gnome-xyz)
   #:use-module (gnu packages bash)
   #:use-module (gnu packages build-tools)
   #:use-module (gnu packages check)
+  #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
@@ -224,6 +225,60 @@ (define-public papirus-icon-theme
 and a few extra features.")
     (license license:gpl3)))
 
+(define-public portfolio
+  (package
+   (name "portfolio")
+   (version "0.9.14")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+           (url "https://github.com/tchx84/Portfolio")
+           (commit (string-append "v" version))))
+     (file-name (git-file-name name version))
+     (sha256
+      (base32 "0h09v8lhz3kv6qmwjhx3gr7rp6ccfhrzm54gjnaixl4dcg9zddls"))))
+   (arguments
+    (list
+     #:glib-or-gtk? #t
+      #:imported-modules `(,@%meson-build-system-modules
+                           (guix build python-build-system))
+      #:modules '((guix build meson-build-system)
+                  ((guix build python-build-system) #:prefix python:)
+                  (guix build utils))
+     #:phases
+     #~(modify-phases %standard-phases
+         (add-after 'install 'rename-executable
+           (lambda _
+             (with-directory-excursion (string-append #$output "/bin")
+               (rename-file "dev.tchx84.Portfolio" "portfolio"))))
+         (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (wrap-program (search-input-file outputs "bin/portfolio")
+               `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")
+                                      ,(python:site-packages inputs outputs)))
+               `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))))))
+   (build-system meson-build-system)
+   (inputs
+    (list
+     bash-minimal
+     python-pygobject
+     gtk+
+     libhandy))
+   (native-inputs
+    (list
+     (list glib "bin")
+     desktop-file-utils
+     gettext-minimal
+     python
+     (list gtk+ "bin")))
+   (home-page "https://github.com/tchx84/Portfolio")
+   (synopsis "A minimalist file manager for those who want to use Linux mobile devices.")
+   (description "Portfolio is a minimalist file manager for those who want to use Linux
+mobile devices.  Tap to activate and long press to select, to browse, open, copy, move,
+delete, or edit your files.")
+   (license license:gpl3)))
+
 (define-public gnome-plots
   (package
     (name "gnome-plots")
-- 
2.38.1



-- 
Best regards,
conses