Paste number 335230: updated2

Paste number 335230: updated2
Pasted by: gwonder
When:5 years, 4 months ago
Share:Tweet this! | http://paste.lisp.org/+76NY
Channel:None
Paste contents:
Raw Source | XML | Display As
;; 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) (srfi srfi-1))
(use-service-modules desktop networking)
(use-package-modules certs gnome admin)

(define %modified-desktop-services
  (cons (network-manager-service)
	(remove (lambda (service)
                  (eq? wicd-service-type (service-kind service)))
                %desktop-services)))

(operating-system
  (host-name "guixsd")
  (timezone "Europe/London")
  (locale "en_GB.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/sda")))

  ;; Specify a mapped device for the encrypted root partition.
  ;; The UUID is that returned by 'cryptsetup luksUUID'.
 ;; (mapped-devices
 ;;  (list (mapped-device
 ;;         (source (uuid "12345678-1234-1234-1234-123456789abc"))
 ;;         (target "the-root-device")
 ;;         (type luks-device-mapping))))

  (file-systems (cons (file-system
                        (device "my-root")
                        (title 'label)
                        (mount-point "/")
                        (type "ext4"))
                      %base-file-systems))

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

  ;; This is where we specify system-wide packages.
  (packages (cons* nss-certs         ;for HTTPS access
                   gvfs              ;for user mounts
                   %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)
		     %modified-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.