58 lines
2 KiB
Scheme
58 lines
2 KiB
Scheme
|
(use-modules (gnu)
|
||
|
|
((gnu packages anthy) #:select (anthy))
|
||
|
|
((gnu packages certs) #:select (nss-certs))
|
||
|
|
((gnu packages gnome) #:select (gvfs))
|
||
|
|
((gnu packages file-systems) #:select (davfs2))
|
||
|
|
((gnu packages ibus) #:select (ibus ibus-anthy))
|
||
|
|
((gnu packages wm) #:select (i3-wm))
|
||
|
|
((gnu services desktop) #:select (xfce-desktop-service-type %desktop-services))
|
||
|
|
((gnu services xorg) #:select (set-xorg-configuration xorg-configuration))
|
||
|
|
(gnu system)
|
||
|
|
(rnrs io ports))
|
||
|
|
(use-modules (nongnu packages linux)
|
||
|
|
(nongnu system linux-initrd))
|
||
|
|
|
||
|
|
(define %utils
|
||
|
|
(list anthy davfs2 gvfs i3-wm ibus ibus-anthy nss-certs))
|
||
|
|
|
||
|
|
(define (read-file file-path)
|
||
|
|
(get-string-all (open-input-file file-path)))
|
||
|
|
|
||
|
|
(define (xfce-desktop-services os)
|
||
|
|
(append
|
||
|
|
(list
|
||
|
|
(service xfce-desktop-service-type)
|
||
|
|
(set-xorg-configuration
|
||
|
|
(xorg-configuration
|
||
|
|
(keyboard-layout (operating-system-keyboard-layout os))
|
||
|
|
(extra-config (list (read-file "touchpad.conf"))))))
|
||
|
|
%desktop-services))
|
||
|
|
|
||
|
|
(define (install-to root-fs)
|
||
|
|
(operating-system
|
||
|
|
(locale "fr_FR.utf8")
|
||
|
|
(timezone "Europe/Paris")
|
||
|
|
(keyboard-layout (keyboard-layout "fr" "bepo" #:options '("ctrl:swapcaps")))
|
||
|
|
(host-name "stub")
|
||
|
|
(users (cons* (user-account
|
||
|
|
(name "kook")
|
||
|
|
(comment "Grou-grou")
|
||
|
|
(group "users")
|
||
|
|
(home-directory "/home")
|
||
|
|
(supplementary-groups
|
||
|
|
'("wheel" "netdev" "audio" "video" "kvm")))
|
||
|
|
%base-user-accounts))
|
||
|
|
(packages
|
||
|
|
(append %utils %base-packages))
|
||
|
|
(bootloader
|
||
|
|
(bootloader-configuration
|
||
|
|
(bootloader grub-efi-bootloader)
|
||
|
|
(targets '("/boot/efi"))
|
||
|
|
(keyboard-layout keyboard-layout)))
|
||
|
|
(file-systems
|
||
|
|
(cons (file-system
|
||
|
|
(mount-point "/")
|
||
|
|
(device root-fs)
|
||
|
|
(type "ext4"))
|
||
|
|
%base-file-systems))))
|