blob: 7c1ec3565efdaed3005e43a690e371aa72b4efb5 (
about) (
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
|
(define-module (suweren update)
#:use-module (gnu home services shells)
#:use-module (gnu services))
(define-public update-commands
(let* ((allow-downgrades "--allow-downgrades ")
(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 "
"'(@ (users $USER) home)' "))
(reconfigure-system (string-append "sudo guix system delete-generations 7d ; "
"sudo guix system reconfigure -e "
"'(@ (systems $HOSTNAME system-configuration) $HOSTNAME)' "))
(reupdate-system (string-append pull-guix
allow-downgrades
and
reconfigure-system
allow-downgrades
and
reconfigure-home
allow-downgrades
and
collect-garbage))
(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)
("reupdate-system" . ,reupdate-system)))
(value (home-bash-extension (aliases aliases))))
(simple-service 'update-commands
home-bash-service-type
value)))
|
