From: Sergey Trofimov <sarg@sarg.org.ru>
To: "Ludovic Courtès" <ludo@gnu.org>
Cc: Giacomo Leidi <goodoldpaul@autistici.org>,
andrew@trop.in, 60521@debbugs.gnu.org
Subject: [bug#60521] [PATCH] home: Add home-stow-migration-service.
Date: Sat, 27 Jan 2024 21:21:02 +0100 [thread overview]
Message-ID: <87ede27c9f.fsf@sarg.org.ru> (raw)
In-Reply-To: <0a8d7bce31856292baa06a08260494c0@autistici.org>
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.
next prev parent reply other threads:[~2024-01-27 20:28 UTC|newest]
Thread overview: 58+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-01-03 16:51 [bug#60521] [PATCH] home: Add home-stow-migration-service goodoldpaul--- via Guix-patches via
2023-01-03 16:55 ` Giacomo Leidi via Guix-patches via
2023-01-17 13:09 ` Ludovic Courtès
2023-01-17 15:21 ` Andrew Tropin
2023-01-23 10:23 ` Ludovic Courtès
2023-01-25 6:32 ` Andrew Tropin
2023-01-17 17:09 ` Bruno Victal
2023-02-12 17:36 ` goodoldpaul--- via Guix-patches via
2023-04-12 20:31 ` goodoldpaul--- via Guix-patches via
2023-02-12 17:36 ` [bug#60521] [v2] home: Add home-dotfiles-service Giacomo Leidi via Guix-patches via
2023-04-12 20:32 ` [bug#60521] [v3] " Giacomo Leidi via Guix-patches via
2023-04-24 20:33 ` [bug#60521] [PATCH] home: Add home-stow-migration-service Ludovic Courtès
2023-06-24 15:47 ` paul via Guix-patches via
2023-08-26 9:34 ` goodoldpaul--- via Guix-patches via
2023-09-22 12:59 ` paul via Guix-patches via
2023-06-24 16:01 ` [bug#60521] [PATCH-v4] home: Add home-dotfiles-service Giacomo Leidi via Guix-patches via
2023-08-26 9:39 ` Giacomo Leidi via Guix-patches via
2023-09-22 13:01 ` [bug#60521] [PATCH] " Giacomo Leidi via Guix-patches via
2023-10-02 2:19 ` [bug#60521] Nicolas Odermatt-Lemay
2023-10-06 21:17 ` [bug#60521] [PATCH] home: Add home-dotfiles-service paul via Guix-patches via
2023-10-06 21:22 ` Giacomo Leidi via Guix-patches via
2023-10-29 12:58 ` [bug#60521] [60521] Add home-dotfiles-service-type - Rebased on master paul via Guix-patches via
2024-01-21 17:06 ` paul via Guix-patches via
2024-01-22 0:16 ` [bug#60521] " tumashu
2024-01-22 8:12 ` Giacomo via Guix-patches via
2024-01-22 12:36 ` [bug#60521] " Feng Shu
2024-01-22 16:45 ` paul via Guix-patches via
2024-01-23 12:14 ` Feng Shu
2024-01-24 11:58 ` Feng Shu
2024-01-26 17:47 ` paul via Guix-patches via
2024-01-27 2:54 ` Feng Shu
2024-01-21 17:07 ` paul via Guix-patches via
2023-10-29 12:59 ` [bug#60521] [PATCH v4] home: Add home-dotfiles-service Giacomo Leidi via Guix-patches via
2023-11-06 0:55 ` [bug#60521] [PATCH] home: Add home-stow-migration-service Feng Shu
2023-11-07 8:58 ` Feng Shu
2023-11-09 0:59 ` Feng Shu
2024-01-21 17:08 ` [bug#60521] [PATCH v5] home: Add home-dotfiles-service Giacomo Leidi via Guix-patches via
2024-01-26 17:48 ` [bug#60521] [PATCH v6] " Giacomo Leidi via Guix-patches via
2024-01-27 22:56 ` Ludovic Courtès
2024-01-28 15:36 ` paul via Guix-patches via
2024-01-27 20:21 ` [bug#60521] [PATCH] home: Add home-stow-migration-service Sergey Trofimov
2024-01-27 20:21 ` Sergey Trofimov [this message]
2024-01-29 13:20 ` Ludovic Courtès
2024-01-29 13:40 ` Sergey Trofimov
2024-01-29 14:23 ` Giacomo via Guix-patches via
2024-01-29 15:19 ` Sergey Trofimov
2024-01-29 16:09 ` Giacomo via Guix-patches via
2024-01-29 18:34 ` Sergey Trofimov
2024-02-07 22:17 ` [bug#60521] Dot file layout for ‘home-dotfiles-service’ Ludovic Courtès
2024-02-09 0:44 ` paul via Guix-patches via
2024-02-09 0:45 ` paul via Guix-patches via
2024-02-10 10:03 ` Ludovic Courtès
2024-02-10 10:47 ` Janneke Nieuwenhuizen
2024-01-29 16:10 ` [bug#60521] [PATCH] home: Add home-stow-migration-service Ludovic Courtès
2024-01-28 15:37 ` [bug#60521] [PATCH v7] home: Add home-dotfiles-service Giacomo Leidi via Guix-patches via
2024-01-28 21:02 ` bug#60521: " Ludovic Courtès
2024-01-28 21:14 ` [bug#60521] " paul via Guix-patches via
2024-01-28 21:22 ` paul via Guix-patches via
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87ede27c9f.fsf@sarg.org.ru \
--to=sarg@sarg.org.ru \
--cc=60521@debbugs.gnu.org \
--cc=andrew@trop.in \
--cc=goodoldpaul@autistici.org \
--cc=ludo@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.