4 files changed, 18 insertions, 39 deletions

diff --git a/.config/emacs/exwm/Xmodmap b/.config/emacs/exwm/Xmodmap
deleted file mode 100644
index cb4706f..0000000
--- a/.config/emacs/exwm/Xmodmap
+++ /dev/null
@@ -1,2 +0,0 @@
-clear lock
-keycode 0x42 = Escape
diff --git a/.config/guix/machines/base.scm b/.config/guix/machines/base.scm
deleted file mode 100644
index 20c49f4..0000000
--- a/.config/guix/machines/base.scm
+++ /dev/null
@@ -1,27 +0,0 @@
-(define-module (base)
-  #:use-module (gnu)
-  #:use-module (gnu system nss)
-  #:use-module (gnu services pm)
-  #:use-module (gnu services desktop)
-  #:use-module (gnu services docker)
-  #:use-module (gnu services networking)
-  #:use-module (gnu services virtualization)
-  #:use-module (gnu packages wm)
-  #:use-module (gnu packages vim)
-  #:use-module (gnu packages gtk)
-  #:use-module (gnu packages xorg)
-  #:use-module (gnu packages emacs)
-  #:use-module (gnu packages file-systems)
-  #:use-module (gnu packages linux)
-  #:use-module (gnu packages audio)
-  #:use-module (gnu packages pulseaudio)
-  #:use-module (gnu packages web-browsers)
-  #:use-module (gnu packages version-control)
-  #:use-module (gnu packages package-management)
-  #:use-module (nongnu packages linux)
-  #:use-module (nongnu system linux-initrd))
-
-
-(use-service-modules desktop xorg)
-(use-package-modules certs)
-(use-package-modules shells)
diff --git a/.config/guix/machines/base-system.scm b/.config/guix/systems/base-system.scm
index a294aca..7c67fad 100644
--- a/.config/guix/machines/base-system.scm
+++ b/.config/guix/systems/base-system.scm
@@ -1,21 +1,17 @@
 (define-module (base-system)
   #:use-module (gnu)
-  #:use-module (gnu system nss)
   #:use-module (gnu services pm)
-  #:use-module (gnu services desktop)
   #:use-module (gnu services docker)
   #:use-module (gnu services networking)
-  #:use-module (gnu services virtualization)
-  #:use-module (gnu packages wm)
+  #:use-module (gnu services virtualization) ; todo make 
   #:use-module (gnu packages vim)
-  #:use-module (gnu packages gtk)
+  #:use-module (gnu services desktop)
   #:use-module (gnu packages xorg)
   #:use-module (gnu packages emacs)
   #:use-module (gnu packages file-systems)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages audio)
   #:use-module (gnu packages pulseaudio)
-  #:use-module (gnu packages web-browsers)
   #:use-module (gnu packages version-control)
   #:use-module (gnu packages package-management))
                                         ;    #:use-module (nongnu packages linux)
@@ -30,6 +26,7 @@
    (host-name "base")
    (timezone "Europe/Warsaw")
    (locale "en_US.utf8")
+   (keyboard-layout (keyboard-layout "pl"))
 
    ;; Use non-free Linux and firmware
    ;;     (kernel linux)
@@ -82,6 +79,7 @@
                       bluez-alsa
                       pulseaudio
                       tlp
+                      ncurses
                       xf86-input-libinput
                       nss-certs) ;; For https connection
                      %base-packages))
@@ -91,14 +89,26 @@
    (services
     (append
      (list
+   
       (service elogind-service-type)
       (service openssh-service-type)
       (service network-manager-service-type)
       (service slim-service-type)
-      (service tlp-service-type)
+      (service tlp-service-type
+               (tlp-configuration
+                (cpu-boost-on-ac? #t)
+                (wifi-pwr-on-bat? #t)))
       (bluetooth-service #:auto-enable? #t)
       (service docker-service-type)
       (service wpa-supplicant-service-type))
+     (service libvirt-service-type
+              (libvirt-configuration
+               (unix-sock-group "libvirt")
+               (tls-port "16555")))
+     (set-xorg-configuration
+      (xorg-configuration
+       (keyboard-layout keyboard-layout)))
+   
      %base-services))
    
    ;; Allow resolution of '.local' host names with mDNS
diff --git a/.config/guix/machines/viking.scm b/.config/guix/systems/viking.scm
index 0e1d4a9..00b279e 100644
--- a/.config/guix/machines/viking.scm
+++ b/.config/guix/systems/viking.scm
@@ -1,13 +1,11 @@
 (define-module (viking)
   #:use-module (base-system)
   #:use-module (gnu))
-(use-modules (base-system))
+
 (operating-system
  (inherit base-operating-system)
  (host-name "viking")
 
- (keyboard-layout (keyboard-layout "pl"))
-
  (bootloader
   (bootloader-configuration
    (bootloader grub-bootloader)