;; A function to setup all the keys for modalka.
;; Because I don't want to use the `use-package' `:general'
;; thing.
;;;###autoload
(defun sike/setup ()
  "Setup all of Sike's keybindings."
  (interactive)
  (modalka-define-kbd "M-;" "C-x C-x")
  (modalka-define-kbd "0" "M-0")
  (modalka-define-kbd "1" "M-1")
  (modalka-define-kbd "2" "M-2")
  (modalka-define-kbd "3" "M-3")
  (modalka-define-kbd "4" "M-4")
  (modalka-define-kbd "5" "M-5")
  (modalka-define-kbd "6" "M-6")
  (modalka-define-kbd "7" "M-7")
  (modalka-define-kbd "8" "M-8")
  (modalka-define-kbd "9" "M-9")
  (general-create-definer modalka-leader
    :prefix "SPC")
  (general-create-definer modalka-localleader
    :prefix "SPC m")
  (general-define-key
   :keymaps 'modalka-mode-map
   ;; Eh-scAH-pEH
   "<escape>" 'sike/escape-things
   ;; "insert-mode"
   "i" 'sike/insert-mode
   ;; Movement
   "j" 'sike/j
   "k" 'sike/k
   "h" 'sike/h
   "l" 'sike/l
   "J" 'sike/J
   "K" 'sike/K
   "H" 'sike/H
   "L" 'sike/L
   "w" 'sike/w
   "W" 'sike/W
   "b" 'sike/b
   "B" 'sike/B
   ;; Searching on a line
   "f" 'sike/f
   "F" 'sike/F
   "t" 'sike/s
   "T" 'sike/S
   ;; Selecting lines
   "M-l" 'sike/M-l
   "M-h" 'sike/M-h
   "x" 'sike/x
   "X" 'sike/X
   ;; Cut, yank, paste
   "d" 'sike/d
   "p" 'sike/p
   "y" 'kill-ring-save
   "Y" 'sike/Y
   ;; Replacing
   "r" 'sike/replace-char
   "R" 'sike/replace-selection
   ;; Downcase and upcase
   "`" 'sike/downcase
   "~" 'sike/upcase
   ;; Undo
   "u" 'undo-tree-undo
   "U" 'undo-tree-redo
   ;; Messing with lines
   "o" 'sike/o
   "O" 'sike/O
   "M-o" 'sike/M-o
   "M-O" 'sike/M-O
   "M-j" 'sike/join
   ;; More mark things
   "%" 'mark-whole-buffer
   ";" 'deactivate-mark
   "M-+" 'er/expand-region)
  ;; Goto keys
  (general-define-key
   :keymap 'modalka-mode-map
   :prefix "g"
   "h" 'beginning-of-visual-line
   "l" 'end-of-visual-line
   "k" 'beginning-of-buffer
   "j" 'end-of-buffer)
  ;; EZ movement
  (general-define-key
   :keymap 'modalka-mode-map
   :prefix "gs"
   ;; EZ movement
   "f" 'sike-ez/forward-find-char
   "t" 'sike-ez/forward
   "w" 'sike-ez/forward-word-begin
   "k" 'sike-ez/goto-line-above
   "j" 'sike-ez/goto-line-below)
  ;; Expand Region thingies
  (general-define-key
   :keymap 'modalka-mode-map
   :prefix "M-i"
   ;; - Inside (sorta)
   "w" 'er/mark-word
   "b" 'er/mark-inside-pairs
   "'" 'er/mark-inside-quotes
   "s" 'er/mark-text-sentence
   "p" 'er/mark-text-paragraph)
  (general-define-key
   :keymap 'modalka-mode-map
   :prefix "M-a"
   ;; - Outside (sorta)
   "w" 'er/mark-symbol
   "b" 'er/mark-outside-pairs
   "'" 'er/mark-outside-quotes
   "s" 'er/mark-sentence
   "p" 'er/mark-paragraph)
  (modalka-leader modalka-mode-map
                  "d" 'dired-toggle
                  "X" 'org-capture
                  "." 'helm-find-files
                  "<" 'helm-buffer-list
                  ":" 'helm-M-x
                  ";" 'eval-expression))