[system] Use polish keyboard layout in Xorg.

diff --git a/conf/system/desktop.scm b/conf/system/desktop.scm
index 80a1cb7cfe5b10f30d4e3324767e5b4ff7f23b46..e339b930b06f7f9461373b036c35d3bf89f262cd 100644 (file)
--- a/conf/system/desktop.scm
+++ b/conf/system/desktop.scm
@@ -8,9 +8,12 @@
   #:use-module (conf common suckless)
   #:use-module (gnu packages fonts)
   #:use-module (gnu packages suckless)
+  #:use-module (gnu services xorg)
+  #:use-module (gnu system keyboard)
   #:use-module (guix git-download)
   #:use-module (guix packages)
-  #:export (dwm-desktop-packages))
+  #:export (dwm-desktop-packages
+           keyboard-layout-service))
 
 (define dmenu-libxft-bgra
   (package
@@ -48,6 +51,12 @@
                   (delete "libxft")
                   (append libxft-bgra)))))
 
+(define keyboard-layout-service
+  (set-xorg-configuration
+   (xorg-configuration
+    (keyboard-layout
+     (keyboard-layout "pl")))))
+
 (define dwm-desktop-packages
   (list dmenu-libxft-bgra
        dwm-libxft-bgra

diff --git a/system.scm b/system.scm
index 416e6e1aa5a595d413a98bb4082623153c3cf94a..62b3ecda10bf8c2aef67979811a88c5345c5d575 100644 (file)
--- a/system.scm
+++ b/system.scm
@@ -75,5 +75,6 @@
  (services
   (append
    (list bluez-service
-        dnscrypt-proxy-service)
+        dnscrypt-proxy-service
+        keyboard-layout-service)
    %desktop-services)))