[bug#60521] [PATCH] home: Add home-stow-migration-service.

[Sergey Trofimov]

Ludovic Courtès <ludo@gnu.org> writes:

> Hi!
>
> Giacomo Leidi <goodoldpaul@autistici.org> skribis:
>
> > * gnu/home/services.scm (dotfiles-for-app): New variable;
> > (home-stow-migration-configuration): new variable;
> > (home-stow-migration-service): new variable.
> > * doc/guix.texi: Document it.
>
> That looks very useful!
Does it really warrant a new service, when what's needed is a 
procedure which traverses a directory recursively and returns a 
list of file-likes?

I have this in my home.scm:

--8<---------------cut here---------------start------------->8---
(define (del-prefix p str)
 (if (string-prefix? p str)
     (substring/shared str (string-length p))
     str))

(define* (as-local-files dir #:optional (trim-prefix dir))
 (let ((absolute-dir (string-append (getcwd) "/" dir))
       (to-trim (string-append (getcwd) "/" trim-prefix "/")))
   (map (lambda (fn)
          (list
           (del-prefix to-trim fn)
           (local-file (canonicalize-path fn) (del-prefix "." 
           (basename fn)) #:recursive? #t)))
        (find-files absolute-dir))))

(simple-service 'configs
               home-files-service-type
               append!
               (with-directory-excursion 
               (current-source-directory)
               `(,@(as-local-files "../backup")
                 ,@(as-local-files "../android")
                 ,@(as-local-files "../email")
                 ,@(as-local-files "../xsession")
                 ,@(as-local-files "../git")
                 ,@(as-local-files "../qutebrowser")
                 ,@(as-local-files "../desktop"))))
--8<---------------cut here---------------end--------------->8---

And the only need for this snippet is because there are filenames 
starting with dot and they can't be put in store as is.