blob: e000ac872694a52f59810eddc1aa2f572d81974c (
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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
(define-module (mitch tailscale)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix utils)
#:use-module (guix gexp)
#:use-module (guix download)
#:use-module (guix packages)
#:use-module (guix build-system go)
#:use-module (gnu packages golang)
#:use-module (guix records)
#:use-module (ice-9 match)
#:use-module (guix git-download)
#:use-module (gnu packages nss)
#:use-module (gnu packages compression)
#:use-module (gnu packages base)
#:use-module (gnu)
#:use-module (gnu services shepherd))
(define-record-type* <go-git-reference>
go-git-reference make-go-git-reference
go-git-reference?
(url go-git-reference-url)
(commit go-git-reference-commit)
(sha go-git-reference-sha256))
(define-record-type* <go-url-reference>
go-url-reference make-go-url-reference
go-url-reference?
(url go-url-reference-url)
(sha go-url-reference-sha))
(define* (go-fetch-vendored uri hash-algorithm hash-value name #:key system)
(let ((src
(match uri
(($ <go-git-reference> url commit sha)
(origin
(method git-fetch)
(uri (git-reference
(url url)
(commit commit)))
(sha256 sha)))
(($ <go-url-reference> url commit sha)
(origin
(method url-fetch)
(uri url)
(sha256 sha)))))
(name (or name "go-git-checkout")))
(gexp->derivation
(string-append name "-vendored.tar.gz")
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(let ((inputs (list
#+go-1.23
#+tar
#+bzip2
#+gzip)))
(set-path-environment-variable "PATH" '("/bin") inputs))
(mkdir "source")
(chdir "source")
(if (file-is-directory? #$src) ;; this is taken (lightly edited) from unpack in gnu-build-system.scm
(begin
;; Preserve timestamps (set to the Epoch) on the copied tree so that
;; things work deterministically.
(copy-recursively #$src "."
#:keep-mtime? #t)
;; Make the source checkout files writable, for convenience.
(for-each (lambda (f)
(false-if-exception (make-file-writable f)))
(find-files ".")))
(begin
(cond
((string-suffix? ".zip" #$src)
(invoke "unzip" #$src))
((tarball? #$src)
(invoke "tar" "xvf" #$src))
(else
(let ((name (strip-store-file-name #$src))
(command (compressor #$src)))
(copy-file #$src name)
(when command
(invoke command "--decompress" name)))))))
(setenv "GOCACHE" "/tmp/gc")
(setenv "GOMODCACHE" "/tmp/gmc")
(setenv "SSL_CERT_DIR" #+(file-append nss-certs "/etc/ssl/certs/"))
(invoke "go" "mod" "vendor")
(invoke "tar" "czvf" #$output
;; Avoid non-determinism in the archive.
"--mtime=@0"
"--owner=root:0"
"--group=root:0"
"--sort=name"
"--hard-dereference"
".")))
#:hash hash-value
#:hash-algo hash-algorithm)))
(define-public tailscale
(let ((version "1.96.3"))
(package
(name "tailscale")
(version version)
(source (origin
(method go-fetch-vendored)
(uri (go-git-reference
(url "https://github.com/tailscale/tailscale")
(commit "v1.96.3")
(sha (base32 "16i18j2v1qbwlnwbh8vxalrxjn69h3cdrlvvjvn10dqzga3d2ifc"))))
(sha256
(base32
"19sv3q0hgb1h5v75c8hrkna4xgbgrs0ym2kvq16rbn9kr0hjjr1j"))))
(build-system go-build-system)
(arguments
`(#:import-path "tailscale.com/cmd/tailscale"
#:unpack-path "tailscale.com"
#:install-source? #f
#:phases
(modify-phases %standard-phases
(delete 'check))
#:go ,go-1.23))
(home-page "https://tailscale.com")
(synopsis "Tailscale client")
(description "Tailscale client")
(license license:bsd-3))))
(define-public tailscaled
(let ((import-path "tailscale.com/cmd/tailscaled"))
(package
(inherit tailscale)
(name "tailscaled")
(arguments
(substitute-keyword-arguments (package-arguments tailscale)
((#:import-path _ #f)
import-path)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(replace 'build
(lambda _
;; idk why but we have to unset GO111MODULE in order for the build to work
;; [btv] maybe vendor stuff is not getting picked up in go path?
(unsetenv "GO111MODULE")
(chdir "./src/tailscale.com")
(invoke "go" "build" "-o" "tailscaled"
#$import-path)
(chdir "../..")))
(replace 'install
(lambda _
(install-file "src/tailscale.com/tailscaled" (string-append #$output "/bin"))))))))
(synopsis "Tailscale daemon")
(description "Tailscale daemon"))))
(define-public (tailscale-configuration) '())
(define (tailscale-shepherd-service config)
(list (shepherd-service
(documentation "Run the tailscale daemon")
(provision '(tailscaled tailscale))
(requirement '(user-processes))
(actions '())
(start
#~(lambda _
(fork+exec-command (list #$(file-append tailscaled "/bin/tailscaled")))))
(stop #~(make-kill-destructor)))))
(define-public tailscale-service-type
(service-type
(name 'tailscale)
(extensions
(list (service-extension shepherd-root-service-type tailscale-shepherd-service)))
(default-value (tailscale-configuration))
(description "Run and connect to tailscale")))
|
