Paste number 339678: untitled

Paste number 339678: untitled
Pasted by: osmano807
When:5 years, 5 months ago
Share:Tweet this! |
Paste contents:
Raw Source | XML | Display As
;; This is an operating system configuration template
;; for a "desktop" setup without full-blown desktop
;; environments.

(use-modules (gnu) (gnu system nss))
(use-modules (guix) (guix monads))
(use-modules (guix) (guix gexp))
(use-service-modules desktop xorg)
(use-package-modules wm ratpoison certs grub admin dns)

(define input-class "Section \"InputClass\"\
  Identifier \"touchpad catchall\"\
  Driver \"synaptics\"\
  MatchIsTouchpad \"on\"\
  Option \"TapButton1\" \"1\"\
  Option \"TapButton2\" \"2\"\
  Option \"TapButton3\" \"3\"\
  Option \"VertEdgeScroll\" \"on\"\
  Option \"HorizTwoFingerScroll\" \"on\"\

(define (my-slim-service)
  (mlet %store-monad ((config (xorg-configuration-file
				#:extra-config (list input-class)))
		      (startx (xorg-start-command
				#:configuration-file config)))
	(slim-service #:startx startx)))

  (host-name "glasgow")
  (timezone "America/Sao_Paulo")
  (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 (grub grub-efi) (device "/dev/sda")))

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

  (users (cons (user-account
                (name "osmano807")
                (comment "Joaquim Simao")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/osmano807"))

  ;; Add a bunch of window managers; we can choose one at
  ;; the log-in screen with F1.
  (packages (cons* i3-wm                   ;window managers
                   nss-certs               ;for HTTPS access

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

  (services (cons* (my-slim-service)
                   (console-keymap-service "br-abnt2")

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