(define-module (jd features state)
  #:use-module (guix gexp)
  #:use-module (ice-9 match)
  #:use-module (gnu services)
  #:use-module (gnu home-services state)
  #:use-module (rde features))

(define-public (feature-state states)
  (define f-name 'state)

  (define (get-home-services config)
    (list
     (simple-service
      'user-state
      home-state-service-type
      (map
       (match-lambda
         (('git local remote) (state-git local remote))
         (#t (error "State not found")))
       states))))

  (feature
   (name f-name)
   (values `((,f-name . #t)))
   (home-services-getter get-home-services)))