sybil.scm
1 | ;;; Tyreunom's system administration and configuration tools. |
2 | ;;; |
3 | ;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu> |
4 | ;;; |
5 | ;;; This program is free software: you can redistribute it and/or modify |
6 | ;;; it under the terms of the GNU General Public License as published by |
7 | ;;; the Free Software Foundation, either version 3 of the License, or |
8 | ;;; (at your option) any later version. |
9 | ;;; |
10 | ;;; This program is distributed in the hope that it will be useful, |
11 | ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 | ;;; GNU General Public License for more details. |
14 | ;;; |
15 | ;;; You should have received a copy of the GNU General Public License |
16 | ;;; along with this program. If not, see <http://www.gnu.org/licenses/>. |
17 | |
18 | (use-modules (gnu)) |
19 | (use-modules (gnu system)) |
20 | (use-modules (gnu bootloader) (gnu bootloader grub)) |
21 | (use-modules (gnu services virtualization)) |
22 | (use-modules (config os)) |
23 | |
24 | (let ((system (tyreunom-desktop-os "sybil"))) |
25 | (operating-system |
26 | (inherit system) |
27 | (keyboard-layout (keyboard-layout "fr" "bepo")) |
28 | (bootloader |
29 | (bootloader-configuration |
30 | (target "/boot/efi") |
31 | (bootloader grub-efi-bootloader) |
32 | (keyboard-layout keyboard-layout))) |
33 | (mapped-devices |
34 | (list (mapped-device |
35 | (source |
36 | (uuid "7f0ef292-5d1f-4cde-8a59-074178c6903d")) |
37 | (target "cryptroot") |
38 | (type luks-device-mapping)))) |
39 | (file-systems |
40 | (cons* (file-system |
41 | (mount-point "/boot/efi") |
42 | (device (uuid "C62C-8291" 'fat32)) |
43 | (type "vfat")) |
44 | (file-system |
45 | (mount-point "/") |
46 | (device "/dev/mapper/cryptroot") |
47 | (type "ext4") |
48 | (dependencies mapped-devices)) |
49 | %base-file-systems)) |
50 | (services desktop-services))) |
51 |