(defcfg
  ;; For Linux

  input  (device-file "/dev/input/by-id/usb-BTC_USB_Multimedia_Keyboard-event-kbd")
  output (uinput-sink "My KMonad output"
    ;; To understand the importance of the following line, see the section on
    ;; Compose-key sequences at the near-bottom of this file.
    "/run/current-system/profile/bin/sleep 1 && /home/mario/.guix-home/profile/bin/setxkbmap us -option compose:ralt -option -option compose:ralt")
  cmp-seq ralt    ;; Set the compose key to `RightAlt'
  cmp-seq-delay 5 ;; 5ms delay between each compose-key sequence press

  ;; For Windows
  ;; input  (low-level-hook)
  ;; output (send-event-sink)

  ;; For MacOS
  ;; input  (iokit-name "my-keyboard-product-string")
  ;; output (kext)

  ;; Comment this if you want unhandled events not to be emitted
  fallthrough true

  ;; Set this to false to disable any command-execution in KMonad
  allow-cmd false
)

#|
(deflayer layer
  _  _   _   _   _  _  _  _   _  _  _  _  _ _ _ _
  _  _    _    _    _    _    _    _    _    _    _    _   _    _
  _  _   _     _    _    _    _    _    _    _    _    _    _   _
  _ _    _    _    _    _    _    _    _    _    _    _    _
  _ _    _    _    _    _    _    _    _    _    _    _                _
  _ _ _           _            _ _ _  _ _ _ _
)
|#

(defsrc
  esc  f1  f2  f3  f4  f5  f6  f7  f8  f9  f10 f11  f12 pgup end ins
  grv  1   2   3   4   5   6   7   8   9   0   -    =   bspc
  tab  q   w   e   r   t   y   u   i   o   p   [    ]   ret
  caps a   s   d   f   g   h   j   k   l   ;   '    \
  lsft z   x   c   v   b   n   m   ,   .   /   rsft          up
  lctl lmet lalt        spc        ralt rmet cmp  rctl left down right
)

(deflayer dvorak
  esc  f1  f2  f3  f4  f5  f6  f7  f8  f9  f10 f11  f12 pgup end @qwe
  grv   1   2   3   4   5   6   7   8   9   0   [    ]   bspc
  @stab  '   ,   .   p   y   f   g   c   r   l   /    =   ret
  @cesc  a  o   e   u   i   d   h   t   n   s   -    \
  lsft ;   q   j   k   x   b   m   w   v   z   rsft            up
  XX   lmet  lalt        @sm      ralt rmet cmp  rctl left down right
)

(deflayer qwerty
  esc  f1  f2  f3  f4  f5  f6  f7  f8  f9  f10 f11  f12 pgup end @dvo
  grv  1   2   3   4   5   6   7   8   9   0   -    =   bspc
  tab  q   w   e   r   t   y   u   i   o   p   [    ]   ret
  caps a   s   d   f   g   h   j   k   l   ;   '    \
  lsft z   x   c   v   b   n   m   ,   .   /   rsft          up
  lctl lmet lalt        spc        ralt rmet cmp  rctl left down right
)

(deflayer special
  XX  XX   XX   XX   XX  XX  XX  XX   XX  XX  XX  XX  XX XX XX XX
  XX  A-1    A-2    A-3   A-4    A-5    A-6    XX    XX    XX    XX    XX   XX    XX
  XX  XX   XX     XX    pgup    XX    A-Tab    XX    XX    XX    right    XX    XX   XX
  XX XX    XX    XX   pgup    XX    pgdn    left    XX    pgdn    XX    XX    XX
  XX XX    XX    down   up    XX    XX    XX    XX    XX    XX    XX                XX
  XX XX XX           C-Tab            XX XX XX  XX XX XX XX
)

(deflayer shift
  _  _   _   _   _  _  _  _   _  _  _  _  _ _ _ _
  ~    !   @   #   $   %   ^   &   *   \(  \)   {    }   bspc
  S-tab  "  <  >   P   Y   F   G   C   R   L   ?   +  S-ret
  XX A O  E   U   I   D   H   T   N   S   \_   |
  XX   :   Q   J   K   X   B   M   W   V   Z XX              S-up
  XX  XX  S-lalt     S-spc    S-ralt S-rmet S-cmp  S-rctl S-left S-down S-right
)

(defalias
  sm (tap-hold 200 spc lmet)
  stab (tap-hold-next-release 200 tab (layer-toggle special))
  qwe (layer-switch qwerty)
  dvo (layer-switch dvorak)
  aa (tap-hold-next-release 200 a lalt)
  as (tap-hold-next-release 200 s lalt)
  cesc (tap-hold 100 esc lctl))