Received: (at submit) by debbugs.gnu.org; 9 Jan 2025 03:01:34 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Jan 08 22:01:34 2025
Received: from localhost ([127.0.0.1]:49736 helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1tVine-0002Xj-1p
for submit <at> debbugs.gnu.org; Wed, 08 Jan 2025 22:01:34 -0500
Received: from lists.gnu.org ([2001:470:142::17]:60060)
by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
(Exim 4.84_2) (envelope-from <tumashu@HIDDEN>) id 1tVinb-0002XL-6p
for submit <at> debbugs.gnu.org; Wed, 08 Jan 2025 22:01:33 -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 <tumashu@HIDDEN>) id 1tVinT-0007Xp-E7
for guix-patches@HIDDEN; Wed, 08 Jan 2025 22:01:23 -0500
Received: from m16.mail.163.com ([220.197.31.2])
by eggs.gnu.org with esmtp (Exim 4.90_1)
(envelope-from <tumashu@HIDDEN>) id 1tVinM-00075w-QI
for guix-patches@HIDDEN; Wed, 08 Jan 2025 22:01:23 -0500
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=163.com;
s=s110527; h=From:Subject:Date:Message-ID:MIME-Version; bh=S/sJa
V/JDiPogyON+UazwrQxZoWQhx2troLJOOOTkL8=; b=eV52N/FrZ9wgUVASw/Fai
3y6z1p8pSpVgf/f27pKDpq3WE9oCfNvdz7MVIe4KRXb2s5PgeUOMP96fI0ABFbgc
/Dhz8CgMG2lHP1uMGl2GvdXO3ikJxFUAcZ2GBe/jbtFqtlvQrBY6AzHrLiMN+4c4
dHYGgjCmv2DYOQGNFcqQYE=
Received: from localhost.localdomain (unknown [])
by gzga-smtp-mtada-g0-2 (Coremail) with SMTP id
_____wD3PyXwO39nkMo3Ew--.9707S2;
Thu, 09 Jan 2025 11:01:05 +0800 (CST)
From: tumashu@HIDDEN
To: guix-patches@HIDDEN
Subject: [PATCH] gnu: Add pi-greeter.
Date: Thu, 9 Jan 2025 11:00:50 +0800
Message-ID: <20250109030050.36184-1-tumashu@HIDDEN>
X-Mailer: git-send-email 2.45.2
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
X-CM-TRANSID: _____wD3PyXwO39nkMo3Ew--.9707S2
X-Coremail-Antispam: 1Uf129KBjvJXoWxCry8AFW3Ww1xGryDuF15Arb_yoWrGF4Dpa
yF9F15Gr95Jrn2y3y3XF17KayY9as3Gr1jgwn7Zw12yan8CFy0vry2krZ5GF17A3WxCayU
Xa1UJay5uF1DCr7anT9S1TB71UUUUU7qnTZGkaVYY2UrUUUUjbIjqfuFe4nvWSU5nxnvy2
9KBjDUYxBIdaVFxhVjvjDU0xZFpf9x0JU4T5PUUUUU=
X-Originating-IP: [218.92.14.78]
X-CM-SenderInfo: 5wxpt2lkx6il2tof0z/1tbiYBvP1Gd-OPBYKwAAsD
Received-SPF: pass client-ip=220.197.31.2; envelope-from=tumashu@HIDDEN;
helo=m16.mail.163.com
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, FREEMAIL_FROM=0.001,
RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001,
RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, RCVD_IN_VALIDITY_SAFE_BLOCKED=0.001,
SPF_HELO_NONE=0.001, SPF_PASS=-0.001,
UNPARSEABLE_RELAY=0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 0.9 (/)
X-Debbugs-Envelope-To: submit
Cc: Feng Shu <tumashu@HIDDEN>
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 (/)
From: Feng Shu <tumashu@HIDDEN>
* gnu/packages/display-managers.scm (pi-greeter): New variable.
Change-Id: I852019a88a75c06d5e8a215a013b5a6a5c65c57f
---
gnu/packages/display-managers.scm | 89 +++++++++++++++++++++++++++++++
1 file changed, 89 insertions(+)
diff --git a/gnu/packages/display-managers.scm b/gnu/packages/display-managers.scm
index cddd3f494f..6e62230db7 100644
--- a/gnu/packages/display-managers.scm
+++ b/gnu/packages/display-managers.scm
@@ -592,6 +592,95 @@ (define-public lightdm-mini-greeter
Display Manager and LightDM GTK3 Greeter.")
(license license:gpl3))))
+(define-public pi-greeter
+ (let ((commit "4acc867b4807000fbd31bafbd33fe35ef1eda39d")
+ (revision "0"))
+ (package
+ (name "pi-greeter")
+ ;; No git release tag, get version from debian/changelog file.
+ (version (git-version "0.25" revision commit))
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/raspberrypi-ui/pi-greeter.git")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0g67211zk57k32wphika72vr3sxiqp0j0z5d7pr9gapddslf4xay"))))
+ (build-system glib-or-gtk-build-system)
+ (arguments
+ (list
+ #:configure-flags
+ #~(list
+ ;; Put the binary under /bin rather than /sbin, so that it gets
+ ;; wrapped by the glib-or-gtk-wrap phase.
+ (string-append "--sbindir=" #$output "/bin")
+ (string-append "--enable-libindicator")
+ (string-append "--enable-indicator-services"))
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'customize-default-config-path
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "configure.ac"
+ (("INDICATOR_PKG=indicator-")
+ "INDICATOR_PKG=indicator3-"))
+ (substitute* "src/Makefile.am"
+ ;; Have the default config directory sourced from
+ ;; /etc/lightdm/pi-greeter.conf, which is where the
+ ;; lightdm service writes it.
+ (("\\$\\(sysconfdir)/lightdm/pi-greeter.conf")
+ "/etc/lightdm/pi-greeter.conf"))
+ (substitute* "src/pi-greeter.c"
+ (("/usr/lib/at-spi2-core/at-spi-bus-launcher")
+ (search-input-file inputs "/libexec/at-spi-bus-launcher")))))
+ (add-after 'glib-or-gtk-wrap 'custom-wrap
+ (lambda _
+ (wrap-script (string-append #$output "/bin/pi-greeter")
+ ;; Wrap GDK_PIXBUF_MODULE_FILE, so that the SVG loader is
+ ;; available at all times even outside of profiles, such as
+ ;; when used in the lightdm-service-type. Otherwise, it
+ ;; wouldn't be able to display its own icons.
+ `("GDK_PIXBUF_MODULE_FILE" =
+ (,(string-append
+ #$output
+ "/lib/gdk-pixbuf-2.0/2.10.0/loaders.cache")))
+ `("XDG_DATA_DIRS" ":" prefix
+ (,(string-append "/run/current-system/profile/share:"
+ (getenv "XDG_DATA_DIRS"))))
+ '("XCURSOR_PATH" ":" prefix
+ ("/run/current-system/profile/share/icons")))))
+ (add-after 'install 'fix-.desktop-file
+ (lambda _
+ (substitute* (string-append
+ #$output
+ "/share/xgreeters/pi-greeter.desktop")
+ (("Exec=pi-greeter")
+ (string-append "Exec="
+ (string-append
+ #$output "/bin/pi-greeter")))))))))
+ (native-inputs
+ (list autoconf
+ automake
+ gnome-common
+ intltool
+ pkg-config
+ which))
+ (inputs
+ (list at-spi2-core
+ gtk+
+ gtk-layer-shell
+ guile-3.0
+ gobject-introspection
+ libindicator
+ lightdm))
+ (synopsis "GTK greeter for Raspberry Pi")
+ (home-page "https://github.com/raspberrypi-ui/pi-greeter")
+ (description "A simple GTK-based greeter for the Raspbian LXDE desktop.
+This greeter have no session menu, so user should set user-session option in
+lightdm config file.")
+ (license license:gpl2+))))
+
(define-public slim
(package
(name "slim")
--
2.45.2
tumashu@HIDDEN:guix-patches@HIDDEN.
Full text available.guix-patches@HIDDEN:bug#75449; Package guix-patches.
Full text available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.