Paste number 158648: guix system init .scm with Serpent kernel module

Paste number 158648: guix system init .scm with Serpent kernel module
Pasted by: guixnewbie
When:6 years, 3 weeks ago
Share:Tweet this! | http://paste.lisp.org/+3EEW
Channel:None
Paste contents:
Raw Source | XML | Display As
;; This is an operating system configuration template
;; for a "desktop" setup with X11.

(use-modules (gnu) (gnu system nss))
(use-service-modules desktop)
(use-package-modules admin wicd xfce certs)

(define %linux-modules
	'("serpent_generic.ko" "serpent_sse2_x86_64.ko"))

(operating-system
  (host-name "guixsd")
  (timezone "Europe/Berlin")
  (locale "en_US.UTF-8")

  ;; Assuming /dev/sdX is the target hard disk, and "root" is
  ;; the label of the target root file system.
  (bootloader (grub-configuration (device "/dev/null")))

  (initrd (lambda (fs . args)
    (apply base-initrd fs)
      #:extra-modules %linux-modules
	args)))

 (mapped-devices (list (mapped-device
			(source "/dev/sda1")
			(target "guixcrypt")
			(type luks-device-mapping))))

 (file-systems (cons (file-system
                        (device "/dev/mapper/guixcrypt")
                        (title 'device)
                        (mount-point "/")
                        (type "ext4"))
                      %base-file-systems))

  (users (cons (user-account
                (name "user")
                (comment "guixsdftw")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video" "kvm"))
                (home-directory "/home/user"))
               %base-user-accounts))

  ;; Add Xfce and Ratpoison; that allows us to choose
  ;; sessions using either of these at the log-in screen.
  (packages (cons* xfce    ;desktop environments
                   nss-certs         ;for HTTPS access
                   %base-packages))

  ;; Use the "desktop" services, which include the X11
  ;; log-in service, networking with Wicd, and more.
  (services %desktop-services)

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss))

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.