07/08: gnu: graphviz: Add "doc" output.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit 88377435caf28768ce29bba1de5e664166a404dc
Author: Efraim Flashner <address@hidden>
Date:   Wed Sep 30 20:20:16 2015 +0300

    gnu: graphviz: Add "doc" output.
    
    * gnu/packages/graphviz.scm (graphviz)[outputs, arguments]: New fields.
---
 gnu/packages/graphviz.scm |   13 ++++++++++++-
 1 files changed, 12 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/graphviz.scm b/gnu/packages/graphviz.scm
index e1eb654..09f475b 100644
--- a/gnu/packages/graphviz.scm
+++ b/gnu/packages/graphviz.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2013, 2015 Ludovic Courtès <address@hidden>
+;;; Copyright © 2015 Efraim Flashner <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -59,7 +60,16 @@
                    (substitute* "lib/gvc/Makefile"
                      (("am__append_5 *=.*")
                       "am_append_5 =\n")))
-                 %standard-phases)))
+                 (alist-cons-after
+                  'install 'move-docs
+                  (lambda* (#:key outputs #:allow-other-keys)
+                           (let ((out (assoc-ref outputs "out"))
+                                 (doc (assoc-ref outputs "doc")))
+                             (mkdir-p (string-append doc "/share/graphviz"))
+                             (rename-file (string-append out 
"/share/graphviz/doc")
+                                          (string-append doc 
"/share/graphviz/doc"))
+                             #t))
+                 %standard-phases))))
     (inputs
      `(("libXrender" ,libxrender)
        ("libX11" ,libx11)
@@ -76,6 +86,7 @@
     (native-inputs
      `(("bison" ,bison)
        ("pkg-config" ,pkg-config)))
+    (outputs '("out" "doc"))                      ; 5 MiB of html + pdfs
     (home-page "http://www.graphviz.org/";)
     (synopsis "Graph visualization software")
     (description