home: Add location field.

Jelle LichtFri Oct 09 00:24:32+0200 2020

53df881

home: Add location field. * home.scm (home): Add field for provenance information. (home-location): New procedure. Signed-off-by: Julien Lepiller <julien@lepiller.eu>

home.scm

3535 
            home
3636 
            home?
3737 
            home-data-directory
38+
            home-location
3839 
            home-guix-symlink
3940 
            home-guix-config-symlink
4041 
            home-local-symlink

…

394395 
        (cache-symlink
395396 
          (string-append (home-data-directory this-record) "/.cache")))))
396397 
  (configurations home-configurations
397-
                  (default (list (user-home root-home-type)))))
398+
                  (default (list (user-home root-home-type))))
399+
  (location home-location
400+
            (default (and=> (current-source-location)
401+
                            source-properties->location))
402+
            (innate)))
398403 
399404 
(define-record-type* <base-home-configuration> base-home-configuration
400405 
  make-base-home-configuration