From bb7b073fe9aa37a41bb5a77ecc0e4cc11eb796a0 Mon Sep 17 00:00:00 2001
From: marc <marc@sastre.cat>
Date: Mon, 30 Dec 2024 18:59:14 +0100
Subject: [PATCH] Changed kanata config

---
 config/kanata/kanata.kbd  | 61 +++++++++++++++++++++++++++++++++++++++
 modules/system/kanata.nix | 29 +------------------
 2 files changed, 62 insertions(+), 28 deletions(-)
 create mode 100644 config/kanata/kanata.kbd

diff --git a/config/kanata/kanata.kbd b/config/kanata/kanata.kbd
new file mode 100644
index 0000000..19d6d3e
--- /dev/null
+++ b/config/kanata/kanata.kbd
@@ -0,0 +1,61 @@
+(deflocalkeys-linux
+  ImpPt 99
+  º 41
+  ' 12
+  ¡ 13
+  ` 26
+  + 27
+  ñ 39
+  ´ 40
+  ç 43
+  < 86
+  - 53
+)
+
+(defsrc
+    esc  f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 ins ImpPt del     home end pgup pgdn
+    º    1  2  3  4  5  6  7  8  9  0   '   ¡       Backspace     nlck kp/  kp*  kp-
+    tab  q  w  e  r  t  y  u  i  o  p   `   +                     kp7  kp8  kp9
+    caps a  s  d  f  g  h  j  k  l  ñ   ´   ç             ret     kp4  kp5  kp6  kp+
+    lsft <  z  x  c  v  b  n  m  ,  .   -                rsft     kp1  kp2  kp3
+    lctl    lmet lalt     spc     ralt   rctl          up              kp0  kp. kprt
+                                                 left down rght
+)
+
+(defvar
+    tap-time 200
+    hold-time 250
+)
+
+(defalias
+    caps (tap-hold $tap-time $hold-time caps (layer-while-held layer1))
+    a (tap-hold $tap-time $hold-time a lalt)
+    s (tap-hold $tap-time $hold-time s lsft)
+    d (tap-hold $tap-time $hold-time d lmet)
+    f (tap-hold $tap-time $hold-time f lctl)
+    g (tap-hold $tap-time $hold-time g (layer-while-held layer1))
+    h (tap-hold $tap-time $hold-time h rctl)
+    j (tap-hold $tap-time $hold-time j rmet)
+    k (tap-hold $tap-time $hold-time k rsft)
+    l (tap-hold $tap-time $hold-time l ralt)
+)
+
+(deflayer base
+    esc   mute vold volu -    brdn brup -  -  -  -   -   -   ins ImpPt del     home end pgup pgdn
+    º     1    2    3    4    5    6    7  8  9  0   '   ¡       Backspace     nlck kp/  kp*  kp-
+    tab   q    w    e    r    t    y    u  i  o  p   `   +                     kp7  kp8  kp9
+    @caps @a   @s   @d   @f   @g   @h   @j @k @l ñ   ´   ç             ret     kp4  kp5  kp6  kp+
+    lsft  <    z    x    c    v    b    n  m  ,  .   -                rsft     kp1  kp2  kp3
+    lctl     lmet lalt        spc          ralt   rctl          up              kp0  kp. kprt
+                                                          left down rght
+)
+
+(deflayer layer1
+    _  f1 f2 f3 f4 f5 f6   f7   f8 f9    f10 f11 f12 _   _       _     _  _  _  _
+    _  _  _  _  _  _  _    _    _  _     _   _   _               _     _  _  _  _
+    _  _  _  _  _  _  _    _    _  _     _   _   _                     _  _  _
+    _  _  _  _  _  _  left down up right _   _   _               _     _  _  _  _
+    _  _  _  _  _  _  _    _    _  _     _   _                   _     _  _  _
+    _     _  _             _             _       _           _            _  _  _
+                                                          _  _  _
+)
diff --git a/modules/system/kanata.nix b/modules/system/kanata.nix
index 0babbaf..8228d99 100644
--- a/modules/system/kanata.nix
+++ b/modules/system/kanata.nix
@@ -18,34 +18,7 @@ in
       keyboards = {
         internalKeyboard = {
           extraDefCfg = "process-unmapped-keys yes";
-          config = ''
-            (defsrc
-              caps a s d f h j k l
-            )
-            (defvar
-              tap-time 200
-              hold-time 250
-            )
-            (defalias
-              caps (tap-hold $tap-time $hold-time caps (layer-while-held arrows))
-              a (tap-hold $tap-time $hold-time a lalt)
-              s (tap-hold $tap-time $hold-time s lsft)
-              d (tap-hold $tap-time $hold-time d lmet)
-              f (tap-hold $tap-time $hold-time f lctl)
-              h (tap-hold $tap-time $hold-time h rctl)
-              j (tap-hold $tap-time $hold-time j rmet)
-              k (tap-hold $tap-time $hold-time k rsft)
-              l (tap-hold $tap-time $hold-time l ralt)
-            )
-
-            (deflayer base
-              @caps @a  @s  @d  @f  @h  @j  @k  @l
-            )
-
-            (deflayer arrows
-              _ _ _ _ _ left down up right
-            )
-          '';
+          configFile = ../../config/kanata/kanata.kbd;
         };
       };
     };