(define *use-custom-shepherd* #true)
(define *parent-shepherd-package* shepherd-0.9)
(define *custom-shepherd-dir* "/home/alendvai/workspace/guix/shepherd")
(define *custom-shepherd-only-from-commits* #true)

(define custom-shepherd
  (package
    (inherit *parent-shepherd-package*)
    (version "dev")
    ;; (inputs
    ;;  (modify-inputs (package-inputs *parent-shepherd-package*)
    ;;    (replace "guile-fibers" custom-guile-fibers)))
    (source
     (if *custom-shepherd-only-from-commits*
         (git-checkout
          (url (string-append "file://" *custom-shepherd-dir*))
          (branch "attila")
          ;;(commit "a281ebfd4466a6925e264c303201b8dc44d33cb4")
          )
         (local-file *custom-shepherd-dir*
                     #:recursive? #t
                     #:select? (git-predicate *custom-shepherd-dir*))))
    (arguments
     `(#:tests? #false
       ,@(package-arguments *parent-shepherd-package*)))))

(operating-system
  ;; Use own Shepherd package.
  (essential-services
   (modify-services (operating-system-default-essential-services
                     this-operating-system)
     (shepherd-root-service-type config =>
                                 (shepherd-configuration
                                  (inherit config)
                                  (shepherd (if *use-custom-shepherd*
                                                custom-shepherd
                                                shepherd)))))))