blob: e8885b8cda71ff5c0f53be67321d5c237e567816 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2026 Yarl Baudig <yarl-baudig@mailoo.org>
;;;
;;; 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 home services git-annex-assistant)
#:use-module (guix gexp)
#:use-module ((guix packages) #:select (package?))
#:use-module (guix records)
#:use-module (gnu services configuration)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:use-module (gnu packages haskell-apps)
#:use-module (srfi srfi-1)
#:export (home-git-annex-assistant-configuration
home-git-annex-assistant-service-type))
(define-configuration/no-serialization home-git-annex-assistant-configuration
(package
(package git-annex)
"Package that provides @code{git-annex}.")
(directories
(list-of-strings '())
"List of directories."))
(define (home-git-annex-assistant-shepherd-services config)
(match-record config
<home-git-annex-assistant-configuration> (package directories)
(let ((gaa-command
#~(list (string-append #$package "/bin/git-annex") "assistant")))
(map
(lambda (dir)
(let ((pid-file (in-vicinity dir ".git/annex/daemon.pid")))
(shepherd-service
(documentation
(string-append "Run git-annex assistant against " dir "."))
(provision
(list
(symbol-append 'home-git-annex-assistant-
(string->symbol dir))))
(start #~(lambda _
(and (zero? (spawn-command #$gaa-command
#:directory #$dir))
(read-pid-file #$pid-file))))
(stop #~(lambda _
(unless (zero? (spawn-command
(append #$gaa-command '("--stop"))
#:directory #$dir))
(error "failed to stop git-annex assistant"))
#f)))))
directories))))
(define home-git-annex-assistant-service-type
(service-type
(name 'git-annex-assistant)
(extensions
(list (service-extension home-shepherd-service-type
home-git-annex-assistant-shepherd-services)))
(compose concatenate)
(extend (lambda (config directories)
(home-git-annex-assistant-configuration
(inherit config)
(directories
(append
(home-git-annex-assistant-configuration-directories config)
directories)))))
(description
"Run the git-annex assistant daemon on a list of directories.")))
|
