From 15926aec0d5b72961599ace50082baee5c01ae7e Mon Sep 17 00:00:00 2001 From: Alex Sassmannshausen Date: Wed, 4 Mar 2015 20:34:44 +0100 Subject: [PATCH] gnu: Add tree. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/admin.scm (tree): New variable. Signed-off-by: Ludovic Courtès --- gnu/packages/admin.scm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 72d8022f9a..c85204f3ae 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2014, 2015 Mark H Weaver ;;; Copyright © 2014 Eric Bavier ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer +;;; Copyright © 2015 Alex Sassmannshausen ;;; ;;; This file is part of GNU Guix. ;;; @@ -968,6 +969,31 @@ characters can be replaced as well, as can UTF-8 characters.") recover lost partitions and/or make non-booting disks bootable again.") (license license:gpl2+))) +(define-public tree + (package + (name "tree") + (version "1.7.0") + (source (origin + (method url-fetch) + (uri (string-append + "http://mama.indstate.edu/users/ice/tree/src/tree-" + version ".tgz")) + (sha256 + (base32 "04kviw799qxly08zb8n5mgxfd96gyis6x69q2qiw86jnh87c4mv9")))) + (build-system gnu-build-system) + (arguments + '(#:phases (alist-delete 'configure %standard-phases) + #:tests? #f ; no check target + #:make-flags (let ((out (assoc-ref %outputs "out"))) + (list (string-append "prefix=" out))))) + (synopsis "Recursively list the contents of a directory") + (description + "Tree is a recursive directory listing command that produces a depth +indented listing of files, which is colorized ala dircolors if the LS_COLORS +environment variable is set and output is to tty.") + (home-page "http://mama.indstate.edu/users/ice/tree/") + (license license:gpl2+))) + (define-public direvent (package (name "direvent")