Paste number 307640: untitled

Paste number 307640: untitled
Pasted by: sheeple
When:5 years, 9 months ago
Share:Tweet this! | http://paste.lisp.org/+6LDK
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))
;; (gnu packages emacs) ;(gnu packages xmonad)
;; (gnu packages conkeror) ;(packages htop))

(use-service-modules desktop xorg)
(use-package-modules wm xfce emacs conkeror certs fonts pulseaudio
					 admin bittorrent xorg gnuzilla)

(operating-system
  (host-name "serenity")
  (timezone "America/Los_Angeles")
  (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/sda")))
  (file-systems (cons* (file-system
						 (mount-point "/")
						 (device "/dev/sda4")
						 (type "ext4"))

					   (file-system
						 (mount-point "/boot")
						 (device "/dev/sda2")
						 (type "ext2"))

					   (file-system
						 (mount-point "/home")
						 (device "/dev/sda5")
						 (type "ext4"))

					   %base-file-systems))
  (swap-devices '("/dev/sda3"))


  (users (cons (user-account
				(name "keith")
				;; (comment "Alice's brother")
				(group "users")
				(supplementary-groups '("wheel" "netdev"
										"audio" "video"))
				(home-directory "/home/keith"))
			   %base-user-accounts))

  ;; Add Xfce and Ratpoison; that allows us to choose
  ;; sessions using either of these at the log-in screen.
  (packages (cons* xmonad xfce ghc-xmonad-contrib  ;desktop environments
				   emacs
				   conkeror icecat
				   htop transmission
				   setxkbmap font-dejavu pulseaudio
				   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)

  (services (filter (compose not (lambda (s)
								   (eq? (service-type-name (service-kind s)) 'slim))
							 %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.