[bug#67338] [PATCH gnome-team] [WIP] gnu: Add gnome-logs.

[Vivien Kraus via Guix-patches via <guix-patches@gnu.org>]

gnome-logs does not appear to support elogind as a journal provider, because
it crashes on startup.

* gnu/packages/gnome.scm (gnome-logs): New variable.

Change-Id: I3d4fff870b5b0d10bcd229c164a5bb19564880d7
---
 gnu/packages/gnome.scm | 45 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index ab485cffb1..61edd70d93 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -13218,6 +13218,51 @@ (define-public komikku
 developed with the aim of being used with the Librem 5 phone.")
     (license license:gpl3+)))
 
+(define-public gnome-logs
+  ;; FIXME: crashes at startup because elogind does not implement the
+  ;; requested API.
+  (package
+    (name "gnome-logs")
+    (version "43.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnome/sources/" name "/"
+                                  (version-major version) "/"
+                                  name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "0q88q8z7paq2r5s7pkxbclsw5mgpi9xslj2hha3q8z62bsbkpa9k"))))
+    (build-system meson-build-system)
+    (arguments
+     (list
+      #:glib-or-gtk? #t
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'skip-icon-cache
+            (lambda _
+              (substitute* "meson_post_install.py"
+                (("gtk-update-icon-cache")
+                 "true"))))
+          (add-after 'unpack 'use-elogind
+            (lambda _
+              (substitute* "src/gl-journal.h"
+                (("systemd/sd-([^.]*)\\.h" all header)
+                 (string-append "elogind/sd-" header ".h")))
+              (substitute* "meson.build"
+                (("'libsystemd'")
+                 "'libelogind'")))))))
+    (inputs
+     (list elogind glib gtk libadwaita))
+    (native-inputs
+     (list gettext-minimal
+           `(,glib "bin")
+           itstool
+           pkg-config))
+    (home-page "https://apps.gnome.org/Logs")
+    (synopsis "View detailed event logs for the system")
+    (description "This application shows events from the system journal.")
+    (license license:gpl3+)))
+
 (define-public libgda
   (package
     (name "libgda")

base-commit: 1cc3b7e80f60a2a5a6a1400ed0b025efeae7a523
-- 
2.41.0