blob: 1667f465479033f0be71a2e227241c4444dcd647 (
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
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This configuration adapts the base-level 'ymir' ;;
;; OS declaration for 'kvasir', a bootable usb. ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-module (vali)
#:use-module (ymir)
#:use-module (gnu)
#:use-module (gnu home)
#:use-module (gnu packages)
#:use-module (gnu home services)
#:use-module (gnu services)
#:use-module (guix gexp)
#:use-module (xdg)
#:use-module (shell)
#:use-module (ssh)
#:use-module (gpg)
#:use-module (gnu image)
#:use-module (gnu system image)
#:use-module (xmodmap)
#:use-module (base))
(define system
(operating-system
(inherit ymir)
(host-name "kvasir")
(file-systems (cons* (file-system
(mount-point "/boot/efi")
(device (uuid
"8A13-7018"
'fat32))
(type "vfat"))
(file-system
(mount-point "/")
(device (uuid
"69a3593b-12bd-40ad-a932-007674a8cfe8"))
(type "ext4")) %base-file-systems))))
(define MiB (expt 2 20))
(define GiB (expt 2 30))
(image
(format 'disk-image)
(operating-system system)
(partitions
(list
(partition
(size (* 40 MiB))
(offset (* 1024 1024))
(label "GNU-ESP")
(file-system "vfat")
(flags '(esp))
(initializer (gexp initialize-efi-partition)))
(partition
(size (* 28 GiB))
(label root-label)
(file-system "ext4")
(flags '(boot))
(initializer (gexp initialize-root-partition))))))
|
