[PATCH] gnu: Add dvtm

[Leo Famulari]

My first package. Does anyone think the build arguments could be written
more
clearly? Perhaps with modify-phases? I struggled with this part.

Also, I'm not sure if it's okay to put these comments above the patch
like this...

>From d67aa1abcbca0604f88ea98fe69e6b5c68e06cf5 Mon Sep 17 00:00:00 2001
From: Leo Famulari <address@hidden>
Date: Mon, 17 Aug 2015 15:21:38 -0400
Subject: [PATCH 1/1] gnu: Add dvtm.

* gnu/packages/dvtm.scm: New file.
* gnu-system.am: Add it.
---
 gnu-system.am         |  1 +
 gnu/packages/dvtm.scm | 29 +++++++++++++++++++++++++++++
 2 files changed, 30 insertions(+)
 create mode 100644 gnu/packages/dvtm.scm

diff --git a/gnu-system.am b/gnu-system.am
index 9f46f7b..96f6e66 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -87,6 +87,7 @@ GNU_SYSTEM_MODULES =                          \
   gnu/packages/docbook.scm                        \
   gnu/packages/doxygen.scm                        \
   gnu/packages/dunst.scm                  \
+  gnu/packages/dvtm.scm                                \
   gnu/packages/ebook.scm                  \
   gnu/packages/ed.scm                             \
   gnu/packages/elf.scm                            \
diff --git a/gnu/packages/dvtm.scm b/gnu/packages/dvtm.scm
new file mode 100644
index 0000000..83ee293
--- /dev/null
+++ b/gnu/packages/dvtm.scm
@@ -0,0 +1,29 @@
+(define-module (gnu packages dvtm)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix licenses)
+  #:use-module (gnu packages ncurses))
+
+(define-public dvtm 
+  (package
+   (name "dvtm")
+   (version "0.14")
+   (source (origin
+           (method url-fetch)
+           (uri (string-append
"http://www.brain-dump.org/projects/dvtm/dvtm-"; version".tar.gz"))
+           (sha256
+            (base32
"0ykl8dz7ivjgdzhmhlgidnp2ffh5gxq9lbg276w7iid4z10v76wa"))))
+   (build-system gnu-build-system)
+         (arguments
+           `(#:make-flags (list (string-append "PREFIX=" (assoc-ref
%outputs "out")))
+             #:phases (alist-replace 'configure (lambda _ (setenv "CC"
(which "gcc"))) %standard-phases)
+             #:tests? #f))
+
+   (inputs `(("ncurses" ,ncurses)))
+   (synopsis "Tiling window management for the console")
+   (description "dvtm brings the concept of tiling window management, 
+popularized by X11-window managers like dwm to the console.  As a
console window 
+manager it tries to make it easy to work with multiple console based
programs.  ")
+   (home-page "http://www.brain-dump.org/projects/dvtm/";)
+   (license (list isc x11))))
-- 
2.4.3