(use-modules ((gnu home) #:select (home-environment))
             ((gnu home services) #:select
              (home-activation-service-type home-files-service-type service
               service-extension service-type))
             ((gnu home services shells) #:select
              (home-bash-configuration home-bash-service-type))
             ((gnu home services shepherd) #:select
              (home-shepherd-service-type shepherd-service))
             ((gnu packages messaging) #:select (matterbridge))
             ((gnu packages minetest) #:select (minetest-server))
             ((gnu system shadow) #:select (%default-dotguile))
             ((guix gexp) #:select (file-append gexp local-file plain-file)))

(define home-matterbridge-services
  (const
    (list (shepherd-service
           (provision '(mattermost))
           (modules '((shepherd support)))      ;for '%user-log-dir'
           (start #~(make-forkexec-constructor
                     '(#$(file-append matterbridge "/bin/matterbridge")
                       "--conf"
                       #$(local-file "config.toml"))
                     #:log-file (string-append %user-log-dir
                                               "/matterbridge.log")))
           (stop #~(make-kill-destructor))
           (documentation "Start local matterbridge.")))))

(define home-matterbridge-service-type
  (service-type
   (name 'home-matterbridge)
   (extensions
    (list (service-extension home-shepherd-service-type
                             home-matterbridge-services)))
   (description "Bridge messaging platforms using matterbridge.")
   (default-value #f)))

(define home-minetest-services
  (const
    (list (shepherd-service
           (provision '(minetest))
           (modules '((shepherd support)))      ;for '%user-log-dir'
           (start #~(make-forkexec-constructor
                     '(#$(file-append minetest-server "/bin/minetestserver")
                       "--gameid" "minetest"
                       "--config" #$(local-file "abdultest.conf"))
                     #:environment-variables
                     (cons
                      (format #f "MINETEST_SUBGAME_PATH=~a/share/minetest/games"
                              #$(@@ (gnu packages minetest) minetest-data))
                      (default-environment-variables))
                     #:log-file (string-append %user-log-dir
                                               "/minetest.log")))
           (stop #~(make-kill-destructor))
           (documentation "Start Minetest block game like Minecraft.")))))

(define home-minetest-activation
  (const #~(mkdir-p "~/.local/minetest/abdultest")))

(define home-minetest-service-type
  (service-type
   (name 'home-minetest)
   (extensions
    (list (service-extension home-shepherd-service-type
                             home-minetest-services)
          (service-extension home-activation-service-type
                             home-minetest-activation)))
   (description "Minetest block game like Minecraft.")
   (default-value #f)))

(home-environment
 (services
  (list
   (service home-bash-service-type
            (home-bash-configuration
             (bash-profile (list (plain-file
                                  "bash_ps1"
                                  "export PS1=\"\n↓← $PS1\n→ \"")))))

   (service home-files-service-type
            `((".guile" ,%default-dotguile)))

   ;;(service home-matterbridge-service-type)

   (service home-minetest-service-type))))