linode-guix-system-configuration/gnucode-form.scm

(define-public (gnucode-form)
  #:use-module (gnu)
  #:use-module (guix gexp)
  #:use-module (gnu services)
  #:use-module (gnu service shepherd)
  #:use-module (gnu packages guile)
  #:export (gnucode-form-service-type))

(define (gnucode-form-shepherd-service config)
  (shepherd-service
   (documentation "Start the guile code in index.scm for gnucode.me")
   (provision '(gnucode-guile))
   (start #~(make-forkexec-constructor
             (list #$(string-append guile "/bin/guile")
                   "/srv/www/guile/form/index.scm")
             #:log-file "/var/log/gnucode-form"
             #:user "joshua"
             ;;#:directory "/srv/www/guile/form/"
             ))
   (stop  #~(make-kill-destructor))))

(define gnucode-form-service-type
  (service-type
   (name 'gnucode-form)
   (description "Start the guile code in index.scm for gnucode.me")
   (extensions
    (list (service-extension shepherd-root-service-type guix-shepherd-service)))))