Paste number 332880: config.scm

Paste number 332880: config.scm
Pasted by: jje
When:5 years, 5 months ago
Share:Tweet this! | http://paste.lisp.org/+74UO
Channel:None
Paste contents:
Raw Source | XML | Display As
;; This is an operating system configuration template
;; for a "desktop" setup with GNOME and Xfce.

(use-modules (gnu) (gnu system nss) (srfi srfi-1) (gnu packages admin) (gnu services networking))
(use-service-modules desktop)
(use-package-modules wm ratpoison certs cups sawfish)

 (define %desktop-services-sans-wicd
  (cons*
   (network-manager-service)
   (service wpa-supplicant-service-type wpa-supplicant)
   (remove
   (lambda (service)
      (eq? wicd-service-type (service-kind service)))
       (modify-services %desktop-services
          (guix-service-type config =>
                         (guix-configuration
                          (inherit config)
                          (substitute-urls
                           '("https://mirror.hydra.gnu.org"
                             "https://hydra.gnu.org"))))))))


(operating-system
  (host-name "laptop")
  (timezone "America/Chicago")
  (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/sda")))
  (file-systems (cons (file-system
                        (device "/dev/sda2")
                        (title 'root)
                        (mount-point "/")
                        (type "ext4"))
                      %base-file-systems))

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

  ;; This is where we specify system-wide packages.
  (packages (cons* nss-certs sawfish
                   ratpoison cups
                   wpa-supplicant
                   %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)
                   (xfce-desktop-service)
                   (bluetooth-service)
                   %desktop-services-sans-wicd))

  ;; 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.