-(define-module (infiniteadaptability services nitter)
- #:use-module (gnu)
- #:use-module (gnu services)
- #:use-module (infiniteadaptability packages nitter)
- #:export (nitter-configuration nitter-service-type))
-
-(define-record-type* <nitter-configuration> nitter-configuration
- make-nitter-configuration
- nitter-configuration?
-
- (nitter nitter-configuration-nitter ;file-like
- (default nitter)))
-
-(define (nitter-service config)
- "Return a <nitter-service> for nitter with CONFIG."
- (list (shepherd-service (documentation "nitter service")
- (provision '(nitter))
- (requirement '(networking))
- (start #~(fork+exec-command (string-append #$nitter-configuration-nitter
- config)
- "/bin/nitter"
- #:log-file (string-append
- "/var/log/nitter.log"))))))
-
-(define nitter-service-type
- (service-type (name 'nitter)
- (default-value (nitter-configuration))
- (description "Nitter service")
- (extensions (list (service-extension
- shepherd-root-service-type nitter-service)))))