04/04: gnu: mpd: Split outputs.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit 65bce4d9f9302bc798717d73548bbe5ceb802151
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Fri May 26 08:06:21 2023 +0100

    gnu: mpd: Split outputs.
    
    The HTML manual accounts for more than 40% of the package size.
    
    * gnu/packages/mpd.scm (mpd)[outputs]: Add 'doc' output.
    [arguments]<#:phases>: Add ‘split-package’.
    
    Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
---
 gnu/packages/mpd.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/mpd.scm b/gnu/packages/mpd.scm
index 3259217989..9884bc0487 100644
--- a/gnu/packages/mpd.scm
+++ b/gnu/packages/mpd.scm
@@ -146,7 +146,15 @@ interfacing MPD in the C, C++ & Objective C languages.")
                 (("systemd_dep = declare_dependency" all)
                  (string-append "_" all)))
               (substitute* "meson.build"
-                (("systemd_dep,") "systemd_dep, _systemd_dep,")))))))
+                (("systemd_dep,") "systemd_dep, _systemd_dep,"))))
+          (add-after 'install 'split-package
+            (lambda _
+              ;; The HTML manual accounts for over 40% of the disk
+              ;; space used by the package.
+              (let* ((old (string-append #$output "/share/doc"))
+                     (new (string-append #$output:doc "/share/doc")))
+                (mkdir-p (dirname new))
+                (rename-file old new)))))))
     (inputs (append
              (if (target-linux?) (list liburing) '())
              (list ao
@@ -189,6 +197,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
                          ;;
                          ;; Used when zziplib feature is enabled.
                          zip))
+    (outputs (list "out" "doc"))
     ;; Missing optional inputs:
     ;;   libcdio_paranoia
     ;;   libmms