;; Kanata Configuration File for Graphite Anglemod Layout

;; Define the source keys Kanata will intercept.
(defsrc
	grv   1     2     3    4     5     6     7  8  9  0  -     =    bspc
	tab   q     w     e    r     t     y     u  i  o  p  [     ]    \
	caps  a     s     d    f     g     h     j  k  l  ;  '     ret  
	lsft  z     x     c    v     b     n     m  ,  .  /  rsft       
	lctl  lmet  lalt  spc  ralt  rmet  rctl                         
)

(defvar
  tap-time 150
  hold-time 200
)

(defalias
  escctrl (tap-hold 100 100 esc lctl)
  a (multi f24 (tap-hold $tap-time $hold-time a lalt))
  s (multi f24 (tap-hold $tap-time $hold-time s lmet))
  d (multi f24 (tap-hold $tap-time $hold-time d lctl))
  f (multi f24 (tap-hold $tap-time $hold-time f lsft))
  x (multi f24 (tap-hold $tap-time $hold-time x ralt))
  j (multi f24 (tap-hold $tap-time $hold-time j lsft))
  k (multi f24 (tap-hold $tap-time $hold-time k lctl))
  l (multi f24 (tap-hold $tap-time $hold-time l lmet))
  ; (multi f24 (tap-hold $tap-time $hold-time ; lalt))
  . (multi f24 (tap-hold $tap-time $hold-time . ralt))
) 

;; Default QWERTY Layout
(deflayer qwerty
	@grl  1     2     3    4     5     6     7   8   9   0   -     =    bspc
	tab   q     w     e    r     t     y     u   i   o   p   [     ]    \
	caps  @a    @s    @d   @f    g     h     @j  @k  @l  @;  '     ret  
	lsft  z     @x    c    v     b     n     m   ,   @.  /   rsft       
	lctl  lmet  lalt  spc  ralt  rmet  rctl                             
)

(defalias
  ca (multi f24 (tap-hold $tap-time $hold-time a lalt))
  cr (multi f24 (tap-hold $tap-time $hold-time r lmet))
  cs (multi f24 (tap-hold $tap-time $hold-time s lctl))
  ct (multi f24 (tap-hold $tap-time $hold-time t lsft))
  cc (multi f24 (tap-hold $tap-time $hold-time c ralt))
  cn (multi f24 (tap-hold $tap-time $hold-time n lsft))
  ce (multi f24 (tap-hold $tap-time $hold-time e lctl))
  ci (multi f24 (tap-hold $tap-time $hold-time i lmet))
  co (multi f24 (tap-hold $tap-time $hold-time o lalt))
)

;; Colemak-DH + home row mods
(deflayer colemak-dh
	@grl  1     2     3    4     5     6  7    8    9    0    -     =    bspc
	tab   q     w     f    p     b     j  l    u    y    ;    [     ]    \
	caps  @ca   @cr   @cs  @ct   g     m  @cn  @ce  @ci  @co  '     ret  
	lsft  x     @cc   d    v     z     k  h    ,    @.   /    rsft       
	lctl  lmet  lalt  spc  ralt  rmet  _                                 
)

(defalias
  quote  (fork ' S-- (lsft rsft)) ;; ' -> _
  comma  (fork , S-/ (lsft rsft)) ;; , -> ?
  hyphen (fork - S-' (lsft rsft)) ;; - -> "
  slash  (fork / S-, (lsft rsft)) ;; / -> <
)

;; Graphite Anglemod Layout
(deflayer graphite-anglemod
	@grl  1     2     3    4     5     6       7  8  9        0       [       ]    bspc
	tab   b     l     d    w     z     @quote  f  o  u        j       ;       =    \
	@cap  n     r     t    s     g     y       h  a  e        i       @comma  ret  
	lsft  x     m     c    v     q     p       k  .  @hyphen  @slash  rsft         
	lctl  lmet  lalt  spc  ralt  rmet  rctl                                        
)

;; Define layer-switching aliases for clean deflayer declarations
(defalias
 ;; Tap: backtick (grave), Hold: toggles 'layers' for layer switching.
 grl (tap-hold 200 200 grv (layer-toggle layers))

 ;; Layer-switch aliases
 gar (layer-switch graphite-anglemod)
 cdh (layer-switch colemak-dh)
 qwr (layer-switch qwerty)

 ;; Tap for Caps Lock, Hold for Ctrl
 cap (tap-hold 200 200 caps lctl)
)

;; Layer-Switching Layer
;; Keys 1 and 2 switch between QWERTY and Graphite Anglemod layouts
;; The _ (underscore) indicates transparent behavior (passes through base layer).
(deflayer layers
	_  @qwr  @cdh  @gar  _  _  _  _  _  _  _  _  _  _
	_  _     _     _     _  _  _  _  _  _  _  _  _  _
	_  _     _     _     _  _  _  _  _  _  _  _  _  
	_  _     _     _     _  _  _  _  _  _  _  _     
	_  _     _     _     _  _  _                    
)