From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:42774) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eJW1A-0002y9-Ae for guix-patches@gnu.org; Mon, 27 Nov 2017 21:53:05 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eJW19-0000bm-5b for guix-patches@gnu.org; Mon, 27 Nov 2017 21:53:04 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:52844) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eJW19-0000be-0S for guix-patches@gnu.org; Mon, 27 Nov 2017 21:53:03 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eJW18-0002Ww-Mo for guix-patches@gnu.org; Mon, 27 Nov 2017 21:53:02 -0500 Subject: [bug#29480] [PATCH] gnu: Add xautolock. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:42461) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eJW07-0002uH-Kw for guix-patches@gnu.org; Mon, 27 Nov 2017 21:52:01 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eJW06-0000JL-DT for guix-patches@gnu.org; Mon, 27 Nov 2017 21:51:59 -0500 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:36950) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eJW06-0000JG-8t for guix-patches@gnu.org; Mon, 27 Nov 2017 21:51:58 -0500 Received: from localhost ([::1]:56588 helo=mikegerwitz-pc.gerwitz.local) by fencepost.gnu.org with esmtps (TLS1.2:DHE_RSA_AES_128_CBC_SHA1:128) (Exim 4.82) (envelope-from ) id 1eJW05-0002Mq-VQ for guix-patches@gnu.org; Mon, 27 Nov 2017 21:51:58 -0500 From: Mike Gerwitz Date: Mon, 27 Nov 2017 21:50:59 -0500 Message-ID: <87zi7786b0.fsf@gnu.org> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" 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: 29480@debbugs.gnu.org --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain Building this one was a history lesson. I modeled it after xfig, which also uses imake. --=-=-= Content-Type: text/x-diff; charset=utf-8 Content-Disposition: inline; filename=0001-gnu-Add-xautolock.patch Content-Transfer-Encoding: quoted-printable From=209de0820982f89949f943c1566c7dffe6b3bc87de Mon Sep 17 00:00:00 2001 From: Mike Gerwitz Date: Mon, 27 Nov 2017 21:45:11 -0500 Subject: [PATCH] gnu: Add xautolock. * gnu/packages/xdisorg.scm (xautolock): New variable. =2D-- gnu/packages/xdisorg.scm | 50 ++++++++++++++++++++++++++++++++++++++++++++= ++++ 1 file changed, 50 insertions(+) diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm index f4c03c144..cc84884b6 100644 =2D-- a/gnu/packages/xdisorg.scm +++ b/gnu/packages/xdisorg.scm @@ -20,6 +20,7 @@ ;;; Copyright =C2=A9 2017 ng0 ;;; Copyright =C2=A9 2017 Tobias Geerinckx-Rice ;;; Copyright =C2=A9 2017 Marek Benc +;;; Copyright =C2=A9 2017 Mike Gerwitz ;;; ;;; This file is part of GNU Guix. ;;; @@ -1329,3 +1330,52 @@ a specified program, emulating the PC speaker beep u= sing the sound card (default or playing a PCM encoded WAVE file.") (home-page "https://github.com/dusxmt/nxbelld") (license license:gpl3+))) + +(define-public xautolock + (package + (name "xautolock") + (version "2.2") + (source (origin + (method url-fetch) + (uri (string-append "http://www.ibiblio.org/pub/linux/X11/sc= reensavers/" + name "-" version ".tgz")) + (sha256 + (base32 + "18jd3k3pvlm5x1adyqw63z2b3f4ixh9mfvz9asvnskk3fm8jgw0i")))) + (build-system gnu-build-system) + (native-inputs + `(("imake" ,imake))) + (inputs + `(("libx11" ,libx11) + ("libxext" ,libxext) + ("libxscrnsaver" ,libxscrnsaver))) + (arguments + `(#:tests? #f + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((imake (assoc-ref inputs "imake")) + (out (assoc-ref outputs "out"))) + ;; Generate Makefile + (zero? (system* "xmkmf")) + (substitute* "Makefile" + ;; These imake variables somehow remain undefined + (("DefaultGcc2[[:graph:]]*Opt") "-O2") + ;; Reset a few variable defaults that are set in imake te= mplates + ((imake) out) + (("(MANPATH =3D )[[:graph:]]*" _ front) + (string-append front out "/share/man"))) + ;; Old BSD-style 'union wait' is unneeded (defining + ;; _USE_BSD did not seem to fix it) + (substitute* "src/engine.c" + (("union wait status") "int status =3D 0"))))) + (add-after 'install 'install/man + (lambda _ + (zero? (system* "make" "install.man"))))))) + (home-page "http://ibiblio.org/pub/Linux/X11/screensavers/") + (synopsis "Program launcher for idle X sessions") + (description "Xautolock monitors input devices under the X Window +System, and launches a program of your choice if there is no activity after +a user-configurable period of time.") + (license license:gpl2))) =2D-=20 2.15.0 --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable =2D-=20 Mike Gerwitz Free Software Hacker+Activist | GNU Maintainer & Volunteer GPG: D6E9 B930 028A 6C38 F43B 2388 FEF6 3574 5E6F 6D05 https://mikegerwitz.com --=-=-=-- --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 iQIcBAEBCgAGBQJaHM8TAAoJEIyRe39dxRuiUb8QAJJINtmBKOLPhxbOdWknAy4D RBJGYyIJQUT/ly9Op8Ftd3w5sqIXGn1Ca7VYWxsnfrYWC0PbKX7WjxnTQIOf6vUe nJBncTK9QB+FEpYqNvn/oHIOgpToK5oNG0o4DKNHP1W3OfjrhakeARDSLwGyZDT1 LGyLwOro/EC+8CmfxisYRQnnQVcoIm8SGJw/qeGjGpBWjv5GbddIxizhSmyzUcoB vMSbOMobcnO8OeLN4YPoecaztNdwTEqwStMX9wXrHCvEPH/Xj3VIk5H9uPSYtMxG BYrcJmmmb/AlOaYId6FWrwfX88y6sGczwOfSAhGEyEePvAgF6mfn8CIcr++87QjU 82On8fpJ+mf59eIXftwZdDYE9Fpm3UJzct+0XWyigOJpMZAuI6lc2XZM+WwIwDhd J1iXM7mvQx25E47qXikSyCjl10sEDUwskWUlQABspEtVj9zFKPkiV976nXraUZ9L zUEOmkKNvvediB6elYSqBXKGD1iivxU+mc08CG5XM0gwcZze+CIwQvwbvsaxxgzG PPRnaiId22lozYbzO6UGsSFV0xsUHaaZbU8rEkoJ+q4/Mm+0uYo2FOor66kRl4rU 8UbDmM7YkU9WJvvul+0YhoXYDzviQirCcX99YOqBgCf/hG8obIPrvh30eACbRRcT zmR4UiEoLwiQ5X5SgqM1 =0JR6 -----END PGP SIGNATURE----- --==-=-=--