From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:56142) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eOAbk-0007cu-Dh for guix-patches@gnu.org; Sun, 10 Dec 2017 18:02:05 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eOAbj-0003J7-C7 for guix-patches@gnu.org; Sun, 10 Dec 2017 18:02:04 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:47028) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eOAbj-0003Iz-8e for guix-patches@gnu.org; Sun, 10 Dec 2017 18:02:03 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eOAbi-0002fT-VL for guix-patches@gnu.org; Sun, 10 Dec 2017 18:02:03 -0500 Subject: [bug#29652] [PATCH 1/2] gnu: Add snapscreenshot. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55946) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eOAaw-0007ah-WA for guix-patches@gnu.org; Sun, 10 Dec 2017 18:01:16 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eOAav-0002hf-QB for guix-patches@gnu.org; Sun, 10 Dec 2017 18:01:15 -0500 Received: from tobias.gr ([2001:470:cc92::1]:46248) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1eOAav-0002g6-G9 for guix-patches@gnu.org; Sun, 10 Dec 2017 18:01:13 -0500 Received: by tobias.gr (OpenSMTPD) with ESMTP id 2298bc9f for ; Sun, 10 Dec 2017 23:01:09 +0000 (UTC) Received: by submission.tobias.gr (OpenSMTPD) with ESMTPSA id 4866c9f9 (TLSv1.2:ECDHE-RSA-AES128-GCM-SHA256:128:NO) for ; Sun, 10 Dec 2017 23:01:06 +0000 (UTC) From: Tobias Geerinckx-Rice Date: Mon, 11 Dec 2017 00:03:35 +0100 Message-Id: <20171210230336.4695-2-me@tobias.gr> In-Reply-To: <20171210230336.4695-1-me@tobias.gr> References: <20171210230336.4695-1-me@tobias.gr> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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: 29652@debbugs.gnu.org * gnu/packages/linux.scm (snapscreenshot): New public variable. --- gnu/packages/linux.scm | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index ec6f0b132..e61e279a7 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -4462,3 +4462,43 @@ interfaces in parallel environments.") ;; Only Intel-compatable processors are supported. (supported-systems '("i686-linux" "x86_64-linux")) (license (list license:bsd-2 license:gpl2)))) ;dual + +(define-public snapscreenshot + (package + (name "snapscreenshot") + (version "1.0.14.3") + (source + (origin + (method url-fetch) + (uri (string-append "http://bisqwit.iki.fi/src/arch/" + name "-" version ".tar.bz2")) + (sha256 + (base32 "0gzvqsbf6a2sbd1mqvj1lbm57i2bm5k0cr6ncr821d1f32gw03mk")))) + (build-system gnu-build-system) + (arguments + `(#:make-flags + (let ((out (assoc-ref %outputs "out"))) + (list (string-append "BINDIR=" out "/bin") + (string-append "MANDIR=" out "/share/man"))) + #:tests? #f ; no test suite + #:phases + (modify-phases %standard-phases + (delete 'configure) ; ./configure is a snarky no-op + (add-before 'install 'fix-ownership + ;; Install binaries owned by ‘root’ instead of the nonexistent ‘bin’. + (lambda _ + (substitute* "depfun.mak" + ((" -o bin -g bin ") " ")) + #t)) + (add-before 'install 'create-output-directories + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (mkdir-p (string-append out "/share/man/man1")) + #t)))))) + (home-page "http://bisqwit.iki.fi/source/snapscreenshot.html") + (synopsis "Take screenshots of one or more Linux text consoles") + (description + "snapscreenshot saves a screenshot of one or more Linux text consoles as a +Targa (@dfn{.tga}) image. It can be used by anyone with read access to the +relevant @file{/dev/vcs*} file(s).") + (license license:gpl2))) -- 2.15.0