GNU bug report logs - #75839
[PATCH] gnu: Add pantheon-screenshot

Previous Next

Full log

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: altadil <Altadil <at> protonmail.com>
To: guix-patches <at> gnu.org
Cc: altadil <altadil <at> protonmail.com>
Subject: [PATCH] gnu: Add pantheon-screenshot
Date: Sat, 25 Jan 2025 19:33:15 +0000

    * gnu/packages/pantheon.scm (pantheon-screenshot): New variable.

Change-Id: I68fac745434503b43cb0137cddb48a56478960d9
---
Built and tested successfully on Guix System on x86_64-linux.
 gnu/packages/pantheon.scm | 47 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/gnu/packages/pantheon.scm b/gnu/packages/pantheon.scm
index 9268aff292..da322f3e91 100644
--- a/gnu/packages/pantheon.scm
+++ b/gnu/packages/pantheon.scm
@@ -30,6 +30,7 @@ (define-module (gnu packages pantheon)
   #:use-module (gnu packages gstreamer)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages image)
+  #:use-module (gnu packages libcanberra)
   #:use-module (gnu packages package-management)
   #:use-module (gnu packages pcre)
   #:use-module (gnu packages photo)
@@ -258,6 +259,52 @@ (define-public pantheon-photos
     (home-page "https://elementary.io/open-source")
     (license license:lgpl2.1+)))
 
+(define-public pantheon-screenshot
+  (package
+    (name "pantheon-screenshot")
+    (version "8.0.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/elementary/screenshot")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1h3xv0pckkkgvqkk6fxssydq9gmncapaf1hx4n7j19jcvhwx65da"))))
+    (build-system meson-build-system)
+    (arguments
+      (list
+        #: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* ((bin (string-append #$output
+                                              "/bin/io.elementary.screenshot"))
+                          (link (string-append #$output
+                                               "/bin/pantheon-screenshot")))
+                     (symlink bin link)))))))
+    (native-inputs (list desktop-file-utils
+                         gettext-minimal ;for msgfmt
+                         `(,glib "bin")
+                         pkg-config
+                         vala))
+    (inputs (list granite
+                  gtk
+                  libcanberra
+                  libgee
+                  libportal
+                  libhandy))
+    (propagated-inputs (list glib))
+    (synopsis "Screenshot tool")
+    (description "Screenshot is a screenshot tool designed for the Pantheon
+desktop environment.")
+    (home-page "https://elementary.io/open-source")
+    (license license:lgpl3)))
+
 (define-public pantheon-stylesheet
   (package
     (name "pantheon-stylesheet")
-- 
2.47.1

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.