# -rw-r--r-- 678 bytes View raw
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
                (add-after 'install 'install-manpage
                  (lambda* (#:key outputs #:allow-other-keys)
                    (let* ((out (assoc-ref outputs "out"))
                           (mandir (string-append out "/share/man/man1"))
                           (pipe (open-input-output-pipe "scdoc")))
                      (display (call-with-input-file "guix-deps.1.scd" get-string-all) pipe)
                      (mkdir-p mandir)
                      (call-with-output-file (string-append mandir "/guix-deps.1")
                        (lambda (file)
                          (display (get-string-all pipe) file)))
                      (close-pipe pipe))))