-
Notifications
You must be signed in to change notification settings - Fork 0
/
working_config.scm
69 lines (59 loc) · 2.79 KB
/
working_config.scm
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
;; This is an operating system configuration template
;; for a "desktop" setup with GNOME and Xfce where the
;; root partition is encrypted with LUKS.
(use-modules (gnu) (gnu system nss) (guix build utils) (srfi srfi-26) (ice-9 ftw))
(use-service-modules ssh networking xorg desktop)
(use-package-modules certs gnome mtools linux glib mtools pkg-config gl) ; gnome for gvfs, gl for mesa
(operating-system
(host-name "server1")
(timezone "Europe/Stockholm")
(locale "en_US.UTF-8")
;; Assuming /dev/sdX is the target hard disk, and "my-root"
;; is the label of the target root file system.
(bootloader (grub-configuration (device "/dev/sdb")))
;; Specify a mapped device for the encrypted root partition.
;; The UUID is that returned by 'cryptsetup luksUUID'.
(mapped-devices
(list (mapped-device
(source "/dev/sdb2")
(target "fs_root")
(type luks-device-mapping))))
(file-systems (cons (file-system
(device "/dev/mapper/fs_root")
(title 'device)
(mount-point "/")
(type "btrfs")
(needed-for-boot? #t)
(dependencies mapped-devices))
%base-file-systems))
(initrd (lambda (file-systems . rest)
(apply base-initrd file-systems
#:extra-modules '("btrfs")
rest)))
(users (cons (user-account
(name "user1")
(comment "user1")
(group "users")
(supplementary-groups '("wheel" "netdev"
"audio" "video"))
(home-directory "/home/user1"))
%base-user-accounts))
;; This is where we specify system-wide packages.
(packages (cons* nss-certs ;for HTTPS access
gvfs ;for user mounts
btrfs-progs ; util-linux mesa mesa-utils mtools fuse pkg-config fuse-exfat exfat-utils ntfs-3g sshfs-fuse
%base-packages))
;; Add GNOME and/or Xfce---we can choose at the log-in
;; screen with F1. Use the "desktop" services, which
;; include the X11 log-in service, networking with Wicd,
;; and more.
(services (cons* (gnome-desktop-service)
(modify-services %desktop-services
(slim-service-type
config => (slim-configuration
(inherit config)
(startx (xorg-start-command
#:configuration-file
(xorg-configuration-file
#:drivers '("nouveau" "vesa")
#:resolutions '((1980 1024) (1200 800)))))))))))