;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu services syncthing)
  #:use-module (gnu packages syncthing)
  #:use-module (gnu services)
  #:use-module (gnu services shepherd)
  #:use-module (guix gexp)
  #:use-module (guix records)
  #:use-module (ice-9 match)
  #:use-module (srfi srfi-1)
  #:export (syncthing-configuration
            syncthing-configuration?
            syncthing-service-type))

;;; Commentary:
;;;
;;; This module provides a service definition for the syncthing service.
;;;
;;; Code:

(define-record-type* <syncthing-configuration>
  syncthing-configuration make-syncthing-configuration
  syncthing-configuration?
  (syncthing syncthing-configuration-syncthing ;<package>
             (default syncthing))
  (arguments syncthing-configuration-arguments ;list of strings
             (default '()))
  (logflags  syncthing-configuration-logflags  ;number
             (default 0))
  (user      syncthing-configuration-user      ;string
             (default #f))
  (group     syncthing-configuration-group     ;string
             (default "users"))
  (home      syncthing-configuration-home      ;string
             (default #f)))

(define syncthing-shepherd-service
  (match-lambda
    (($ <syncthing-configuration> syncthing arguments logflags user group home)
     (list
      (shepherd-service
       (provision (list (string->symbol (string-append "syncthing-" user))))
       (documentation "Run syncthing.")
       (requirement '(loopback))
       (start #~(make-forkexec-constructor
                 (append (list (string-append #$syncthing "/bin/syncthing")
                               "-no-browser"
                               "-no-restart"
                               (string-append "-logflags=" (number->string #$logflags)))
                         '#$arguments)
                 #:user #$user
                 #:group #$group
                 #:environment-variables
                 (append (list (string-append "HOME=" (or #$home (passwd:dir (getpw #$user))))
                               "SSL_CERT_DIR=/etc/ssl/certs"
                               "SSL_CERT_FILE=/etc/ssl/certs/ca-certificates.crt")
                         (remove (lambda (str)
                                   (or (string-prefix? "HOME=" str)
                                       (string-prefix? "SSL_CERT_DIR=" str)
                                       (string-prefix? "SSL_CERT_FILE=" str)))
                                 (environ)))))
       (respawn? #f)
       (stop #~(make-kill-destructor)))))))

(define syncthing-service-type
  (service-type (name 'syncthing)
                (extensions (list (service-extension shepherd-root-service-type
                                                     syncthing-shepherd-service)))
                (description
                 "Run @uref{https://github.com/syncthing/syncthing, Syncthing}
decentralized continuous file system synchronization.")))

;;; syncthing.scm ends here
rst-login' handling."</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-11-14 17:37:54 -0800'>2021-11-14</span></td><td><a href='/guix/commit/gnu/home?id=57bf76d832cff03435390b04a4d5951aaeff98fe'>gnu: home: services: Fix typo.</a><span class='msg-avail'>...</span></td><td>Vagrant Cascadian</td></tr>
<tr><td><span title='2021-11-14 17:35:30 -0800'>2021-11-14</span></td><td><a href='/guix/commit/gnu/home?id=e1498538459f366e97eb96e92067391b163b00b4'>gnu: home: services: Fix typo.</a><span class='msg-avail'>...</span></td><td>Vagrant Cascadian</td></tr>
<tr><td><span title='2021-11-14 17:33:35 -0800'>2021-11-14</span></td><td><a href='/guix/commit/gnu/home?id=6edfcf3e908ea9694417e798984461b1ef370626'>gnu: home: services: Fix typo.</a><span class='msg-avail'>...</span></td><td>Vagrant Cascadian</td></tr>
<tr><td><span title='2021-11-14 17:32:51 -0800'>2021-11-14</span></td><td><a href='/guix/commit/gnu/home?id=40a18f493409b9917964a6e2476382cca4856c7d'>home: services: Typo fix.</a><span class='msg-avail'>...</span></td><td>Vagrant Cascadian</td></tr>
<tr><td><span title='2021-11-14 23:18:08 +0100'>2021-11-14</span></td><td><a href='/guix/commit/gnu/home?id=4dcec60fa6a93dbc93bef2cdb91e3633c705579e'>home-services: Demonadify 'on-first-login' handling.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-11-14 23:18:08 +0100'>2021-11-14</span></td><td><a href='/guix/commit/gnu/home?id=5c2f30d3de6507d868a1f38563170f6e49a7bb44'>home-services: on-first-login: Check if XDG_RUNTIME_DIR exists.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2021-11-07 23:10:41 +0100'>2021-11-07</span></td><td><a href='/guix/commit/gnu/home?id=2f665d4309053d5a9fe25bc93ee78d55dbc30cb7'>doc: Improve documentation of the Bash home service</a><span class='msg-avail'>...</span></td><td>Xinglu Chen</td></tr>
<tr><td><span title='2021-11-07 23:10:41 +0100'>2021-11-07</span></td><td><a href='/guix/commit/gnu/home?id=4b96998292442ec03024481c911d88f86c7c36b5'>home: services: bash: Add ‘aliases’ field.</a><span class='msg-avail'>...</span></td><td>Xinglu Chen</td></tr>
<tr><td><span title='2021-10-16 16:48:44 +0300'>2021-10-16</span></td><td><a href='/guix/commit/gnu/home?id=ff20d3928dcd6c00be1e8e6c87fd6bcd11d48fd0'>home: services: shells: Fix documentation about file-like objects.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2021-10-09 19:24:19 +0300'>2021-10-09</span></td><td><a href='/guix/commit/gnu/home?id=fee0bced7fec2f9950957976a28f033edd4f877c'>home: services: configuration: Support file-like objects.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2021-10-09 19:24:19 +0300'>2021-10-09</span></td><td><a href='/guix/commit/gnu/home?id=0f6a27c2c46ab6603a6b1ed9cee99c9f81eca3c5'>scripts: home: Make sure profile directory exists.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2021-10-09 19:24:18 +0300'>2021-10-09</span></td><td><a href='/guix/commit/gnu/home?id=0e8d2df0f1a4ab25c482e1c427c54e19903e62f3'>Move (gnu home-services) to (gnu home services).</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2021-10-08 15:36:18 +0300'>2021-10-08</span></td><td><a href='/guix/commit/gnu/home?id=ba8ddb348045f81f061a1c7f51c0f7c2b0024e71'>gnu: Move (gnu home-services) to (gnu home services).</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>