html docs on guix

Here’s the start at my attempt to define some helper code to allow me to get the html docs installed on guix because info sucks.

(use-modules (guix packages))
(use-modules (gnu packages texinfo))

(define (package-html-docs p)
  (package
    (inherit p)
    (name (string-append (package-name p) "-html-doc"))
    (inputs (modify-inputs (package-native-inputs p)
              (prepend texinfo)))
    (arguments
     '(#:phases (modify-phases %standard-phases
                  (delete 'build)
                  (delete 'check)
                  (delete 'patch-shebangs)
                  (delete 'strip)
                  (delete 'validate-runpath)
                  (delete 'validate-documentation-location)
                  (delete 'delete-info-dir-file)
                  (delete 'patch-dot-desktop-files)
                  (delete 'make-dynamic-linker-cache)
                  (delete 'install-license-files)
                  (delete 'reset-gzip-timestamps)
                  (delete 'compress-documentation)
                  (replace 'install 
                    (lambda* (#:key (make-flags '()) #:allow-other-keys)
                      (apply invoke "make" "install-html" make-flags))))))))

(package-html-docs hello)

Unfortunately I gave up because it was already pretty low on the priority list when I tried and I have since moved on from guix as my main OS. Maybe someday I will return.