From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:41258) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hiD5E-00056G-Nb for guix-patches@gnu.org; Tue, 02 Jul 2019 03:20:16 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hiD58-000235-Uh for guix-patches@gnu.org; Tue, 02 Jul 2019 03:20:08 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:37675) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hiD58-00022p-IE for guix-patches@gnu.org; Tue, 02 Jul 2019 03:20:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hiD58-0002Lw-Bk for guix-patches@gnu.org; Tue, 02 Jul 2019 03:20:02 -0400 Subject: [bug#36410] [PATCH] gnu: Add screenfetch. Resent-Message-ID: Date: Tue, 2 Jul 2019 10:18:50 +0300 From: Efraim Flashner Message-ID: <20190702071850.GA22794@macbook41> References: <8736ju8rrt.fsf@sdf.lonestar.org> MIME-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha512; protocol="application/pgp-signature"; boundary="5vNYLRcllDrimb99" Content-Disposition: inline In-Reply-To: <8736ju8rrt.fsf@sdf.lonestar.org> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: "Jakob L. Kreuze" Cc: 36410@debbugs.gnu.org --5vNYLRcllDrimb99 Content-Type: text/plain; charset=utf-8 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable On Thu, Jun 27, 2019 at 08:42:14PM -0400, Jakob L. Kreuze wrote: > * gnu/packages/admin.scm (screenfetch): New variable. > --- > gnu/packages/admin.scm | 47 ++++++++++++++++++++++++++++++++++++++++++ > 1 file changed, 47 insertions(+) >=20 > diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm > index 3d8c247f57..b920d564e5 100644 > --- a/gnu/packages/admin.scm > +++ b/gnu/packages/admin.scm > @@ -25,6 +25,7 @@ > ;;; Copyright =C2=A9 2018 Pierre Neidhardt > ;;; Copyright =C2=A9 2019 Brett Gilio > ;;; Copyright =C2=A9 2019 Bj=C3=B6rn H=C3=B6fling > +;;; Copyright =C2=A9 2019 Jakob L. Kreuze > ;;; > ;;; This file is part of GNU Guix. > ;;; > @@ -55,6 +56,7 @@ > #:use-module (guix build-system python) > #:use-module (guix build-system trivial) > #:use-module (gnu packages) > + #:use-module (gnu packages algebra) > #:use-module (gnu packages base) > #:use-module (gnu packages bash) > #:use-module (gnu packages check) > @@ -2651,6 +2653,51 @@ used in screenshots to show other users what opera= ting system or distribution > you are running, what theme or icon set you are using, etc.") > (license license:expat))) > =20 > +(define-public screenfetch > + ;; first commit supporting current GuixSD > + (let ((commit "e3ec82dd464e81e4d10bef218b3016e3044c766c")) > + (package > + (name "screenfetch") > + (version (string-append "3.8.0" "-" (string-take commit 7))) > + (source (origin > + (method git-fetch) > + (uri (git-reference > + (url "https://github.com/KittyKatt/screenFetch") > + (commit commit))) > + (file-name (git-file-name name version)) > + (sha256 > + (base32 > + "1lzs1l5xgj9mn4b59lhkfgqnyiivf8svd1iwjabzrax90rdmxfwj"= )))) > + (build-system trivial-build-system) > + (arguments > + `(#:modules ((guix build utils)) > + #:builder > + (begin > + (use-modules (guix build utils)) > + (let ((source (assoc-ref %build-inputs "source"))) > + (mkdir-p (string-append %output "/bin/")) > + (mkdir-p (string-append %output "/man/man1/")) > + (copy-file (string-append source "/screenfetch-dev") > + (string-append %output "/bin/screenfetch")) > + (copy-file (string-append source "/screenfetch.1") > + (string-append %output "/man/man1/screenfetch.1"= )) If 'install-file' works here then the above 6 lines can be 2, something like: (install-file (string-append source "/screenfetch.1") (string-append %output "/man/man1/")) > + (substitute* (string-append %output "/bin/screenfetch") > + (("/usr/bin/env bash") > + (string-append (assoc-ref %build-inputs "bash") > + "/bin/bash"))))))) you can use the patch-shebang function here, should help a bit. > + (propagated-inputs > + `(("bash" ,bash) > + ("bc" ,bc) > + ("scrot" ,scrot) > + ("xdpyinfo" ,xdpyinfo) > + ("xprop" ,xprop))) Ideally these should wrap the binary rather than being propagated. > + (home-page "https://github.com/KittyKatt/screenFetch") > + (synopsis "System information script") > + (description "Bash screenshot information tool which can be used to > +generate those nifty terminal theme information and ASCII distribution l= ogos in > +everyone's screenshots nowadays.") > + (license license:gpl3)))) > + > (define-public nnn > (package > (name "nnn") > --=20 > 2.22.0 >=20 --=20 Efraim Flashner =D7=90=D7=A4=D7=A8=D7=99=D7=9D = =D7=A4=D7=9C=D7=A9=D7=A0=D7=A8 GPG key =3D A28B F40C 3E55 1372 662D 14F7 41AA E7DC CA3D 8351 Confidentiality cannot be guaranteed on emails sent or received unencrypted --5vNYLRcllDrimb99 Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIzBAABCgAdFiEEoov0DD5VE3JmLRT3Qarn3Mo9g1EFAl0bBVYACgkQQarn3Mo9 g1GO+g/+KcNDzF1kylEggXzCxu9CBgYq3pViX2N6XqXeNRrwLJYsDsBpChbt4yIs b+AUni48UMG/EYAQkmEU8w4PgViSDbt6J9SO070DEZleq4nb5E6Yxj++c1uGjzsM 5MUBqv+ySGiG8SPK5/vZ9x2wa0ySRSc+msxfcIFrnKSGyKDLT9+QUevCJ1vP4F/I tP1NCGow9+9cQEqLq71Dvi8Ubkxs4WhvrEHSE51/1iXig6U0aIqCS7ltRzqxZ4cK kd2lxgl+3Noa9YO7vonxaNevdOeZsIm0CFp66gKFHRw0QZ3GkBw9otePx8DLtpcC TijWGalFOvjPqdRd/nc5WH+GhINQi+fdel9KkM5AGkxPOm1xMIvKDT6xJ24HZo3E DDI15JQlyVb4Mv7vKPGHoJg92HvRkFMBhHfewKNphOCmKgYMU+hAR1NShVppvVFd p+VMRahEbM03vTqnZE2O9nv5bnNF50bMR4yF9SPhC8/+VMbuxLEuJUKK897KqTAp 0hfi4V2jn0qEyEFEZ67YXbH1qBBbOHxf3L/anfneBt0ZLnx1+WSFbWHJmjxw7oPQ gHmp0r8oW5HGxLsvRtt59j1o+mdpg0xQ4fPwPGpg/eY1PJoh+6gmd9aI0dYTiEPS EJl062CefHyATTqpeqv8Wq0ZwhJDl5Ln/vzen2sStd5EDw2FyRY= =OsZr -----END PGP SIGNATURE----- --5vNYLRcllDrimb99--