Paste number 348675: strange error

Paste number 348675: strange error
Pasted by: reepca
When:3 years, 2 months ago
Share:Tweet this! | http://paste.lisp.org/+7H1F
Channel:None
Paste contents:
Raw Source | XML | Display As
(use-modules (gnu)
	     (gnu services xorg))
(use-service-modules networking ssh desktop)
(use-package-modules admin wm ratpoison certs suckless
		     curl)


(define my-services
  (modify-services %desktop-services
    (slim-service-type original =>
		       (slim-configuration
			(inherit original)
			(startx (xorg-start-command
				 #:configuration-file
				 (xorg-configuration-file
				  #:extra-config
				  '("Section \"ServerFlags\"\n"
				    "  Option \"StandbyTime\" \"120\"\n"
				    "  Option \"BlankTime\" \"80\"\n"
				    "  Option \"SuspendTime\" \"120\"\n"
				    "  Option \"OffTime\" \"120\"\n"
				    "EndSection"))))))))

(define test-linux-libre
  ((@@ (gnu packages linux) make-linux-libre)
   "3.14.79"
   "1amkfz04gvxsp1ai9dx9b9fc4rnd0dp0fpp99ig40ain9ndcyx88"
   (@@ (gnu packages linux) %intel-compatible-systems)
   #:configuration-file (@@ (gnu packages linux) kernel-config)))

(operating-system
  (host-name "GuixPotato")
  (timezone "America/Chicago")
  (locale "en_US.utf8")b

  (kernel test-linux-libre)
  (kernel-arguments '("radeon.dpm=1"))
  ;; 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 "my-root")
                        (title 'label)
                        (mount-point "/")
                        (type "ext4"))
                      %base-file-systems))
  (swap-devices '("/dev/sda2"))

  ;; This is where user accounts are specified.  The "root"
  ;; account is implicit, and is initially created with the
  ;; empty password.
  (users (cons (user-account
                (name "reepca")
                (comment "Reepca Russelstein, main user")
                (group "users")

                ;; Adding the account to the "wheel" group
                ;; makes it a sudoer.  Adding it to "audio"
                ;; and "video" allows the user to play sound
                ;; and access the webcam.
                (supplementary-groups '("wheel" "netdev"
					"audio" "video"))
                (home-directory "/home/reepca"))
               %base-user-accounts))

  ;; Globally-installed packages.
  (packages (cons* ratpoison i3-wm i3status dmenu
		   nss-certs curl tcpdump
		   %base-packages))

  ;; Add services to the baseline: a DHCP client and
  ;; an SSH server.
  (services my-services)
  (name-service-switch %mdns-host-lookup-nss))

;; => "<unknown location>: error: invalid field specifier"

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.