On Sun 26 Feb 2017 03:25, Leo Famulari <l...@famulari.name> writes:
> Do you have any suggestions about how to make this more concise?
> + ;; Make the compressed manpages writable so that the
> + ;; reset-gzip-timestamps phase does not error out.
> + (add-before 'reset-gzip-timestamps 'make-manpages-writable
> + (lambda* (#:key outputs #:allow-other-keys)
> + (let* ((out (assoc-ref outputs "out"))
> + (man1 (string-append out "/share/man/man1"))
> + (man5 (string-append out "/share/man/man5"))
> + (man7 (string-append out "/share/man/man7"))
> + (man8 (string-append out "/share/man/man8")))
> + (for-each (lambda (file) (chmod file #o666))
> + (find-files man1 "\\.gz"))
> + (for-each (lambda (file) (chmod file #o666))
> + (find-files man5 "\\.gz"))
> + (for-each (lambda (file) (chmod file #o666))
> + (find-files man7 "\\.gz"))
> + (for-each (lambda (file) (chmod file #o666))
> + (find-files man8 "\\.gz")))))
(for-each
(lambda (section)
(for-each
(lambda (file) (chmod file #o666))
(find-files (string-append out "/share/man/man" section)
"\\.gz")))
'("1" "5" "7" "8"))
Would be nice if there were a recursive find-files; oh well.
Andy
