Use modules

guix-config/system/base-system.scm

@@ -0,0 +1,55 @@
+(define-module (guix-config system base-system)
+  #:use-module (gnu)
+  #:use-module (guix)
+  #:export (base-system))
+
+(use-service-modules cups desktop networking ssh xorg pm)
+
+(define %my-desktop-services
+  (modify-services %desktop-services
+                   (delete gdm-service-type)))
+
+(define base-system
+  (operating-system
+  (locale "ru_RU.utf8")
+  (timezone "Europe/Berlin")
+  (keyboard-layout (keyboard-layout "eu,ru"
+                                    #:options '("grp:alt_shift_toggle")))
+  (host-name "base-system")
+
+  (users (cons* (user-account
+                  (name "kylekrein")
+                  (comment "Aleksandr Lebedev")
+                  (group "users")
+                  (home-directory "/home/kylekrein")
+                  (supplementary-groups '("wheel" "netdev" "audio" "video")))
+                %base-user-accounts))
+
+  ;; Below is the list of system services.  To search for available
+  ;; services, run 'guix system search KEYWORD' in a terminal.
+  (services
+   (append (list
+                 ;; To configure OpenSSH, pass an 'openssh-configuration'
+                 ;; record as a second argument to 'service' below.
+                 (service openssh-service-type)
+                 (service cups-service-type)
+		 (service gnome-keyring-service-type)
+		 (service bluetooth-service-type)
+		 (service power-profiles-daemon-service-type)
+                 (set-xorg-configuration
+                  (xorg-configuration (keyboard-layout keyboard-layout))))
+
+           ;; This is the default list of services we
+           ;; are appending to.
+           %my-desktop-services))
+  (bootloader (bootloader-configuration
+                 (bootloader grub-bootloader)
+                 (targets '("/dev/vda"))
+                 (terminal-outputs '(console))
+		 (keyboard-layout keyboard-layout)))
+
+    (file-systems (cons (file-system
+                          (mount-point "/")
+                          (device "/dev/vda1")
+                          (type "ext4"))
+                        %base-file-systems))))