blob: 05c0376deff09a9fbcfe66de2c3d1d5b85d92baf (
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
|
(define-module (suweren update)
#:use-module (gnu home services shells)
#:use-module (gnu services))
(define-public update-commands
(let* ((and "&& ")
(collect-garbage "sudo guix gc -d 7d ")
(pull-guix "guix pull ")
(reconfigure-home (string-append "guix home "
"delete-generations 7d ; "
"guix home "
"reconfigure -e "
"'(@ (people marekpasnikowski)"
" home)'"))
(reconfigure-system (string-append "sudo guix system "
"delete-generations 7d ;"
"sudo guix system "
"reconfigure -e "
"'(@ (systems ayase "
"system-configuration) ayase)'"))
(update-system (string-append pull-guix
and
reconfigure-system
and
reconfigure-home
and
collect-garbage))
(aliases `(("collect-garbage" . ,collect-garbage)
("pull-guix" . ,pull-guix)
("reconfigure-home" . ,reconfigure-home)
("reconfigure-system" . ,reconfigure-system)
("update-system" . ,update-system)))
(value (home-bash-extension (aliases aliases))))
(simple-service 'update-commands
home-bash-service-type
value)))
|
