05/06: gnu: openssl: Add "doc" output.

[Ludovic Courtès]

civodul pushed a commit to branch core-updates
in repository guix.

commit a909b5765883cfecd6913ac24b44b1e3e22eab76
Author: Ludovic Courtès <address@hidden>
Date:   Mon May 2 15:43:50 2016 +0200

    gnu: openssl: Add "doc" output.
    
    * gnu/packages/tls.scm (openssl)[outputs]: Add "doc".
    [arguments]: Add 'move-man3-pages' phase.
---
 gnu/packages/tls.scm |   15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index 08c869b..f1e7a21 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -212,6 +212,7 @@ required structures.")
                                       "openssl-c-rehash-in.patch"))))
    (build-system gnu-build-system)
    (outputs '("out"
+              "doc"                               ;1.5MiB of man3 pages
               "static"))                          ;6MiB of .a files
    (native-inputs `(("perl" ,perl)))
    (arguments
@@ -282,6 +283,20 @@ required structures.")
                           (delete-file file))
                         (find-files lib "\\.a$"))
               #t)))
+        (add-after 'install 'move-man3-pages
+          (lambda* (#:key outputs #:allow-other-keys)
+            ;; Move section 3 man pages to "doc".
+            (let* ((out    (assoc-ref outputs "out"))
+                   (man3   (string-append out "/share/man/man3"))
+                   (doc    (assoc-ref outputs "doc"))
+                   (target (string-append doc "/share/man/man3")))
+              (mkdir-p target)
+              (for-each (lambda (file)
+                          (rename-file file
+                                       (string-append target "/"
+                                                      (basename file))))
+                        (find-files man3))
+              #t)))
         (add-before
          'patch-source-shebangs 'patch-tests
          (lambda* (#:key inputs native-inputs #:allow-other-keys)