blob: 3260a28baaa2e1fe0a87ec659f944006fed7377a (
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
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This configuration adapts the base-level 'ymir' ;;
;; OS declaration for 'kvasir', a bootable usb. ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-module (kvasir)
#: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 home
(home-environment
(packages
`(,@desktop-packages
,@program-packages))
(services
`(,@xdg-service
,@shell-service
,@ssh-service
,@gpg-service
,@base-services
,@xmodmap-service))))
(if (getenv "RUNNING_GUIX_HOME") home system)
|
