GNU bug report logs - #76689
[PATCH gnome-team] gnu: Add cuttlefish.

Message received at submit <at> debbugs.gnu.org:

Received: (at submit) by debbugs.gnu.org; 2 Mar 2025 18:41:48 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sun Mar 02 13:41:48 2025
Received: from localhost ([127.0.0.1]:35155 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1tooG3-0003QQ-N8
	for submit <at> debbugs.gnu.org; Sun, 02 Mar 2025 13:41:48 -0500
Received: from lists.gnu.org ([2001:470:142::17]:35108)
 by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.84_2) (envelope-from <herman@HIDDEN>) id 1tooG1-0003Pw-Bo
 for submit <at> debbugs.gnu.org; Sun, 02 Mar 2025 13:41:46 -0500
Received: from eggs.gnu.org ([2001:470:142:3::10])
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <herman@HIDDEN>) id 1tooFm-0005Oh-IR
 for guix-patches@HIDDEN; Sun, 02 Mar 2025 13:41:34 -0500
Received: from 81-205-150-117.fixed.kpn.net ([81.205.150.117]
 helo=email.rimm.ee)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_CHACHA20_POLY1305:256)
 (Exim 4.90_1) (envelope-from <herman@HIDDEN>) id 1tooFj-0004Ro-J4
 for guix-patches@HIDDEN; Sun, 02 Mar 2025 13:41:30 -0500
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=rimm.ee; s=herman;
 t=1740940877;
 h=from:from:reply-to:subject:subject:date:date:message-id:message-id:
 to:to:cc:mime-version:mime-version:
 content-transfer-encoding:content-transfer-encoding;
 bh=32JxbHBnXeq4JAl5fm0yMNRc1WmzILXkRSmuFtjcOjM=;
 b=hWDYWE3ZjOc91bikDB0hXqCn4SvOhABdo8akcoYgaT9AMB4CjyzAh0pFhTqpbQTWPKhaTU
 JjsyNQJDGLkneGD/0CEW21Kd+tyx1BdMaIMzMPbXn2UpseYhWOdmIW2hlGe1AC7cTL5tEQ
 I06hhPwj77kNFUGUCLF7snIjb2MLjMZnpDY1TCu937cNNwXu/pKW5YyklVzFsDk055xi7R
 ReemHK0Vm0G0HYj4KVxqa5DDgqMIt39Ln0Oh+64HKqI1smLCcCYKgRbm8OcAYbKB0Oh52c
 pcLR/DkfesEStqmItmYUiaY3yp0zMrw45TL4uJSP4CJlQccHYMdp4z44jwkLcQ==
Received: by 81-205-150-117.fixed.kpn.net (OpenSMTPD) with ESMTPSA id bd165ce8
 (TLSv1.3:TLS_CHACHA20_POLY1305_SHA256:256:NO)
 for <guix-patches@HIDDEN>; Sun, 2 Mar 2025 18:41:16 +0000 (UTC)
From: Herman Rimm <herman@HIDDEN>
To: guix-patches@HIDDEN
Subject: [PATCH gnome-team] gnu: Add cuttlefish.
Date: Sun,  2 Mar 2025 19:40:29 +0100
Message-ID: <ff7e517de182eb2ebd17babb8a5cddefe2acbb81.1740940546.git.herman@HIDDEN>
X-Mailer: git-send-email 2.47.1
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
Received-SPF: pass client-ip=81.205.150.117; envelope-from=herman@HIDDEN;
 helo=email.rimm.ee
X-Spam_score_int: -20
X-Spam_score: -2.1
X-Spam_bar: --
X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1,
 RCVD_IN_VALIDITY_CERTIFIED_BLOCKED=0.001, RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001,
 SPF_HELO_NONE=0.001, SPF_PASS=-0.001,
 TVD_RCVD_IP=0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 0.9 (/)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -0.1 (/)

* gnu/packages/fediverse.scm (cuttlefish): Add variable.

Change-Id: I600f105862495a23e3d821b71b61582a442cb2f1
---
 gnu/packages/fediverse.scm | 59 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)

diff --git a/gnu/packages/fediverse.scm b/gnu/packages/fediverse.scm
index c660483b560..9d0d4fbc65c 100644
--- a/gnu/packages/fediverse.scm
+++ b/gnu/packages/fediverse.scm
@@ -48,10 +48,69 @@ (define-module (gnu packages fediverse)
   #:use-module (gnu packages python-crypto)
   #:use-module (gnu packages python-web)
   #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages serialization)
   #:use-module (gnu packages time)
   #:use-module (gnu packages tls)
   #:use-module (gnu packages xml))
 
+(define-public cuttlefish
+  (package
+    (name "cuttlefish")
+    (version "0.1.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://gitlab.shinice.net/artectrex/Cuttlefish")
+              (commit "9e9b97ccbb27562c86637e5b413c28beacd8cd4d")))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0fdkag4j66zaf2shbw4j6hspk6bw6b0kbd5l6wzvh3p7id7yj6qi"))
+       (modules '((guix build utils)))
+       (snippet
+        #~(begin (substitute* "data/ch.cuttlefish.app.gschema.xml"
+                   ;; Instance does not work properly.
+                   (("https://video.blender.org")
+                    "https://tilvids.com"))
+                 (substitute* "src/video-view.cpp"
+                   ;; Top-level "files" key has an empty list.
+                   (("\\[\"files\"\\]")
+                    "[\"streamingPlaylists\"][0][\"files\"]"))))))
+    (build-system meson-build-system)
+    (arguments (list #:glib-or-gtk? #t
+          #:phases
+          #~(modify-phases %standard-phases
+              (add-after 'glib-or-gtk-wrap 'lib-vars-wrap
+                (lambda _
+                  (let ((gstvar "GST_PLUGIN_SYSTEM_PATH"))
+                    (wrap-program
+                      (string-append #$output "/bin/cuttlefish")
+                      `(,gstvar ":" suffix (,(getenv gstvar))))))))))
+    (native-inputs
+     (list desktop-file-utils
+           gettext-minimal ; msgfmt
+           (list glib "bin") ; glib-compile-resources
+           gsettings-desktop-schemas ; org.gnome.system.proxy schema
+           pkg-config))
+    (inputs (list gst-plugins-bad
+                  gst-plugins-good ; playbin plugin
+                  gstreamer
+                  gtk
+                  jsoncpp
+                  libadwaita
+                  libsoup-minimal-2))
+    (home-page "https://cuttlefish.ch")
+    (synopsis "GTK client for Peertube")
+    (description
+     "Cuttlefish is a desktop client for PeerTube, but will work on
+GNU/Linux-based phones (like the Librem 5 or Pinephone) as well.  We
+want the experience of watching PeerTube videos and using PeerTube in
+general to be better, by making a native application that will become
+the best and most efficient way to hook into the federation of
+interconnected video hosting services.")
+    ;; Logo distributed under the Creative Commons CCBY license.
+    (license license:gpl3+)))
+
 (define-public toot
   (package
     (name "toot")

base-commit: 7d977552742c6b8526079c3cac5610c883df52f1
-- 
2.48.1