On Tue, Oct 18, 2016 at 09:19:19AM +0200, Ricardo Wurmus wrote: > > Leo Famulari <l...@famulari.name> writes: > > > * gnu/packages/backup.scm (borg)[arguments]: Install more documentation > > in 'install-doc' phase. > > --- > > gnu/packages/backup.scm | 9 ++++++++- > > 1 file changed, 8 insertions(+), 1 deletion(-) > > > > diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm > > index eb5e98d..b75e99b 100644 > > --- a/gnu/packages/backup.scm > > +++ b/gnu/packages/backup.scm > > @@ -439,8 +439,15 @@ detection, and lossless compression.") > > (add-after 'install 'install-doc > > (lambda* (#:key outputs #:allow-other-keys) > > (let* ((out (assoc-ref outputs "out")) > > - (man (string-append out "/share/man/man1"))) > > + (man (string-append out "/share/man/man1")) > > + (misc (string-append out "/share/borg/misc"))) > > (and > > + (for-each (lambda (file) > > + (install-file file misc)) > > I like “cut” from srfi-26 in simple cases like this: > > (for-each (cut install-file <> misc) > (find-files …))
Thanks, that is easier to read. > > + (find-files "docs/misc" > > + (string-append > > "create_chunker-params|" > > + "internals-picture|" > > + "prune-example"))) > > I don’t think “string-append” is needed here. You can just break the > string and escape the line break. I decided not to use a regex for this. It's only three files so I just used a list.