[bug#68857] [PATCH] gnu: home: dotfiles: Avoid creating extra directory in $HOME.

[Janneke Nieuwenhuizen <janneke@gnu.org>]

Janneke Nieuwenhuizen writes:

> paul writes:
>
> Hi Paul,
>
>> could you try whether this patch solves
>> https://issues.guix.gnu.org/68848 for you?
>
> Yes, that fixes it.  Although I would rather write it something like
>
> (define (strip file-name)
>   (let ((dotfile-name (string-drop file-name (+1 (string-length directory)))))

Err that should have been 1+, of course, so

--8<---------------cut here---------------start------------->8---
(define (strip file-name)
  (let ((dotfile-name (string-drop file-name (1+ (string-length directory)))))
    (match (string-split dotfile-name #\/)
      ((package parts ...)
       (string-join parts "/")))))
--8<---------------cut here---------------end--------------->8---

-- 
Janneke Nieuwenhuizen <janneke@gnu.org>  | GNU LilyPond https://LilyPond.org
Freelance IT https://www.JoyOfSource.com | Avatar® https://AvatarAcademy.com