Some suckless/2f30 packages.

Some suckless/2f30 packages.

[ng0]

[PATCH 01/13] gnu: Add xbattmon.
[PATCH 02/13] gnu: Add wificurse.
[PATCH 03/13] gnu: Add spoon.
[PATCH 04/13] licenses: Add wtfpl.
[PATCH 05/13] gnu: Add skroll.
[PATCH 06/13] gnu: Add sbm.
[PATCH 07/13] gnu: Add prout.
[PATCH 08/13] gnu: Add noice.
[PATCH 09/13] gnu: Add human.
[PATCH 10/13] gnu: Add fortify-headers.
[PATCH 11/13] gnu: Add colors.
[PATCH 12/13] gnu: Add libutf.
[PATCH 13/13] gnu: Add lchat.

In my guix_package_path repository, I use this:

;; Packages of software hosted on 2f30.org
(define* (2f30-uri name version #:optional (extension ".tar.gz"))
  "Return a URI string for the package hosted on 2f30.org
corresponding to NAME and VERSION.  EXTENSION is the file name
extension, such as '.tar.gz'."
  (string-append "http://dl.2f30.org/releases/"
                 name "-" version extension))

As I go on and add more of suckless and 2f30 (both interconnected communities, or rather both in suckless), I'd prefer to have a way to check for updates by refresh. How is this achieved?
Would a mirror "suckless://" which includes both suckless and 2f30 be enough? Their release URLs almost never differ from a standard way of naming things.

[PATCH 01/13] gnu: Add xbattmon.

[ng0]

* gnu/packages/suckless.scm (xbattmon): New variable.
---
 gnu/packages/suckless.scm | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index a00420312..8021010f6 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
 ;;; Copyright © 2015 Amirouche Boubekki <amirouche@hypermove.net>
 ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
-;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
+;;; Copyright © 2016, 2017 ng0 <ng0@libertad.pw>
 ;;; Copyright © 2015 Dmitry Bogatov <KAction@gnu.org>
 ;;; Copyright © 2015 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
@@ -257,3 +257,28 @@ allows you to write down the presentation for a quick lightning talk within a
 few minutes.")
     (home-page "http://tools.suckless.org/sent")
     (license license:x11)))
+
+(define-public xbattmon
+  (package
+    (name "xbattmon")
+    (version "0.9")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "0n2rrjq03pgqrdkl7cz5snsfdanf4s58w9h6dbvnl7p8bbd3j2kn"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; No tests
+       #:make-flags (list "CC=gcc"
+                          (string-append "PREFIX=" %output))))
+    (inputs
+     `(("libx11" ,libx11)))
+    (home-page "http://2f30.org")
+    (synopsis "Simple battery monitor for X")
+    (description
+     "Xbattmon is a simple battery monitor for X.")
+    (license license:isc)))
-- 
2.11.0

[PATCH 02/13] gnu: Add wificurse.

[ng0]

* gnu/packages/suckless.scm (wificurse): New variable.
---
 gnu/packages/suckless.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index 8021010f6..a72bf9477 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -282,3 +282,36 @@ few minutes.")
     (description
      "Xbattmon is a simple battery monitor for X.")
     (license license:isc)))
+
+(define-public wificurse
+  (package
+    (name "wificurse")
+    (version "0.3.9")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "067ghr1xly5ca41kc83xila1p5hpq0bxfcmc8jvxi2ggm6wrhavn"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; No tests
+       #:make-flags (list
+                     (string-append "PREFIX=" %output))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure)))) ; No configure script
+    (home-page "http://2f30.org")
+    (synopsis "Wifi DoS attack tool")
+    (description
+     "Wificurses listens for beacons sent from wireless access points
+in the range of your wireless station.  Once received the program
+extracts the BSSID of the AP and transmits deauthentication packets
+using the broadcast MAC address.  This results to the disconnection
+of all clients connected to the AP at the time of the attack.  This
+is essencially a WiFi DoS attack tool created for educational
+purposes only.  It works only in Linux and requires wireless card
+drivers capable of injecting packets in wireless networks.")
+    (license license:gpl3)))
-- 
2.11.0

[PATCH 03/13] gnu: Add spoon.

[ng0]

* gnu/packages/suckless.scm (spoon): New variable.
---
 gnu/packages/suckless.scm | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index a72bf9477..fe19a5d2a 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -36,7 +36,9 @@
   #:use-module (gnu packages fonts)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages webkit)
-  #:use-module (gnu packages fontutils))
+  #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages mpd)
+  #:use-module (gnu packages linux))
 
 (define-public dwm
   (package
@@ -114,6 +116,34 @@ optimising the environment for the application in use and the task performed.")
 numbers of user-defined menu items efficiently.")
     (license license:x11)))
 
+(define-public spoon
+  (package
+    (name "spoon")
+    (version "0.3")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "10c5i7ykpy7inzzfiw1dh0srpkljycr3blxhvd8160wsvplbws48"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; No tests
+       #:make-flags (list "CC=gcc"
+                          (string-append "PREFIX=" %output))))
+    (inputs
+     `(("libx11" ,libx11)
+       ("libxkbfile" ,libxkbfile)
+       ("alsa-lib" ,alsa-lib)
+       ("libmpdclient" ,libmpdclient)))
+    (home-page "http://2f30.org")
+    (synopsis "Set dwm status")
+    (description
+     "Spoon can be used to set the dwm status.")
+    (license license:isc)))
+
 (define-public slock
   (package
     (name "slock")
-- 
2.11.0

[PATCH 04/13] licenses: Add wtfpl.

[ng0]

* guix/licenses.scm (wtfpl): New variable.
---
 guix/licenses.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/guix/licenses.scm b/guix/licenses.scm
index 1e1930058..3bb1923c0 100644
--- a/guix/licenses.scm
+++ b/guix/licenses.scm
@@ -8,7 +8,7 @@
 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2016 Fabian Harfert <fhmgufs@web.de>
 ;;; Copyright © 2016 Rene Saavedra <rennes@openmailbox.org>
-;;; Copyright © 2016 ng0 <ngillmann@runbox.com>
+;;; Copyright © 2016, 2017 ng0 <ng0@libertad.pw>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -74,7 +74,8 @@
             x11 x11-style
             zpl2.1
             zlib
-            fsf-free))
+            fsf-free
+            wtfpl))
 
 (define-record-type <license>
   (license name uri comment)
@@ -450,6 +451,11 @@ at URI, which may be a file:// URI pointing the package's tree."
            "https://unlicense.org/"
            "https://www.gnu.org/licenses/license-list.html#Unlicense"))
 
+(define wtfpl
+  (license "WTFPL"
+           "http://www.wtfpl.net"
+           "http://www.wtfpl.net/about/"))
+
 (define x11
   (license "X11"
            "http://directory.fsf.org/wiki/License:X11"
-- 
2.11.0

[PATCH 05/13] gnu: Add skroll.

[ng0]

* gnu/packages/suckless.scm (skroll): New variable.
---
 gnu/packages/suckless.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index fe19a5d2a..60f5093f2 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -345,3 +345,31 @@ is essencially a WiFi DoS attack tool created for educational
 purposes only.  It works only in Linux and requires wireless card
 drivers capable of injecting packets in wireless networks.")
     (license license:gpl3)))
+
+(define-public skroll
+  (package
+    (name "skroll")
+    (version "0.6")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "0km6bjfz4ssb1z0xwld6iiixnn7d255ax8yjs3zkdm42z8q9yl0f"))))
+    (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)))) ; No configure script
+    (home-page "http://2f30.org")
+    (synopsis "Skroll scrolls text")
+    (description
+     "Skroll is a small utility that you can use to make a text scroll.
+Pipe text to it, and it will scroll a given number of letters from right to
+left.")
+    (license license:wtfpl)))
-- 
2.11.0

[PATCH 06/13] gnu: Add sbm.

[ng0]

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

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index 60f5093f2..fd1399d30 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -373,3 +373,29 @@ drivers capable of injecting packets in wireless networks.")
 Pipe text to it, and it will scroll a given number of letters from right to
 left.")
     (license license:wtfpl)))
+
+(define-public sbm
+  (package
+    (name "sbm")
+    (version "0.9")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2g30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1nks5mkh5wn30kyjzlkjlgi31bv1wq52kbp0r6nzbyfnvfdlywik"))))
+    (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)))) ; No configure script
+    (home-page "http://2f30.org")
+    (synopsis "Simple bandwidth monitor")
+    (description
+     "Sbm is a simple bandwidth monitor.")
+    (license license:isc)))
-- 
2.11.0

[PATCH 07/13] gnu: Add prout.

[ng0]

* gnu/packages/suckless.scm (prout): New variable.
---
 gnu/packages/suckless.scm | 37 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index fd1399d30..f9c89a4ff 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -38,7 +38,9 @@
   #:use-module (gnu packages webkit)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages mpd)
-  #:use-module (gnu packages linux))
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages cups))
 
 (define-public dwm
   (package
@@ -399,3 +401,36 @@ left.")
     (description
      "Sbm is a simple bandwidth monitor.")
     (license license:isc)))
+
+(define-public prout
+  (package
+    (name "prout")
+    (version "0.2")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2g30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1s6c3ygg1h1fyxkh8gd7nzjk6qhnwsb4535d2k780kxnwns5fzas"))))
+    (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)))) ; No configure script
+    (inputs
+     `(("cups-minimal" ,cups-minimal)
+       ("zlib" ,zlib)))
+    (home-page "http://2f30.org")
+    (synopsis "Smaller lp command")
+    (description
+     "Prout (PRint OUT) is a small utility one can use to send
+documents to a printer.
+It has no feature, and does nothing else.  Just set your default
+printer in client.conf(5) and start printing.  No need for a local
+cups server to be installed.")
+    (license license:wtfpl)))
-- 
2.11.0

[PATCH 08/13] gnu: Add noice.

[ng0]

* gnu/packages/suckless.scm (noice): 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 f9c89a4ff..2addb8d2b 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -40,7 +40,8 @@
   #:use-module (gnu packages mpd)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages compression)
-  #:use-module (gnu packages cups))
+  #:use-module (gnu packages cups)
+  #:use-module (gnu packages ncurses))
 
 (define-public dwm
   (package
@@ -434,3 +435,35 @@ It has no feature, and does nothing else.  Just set your default
 printer in client.conf(5) and start printing.  No need for a local
 cups server to be installed.")
     (license license:wtfpl)))
+
+(define-public noice
+  (package
+    (name "noice")
+    (version "0.6")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2g30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "0ldkbb71z6k4yzj4kpg3s94ijj1c1kx9dfcjz393py09scfyg5hr"))))
+    (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) ; No configure script
+         (add-before 'build 'curses
+           (lambda _
+             (substitute* "Makefile"
+               (("lcurses") "lncurses")))))))
+    (inputs
+     `(("ncurses" ,ncurses)))
+    (home-page "http://2f30.org")
+    (synopsis "Small file browser")
+    (description
+     "Noice is a small curses-based file browser.")
+    (license license:bsd-2)))
-- 
2.11.0

[PATCH 09/13] gnu: Add human.

[ng0]

* gnu/packages/suckless.scm (human): 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 2addb8d2b..afbd8ccd6 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -467,3 +467,33 @@ cups server to be installed.")
     (description
      "Noice is a small curses-based file browser.")
     (license license:bsd-2)))
+
+(define-public human
+  (package
+    (name "human")
+    (version "0.1")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2g30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "0dviqgp59ih5qrlicxpz24dbf7vigzpgya68fx4504sqdjnrr04s"))))
+    (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)))) ; No configure script
+    (home-page "http://2f30.org")
+    (synopsis "Convert bytes to human readable formats")
+    (description
+     "Human is a small program which translate numbers into a
+human readable format.  By default, it tries to detect the best
+factorisation, but you can force its output.
+You can adjust the number of decimals with the @code{SCALE}
+environment variable.")
+    (license license:wtfpl)))
-- 
2.11.0

[PATCH 10/13] gnu: Add fortify-headers.

[ng0]

* gnu/packages/suckless.scm (fortify-headers): New variable.
---
 gnu/packages/suckless.scm | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index afbd8ccd6..e160273e3 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -497,3 +497,44 @@ factorisation, but you can force its output.
 You can adjust the number of decimals with the @code{SCALE}
 environment variable.")
     (license license:wtfpl)))
+
+(define-public fortify-headers
+  (package
+    (name "fortify-headers")
+    (version "0.8")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2g30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1cacdczpjb49c4i1168g541wnl3i3gbpv2m2wbnmw5wddlyhgkdg"))))
+    (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)))) ; No configure script
+    (home-page "http://2f30.org")
+    (synopsis "Standalone fortify-source implementation")
+    (description
+     "This is a standalone implementation of fortify source.  It provides
+compile time buffer checks.  It is libc-agnostic and simply overlays the
+system headers by using the @code{#include_next} extension found in GCC.  It was
+initially intended to be used on musl based Linux distributions.
+
+@itemize
+@item It is portable, works on *BSD, Linux, Solaris and possibly others.
+@item It will only trap non-conformant programs.  This means that fortify
+  level 2 is treated in the same way as level 1.
+@item Avoids making function calls when undefined behaviour has already been
+  invoked.  This is handled by using __builtin_trap().
+@item Support for out-of-bounds read interfaces, such as send(), write(),
+  fwrite() etc.
+@item No ABI is enforced.  All of the fortify check functions are inlined
+  into the resulting binary.
+@end itemize\n")
+    (license license:isc)))
-- 
2.11.0

[PATCH 11/13] gnu: Add colors.

[ng0]

* gnu/packages/suckless.scm (colors): 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 e160273e3..de251bc7b 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -538,3 +538,33 @@ initially intended to be used on musl based Linux distributions.
   into the resulting binary.
 @end itemize\n")
     (license license:isc)))
+
+(define-public colors
+  (package
+    (name "colors")
+    (version "0.3")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2g30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1lckmqpgj89841splng0sszbls2ag71ggkgr1wsv9y3v6y87589z"))))
+    (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)))) ; No configure script
+    (inputs
+     `(("libpng" ,libpng)))
+    (home-page "http://2f30.org")
+    (synopsis "Extract colors from pictures")
+    (description
+     "Extract colors from PNG files.  It is similar to
+strings(1) but for pictures.  For a given input file it outputs a
+colormap to stdout.")
+    (license license:isc)))
-- 
2.11.0

[PATCH 12/13] gnu: Add libutf.

[ng0]

* gnu/packages/suckless.scm (libutf): New variable.
---
 gnu/packages/suckless.scm | 50 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 49 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index de251bc7b..0fd49fe7c 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -27,6 +27,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 (guix build-system glib-or-gtk)
   #:use-module (gnu packages)
@@ -41,7 +42,8 @@
   #:use-module (gnu packages linux)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages cups)
-  #:use-module (gnu packages ncurses))
+  #:use-module (gnu packages ncurses)
+  #:use-module (gnu packages gawk))
 
 (define-public dwm
   (package
@@ -568,3 +570,49 @@ initially intended to be used on musl based Linux distributions.
 strings(1) but for pictures.  For a given input file it outputs a
 colormap to stdout.")
     (license license:isc)))
+
+;; No new releases were made at github, this repository is more active than
+;; the one at http://git.suckless.org/libutf/ and it is
+;; done by the same developer.
+(define-public libutf
+  (let ((revision "1")
+        (commit "ff4c60635e1f455b0a0b4200f8183fbd5a88225b"))
+    (package
+      (name "libutf")
+      (version (string-append "0.0.0-" revision "." (string-take commit 7)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/cls/libutf")
+               (commit commit)))
+         (file-name (string-append name "-" version "-checkout"))
+         (sha256
+          (base32
+           "1ih5vjavilzggyr1j1z6w1z12c2fs5fg77cfnv7ami5ivsy3kg3d"))))
+      (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)))) ; No configure script
+      (inputs
+       `(("gawk" ,gawk)))
+      (home-page "https://github.com/cls/libutf")
+      (synopsis "Plan 9 compatible UTF-8 library")
+      (description
+       "This is a C89 UTF-8 library, with an API compatible with that of
+Plan 9's libutf, but with a number of improvements:
+
+@itemize
+@item Support for runes beyond the Basic Multilingual Plane.
+@item utflen and utfnlen cannot overflow on 32- or 64-bit machines.
+@item chartorune treats all invalid codepoints as though Runeerror.
+@item fullrune, utfecpy, and utfnlen do not overestimate the length of malformed runes.
+@item An extra function, charntorune(p,s,n), equivalent to fullrune(s,n) ? chartorune(p,s)
+: 0.
+@item Runeerror may be set to an alternative replacement value, such as -1, to be used instead of U+FFFD.
+@end itemize\n")
+      (license license:expat))))
-- 
2.11.0

[PATCH 13/13] gnu: Add lchat.

[ng0]

* gnu/packages/suckless.scm (lchat): New variable.
---
 gnu/packages/suckless.scm | 52 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 51 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index 0fd49fe7c..44de4defa 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -43,7 +43,9 @@
   #:use-module (gnu packages compression)
   #:use-module (gnu packages cups)
   #:use-module (gnu packages ncurses)
-  #:use-module (gnu packages gawk))
+  #:use-module (gnu packages gawk)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages libbsd))
 
 (define-public dwm
   (package
@@ -616,3 +618,51 @@ Plan 9's libutf, but with a number of improvements:
 @item Runeerror may be set to an alternative replacement value, such as -1, to be used instead of U+FFFD.
 @end itemize\n")
       (license license:expat))))
+
+;; No release tarballs so far.
+(define-public lchat
+  (let ((revision "1")
+        (commit "bbde23732f8c7769b982f0c1bda9b99fbf93f932"))
+    (package
+      (name "lchat")
+      (version (string-append "0.0.0-" revision "." (string-take commit 7)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/younix/lchat")
+               (commit commit)))
+         (file-name (string-append name "-" version "-checkout"))
+         (sha256
+          (base32
+           "00q3rc0aa5416jvjvrj71x1wnr0331kxhvjjs7pyxgnq4xf36k63"))))
+      (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) ; No configure script
+           (add-before 'build 'libbsd
+             (lambda _
+               (substitute* "Makefile"
+                 (("-lutf") "-lutf -lbsd"))))
+           (replace 'install
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (bin (string-append out "/bin")))
+                 (install-file "lchat" bin)
+                 #t))))))
+      (inputs
+       `(("grep" ,grep)
+         ("ncurses" ,ncurses)
+         ("libutf" ,libutf)
+         ("libbsd" ,libbsd)))
+      (home-page "https://github.com/younix/lchat")
+      (synopsis "Line chat")
+      (description
+       "Lchat (line chat) is the little and small brother of cii.
+It is a front end for ii-like chat programs.  It uses tail(1) -f to get the
+chat output in background.")
+      (license license:isc))))
-- 
2.11.0

Re: [PATCH 01/13] gnu: Add xbattmon.

[Leo Famulari]

On Mon, Jan 09, 2017 at 08:21:13PM +0000, ng0 wrote:
> * gnu/packages/suckless.scm (xbattmon): New variable.

> +    (home-page "http://2f30.org")

We should use <http://git.2f30.org/xbattmon/log.html> as the home-page
if there is nothing better.

Re: [PATCH 02/13] gnu: Add wificurse.

[Leo Famulari]

On Mon, Jan 09, 2017 at 08:21:14PM +0000, ng0 wrote:
> * gnu/packages/suckless.scm (wificurse): New variable.

> +    (synopsis "Wifi DoS attack tool")
> +    (description
> +     "Wificurses listens for beacons sent from wireless access points
> +in the range of your wireless station.  Once received the program
> +extracts the BSSID of the AP and transmits deauthentication packets
> +using the broadcast MAC address.  This results to the disconnection
> +of all clients connected to the AP at the time of the attack.  This
> +is essencially a WiFi DoS attack tool created for educational
> +purposes only.  It works only in Linux and requires wireless card
> +drivers capable of injecting packets in wireless networks.")

I wonder if we should mention that this is against the law in many
jurisdictions?

> +    (license license:gpl3)))

The license is actually gpl3+:

http://git.2f30.org/wificurse/file/src/wificurse.c.html

Re: [PATCH 05/13] gnu: Add skroll.

[Leo Famulari]

On Mon, Jan 09, 2017 at 08:21:17PM +0000, ng0 wrote:
> * gnu/packages/suckless.scm (skroll): New variable.

> +    (license license:wtfpl)))

This actually uses version 2 of the WTFPL:

http://git.2f30.org/skroll/file/skroll.c.html

Re: [PATCH 07/13] gnu: Add prout.

[Leo Famulari]

On Mon, Jan 09, 2017 at 08:21:19PM +0000, ng0 wrote:
> * gnu/packages/suckless.scm (prout): New variable.

> +    (license license:wtfpl)))

Again, version 2 of the WTFPL.

> -- 
> 2.11.0
> 
> 

Re: [PATCH 09/13] gnu: Add human.

[Leo Famulari]

On Mon, Jan 09, 2017 at 08:21:21PM +0000, ng0 wrote:
> * gnu/packages/suckless.scm (human): New variable.

> +    (version "0.1")

Why not use the more recent 0.2 release?

http://git.2f30.org/human/refs.html

> +    (license license:wtfpl)))

Version 2.

Re: [PATCH 13/13] gnu: Add lchat.

[Leo Famulari]

On Mon, Jan 09, 2017 at 08:21:25PM +0000, ng0 wrote:
> * gnu/packages/suckless.scm (lchat): New variable.

> +      (synopsis "Line chat")

I don't know what "line chat" means. Can you give more detail in the
synopsis?

Re: Some suckless/2f30 packages.

[Leo Famulari]

On Mon, Jan 09, 2017 at 08:21:12PM +0000, ng0 wrote:
> [PATCH 01/13] gnu: Add xbattmon.
> [PATCH 02/13] gnu: Add wificurse.
> [PATCH 03/13] gnu: Add spoon.
> [PATCH 04/13] licenses: Add wtfpl.
> [PATCH 05/13] gnu: Add skroll.
> [PATCH 06/13] gnu: Add sbm.
> [PATCH 07/13] gnu: Add prout.
> [PATCH 08/13] gnu: Add noice.
> [PATCH 09/13] gnu: Add human.
> [PATCH 10/13] gnu: Add fortify-headers.
> [PATCH 11/13] gnu: Add colors.
> [PATCH 12/13] gnu: Add libutf.
> [PATCH 13/13] gnu: Add lchat.

Thanks!

I sent comments for the whole patch series.

Please use unique home-pages for each package.

Re: [PATCH 02/13] gnu: Add wificurse.

[ng0]

Leo Famulari <leo@famulari.name> writes:

> On Mon, Jan 09, 2017 at 08:21:14PM +0000, ng0 wrote:
>> * gnu/packages/suckless.scm (wificurse): New variable.
>
>> +    (synopsis "Wifi DoS attack tool")
>> +    (description
>> +     "Wificurses listens for beacons sent from wireless access points
>> +in the range of your wireless station.  Once received the program
>> +extracts the BSSID of the AP and transmits deauthentication packets
>> +using the broadcast MAC address.  This results to the disconnection
>> +of all clients connected to the AP at the time of the attack.  This
>> +is essencially a WiFi DoS attack tool created for educational
>> +purposes only.  It works only in Linux and requires wireless card
>> +drivers capable of injecting packets in wireless networks.")
>
> I wonder if we should mention that this is against the law in many
> jurisdictions?

Is it? I see it as educational software which is also included in
some pen-testing systems. We ship other software which could be
seen as having an equal legal status.
I have no problem in keeping this outside of master, I'm just
working on packaging more and more pen-testing software so if it
can be included, good, if not, it'll be no problem.

>> +    (license license:gpl3)))
>
> The license is actually gpl3+:

Thanks.

> http://git.2f30.org/wificurse/file/src/wificurse.c.html
>

Thanks for reviewing them all.
What do you think about adding some kind of suckless/minimal
build-system thing? They are mostly very repetive. I don't know
if we gain something with it, but the url format would be one
thing. I've asked about this in the first email I think.
-- 
♥Ⓐ  ng0 -- https://www.inventati.org/patternsinthechaos/

2f30, v2

[ng0]

[PATCH 01/13] gnu: Add xbattmon.
[PATCH 02/13] gnu: Add wificurse.
[PATCH 03/13] gnu: Add spoon.
[PATCH 04/13] licenses: Add wtfpl2.
[PATCH 05/13] gnu: Add skroll.
[PATCH 06/13] gnu: Add sbm.
[PATCH 07/13] gnu: Add prout.

Prout is untested due to my bad situation with printer (see HP printing thread).
It builds and is assumed to be working, and if this needs to be tested I'd rather want someone with an functional printer test this.

[PATCH 08/13] gnu: Add noice.
[PATCH 09/13] gnu: Add human.
[PATCH 10/13] gnu: Add fortify-headers.
[PATCH 11/13] gnu: Add colors.
[PATCH 12/13] gnu: Add libutf.
[PATCH 13/13] gnu: Add lchat.

[PATCH 01/13] gnu: Add xbattmon.

[ng0]

* gnu/packages/suckless.scm (xbattmon): New variable.
---
 gnu/packages/suckless.scm | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index a00420312..1d35e9389 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
 ;;; Copyright © 2015 Amirouche Boubekki <amirouche@hypermove.net>
 ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
-;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
+;;; Copyright © 2016, 2017 ng0 <ng0@libertad.pw>
 ;;; Copyright © 2015 Dmitry Bogatov <KAction@gnu.org>
 ;;; Copyright © 2015 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
@@ -257,3 +257,28 @@ allows you to write down the presentation for a quick lightning talk within a
 few minutes.")
     (home-page "http://tools.suckless.org/sent")
     (license license:x11)))
+
+(define-public xbattmon
+  (package
+    (name "xbattmon")
+    (version "0.9")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "0n2rrjq03pgqrdkl7cz5snsfdanf4s58w9h6dbvnl7p8bbd3j2kn"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; No tests
+       #:make-flags (list "CC=gcc"
+                          (string-append "PREFIX=" %output))))
+    (inputs
+     `(("libx11" ,libx11)))
+    (home-page "http://git.2f30.org/xbattmon/")
+    (synopsis "Simple battery monitor for X")
+    (description
+     "Xbattmon is a simple battery monitor for X.")
+    (license license:isc)))
-- 
2.11.0

[PATCH 02/13] gnu: Add wificurse.

[ng0]

* gnu/packages/suckless.scm (wificurse): New variable.
---
 gnu/packages/suckless.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index 1d35e9389..bcfa16922 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -282,3 +282,36 @@ few minutes.")
     (description
      "Xbattmon is a simple battery monitor for X.")
     (license license:isc)))
+
+(define-public wificurse
+  (package
+    (name "wificurse")
+    (version "0.3.9")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "067ghr1xly5ca41kc83xila1p5hpq0bxfcmc8jvxi2ggm6wrhavn"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; No tests
+       #:make-flags (list
+                     (string-append "PREFIX=" %output))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure)))) ; No configure script
+    (home-page "http://git.2f30.org/wificurse/")
+    (synopsis "Wifi DoS attack tool")
+    (description
+     "Wificurses listens for beacons sent from wireless access points
+in the range of your wireless station.  Once received the program
+extracts the BSSID of the AP and transmits deauthentication packets
+using the broadcast MAC address.  This results to the disconnection
+of all clients connected to the AP at the time of the attack.  This
+is essencially a WiFi DoS attack tool created for educational
+purposes only.  It works only in Linux and requires wireless card
+drivers capable of injecting packets in wireless networks.")
+    (license license:gpl3+)))
-- 
2.11.0

[PATCH 03/13] gnu: Add spoon.

[ng0]

* gnu/packages/suckless.scm (spoon): New variable.
---
 gnu/packages/suckless.scm | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index bcfa16922..c9465b9fe 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -36,7 +36,9 @@
   #:use-module (gnu packages fonts)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages webkit)
-  #:use-module (gnu packages fontutils))
+  #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages mpd)
+  #:use-module (gnu packages linux))
 
 (define-public dwm
   (package
@@ -114,6 +116,34 @@ optimising the environment for the application in use and the task performed.")
 numbers of user-defined menu items efficiently.")
     (license license:x11)))
 
+(define-public spoon
+  (package
+    (name "spoon")
+    (version "0.3")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "10c5i7ykpy7inzzfiw1dh0srpkljycr3blxhvd8160wsvplbws48"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; No tests
+       #:make-flags (list "CC=gcc"
+                          (string-append "PREFIX=" %output))))
+    (inputs
+     `(("libx11" ,libx11)
+       ("libxkbfile" ,libxkbfile)
+       ("alsa-lib" ,alsa-lib)
+       ("libmpdclient" ,libmpdclient)))
+    (home-page "http://git.2f30.org/spoon/")
+    (synopsis "Set dwm status")
+    (description
+     "Spoon can be used to set the dwm status.")
+    (license license:isc)))
+
 (define-public slock
   (package
     (name "slock")
-- 
2.11.0

[PATCH 04/13] licenses: Add wtfpl2.

[ng0]

* guix/licenses.scm (wtfpl2): New variable.
---
 guix/licenses.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/guix/licenses.scm b/guix/licenses.scm
index 1e1930058..7b2ac2d31 100644
--- a/guix/licenses.scm
+++ b/guix/licenses.scm
@@ -8,7 +8,7 @@
 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2016 Fabian Harfert <fhmgufs@web.de>
 ;;; Copyright © 2016 Rene Saavedra <rennes@openmailbox.org>
-;;; Copyright © 2016 ng0 <ngillmann@runbox.com>
+;;; Copyright © 2016, 2017 ng0 <ng0@libertad.pw>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -74,7 +74,8 @@
             x11 x11-style
             zpl2.1
             zlib
-            fsf-free))
+            fsf-free
+            wtfpl2))
 
 (define-record-type <license>
   (license name uri comment)
@@ -450,6 +451,11 @@ at URI, which may be a file:// URI pointing the package's tree."
            "https://unlicense.org/"
            "https://www.gnu.org/licenses/license-list.html#Unlicense"))
 
+(define wtfpl2
+  (license "WTFPL 2"
+           "http://www.wtfpl.net"
+           "http://www.wtfpl.net/about/"))
+
 (define x11
   (license "X11"
            "http://directory.fsf.org/wiki/License:X11"
-- 
2.11.0

[PATCH 05/13] gnu: Add skroll.

[ng0]

* gnu/packages/suckless.scm (skroll): New variable.
---
 gnu/packages/suckless.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index c9465b9fe..002c9273b 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -345,3 +345,31 @@ is essencially a WiFi DoS attack tool created for educational
 purposes only.  It works only in Linux and requires wireless card
 drivers capable of injecting packets in wireless networks.")
     (license license:gpl3+)))
+
+(define-public skroll
+  (package
+    (name "skroll")
+    (version "0.6")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "0km6bjfz4ssb1z0xwld6iiixnn7d255ax8yjs3zkdm42z8q9yl0f"))))
+    (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)))) ; No configure script
+    (home-page "http://2f30.org")
+    (synopsis "Commandline utility which scrolls text")
+    (description
+     "Skroll is a small utility that you can use to make a text scroll.
+Pipe text to it, and it will scroll a given number of letters from right to
+left.")
+    (license license:wtfpl2)))
-- 
2.11.0

[PATCH 06/13] gnu: Add sbm.

[ng0]

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

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index 002c9273b..87ffe7204 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -373,3 +373,29 @@ drivers capable of injecting packets in wireless networks.")
 Pipe text to it, and it will scroll a given number of letters from right to
 left.")
     (license license:wtfpl2)))
+
+(define-public sbm
+  (package
+    (name "sbm")
+    (version "0.9")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1nks5mkh5wn30kyjzlkjlgi31bv1wq52kbp0r6nzbyfnvfdlywik"))))
+    (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)))) ; No configure script
+    (home-page "http://git.2f30.org/sbm/")
+    (synopsis "Simple bandwidth monitor")
+    (description
+     "Sbm is a simple bandwidth monitor.")
+    (license license:isc)))
-- 
2.11.0

[PATCH 07/13] gnu: Add prout.

[ng0]

* gnu/packages/suckless.scm (prout): New variable.
---
 gnu/packages/suckless.scm | 37 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index 87ffe7204..688b4c339 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -38,7 +38,9 @@
   #:use-module (gnu packages webkit)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages mpd)
-  #:use-module (gnu packages linux))
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages cups))
 
 (define-public dwm
   (package
@@ -399,3 +401,36 @@ left.")
     (description
      "Sbm is a simple bandwidth monitor.")
     (license license:isc)))
+
+(define-public prout
+  (package
+    (name "prout")
+    (version "0.2")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1s6c3ygg1h1fyxkh8gd7nzjk6qhnwsb4535d2k780kxnwns5fzas"))))
+    (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)))) ; No configure script
+    (inputs
+     `(("cups-minimal" ,cups-minimal)
+       ("zlib" ,zlib)))
+    (home-page "http://git.2f30.org/prout/")
+    (synopsis "Smaller lp command")
+    (description
+     "Prout (PRint OUT) is a small utility one can use to send
+documents to a printer.
+It has no feature, and does nothing else.  Just set your default
+printer in client.conf(5) and start printing.  No need for a local
+cups server to be installed.")
+    (license license:wtfpl2)))
-- 
2.11.0

[PATCH 08/13] gnu: Add noice.

[ng0]

* gnu/packages/suckless.scm (noice): 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 688b4c339..b52a43f1f 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -40,7 +40,8 @@
   #:use-module (gnu packages mpd)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages compression)
-  #:use-module (gnu packages cups))
+  #:use-module (gnu packages cups)
+  #:use-module (gnu packages ncurses))
 
 (define-public dwm
   (package
@@ -434,3 +435,35 @@ It has no feature, and does nothing else.  Just set your default
 printer in client.conf(5) and start printing.  No need for a local
 cups server to be installed.")
     (license license:wtfpl2)))
+
+(define-public noice
+  (package
+    (name "noice")
+    (version "0.6")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "0ldkbb71z6k4yzj4kpg3s94ijj1c1kx9dfcjz393py09scfyg5hr"))))
+    (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) ; No configure script
+         (add-before 'build 'curses
+           (lambda _
+             (substitute* "Makefile"
+               (("lcurses") "lncurses")))))))
+    (inputs
+     `(("ncurses" ,ncurses)))
+    (home-page "http://git.2f30.org/noice/")
+    (synopsis "Small file browser")
+    (description
+     "Noice is a small curses-based file browser.")
+    (license license:bsd-2)))
-- 
2.11.0

[PATCH 09/13] gnu: Add human.

[ng0]

* gnu/packages/suckless.scm (human): New variable.
---
 gnu/packages/suckless.scm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index b52a43f1f..a871db522 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -27,6 +27,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 (guix build-system glib-or-gtk)
   #:use-module (gnu packages)
@@ -467,3 +468,38 @@ cups server to be installed.")
     (description
      "Noice is a small curses-based file browser.")
     (license license:bsd-2)))
+
+;; There is no 0.2 release tarball, but it has been tagged.
+(define-public human
+  (let ((commit "50c80e6ba12823184b6866e06b955dbd2ccdc5d7")
+        (revision "1"))
+    (package
+      (name "human")
+      (version (string-append "0.2-" revision "." (string-take commit 7)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "git://git.2f30.org/human.git")
+               (commit commit)))
+         (file-name (string-append name "-" version "-checkout"))
+         (sha256
+          (base32
+           "18xngm4h9vsyip52zwd79rrp1irzg6rs462lpbp61amf7hj955gn"))))
+    (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)))) ; No configure script
+    (home-page "http://git.2f30.org/human/")
+    (synopsis "Convert bytes to human readable formats")
+    (description
+     "Human is a small program which translate numbers into a
+human readable format.  By default, it tries to detect the best
+factorisation, but you can force its output.
+You can adjust the number of decimals with the @code{SCALE}
+environment variable.")
+    (license license:wtfpl2))))
-- 
2.11.0

[PATCH 10/13] gnu: Add fortify-headers.

[ng0]

* gnu/packages/suckless.scm (fortify-headers): New variable.
---
 gnu/packages/suckless.scm | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index a871db522..74b0211be 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -503,3 +503,44 @@ factorisation, but you can force its output.
 You can adjust the number of decimals with the @code{SCALE}
 environment variable.")
     (license license:wtfpl2))))
+
+(define-public fortify-headers
+  (package
+    (name "fortify-headers")
+    (version "0.8")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1cacdczpjb49c4i1168g541wnl3i3gbpv2m2wbnmw5wddlyhgkdg"))))
+    (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)))) ; No configure script
+    (home-page "http://git.2f30.org/fortify-headers/")
+    (synopsis "Standalone fortify-source implementation")
+    (description
+     "This is a standalone implementation of fortify source.  It provides
+compile time buffer checks.  It is libc-agnostic and simply overlays the
+system headers by using the @code{#include_next} extension found in GCC.  It was
+initially intended to be used on musl based Linux distributions.
+
+@itemize
+@item It is portable, works on *BSD, Linux, Solaris and possibly others.
+@item It will only trap non-conformant programs.  This means that fortify
+  level 2 is treated in the same way as level 1.
+@item Avoids making function calls when undefined behaviour has already been
+  invoked.  This is handled by using __builtin_trap().
+@item Support for out-of-bounds read interfaces, such as send(), write(),
+  fwrite() etc.
+@item No ABI is enforced.  All of the fortify check functions are inlined
+  into the resulting binary.
+@end itemize\n")
+    (license license:isc)))
-- 
2.11.0

[PATCH 11/13] gnu: Add colors.

[ng0]

* gnu/packages/suckless.scm (colors): 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 74b0211be..056487baf 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -544,3 +544,33 @@ initially intended to be used on musl based Linux distributions.
   into the resulting binary.
 @end itemize\n")
     (license license:isc)))
+
+(define-public colors
+  (package
+    (name "colors")
+    (version "0.3")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://dl.2f30.org/releases/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1lckmqpgj89841splng0sszbls2ag71ggkgr1wsv9y3v6y87589z"))))
+    (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)))) ; No configure script
+    (inputs
+     `(("libpng" ,libpng)))
+    (home-page "http://git.2f30.org/colors/")
+    (synopsis "Extract colors from pictures")
+    (description
+     "Extract colors from PNG files.  It is similar to
+strings(1) but for pictures.  For a given input file it outputs a
+colormap to stdout.")
+    (license license:isc)))
-- 
2.11.0

[PATCH 12/13] gnu: Add libutf.

[ng0]

* gnu/packages/suckless.scm (libutf): New variable.
---
 gnu/packages/suckless.scm | 51 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 50 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index 056487baf..c95119b21 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -42,7 +42,8 @@
   #:use-module (gnu packages linux)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages cups)
-  #:use-module (gnu packages ncurses))
+  #:use-module (gnu packages ncurses)
+  #:use-module (gnu packages gawk))
 
 (define-public dwm
   (package
@@ -574,3 +575,51 @@ initially intended to be used on musl based Linux distributions.
 strings(1) but for pictures.  For a given input file it outputs a
 colormap to stdout.")
     (license license:isc)))
+
+;; No new releases were made at github, this repository is more active than
+;; the one at http://git.suckless.org/libutf/ and it is
+;; done by the same developer.
+(define-public libutf
+  (let ((revision "1")
+        (commit "ff4c60635e1f455b0a0b4200f8183fbd5a88225b"))
+    (package
+      (name "libutf")
+      (version (string-append "0.0.0-" revision "." (string-take commit 7)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/cls/libutf")
+               (commit commit)))
+         (file-name (string-append name "-" version "-checkout"))
+         (sha256
+          (base32
+           "1ih5vjavilzggyr1j1z6w1z12c2fs5fg77cfnv7ami5ivsy3kg3d"))))
+      (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)))) ; No configure script
+      (inputs
+       `(("gawk" ,gawk)))
+      (home-page "https://github.com/cls/libutf")
+      (synopsis "Plan 9 compatible UTF-8 library")
+      (description
+       "This is a C89 UTF-8 library, with an API compatible with that of
+Plan 9's libutf, but with a number of improvements:
+
+@itemize
+@item Support for runes beyond the Basic Multilingual Plane.
+@item utflen and utfnlen cannot overflow on 32- or 64-bit machines.
+@item chartorune treats all invalid codepoints as though Runeerror.
+@item fullrune, utfecpy, and utfnlen do not overestimate the length
+of malformed runes.
+@item An extra function, charntorune(p,s,n), equivalent to
+fullrune(s,n) ? chartorune(p,s): 0.
+@item Runeerror may be set to an alternative replacement value, such
+as -1, to be used instead of U+FFFD.
+@end itemize\n")
+      (license license:expat))))
-- 
2.11.0

[PATCH 13/13] gnu: Add lchat.

[ng0]

* gnu/packages/suckless.scm (lchat): New variable.
---
 gnu/packages/suckless.scm | 52 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 51 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index c95119b21..bdcad2be9 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -43,7 +43,9 @@
   #:use-module (gnu packages compression)
   #:use-module (gnu packages cups)
   #:use-module (gnu packages ncurses)
-  #:use-module (gnu packages gawk))
+  #:use-module (gnu packages gawk)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages libbsd))
 
 (define-public dwm
   (package
@@ -623,3 +625,51 @@ fullrune(s,n) ? chartorune(p,s): 0.
 as -1, to be used instead of U+FFFD.
 @end itemize\n")
       (license license:expat))))
+
+;; No release tarballs so far.
+(define-public lchat
+  (let ((revision "1")
+        (commit "bbde23732f8c7769b982f0c1bda9b99fbf93f932"))
+    (package
+      (name "lchat")
+      (version (string-append "0.0.0-" revision "." (string-take commit 7)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/younix/lchat")
+               (commit commit)))
+         (file-name (string-append name "-" version "-checkout"))
+         (sha256
+          (base32
+           "00q3rc0aa5416jvjvrj71x1wnr0331kxhvjjs7pyxgnq4xf36k63"))))
+      (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) ; No configure script
+           (add-before 'build 'libbsd
+             (lambda _
+               (substitute* "Makefile"
+                 (("-lutf") "-lutf -lbsd"))))
+           (replace 'install
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (bin (string-append out "/bin")))
+                 (install-file "lchat" bin)
+                 #t))))))
+      (inputs
+       `(("grep" ,grep)
+         ("ncurses" ,ncurses)
+         ("libutf" ,libutf)
+         ("libbsd" ,libbsd)))
+      (home-page "https://github.com/younix/lchat")
+      (synopsis "Line chat is a frontend for the irc client ii from suckless")
+      (description
+       "Lchat (line chat) is the little and small brother of cii.
+It is a front end for ii-like chat programs.  It uses tail(1) -f to get the
+chat output in background.")
+      (license license:isc))))
-- 
2.11.0

Re: 2f30, v2

[Leo Famulari]

On Thu, Jan 12, 2017 at 12:39:21AM +0000, ng0 wrote:
> [PATCH 01/13] gnu: Add xbattmon.
> [PATCH 02/13] gnu: Add wificurse.
> [PATCH 03/13] gnu: Add spoon.
> [PATCH 04/13] licenses: Add wtfpl2.
> [PATCH 05/13] gnu: Add skroll.
> [PATCH 06/13] gnu: Add sbm.
> [PATCH 07/13] gnu: Add prout.
> [PATCH 08/13] gnu: Add noice.
> [PATCH 09/13] gnu: Add human.
> [PATCH 10/13] gnu: Add fortify-headers.
> [PATCH 11/13] gnu: Add colors.
> [PATCH 12/13] gnu: Add libutf.
> [PATCH 13/13] gnu: Add lchat.

Thanks, pushed!

> Prout is untested due to my bad situation with printer (see HP
> printing thread).  It builds and is assumed to be working, and if this
> needs to be tested I'd rather want someone with an functional printer
> test this.

Okay, we'll find out!