1(define (wantkmscon) #t)
 2
 3;; This is an operating system configuration generated
 4;; by the graphical installer.
 5;;
 6;; Once installation is complete, you can learn and modify
 7;; this file to tweak the system configuration, and pass it
 8;; to the 'guix system reconfigure' command to effect your
 9;; changes.
10
11
12;; Indicate which modules to import to access the variables
13;; used in this configuration.
14(use-modules (gnu)
15	     (gnu packages)
16	     (gnu packages shells)
17	     (gnu packages terminals)
18	     (guix gexp)
19	     )
20(use-service-modules cups desktop networking ssh xorg)
21
22(define kmscon-with-config
23  (file-union "kmscon-with-config"
24	      `(("bin/kmscon"
25		 ,(program-file "kmscon-with-config"
26				#~(apply execl #$(file-append kmscon "/bin/kmscon")
27					 "kmscon" "--configdir=/etc/kmscon"
28					 (cdr (command-line))))))))
29
30(operating-system
31 (locale "en_US.utf8")
32 (timezone "America/Chicago")
33 (keyboard-layout (keyboard-layout "us"))
34 (host-name "scm")
35 (kernel-arguments '("i8042.reset" "i8042.nomux"))
36
37 (packages (append
38	    (specifications->packages (list
39				       "emacs"
40				       "kmscon"
41				       "fontconfig"
42				       "freetype"
43				       )) %base-packages))
44
45 ;; The list of user accounts ('root' is implicit).
46 (users (cons* (user-account
47		(name "chld")
48		(comment "Chld")
49		(group "users")
50		(home-directory "/usr/chld")
51		(shell (file-append fish "/bin/fish"))
52		(supplementary-groups '("wheel" "netdev" "audio" "video" "input" "seat")))
53               %base-user-accounts))
54
55 ;; Below is the list of system services.  To search for available
56 ;; services, run 'guix system search KEYWORD' in a terminal.
57 (services
58  
59  (append (list
60           ;; To configure OpenSSH, pass an 'openssh-configuration'
61           ;; record as a second argument to 'service' below.
62           (service openssh-service-type)
63	   (service seatd-service-type)
64           (service network-manager-service-type)
65           (service wpa-supplicant-service-type)
66           (service ntp-service-type))
67	  
68	    (map (lambda (n)		   (service kmscon-service-type			    (kmscon-configuration (kmscon kmscon-with-config)			     (hardware-acceleration? #t)			     (font-engine "freetype")			     (font-size 16)			     (virtual-terminal (format #f "tty~a" n)))))		 (iota 6 1)		 )
69
70	    (list (simple-service 'kmscon-config etc-service-type `(("kmscon/kmscon.conf" ,(local-file "/usr/chld/dot/kmscon.conf")))))
71
72	  ;; This is the default list of services we
73	  ;; are appending to.
74	  (if (wantkmscon)
75	      (modify-services %base-services
76			       (delete mingetty-service-type)
77			       )
78	      %base-services
79	      )
80	  ))
81
82 (bootloader (bootloader-configuration
83              (bootloader grub-bootloader)
84              (targets (list "/dev/sda"))
85              (keyboard-layout keyboard-layout)))
86 (swap-devices (list (swap-space
87                      (target (uuid
88                               "249b00e0-c93a-480f-9aea-516941a327f7")))))
89
90 ;; The list of file systems that get "mounted".  The unique
91 ;; file system identifiers there ("UUIDs") can be obtained
92 ;; by running 'blkid' in a terminal.
93 (file-systems (cons* (file-system
94                       (mount-point "/")
95                       (device (uuid
96				"86458d6e-960b-4f4b-8a0a-5bc604d6def4"
97				'ext4))
98                       (type "ext4")) %base-file-systems)))