Hello
I would like to contribute packages for two programs:
* xscreenshot which takes a screenshot and saves it as .if format
* imagefile which contains a few programs to convert .if to gif, png
Thank you!
From ee624abf3aada75b5fa234eec0b28fd5e2c561b0 Mon Sep 17 00:00:00 2001
From: Alf Levan <orchid.hyb...@gmail.com>
Date: Mon, 27 Jul 2015 18:34:44 +0100
Subject: [PATCH 1/2] gnu: Add xscreenshot.
* gnu/packages/suckless.scm (xscreenshot): New variable.
---
gnu/packages/suckless.scm | 30 ++++++++++++++++++++++++++++++
1 file changed, 30 insertions(+)
diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index c921f8e..6a4a03d 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -21,6 +21,7 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
+ #:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (gnu packages)
#:use-module (gnu packages xorg)
@@ -189,3 +190,32 @@ implements 256 colors, most VT10X escape sequences, utf8, X11 copy/paste,
antialiased fonts (using fontconfig), fallback fonts, resizing, and line
drawing.")
(license license:x11)))
+
+(define-public xscreenshot
+ (package
+ (name "xscreenshot")
+ (version "1.0")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "git://git.2f30.org/xscreenshot")
+ (commit "cb8ad23")))
+ (sha256
+ (base32
+ "1sqhxybzi8mmb0jg78swp0vpbdiqhckd283k33lfffsd0lkgch88"))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:tests? #f ; no tests
+ #:make-flags (list "CC=gcc"
+ (string-append "PREFIX=" %output))
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure))))
+ (inputs
+ `(("libx11" ,libx11)))
+ (native-inputs `(("pkg-config" ,pkg-config)))
+ (home-page "http://git.2f30.org/xscreenshot/";)
+ (synopsis "Make screenshot")
+ (description
+ "xscreenshot is a simple screenshot utility. It writes image data to stdout.")
+ (license license:x11)))
--
2.4.3
From f055c4759017b6198b2c460c1669e461c3ed8148 Mon Sep 17 00:00:00 2001
From: Alf Levan <orchid.hyb...@gmail.com>
Date: Mon, 27 Jul 2015 18:39:07 +0100
Subject: [PATCH 2/2] gnu: Add imagefile.
* gnu/packages/suckless.scm (imagefile): New variable.
---
gnu/packages/suckless.scm | 35 ++++++++++++++++++++++++++++++++++-
1 file changed, 34 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index 6a4a03d..0ea877f 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -27,7 +27,8 @@
#:use-module (gnu packages xorg)
#:use-module (gnu packages fonts)
#:use-module (gnu packages pkg-config)
- #:use-module (gnu packages fontutils))
+ #:use-module (gnu packages fontutils)
+ #:use-module (gnu packages image))
(define-public dwm
(package
@@ -219,3 +220,35 @@ drawing.")
(description
"xscreenshot is a simple screenshot utility. It writes image data to stdout.")
(license license:x11)))
+
+(define-public imagefile
+ (package
+ (name "imagefile")
+ (version "1.0")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "git://git.2f30.org/imagefile")
+ (commit "787ebb0")))
+ (sha256
+ (base32
+ "1lk8wk8qzdqn1dw37vk7p2v63mj94fpc0h5dvjqlzdsz2cblgzcb"))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:tests? #f ; no tests
+ #:make-flags (list "CC=gcc"
+ (string-append "PREFIX=" %output))
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure))))
+ (inputs
+ `(("libx11" ,libx11)
+ ("libpng" ,libpng)
+ ("giflib" ,giflib)
+ ("libjpeg" ,libjpeg)))
+ (native-inputs `(("pkg-config" ,pkg-config)))
+ (home-page "http://git.2f30.org/xscreenshot/";)
+ (synopsis "Utilities to convert imagefile format")
+ (description
+ "The imagefile-format is meant to be parsed easily and used to pipe images losslessly.")
+ (license license:isc)))
--
2.4.3
