;; This is an example definition for the gn-guile/GN4 service
;;
;; Run with
;;
;;   export runner=$(guix system container gn-guile.scm)
;;
;; as root
;;
;;   sudo bash -c $runner
;;   echo $runner
;;
;; make a note of pid and
;;
;;   sudo bash -c "nsenter -a -t 4050285"
;;
;; now you should be inside the container (note bash should be in the container!)

(use-modules (gnu)
             (guix records)
             (forge utils))

(define-record-type* <gn-guile-configuration>
  gn-guile-configuration make-gn-guile-configuration
  gn-guile-configuration?
  (gn2-repository gn-guile-configuration-gn2-repository
                  (default "https://github.com/genenetwork/genenetwork2"))
  (gn2-port gn-guile-configuration-gn2-port
            (default 8082)))


(define gn-guile-service-type
  (service-type
   (name 'gn-guile)
   (description "gn-guile/GN4 webservice")
   (extensions '())
   ))

(operating-system
 (host-name "gn-guile")
 (timezone "UTC")
 (locale "en_US.utf8")
 (bootloader (bootloader-configuration
              (bootloader grub-bootloader)
              (targets (list "/dev/sdX"))))
 (file-systems %base-file-systems)
 (users %base-user-accounts)
 (packages %base-packages)

 (services (cons
            (service gn-guile-service-type
                     (gn-guile-configuration))
            %base-services)))