Re: [PATCH 4/7] gnu: Add xcb-util-cursor.

Re: [PATCH 4/7] gnu: Add xcb-util-cursor.

[Eric Bavier]

On Mon, 17 Aug 2015 05:05:34 +0200
Eric Dvorsak <eric@dvorsak.fr> wrote:

> * gnu/packages/xorg.scm (xcb-util-cursor): New variable.
> ---
[...]
> +    (license
> +     (license:non-copyleft
> +      "file://COPYING"
> +      "See COPYING in the distribution."))))

Perhaps we should add a comment noting that the license is basically
the expat license with an added clause regarding advertising?  What do
others think?

`~Eric

Re: [PATCH 5/7] gnu: Add i3-wm.

[Eric Bavier]

On Mon, 17 Aug 2015 05:05:35 +0200
Eric Dvorsak <eric@dvorsak.fr> wrote:

> * gnu/packages/i3.scm: New file.
> * gnu-system.am (GNU_SYSTEM_MODULES): Add it.
[...]
> +(define-public i3-wm
> +  (package
> +    (name "i3-wm")
> +    (version "4.10.3")
[...]
> +    (description "i3 is a tiling window manager, completely written
> +from scratch.  The target platforms are GNU/Linux and BSD operating
> +systems, our code is Free and Open Source Software (FOSS) under the
> +BSD license.  i3 is primarily targeted at advanced users and
> +developers.")

You may remove the second sentence completely.  All programs in Guix
are free software.

`~Eric

Re: [PATCH 6/7] gnu: Add libconfuse.

[Eric Bavier]

On Mon, 17 Aug 2015 05:05:36 +0200
Eric Dvorsak <eric@dvorsak.fr> wrote:

> * gnu/packages/i3.scm (libconfuse): New variable.
> ---
>  gnu/packages/i3.scm | 22 ++++++++++++++++++++++
>  1 file changed, 22 insertions(+)
> 
> diff --git a/gnu/packages/i3.scm b/gnu/packages/i3.scm
> index bcb4888..725fdb6 100644
> --- a/gnu/packages/i3.scm
> +++ b/gnu/packages/i3.scm
> @@ -39,6 +39,28 @@
>    #:use-module (guix download)
>    #:use-module (guix git-download))
>  
> +(define-public libconfuse
> +  (package
> +    (name "libconfuse")
> +    (version "2.7")
> +    (source (origin
> +              (method url-fetch)
> +              (uri (string-append "http://savannah.nongnu.org/download/confuse/"
> +                                  "confuse-" version ".tar.gz"))
> +              (sha256
> +               (base32
> +
> "0y47r2ashz44wvnxdb18ivpmj8nxhw3y9bf7v9w0g5byhgyp89g3"))))
> +    (build-system gnu-build-system)
> +    (home-page "http://www.nongnu.org/confuse/")
> +    (synopsis "Configuration file parser library")
> +    (description "A configuration file parser library. It supports

"libconfuse is a configuration..."

Also, two spaces at the end of sentences.  'guix lint libconfuse'
should warn about this.

> +sections and (lists of) values (strings, integers, floats, booleans
> or +other sections), as well as some other features (such as
> +single/double-quoted strings, environment variable expansion,
> +functions and nested include statements).  It makes it very easy to
> +add configuration file capability to a program using a simple API. ")

"very easy" and "simple" seem too much like advertising.  Perhaps the
last sentence could be left out to keep the description more neutral.
WDYT?

Otherwise LGTM.

`~Eric

[PATCH 5/7] gnu: Add i3-wm.

[Eric Dvorsak]

* gnu/packages/i3.scm: New file.
* gnu-system.am (GNU_SYSTEM_MODULES): Add it.
---
 gnu-system.am       |  1 +
 gnu/packages/i3.scm | 88 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 89 insertions(+)
 create mode 100644 gnu/packages/i3.scm

diff --git a/gnu-system.am b/gnu-system.am
index 9f46f7b..9686a7e 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -149,6 +149,7 @@ GNU_SYSTEM_MODULES =				\
   gnu/packages/haskell.scm			\
   gnu/packages/hugs.scm				\
   gnu/packages/hurd.scm				\
+  gnu/packages/i3.scm				\
   gnu/packages/ibus.scm				\
   gnu/packages/icu4c.scm			\
   gnu/packages/idutils.scm			\
diff --git a/gnu/packages/i3.scm b/gnu/packages/i3.scm
new file mode 100644
index 0000000..d324a10
--- /dev/null
+++ b/gnu/packages/i3.scm
@@ -0,0 +1,88 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages i3)
+  #:use-module (guix licenses)
+  #:use-module (guix packages)
+  #:use-module (gnu packages linux)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages xdisorg)
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages asciidoc)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages m4)
+  #:use-module (gnu packages docbook)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages maths)
+  #:use-module (gnu packages web)
+  #:use-module (guix download)
+  #:use-module (guix git-download))
+
+(define-public i3-wm
+  (package
+    (name "i3-wm")
+    (version "4.10.3")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://i3wm.org/downloads/i3-"
+                                  version ".tar.bz2"))
+              (sha256
+               (base32
+                "1lq7h4w7m0hi31iva8g7yf1sc11ispnknxjdaj9agld4smxqb44j"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure)
+         (delete 'check))))
+    (inputs
+     `(("libxcb" ,libxcb)
+       ("xcb-util" ,xcb-util)
+       ("xcb-util-cursor" ,xcb-util-cursor)
+       ("xcb-util-keysyms" ,xcb-util-keysyms)
+       ("xcb-util-wm" ,xcb-util-wm)
+       ("libxkbcommon" ,libxkbcommon)
+       ("libev" ,libev)
+       ("libyajl" ,libyajl)
+       ("asciidoc" ,asciidoc)
+       ("xmlto" ,xmlto)
+       ("perl-pod-simple" ,perl-pod-simple)
+       ("docbook-xml" ,docbook-xml)
+       ("libx11" ,libx11)
+       ("pcre" ,pcre)
+       ("startup-notification" ,startup-notification)
+       ("pango" ,pango)
+       ("cairo" ,cairo)))
+    (native-inputs
+     `(("which" ,which)
+       ("perl" ,perl)
+       ("pkg-config" ,pkg-config)))
+    (home-page "http://i3wm.org/")
+    (synopsis "Improved tiling window manager")
+    (description "i3 is a tiling window manager, completely written
+from scratch.  The target platforms are GNU/Linux and BSD operating
+systems, our code is Free and Open Source Software (FOSS) under the
+BSD license.  i3 is primarily targeted at advanced users and
+developers.")
+    (license bsd-3)))
-- 
2.4.3

[PATCH 1/7] gnu: Add Pod-Simple.

[Eric Dvorsak]

* gnu/packages/perl.scm (perl-pod-simple): New variable.
---
 gnu/packages/perl.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index d2e38cc..2e7df22 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
+;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -3941,6 +3942,28 @@ directory specifications in a cross-platform manner.")
 for a given module is comprehensive.")
     (license (package-license perl))))
 
+(define-public perl-pod-simple
+  (package
+    (name "perl-pod-simple")
+    (version "3.30-1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://search.cpan.org/CPAN/authors/id/M/"
+                                  "MA/MARCGREEN/Pod-Simple-"
+                                  (string-join (string-split version #\-) "_")
+                                  ".tar.gz"))
+              (sha256
+               (base32
+                "0yzy7mw2jriwcywmh38csjqrwxj207b2b7rlpvkdh1rq5828hary"))))
+    (build-system perl-build-system)
+    (home-page
+     "http://search.cpan.org/~marcgreen/Pod-Simple/lib/Pod/Simple.pod")
+    (synopsis "Parsing library for text in Pod format")
+    (description "Pod::Simple is a Perl library for parsing text in
+the Pod (plain old documentation) markup language that is typically
+used for writing documentation for Perl and for Perl modules.")
+    (license (package-license perl))))
+
 (define-public perl-posix-strftime-compiler
   (package
     (name "perl-posix-strftime-compiler")
-- 
2.4.3

[PATCH 2/7] gnu: Add libyajl.

[Eric Dvorsak]

* gnu/packages/web.scm (libyajl): New variable.
---
 gnu/packages/web.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 48bfbc7..c1c461a 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -6,6 +6,7 @@
 ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
 ;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
+;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -287,6 +288,25 @@ parse JSON formatted strings back into the C representation of JSON objects.")
 style API.")
     (license l:expat)))
 
+(define-public libyajl
+  (package
+    (name "libyajl")
+    (version "2.1.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://github.com/lloyd/yajl/"
+                                  "archive/" version ".tar.gz"))
+              (sha256
+               (base32
+                "0nmcqpaiq4pv7dymyg3n3jsd57yhp5npxl26a1hzw3m3lmj37drz"))))
+    (build-system cmake-build-system)
+    (home-page "https://lloyd.github.io/yajl/")
+    (synopsis "C library for parsing JSON")
+    (description "Yet Another JSON Library.  YAJL is a small
+event-driven (SAX-style) JSON parser written in ANSI C, and a small
+validating JSON generator.")
+    (license l:isc)))
+
 (define-public libwebsockets
   (package
     (name "libwebsockets")
-- 
2.4.3

[PATCH 3/7] gnu: Add libev

[Eric Dvorsak]

* gnu/packages/libevent.scm (libev): New variable.
---
 gnu/packages/libevent.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/libevent.scm b/gnu/packages/libevent.scm
index 88b13ec..efd8df0 100644
--- a/gnu/packages/libevent.scm
+++ b/gnu/packages/libevent.scm
@@ -1,6 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -61,6 +62,31 @@ then add or remove events dynamically without having to change the event
 loop.")
     (license bsd-3)))
 
+(define-public libev
+  (package
+    (name "libev")
+    (version "4.20")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://dist.schmorp.de/libev/libev-"
+                                  version
+                                  ".tar.gz"))
+              (sha256
+               (base32
+                "17j47pbkr65a18mfvy2861p5k7w4pxmdgiw723ryfqd9gx636w7q"))))
+    (build-system gnu-build-system)
+    (home-page "http://software.schmorp.de/pkg/libev.html")
+    (synopsis "An event loop that is loosely modelled after libevent")
+    (description "A full-featured and high-performance event loop that
+is loosely modelled after libevent, but without its limitations and
+bugs.  It is used in GNU Virtual Private Ethernet, rxvt-unicode,
+auditd, the Deliantra MORPG Server and Client, and many other
+programs.")
+    (license
+     (non-copyleft
+      "file://LICENSE"
+      "See LICENSE in the distribution."))))
+
 (define-public libuv
   (package
     (name "libuv")
-- 
2.4.3

[PATCH 4/7] gnu: Add xcb-util-cursor.

[Eric Dvorsak]

* gnu/packages/xorg.scm (xcb-util-cursor): New variable.
---
 gnu/packages/xorg.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index a9ecc1e..dc90918 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -2033,6 +2034,34 @@ legacy X clients.")
     (license license:x11)))
 
 
+(define-public xcb-util-cursor
+  (package
+    (name "xcb-util-cursor")
+    (version "0.1.2")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://xcb.freedesktop.org/dist/"
+                                  "xcb-util-cursor-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0bm0mp99abdfb6v4v60hq3msvk67b2x9ml3kbx5y2g18xdhm3rdr"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("m4" ,m4)
+       ("pkg-config" ,pkg-config)))
+    (inputs
+     `(("libxcb" ,libxcb)
+       ("xcb-util-renderutil" ,xcb-util-renderutil)
+       ("xcb-util-image" ,xcb-util-image)))
+    (home-page "http://cgit.freedesktop.org/xcb/util-cursor/")
+    (synopsis "Port of libxcursor")
+    (description "Port of libxcursor.")
+    (license
+     (license:non-copyleft
+      "file://COPYING"
+      "See COPYING in the distribution."))))
+
+
 (define-public xcb-proto
   (package
     (name "xcb-proto")
-- 
2.4.3

[PATCH 5/7] gnu: Add i3-wm.

[Eric Dvorsak]

* gnu/packages/i3.scm: New file.
* gnu-system.am (GNU_SYSTEM_MODULES): Add it.
---
 gnu-system.am       |  1 +
 gnu/packages/i3.scm | 89 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 90 insertions(+)
 create mode 100644 gnu/packages/i3.scm

diff --git a/gnu-system.am b/gnu-system.am
index 9f46f7b..9686a7e 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -149,6 +149,7 @@ GNU_SYSTEM_MODULES =				\
   gnu/packages/haskell.scm			\
   gnu/packages/hugs.scm				\
   gnu/packages/hurd.scm				\
+  gnu/packages/i3.scm				\
   gnu/packages/ibus.scm				\
   gnu/packages/icu4c.scm			\
   gnu/packages/idutils.scm			\
diff --git a/gnu/packages/i3.scm b/gnu/packages/i3.scm
new file mode 100644
index 0000000..bcb4888
--- /dev/null
+++ b/gnu/packages/i3.scm
@@ -0,0 +1,89 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages i3)
+  #:use-module (guix licenses)
+  #:use-module (guix packages)
+  #:use-module (gnu packages linux)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages xdisorg)
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages asciidoc)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages m4)
+  #:use-module (gnu packages docbook)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages libevent)
+  #:use-module (gnu packages maths)
+  #:use-module (gnu packages web)
+  #:use-module (guix download)
+  #:use-module (guix git-download))
+
+(define-public i3-wm
+  (package
+    (name "i3-wm")
+    (version "4.10.3")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://i3wm.org/downloads/i3-"
+                                  version ".tar.bz2"))
+              (sha256
+               (base32
+                "1lq7h4w7m0hi31iva8g7yf1sc11ispnknxjdaj9agld4smxqb44j"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure))
+       #:tests? #f)) ; no test suite
+    (inputs
+     `(("libxcb" ,libxcb)
+       ("xcb-util" ,xcb-util)
+       ("xcb-util-cursor" ,xcb-util-cursor)
+       ("xcb-util-keysyms" ,xcb-util-keysyms)
+       ("xcb-util-wm" ,xcb-util-wm)
+       ("libxkbcommon" ,libxkbcommon)
+       ("libev" ,libev)
+       ("libyajl" ,libyajl)
+       ("asciidoc" ,asciidoc)
+       ("xmlto" ,xmlto)
+       ("perl-pod-simple" ,perl-pod-simple)
+       ("docbook-xml" ,docbook-xml)
+       ("libx11" ,libx11)
+       ("pcre" ,pcre)
+       ("startup-notification" ,startup-notification)
+       ("pango" ,pango)
+       ("cairo" ,cairo)))
+    (native-inputs
+     `(("which" ,which)
+       ("perl" ,perl)
+       ("pkg-config" ,pkg-config)))
+    (home-page "http://i3wm.org/")
+    (synopsis "Improved tiling window manager")
+    (description "i3 is a tiling window manager, completely written
+from scratch.  The target platforms are GNU/Linux and BSD operating
+systems, our code is Free and Open Source Software (FOSS) under the
+BSD license.  i3 is primarily targeted at advanced users and
+developers.")
+    (license bsd-3)))
-- 
2.4.3

[PATCH 6/7] gnu: Add libconfuse.

[Eric Dvorsak]

* gnu/packages/i3.scm (libconfuse): New variable.
---
 gnu/packages/i3.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/i3.scm b/gnu/packages/i3.scm
index bcb4888..725fdb6 100644
--- a/gnu/packages/i3.scm
+++ b/gnu/packages/i3.scm
@@ -39,6 +39,28 @@
   #:use-module (guix download)
   #:use-module (guix git-download))
 
+(define-public libconfuse
+  (package
+    (name "libconfuse")
+    (version "2.7")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://savannah.nongnu.org/download/confuse/"
+                                  "confuse-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0y47r2ashz44wvnxdb18ivpmj8nxhw3y9bf7v9w0g5byhgyp89g3"))))
+    (build-system gnu-build-system)
+    (home-page "http://www.nongnu.org/confuse/")
+    (synopsis "Configuration file parser library")
+    (description "A configuration file parser library. It supports
+sections and (lists of) values (strings, integers, floats, booleans or
+other sections), as well as some other features (such as
+single/double-quoted strings, environment variable expansion,
+functions and nested include statements).  It makes it very easy to
+add configuration file capability to a program using a simple API. ")
+    (license isc)))
+
 (define-public i3-wm
   (package
     (name "i3-wm")
-- 
2.4.3

[PATCH 7/7] gnu: Add i3status.

[Eric Dvorsak]

* gnu/packages/i3.scm (i3status): New variable.
---
 gnu/packages/i3.scm | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/gnu/packages/i3.scm b/gnu/packages/i3.scm
index 725fdb6..a9a5640 100644
--- a/gnu/packages/i3.scm
+++ b/gnu/packages/i3.scm
@@ -61,6 +61,44 @@ functions and nested include statements).  It makes it very easy to
 add configuration file capability to a program using a simple API. ")
     (license isc)))
 
+(define-public i3status
+  (package
+    (name "i3status")
+    (version "2.9")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://i3wm.org/i3status/i3status-"
+                                  version ".tar.bz2"))
+              (sha256
+               (base32
+                "1qwxbrga2fi5wf742hh9ajwa8b2kpzkjjnhjlz4wlpv21i80kss2"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure))
+       #:tests? #f)) ; no test suite
+    (inputs
+     `(("openlibm" ,openlibm)
+       ("libconfuse" ,libconfuse)
+       ("libyajl" ,libyajl)
+       ("alsa-lib" ,alsa-lib)
+       ("wireless-tools" ,wireless-tools)
+       ("libcap" ,libcap)
+       ("asciidoc" ,asciidoc)))
+    (home-page "http://i3wm.org/i3status/")
+    (synopsis "Generating a status bar for i3bar, dzen2, xmobar or
+similar programs")
+    (description "i3status is a small program for generating a status
+bar for i3bar, dzen2, xmobar or similar programs.  It is designed to
+be very efficient by issuing a very small number of system calls, as
+one generally wants to update such a status line every second. This
+ensures that even under high load, your status bar is updated
+correctly.  Also, it saves a bit of energy by not hogging your CPU as
+much as spawning the corresponding amount of shell commands would.")
+    (license bsd-3)))
+
 (define-public i3-wm
   (package
     (name "i3-wm")
-- 
2.4.3

[PATCH 5/7] gnu: Add i3-wm.

[Eric Dvorsak]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=y, Size: 4112 bytes --]

* gnu/packages/i3.scm: New file.
* gnu-system.am (GNU_SYSTEM_MODULES): Add it.
---
 gnu-system.am       |  1 +
 gnu/packages/i3.scm | 87 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 88 insertions(+)
 create mode 100644 gnu/packages/i3.scm

diff --git a/gnu-system.am b/gnu-system.am
index 9f46f7b..9686a7e 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -149,6 +149,7 @@ GNU_SYSTEM_MODULES =				\
   gnu/packages/haskell.scm			\
   gnu/packages/hugs.scm				\
   gnu/packages/hurd.scm				\
+  gnu/packages/i3.scm				\
   gnu/packages/ibus.scm				\
   gnu/packages/icu4c.scm			\
   gnu/packages/idutils.scm			\
diff --git a/gnu/packages/i3.scm b/gnu/packages/i3.scm
new file mode 100644
index 0000000..89837db
--- /dev/null
+++ b/gnu/packages/i3.scm
@@ -0,0 +1,87 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages i3)
+  #:use-module (guix licenses)
+  #:use-module (guix packages)
+  #:use-module (gnu packages linux)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages xdisorg)
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages asciidoc)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages m4)
+  #:use-module (gnu packages docbook)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages libevent)
+  #:use-module (gnu packages maths)
+  #:use-module (gnu packages web)
+  #:use-module (guix download)
+  #:use-module (guix git-download))
+
+(define-public i3-wm
+  (package
+    (name "i3-wm")
+    (version "4.10.3")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://i3wm.org/downloads/i3-"
+                                  version ".tar.bz2"))
+              (sha256
+               (base32
+                "1lq7h4w7m0hi31iva8g7yf1sc11ispnknxjdaj9agld4smxqb44j"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure))
+       #:tests? #f)) ; no test suite
+    (inputs
+     `(("libxcb" ,libxcb)
+       ("xcb-util" ,xcb-util)
+       ("xcb-util-cursor" ,xcb-util-cursor)
+       ("xcb-util-keysyms" ,xcb-util-keysyms)
+       ("xcb-util-wm" ,xcb-util-wm)
+       ("libxkbcommon" ,libxkbcommon)
+       ("libev" ,libev)
+       ("libyajl" ,libyajl)
+       ("asciidoc" ,asciidoc)
+       ("xmlto" ,xmlto)
+       ("perl-pod-simple" ,perl-pod-simple)
+       ("docbook-xml" ,docbook-xml)
+       ("libx11" ,libx11)
+       ("pcre" ,pcre)
+       ("startup-notification" ,startup-notification)
+       ("pango" ,pango)
+       ("cairo" ,cairo)))
+    (native-inputs
+     `(("which" ,which)
+       ("perl" ,perl)
+       ("pkg-config" ,pkg-config)))
+    (home-page "http://i3wm.org/")
+    (synopsis "Improved tiling window manager")
+    (description "i3 is a tiling window manager, completely written
+from scratch.  i3 is primarily targeted at advanced users and
+developers.")
+    (license bsd-3)))
-- 
2.4.3

Re: [PATCH 4/7] gnu: Add xcb-util-cursor.

[Mark H Weaver]

Eric Dvorsak <eric@dvorsak.fr> writes:

> +(define-public xcb-util-cursor
> +  (package
> +    (name "xcb-util-cursor")
> +    (version "0.1.2")
> +    (source (origin
> +              (method url-fetch)
> +              (uri (string-append "http://xcb.freedesktop.org/dist/"
> +                                  "xcb-util-cursor-" version ".tar.gz"))
> +              (sha256
> +               (base32
> +                "0bm0mp99abdfb6v4v60hq3msvk67b2x9ml3kbx5y2g18xdhm3rdr"))))
> +    (build-system gnu-build-system)
> +    (native-inputs
> +     `(("m4" ,m4)
> +       ("pkg-config" ,pkg-config)))
> +    (inputs
> +     `(("libxcb" ,libxcb)
> +       ("xcb-util-renderutil" ,xcb-util-renderutil)
> +       ("xcb-util-image" ,xcb-util-image)))
> +    (home-page "http://cgit.freedesktop.org/xcb/util-cursor/")
> +    (synopsis "Port of libxcursor")
> +    (description "Port of libxcursor.")

The synopsis and description seem like stubs.  Can you make them better?

       Mark

Re: [PATCH 4/7] gnu: Add xcb-util-cursor.

[Eric Dvorsak]

Mark H Weaver writes:

> Eric Dvorsak <eric@dvorsak.fr> writes:
>
>> +(define-public xcb-util-cursor
>> +  (package
>> +    (name "xcb-util-cursor")
>> +    (version "0.1.2")
>> +    (source (origin
>> +              (method url-fetch)
>> +              (uri (string-append "http://xcb.freedesktop.org/dist/"
>> +                                  "xcb-util-cursor-" version ".tar.gz"))
>> +              (sha256
>> +               (base32
>> +                "0bm0mp99abdfb6v4v60hq3msvk67b2x9ml3kbx5y2g18xdhm3rdr"))))
>> +    (build-system gnu-build-system)
>> +    (native-inputs
>> +     `(("m4" ,m4)
>> +       ("pkg-config" ,pkg-config)))
>> +    (inputs
>> +     `(("libxcb" ,libxcb)
>> +       ("xcb-util-renderutil" ,xcb-util-renderutil)
>> +       ("xcb-util-image" ,xcb-util-image)))
>> +    (home-page "http://cgit.freedesktop.org/xcb/util-cursor/")
>> +    (synopsis "Port of libxcursor")
>> +    (description "Port of libxcursor.")
>
> The synopsis and description seem like stubs.  Can you make them better?

There is no description on freedesktop.org and in the readme
either. Should I just add the description of libxcursor itself ? Which
is "Xorg Cursor management library" for both the synospis and the description
>
>        Mark

Eric

Re: [PATCH 5/7] gnu: Add i3-wm.

[Eric Bavier]

On Mon, 17 Aug 2015 22:06:04 +0200
Eric Dvorsak <eric@dvorsak.fr> wrote:

> * gnu/packages/i3.scm: New file.
> * gnu-system.am (GNU_SYSTEM_MODULES): Add it.
> ---
>  gnu-system.am       |  1 +
>  gnu/packages/i3.scm | 87 +++++++++++++++++++++++++++++++++++++++++++++++++++++
>  2 files changed, 88 insertions(+)
>  create mode 100644 gnu/packages/i3.scm

We discussed briefly on IRC starting a new (gnu packages wm) module, so
I pushed this patch with everything here moved to gnu/packages/wm.scm.

Thanks,
`~Eric

Re: [PATCH 7/7] gnu: Add i3status.

[Eric Bavier]

On Mon, 17 Aug 2015 05:05:37 +0200
Eric Dvorsak <eric@dvorsak.fr> wrote:

> * gnu/packages/i3.scm (i3status): New variable.
> ---
>  gnu/packages/i3.scm | 38 ++++++++++++++++++++++++++++++++++++++
>  1 file changed, 38 insertions(+)

As I noted in the i3-wm patch, I moved gnu/packages/i3.scm to
gnu/packages/wm.scm.

> 
> diff --git a/gnu/packages/i3.scm b/gnu/packages/i3.scm
> index 725fdb6..a9a5640 100644
> --- a/gnu/packages/i3.scm
> +++ b/gnu/packages/i3.scm
> @@ -61,6 +61,44 @@ functions and nested include statements).  It makes it very easy to
>  add configuration file capability to a program using a simple API. ")
>      (license isc)))
>  
> +(define-public i3status
> +  (package
> +    (name "i3status")
> +    (version "2.9")
> +    (source (origin
> +              (method url-fetch)
> +              (uri (string-append "http://i3wm.org/i3status/i3status-"
> +                                  version ".tar.bz2"))
> +              (sha256
> +               (base32
> +                "1qwxbrga2fi5wf742hh9ajwa8b2kpzkjjnhjlz4wlpv21i80kss2"))))
> +    (build-system gnu-build-system)
> +    (arguments
> +     `(#:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
> +       #:phases
> +       (modify-phases %standard-phases
> +         (delete 'configure))
> +       #:tests? #f)) ; no test suite
> +    (inputs
> +     `(("openlibm" ,openlibm)
> +       ("libconfuse" ,libconfuse)
> +       ("libyajl" ,libyajl)
> +       ("alsa-lib" ,alsa-lib)
> +       ("wireless-tools" ,wireless-tools)
> +       ("libcap" ,libcap)
> +       ("asciidoc" ,asciidoc)))
> +    (home-page "http://i3wm.org/i3status/")
> +    (synopsis "Generating a status bar for i3bar, dzen2, xmobar or
> +similar programs")

I changed this to "Status bar for..." to get rid of the active voice.

> +    (description "i3status is a small program for generating a status
> +bar for i3bar, dzen2, xmobar or similar programs.  It is designed to
> +be very efficient by issuing a very small number of system calls, as
> +one generally wants to update such a status line every second. This
> +ensures that even under high load, your status bar is updated
> +correctly.  Also, it saves a bit of energy by not hogging your CPU as
> +much as spawning the corresponding amount of shell commands would.")
> +    (license bsd-3)))
> +
>  (define-public i3-wm
>    (package
>      (name "i3-wm")

Again, thanks for all these new packages, and welcome aboard. :)
`~Eric