From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:54217) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hgjF1-0002GK-OC for guix-patches@gnu.org; Fri, 28 Jun 2019 01:16:13 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hgjEw-0006Kd-18 for guix-patches@gnu.org; Fri, 28 Jun 2019 01:16:07 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:54905) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hgjEv-0006KS-Th for guix-patches@gnu.org; Fri, 28 Jun 2019 01:16:01 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hgjEv-0001Pa-My for guix-patches@gnu.org; Fri, 28 Jun 2019 01:16:01 -0400 Subject: [bug#36410] [PATCH] gnu: Add screenfetch. Resent-Message-ID: Received: from eggs.gnu.org ([2001:470:142:3::10]:54184) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hgjEZ-0002Di-FY for guix-patches@gnu.org; Fri, 28 Jun 2019 01:15:45 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hgjET-00063h-MY for guix-patches@gnu.org; Fri, 28 Jun 2019 01:15:39 -0400 Received: from mx1.riseup.net ([198.252.153.129]:33144) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1hgjET-000631-4C for guix-patches@gnu.org; Fri, 28 Jun 2019 01:15:33 -0400 Received: from bell.riseup.net (bell-pn.riseup.net [10.0.1.178]) (using TLSv1 with cipher ECDHE-RSA-AES256-SHA (256/256 bits)) (Client CN "*.riseup.net", Issuer "COMODO RSA Domain Validation Secure Server CA" (verified OK)) by mx1.riseup.net (Postfix) with ESMTPS id 47FEF1A16CA for ; Thu, 27 Jun 2019 22:15:32 -0700 (PDT) Received: from [127.0.0.1] (localhost [127.0.0.1]) by bell.riseup.net (Postfix) with ESMTPSA id 8E5EE222CAD for ; Thu, 27 Jun 2019 22:15:31 -0700 (PDT) References: <8736ju8rrt.fsf@sdf.lonestar.org> From: swedebugia Message-ID: <3283ceaa-5a12-fb64-1e68-df133e6a0228@riseup.net> Date: Fri, 28 Jun 2019 07:15:28 +0200 MIME-Version: 1.0 In-Reply-To: <8736ju8rrt.fsf@sdf.lonestar.org> Content-Type: text/plain; charset=utf-8; format=flowed Content-Language: en-US Content-Transfer-Encoding: quoted-printable 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: 36410@debbugs.gnu.org On 2019-06-28 02:42, 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 ope= rating 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 > + "1lzs1l5xgj9mn4b59lhkfgqnyiivf8svd1iwjabzrax90rdmxfw= j")))) > + (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")) > + (substitute* (string-append %output "/bin/screenfetch") > + (("/usr/bin/env bash") > + (string-append (assoc-ref %build-inputs "bash") > + "/bin/bash"))))))) > + (propagated-inputs > + `(("bash" ,bash) > + ("bc" ,bc) > + ("scrot" ,scrot) > + ("xdpyinfo" ,xdpyinfo) > + ("xprop" ,xprop))) > + (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= logos in > +everyone's screenshots nowadays.") > + (license license:gpl3)))) gpl3+ Could you ask upstream to release a version we can track? Otherwise LGTM. --=20 Cheers Swedebugia