--- Begin Message ---
|
Subject: |
[PATCH] gnu: Add pantheon-photos |
|
Date: |
Sun, 29 Oct 2023 16:16:11 +0000 |
* gnu/packages/pantheon.scm (pantheon-photos): New variable.
Change-Id: I08a10db8a03cd6ddde936b892d917e8b7d421124
---
guix build --no-grafts --check --rounds=2 was successfully run on a Zen4 CPU,
for the following --system= options:
- x86_64-linux
- i686-linux
- aarch64-linux.
gnu/packages/pantheon.scm | 59 +++++++++++++++++++++++++++++++++++++++
1 file changed, 59 insertions(+)
diff --git a/gnu/packages/pantheon.scm b/gnu/packages/pantheon.scm
index 55cb65045e..3465e5cb37 100644
--- a/gnu/packages/pantheon.scm
+++ b/gnu/packages/pantheon.scm
@@ -25,14 +25,18 @@ (define-module (gnu packages pantheon)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg)
+ #:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
+ #:use-module (gnu packages image)
#:use-module (gnu packages package-management)
#:use-module (gnu packages pcre)
#:use-module (gnu packages photo)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
+ #:use-module (gnu packages sqlite)
#:use-module (gnu packages xml)
#:use-module (gnu packages web)
+ #:use-module (gnu packages webkit)
#:use-module (gnu packages xorg)
#:use-module (gnu packages)
#:use-module (guix build-system meson)
@@ -132,6 +136,61 @@ (define-public pantheon-calculator
desktop.")
(license license:gpl3)))
+(define-public pantheon-photos
+ (package
+ (name "pantheon-photos")
+ (version "2.8.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/elementary/photos";)
+ (commit version)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "1aw77sdh2z7fah3vbi68145wc0xqg2afch1kswvgkmij0f0n04jn"))))
+ (build-system meson-build-system)
+ (arguments
+ `(#:glib-or-gtk? #t
+ #:phases (modify-phases %standard-phases
+ (add-after 'unpack 'disable-schema-cache-generation
+ (lambda _
+ (setenv "DESTDIR" "/")))
+ (add-after 'install 'install-symlinks
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out
+ "/bin/io.elementary.photos"))
+ (link (string-append out "/bin/pantheon-photos")))
+ (symlink bin link)))))))
+ (native-inputs (list desktop-file-utils
+ `(,glib "bin") intltool pkg-config vala))
+ (inputs (list geocode-glib-with-libsoup2
+ gexiv2
+ granite-6
+ gstreamer
+ gst-plugins-base
+ gtk+
+ json-glib
+ libexif
+ libgee
+ libgphoto2
+ libgudev
+ libhandy
+ libraw
+ libsoup-minimal-2
+ libwebp
+ rest
+ sqlite
+ webkitgtk-with-libsoup2))
+ (synopsis "Photo viewer and organizer designed for the Pantheon desktop")
+ (description
+ "Photos is an image viewer and organizer. It originally comes
+from elementary OS and is designed for the Pantheon desktop environment (but
can
+also be used on others.")
+ (home-page "https://elementary.io/open-source";)
+ (license license:lgpl2.1+)))
+
(define-public pantheon-stylesheet
(package
(name "pantheon-stylesheet")
base-commit: 26565f1bc8548011bc0e1b821a9a957db1bc2d8f
prerequisite-patch-id: b3506da85d629b0f39af22c99c099838a4720442
--
2.41.0
--- End Message ---