;;; config/default/+bindings.el -*- lexical-binding: t; -*-

;; This file defines a Spacemacs-esque keybinding scheme

;; expand-region's prompt can't tell what key contract-region is bound to, so we
;; tell it explicitly.
(setq expand-region-contract-fast-key "V")

;;
(map! [remap evil-jump-to-tag] #'projectile-find-tag
      [remap find-tag]         #'projectile-find-tag

      ;; Ensure there are no conflicts
      :nmvo doom-leader-key nil
      :nmvo doom-localleader-key nil

      ;; Swap RET/C-j in insert mode
      :i [remap newline] #'newline-and-indent
      :i "C-j" #'+default/newline

      ;; --- Global keybindings ---------------------------
      ;; Make M-x available everywhere
      :gnvime "M-x" #'execute-extended-command
      :gnvime "A-x" #'execute-extended-command

      ;; A little sandbox to run code in
      :gnvime "M-;" #'eval-expression

      ;; Text-scaling
      :n "M-+"   (λ! (text-scale-set 0))
      :n "M-="   #'text-scale-increase
      :n "M--"   #'text-scale-decrease

      ;; Simple window/frame navigation/manipulation
      :n "C-`"   #'+popup/toggle
      :n "C-~"   #'+popup/raise
      :n "M-t"   #'+workspace/new
      :n "M-T"   #'+workspace/display
      :n "M-w"   #'delete-window
      :n "M-W"   #'delete-frame
      :n "C-M-f" #'toggle-frame-fullscreen
      :n "M-n"   #'evil-buffer-new
      :n "M-N"   #'make-frame
      :n "M-1"   (λ! (+workspace/switch-to 0))
      :n "M-2"   (λ! (+workspace/switch-to 1))
      :n "M-3"   (λ! (+workspace/switch-to 2))
      :n "M-4"   (λ! (+workspace/switch-to 3))
      :n "M-5"   (λ! (+workspace/switch-to 4))
      :n "M-6"   (λ! (+workspace/switch-to 5))
      :n "M-7"   (λ! (+workspace/switch-to 6))
      :n "M-8"   (λ! (+workspace/switch-to 7))
      :n "M-9"   (λ! (+workspace/switch-to 8))
      :n "M-0"   #'+workspace/switch-to-last

      ;; Other sensible, textmate-esque global bindings
      :n "M-r"   #'+eval/buffer
      :n "M-R"   #'+eval/region-and-replace
      :n "M-b"   #'+default/compile
      :n "M-a"   #'mark-whole-buffer
      :n "M-c"   #'evil-yank
      :n "M-q"   (if (daemonp) #'delete-frame #'evil-quit-all)
      (:when (featurep! :completion helm)
        :n "M-f" #'swiper-helm)
      (:when (featurep! :completion ivy)
        :n "M-f" #'swiper)
      :n  "M-s"   #'save-buffer
      :m  "A-j"   #'+default:multi-next-line
      :m  "A-k"   #'+default:multi-previous-line
      :nv "C-SPC" #'+evil:fold-toggle
      :gnvimr "M-v" #'clipboard-yank
      ;; Easier window navigation
      :en "C-h"   #'evil-window-left
      :en "C-j"   #'evil-window-down
      :en "C-k"   #'evil-window-up
      :en "C-l"   #'evil-window-right

      "C-x p"     #'+popup/other
      (:when IS-MAC
        "\M-`"    #'other-frame)


      ;; --- Personal vim-esque bindings ------------------
      :nv "K"  #'+lookup/documentation
      :n  "zx" #'kill-this-buffer
      :n  "ZX" #'bury-buffer
      :m  "]a" #'evil-forward-arg
      :m  "[a" #'evil-backward-arg
      :n  "]b" #'next-buffer
      :n  "[b" #'previous-buffer
      :n  "]w" #'+workspace/switch-right
      :n  "[w" #'+workspace/switch-left
      :m  "gt" #'+workspace/switch-right
      :m  "gT" #'+workspace/switch-left
      :m  "gd" #'+lookup/definition
      :m  "gD" #'+lookup/references
      :n  "gf" #'+lookup/file
      :n  "gQ" #'+format:region
      :n  "gp" #'+evil/reselect-paste
      :v  "gp" #'+evil/paste-preserve-register
      :n  "gr" #'+eval:region
      :n  "gR" #'+eval/buffer
      :v  "gR" #'+eval:replace-region
      :v  "@"  #'+evil:apply-macro
      :n  "g@" #'+evil:apply-macro
      ;; repeat in visual mode (FIXME buggy)
      :v  "."  #'evil-repeat
      ;; don't leave visual mode after shifting
      :v  "<"  #'+evil/visual-dedent  ; vnoremap < <gv
      :v  ">"  #'+evil/visual-indent  ; vnoremap > >gv

      :nv "C-a"   #'evil-numbers/inc-at-pt
      :nv "C-S-a" #'evil-numbers/dec-at-pt


      ;; --- Plugin bindings ------------------------------
      ;; auto-yasnippet
      :i  [C-tab] #'aya-expand
      :nv [C-tab] #'aya-create

      ;; company-mode (vim-like omnicompletion)
      :i "C-@"    #'+company/complete
      :i "C-SPC"  #'+company/complete
      (:prefix "C-x"
        :i "C-l"   #'+company/whole-lines
        :i "C-k"   #'+company/dict-or-keywords
        :i "C-f"   #'company-files
        :i "C-]"   #'company-etags
        :i "s"     #'company-ispell
        :i "C-s"   #'company-yasnippet
        :i "C-o"   #'company-capf
        :i "C-n"   #'+company/dabbrev
        :i "C-p"   #'+company/dabbrev-code-previous)
      (:after company
        (:map company-active-map
          ;; Don't interfere with `evil-delete-backward-word' in insert mode
          "C-w"     nil
          "C-n"     #'company-select-next
          "C-p"     #'company-select-previous
          "C-j"     #'company-select-next
          "C-k"     #'company-select-previous
          "C-h"     #'company-show-doc-buffer
          "C-u"     #'company-previous-page
          "C-d"     #'company-next-page
          "C-s"     #'company-filter-candidates
          (:when (featurep! :completion helm)
            "C-S-s" #'helm-company)
          (:when (featurep! :completion ivy)
            "C-S-s" #'counsel-company)
          "C-SPC"   #'company-complete-common
          [tab]     #'company-complete-common-or-cycle
          [backtab] #'company-select-previous)
        ;; Automatically applies to `company-filter-map'
        (:map company-search-map
          "C-n"     #'company-select-next-or-abort
          "C-p"     #'company-select-previous-or-abort
          "C-j"     #'company-select-next-or-abort
          "C-k"     #'company-select-previous-or-abort
          "C-s"     (λ! (company-search-abort) (company-filter-candidates))
          [escape]  #'company-search-abort))

      ;; counsel
      (:when (featurep! :completion ivy)
        (:after counsel
          (:map counsel-ag-map
            [backtab]  #'+ivy/wgrep-occur      ; search/replace on results
            "C-SPC"    #'ivy-call-and-recenter ; preview
            "M-RET"    (+ivy-do-action! #'+ivy-git-grep-other-window-action))))

      ;; easymotion
      :m "gs" #'+evil/easymotion  ; lazy-load `evil-easymotion'
      (:after evil-easymotion
        :map evilem-map
        "a" (evilem-create #'evil-forward-arg)
        "A" (evilem-create #'evil-backward-arg)
        "s" (evilem-create #'evil-snipe-repeat
                           :name 'evil-easymotion-snipe-forward
                           :pre-hook (save-excursion (call-interactively #'evil-snipe-s))
                           :bind ((evil-snipe-scope 'buffer)
                                  (evil-snipe-enable-highlight)
                                  (evil-snipe-enable-incremental-highlight)))
        "S" (evilem-create #'evil-snipe-repeat
                           :name 'evil-easymotion-snipe-backward
                           :pre-hook (save-excursion (call-interactively #'evil-snipe-S))
                           :bind ((evil-snipe-scope 'buffer)
                                  (evil-snipe-enable-highlight)
                                  (evil-snipe-enable-incremental-highlight)))
        "SPC" #'avy-goto-char-timer
        "/" (evilem-create #'evil-ex-search-next
                           :pre-hook (save-excursion (call-interactively #'evil-ex-search-forward))
                           :bind ((evil-search-wrap)))
        "?" (evilem-create #'evil-ex-search-previous
                           :pre-hook (save-excursion (call-interactively #'evil-ex-search-backward))
                           :bind ((evil-search-wrap))))

      ;; evil
      (:after evil
        :textobj "x" #'evil-inner-xml-attr               #'evil-outer-xml-attr
        :textobj "a" #'evil-inner-arg                    #'evil-outer-arg
        :textobj "B" #'evil-textobj-anyblock-inner-block #'evil-textobj-anyblock-a-block
        :textobj "i" #'evil-indent-plus-i-indent         #'evil-indent-plus-a-indent
        :textobj "k" #'evil-indent-plus-i-indent-up      #'evil-indent-plus-a-indent-up
        :textobj "j" #'evil-indent-plus-i-indent-up-down #'evil-indent-plus-a-indent-up-down

        (:map evil-window-map ; prefix "C-w"
          ;; Navigation
          "C-h"     #'evil-window-left
          "C-j"     #'evil-window-down
          "C-k"     #'evil-window-up
          "C-l"     #'evil-window-right
          "C-w"     #'other-window
          ;; Swapping windows
          "H"       #'+evil/window-move-left
          "J"       #'+evil/window-move-down
          "K"       #'+evil/window-move-up
          "L"       #'+evil/window-move-right
          "C-S-w"   #'ace-swap-window
          ;; Window undo/redo
          "u"       #'winner-undo
          "C-u"     #'winner-undo
          "C-r"     #'winner-redo
          "o"       #'doom/window-enlargen
          ;; Delete window
          "c"       #'+workspace/close-window-or-workspace
          "C-C"     #'ace-delete-window))

      ;; evil-commentary
      :n  "gc"  #'evil-commentary

      ;; evil-exchange
      :n  "gx"  #'evil-exchange

      ;; evil-matchit
      :nv [tab] #'+evil/matchit-or-toggle-fold

      ;; evil-magit
      (:after evil-magit
        :map (magit-status-mode-map magit-revision-mode-map)
        :n "C-j" nil
        :n "C-k" nil)

      ;; evil-mc
      (:prefix "gz"
        :nv "m" #'evil-mc-make-all-cursors
        :nv "u" #'evil-mc-undo-all-cursors
        :nv "z" #'+evil/mc-make-cursor-here
        :nv "t" #'+evil/mc-toggle-cursors
        :nv "n" #'evil-mc-make-and-goto-next-cursor
        :nv "p" #'evil-mc-make-and-goto-prev-cursor
        :nv "N" #'evil-mc-make-and-goto-last-cursor
        :nv "P" #'evil-mc-make-and-goto-first-cursor
        :nv "d" #'evil-mc-make-and-goto-next-match
        :nv "D" #'evil-mc-make-and-goto-prev-match
        :nv "j" #'evil-mc-make-cursor-move-next-line
        :nv "k" #'evil-mc-make-cursor-move-prev-line)
      (:after evil-mc
        :map evil-mc-key-map
        :nv "C-n" #'evil-mc-make-and-goto-next-cursor
        :nv "C-N" #'evil-mc-make-and-goto-last-cursor
        :nv "C-p" #'evil-mc-make-and-goto-prev-cursor
        :nv "C-P" #'evil-mc-make-and-goto-first-cursor)

      ;; evil-multiedit
      :v  "R"     #'evil-multiedit-match-all
      :n  "M-d"   #'evil-multiedit-match-symbol-and-next
      :n  "M-D"   #'evil-multiedit-match-symbol-and-prev
      :v  "M-d"   #'evil-multiedit-match-and-next
      :v  "M-D"   #'evil-multiedit-match-and-prev
      :nv "C-M-d" #'evil-multiedit-restore
      (:after evil-multiedit
        (:map evil-multiedit-state-map
          "M-d" #'evil-multiedit-match-and-next
          "M-D" #'evil-multiedit-match-and-prev
          "RET" #'evil-multiedit-toggle-or-restrict-region)
        (:map (evil-multiedit-state-map evil-multiedit-insert-state-map)
          "C-n" #'evil-multiedit-next
          "C-p" #'evil-multiedit-prev))

      ;; evil-snipe
      (:after evil-snipe
        :map evil-snipe-parent-transient-map
        ;; switch to evil-easymotion/avy after a snipe
        "C-;" (λ! (require 'evil-easymotion)
                  (call-interactively
                   (evilem-create #'evil-snipe-repeat
                                  :bind ((evil-snipe-scope 'whole-buffer)
                                         (evil-snipe-enable-highlight)
                                         (evil-snipe-enable-incremental-highlight))))))

      ;; evil-surround
      :v  "S"  #'evil-surround-region
      :o  "s"  #'evil-surround-edit
      :o  "S"  #'evil-Surround-edit

      ;; expand-region
      :v  "v"  #'er/expand-region
      :v  "V"  #'er/contract-region

      ;; flycheck
      :m  "]e" #'next-error
      :m  "[e" #'previous-error
      (:after flycheck
        :map flycheck-error-list-mode-map
        :n "C-n" #'flycheck-error-list-next-error
        :n "C-p" #'flycheck-error-list-previous-error
        :n "j"   #'flycheck-error-list-next-error
        :n "k"   #'flycheck-error-list-previous-error
        :n "RET" #'flycheck-error-list-goto-error)

      ;; flyspell
      :m  "]S" #'flyspell-correct-word-generic
      :m  "[S" #'flyspell-correct-previous-word-generic
      (:after flyspell
        ;; Press RET on misspelled words to correct them
        (:map flyspell-mouse-map
          "RET" #'flyspell-correct-word-generic
          "<mouse-1>" #'flyspell-correct-word-generic))

      ;; git-gutter
      :m  "]d" #'git-gutter:next-hunk
      :m  "[d" #'git-gutter:previous-hunk

      ;; git-timemachine
      (:after git-timemachine
        (:map git-timemachine-mode-map
          :n "C-p" #'git-timemachine-show-previous-revision
          :n "C-n" #'git-timemachine-show-next-revision
          :n "[["  #'git-timemachine-show-previous-revision
          :n "]]"  #'git-timemachine-show-next-revision
          :n "q"   #'git-timemachine-quit
          :n "gb"  #'git-timemachine-blame))

      ;; gist
      (:after gist
        :map gist-list-menu-mode-map
        :n "RET" #'+gist/open-current
        :n "b"   #'gist-browse-current-url
        :n "c"   #'gist-add-buffer
        :n "d"   #'gist-kill-current
        :n "f"   #'gist-fork
        :n "q"   #'quit-window
        :n "r"   #'gist-list-reload
        :n "s"   #'gist-star
        :n "S"   #'gist-unstar
        :n "y"   #'gist-print-current-url)

      ;; helm
      (:after helm
        (:map helm-map
          [left]     #'left-char
          [right]    #'right-char
          "C-S-n"    #'helm-next-source
          "C-S-p"    #'helm-previous-source
          "C-j"      #'helm-next-line
          "C-k"      #'helm-previous-line
          "C-S-j"    #'helm-next-source
          "C-S-k"    #'helm-previous-source
          "C-f"      #'helm-next-page
          "C-S-f"    #'helm-previous-page
          "C-u"      #'helm-delete-minibuffer-contents
          "C-w"      #'backward-kill-word
          "C-r"      #'evil-paste-from-register ; Evil registers in helm! Glorious!
          "C-s"      #'helm-minibuffer-history
          "C-b"      #'backward-word
          ;; Swap TAB and C-z
          [tab]      #'helm-execute-persistent-action
          "C-z"      #'helm-select-action)
        (:after helm-files
          :map (helm-find-files-map helm-read-file-map)
          [M-return] #'helm-ff-run-switch-other-window
          "C-w"      #'helm-find-files-up-one-level)
        (:after helm-ag
          :map helm-ag-map
          [backtab]  #'helm-ag-edit
          [left] nil
          [right] nil)
        (:after helm-locate
          :map helm-generic-files-map
          [M-return] #'helm-ff-run-switch-other-window)
        (:after helm-buffers
          :map helm-buffer-map
          [M-return] #'helm-buffer-switch-other-window)
        (:after helm-regexp
          :map helm-moccur-map
          [M-return] #'helm-moccur-run-goto-line-ow)
        (:after helm-grep
          :map helm-grep-map
          [M-return] #'helm-grep-run-other-window-action))

      ;; hl-todo
      :m  "]t" #'hl-todo-next
      :m  "[t" #'hl-todo-previous

      ;; ivy
      (:after ivy
        :map ivy-minibuffer-map
        "C-SPC" #'ivy-call-and-recenter  ; preview file
        "C-l"   #'ivy-alt-done
        "M-z"   #'undo
        "M-v"   #'yank
        "C-v"   #'yank)

      ;; neotree
      (:after neotree
        :map neotree-mode-map
        :n "g"         nil
        :n [tab]       #'neotree-quick-look
        :n "RET"       #'neotree-enter
        :n [backspace] #'evil-window-prev
        :n "c"         #'neotree-create-node
        :n "r"         #'neotree-rename-node
        :n "d"         #'neotree-delete-node
        :n "j"         #'neotree-next-line
        :n "k"         #'neotree-previous-line
        :n "n"         #'neotree-next-line
        :n "p"         #'neotree-previous-line
        :n "h"         #'+neotree/collapse-or-up
        :n "l"         #'+neotree/expand-or-open
        :n "J"         #'neotree-select-next-sibling-node
        :n "K"         #'neotree-select-previous-sibling-node
        :n "H"         #'neotree-select-up-node
        :n "L"         #'neotree-select-down-node
        :n "G"         #'evil-goto-line
        :n "gg"        #'evil-goto-first-line
        :n "v"         #'neotree-enter-vertical-split
        :n "s"         #'neotree-enter-horizontal-split
        :n "q"         #'neotree-hide
        :n "R"         #'neotree-refresh)

      ;; realgud
      (:after realgud
        :map realgud:shortkey-mode-map
        :n "j" #'evil-next-line
        :n "k" #'evil-previous-line
        :n "h" #'evil-backward-char
        :n "l" #'evil-forward-char
        :m "n" #'realgud:cmd-next
        :m "b" #'realgud:cmd-break
        :m "B" #'realgud:cmd-clear
        :n "c" #'realgud:cmd-continue)

      ;; rotate-text
      :n  "!"  #'rotate-text

      ;; swiper
      (:after swiper
        (:map swiper-map
          [backtab]  #'+ivy/wgrep-occur))

      ;; yasnippet
      (:after yasnippet
        (:map yas-keymap
          "C-e"           #'+snippets/goto-end-of-field
          "C-a"           #'+snippets/goto-start-of-field
          "<M-right>"     #'+snippets/goto-end-of-field
          "<M-left>"      #'+snippets/goto-start-of-field
          "<M-backspace>" #'+snippets/delete-to-start-of-field
          [backspace]     #'+snippets/delete-backward-char
          [delete]        #'+snippets/delete-forward-char-or-field)
        (:map yas-minor-mode-map
          :ig [tab] yas-maybe-expand
          :v  [tab] #'yas-insert-snippet))


      ;; --- Major mode bindings --------------------------
      (:after markdown-mode
        (:map markdown-mode-map
          ;; fix conflicts with private bindings
          "<backspace>" nil
          "<M-left>"    nil
          "<M-right>"   nil))


      ;; --- Built-in plugins -----------------------------
      (:when (featurep! :completion company)
        (:after comint
          ;; TAB auto-completion in term buffers
          :map comint-mode-map [tab] #'company-complete))

      (:map* (help-mode-map helpful-mode-map)
        :n "o"  #'ace-link-help
        :n "q"  #'quit-window
        :n "Q"  #'ivy-resume
        :n "]l" #'forward-button
        :n "[l" #'backward-button)

      (:after vc-annotate
        :map vc-annotate-mode-map
        [remap quit-window] #'kill-this-buffer))


;;
;; <leader>
;;

(map! :leader
      :desc "Ex command"              :nv ";"  #'evil-ex
      :desc "M-x"                     :nv ":"  #'execute-extended-command
      :desc "Pop up scratch buffer"   :nv "x"  #'doom/open-scratch-buffer
      :desc "Org Capture"             :nv "X"  #'org-capture

      ;; Most commonly used
      :desc "Find file in project"    :n "SPC" #'projectile-find-file
      :desc "Browse files"            :n "."   #'find-file
      :desc "Toggle last popup"       :n "~"   #'+popup/toggle
      (:when (featurep! :completion ivy)
        :desc "Resume last search"    :n "'"   #'ivy-resume)
      (:when (featurep! :completion helm)
        :desc "Resume last search"    :n "'"   #'helm-resume)
      :desc "Blink cursor line"       :n "DEL" #'+nav-flash/blink-cursor
      :desc "Jump to bookmark"        :n "RET" #'bookmark-jump

      (:when (featurep! :feature workspaces)
        :desc "Switch workspace buffer" :n "," #'persp-switch-to-buffer
        :desc "Switch buffer"           :n "<" #'switch-to-buffer)
      (:unless (featurep! :feature workspaces)
        :desc "Switch buffer"           :n "," #'switch-to-buffer)

      ;; C-u is used by evil
      :desc "Universal argument"      :n "u"  #'universal-argument
      :desc "window"                  :n "w"  evil-window-map

      (:desc "previous..." :prefix "["
        :desc "Text size"             :nv "[" #'text-scale-decrease
        :desc "Buffer"                :nv "b" #'previous-buffer
        :desc "Diff Hunk"             :nv "d" #'git-gutter:previous-hunk
        :desc "Todo"                  :nv "t" #'hl-todo-previous
        :desc "Error"                 :nv "e" #'previous-error
        :desc "Workspace"             :nv "w" #'+workspace/switch-left
        :desc "Smart jump"            :nv "h" #'smart-backward
        :desc "Spelling error"        :nv "s" #'evil-prev-flyspell-error
        :desc "Spelling correction"   :n  "S" #'flyspell-correct-previous-word-generic)

      (:desc "next..." :prefix "]"
        :desc "Text size"             :nv "]" #'text-scale-increase
        :desc "Buffer"                :nv "b" #'next-buffer
        :desc "Diff Hunk"             :nv "d" #'git-gutter:next-hunk
        :desc "Todo"                  :nv "t" #'hl-todo-next
        :desc "Error"                 :nv "e" #'next-error
        :desc "Workspace"             :nv "w" #'+workspace/switch-right
        :desc "Spelling error"        :nv "s" #'evil-next-flyspell-error
        :desc "Spelling correction"   :n  "S" #'flyspell-correct-word-generic)

      (:desc "search" :prefix "/"
        (:when (featurep! :completion ivy)
          :desc "Buffer"                 :nv "b" #'swiper
          :desc "Project"                :nv "p" #'+ivy/project-search
          :desc "Directory"              :nv "d" #'+ivy/project-search-from-cwd)
        (:when (featurep! :completion helm)
          :desc "Buffer"                 :nv "b" #'swiper-helm
          :desc "Project"                :nv "p" #'+helm/project-search
          :desc "Directory"              :nv "d" #'+helm/project-search-from-cwd)
        :desc "Symbols"                :nv "i" #'imenu
        :desc "Symbols across buffers" :nv "I" #'imenu-anywhere
        :desc "Online providers"       :nv "o" #'+lookup/online-select)

      (:desc "workspace" :prefix [tab]
        :desc "Display tab bar"          :n [tab] #'+workspace/display
        :desc "New workspace"            :n "n"   #'+workspace/new
        :desc "Load workspace from file" :n "l"   #'+workspace/load
        :desc "Load a past session"      :n "L"   #'+workspace/load-session
        :desc "Save workspace to file"   :n "s"   #'+workspace/save
        :desc "Autosave current session" :n "S"   #'+workspace/save-session
        :desc "Switch workspace"         :n "."   #'+workspace/switch-to
        :desc "Kill all buffers"         :n "x"   #'doom/kill-all-buffers
        :desc "Delete session"           :n "X"   #'+workspace/kill-session
        :desc "Delete this workspace"    :n "d"   #'+workspace/delete
        :desc "Rename workspace"         :n "r"   #'+workspace/rename
        :desc "Restore last session"     :n "R"   #'+workspace/load-last-session
        :desc "Next workspace"           :n "]"   #'+workspace/switch-right
        :desc "Previous workspace"       :n "["   #'+workspace/switch-left
        :desc "Switch to 1st workspace"  :n "1"   (λ! (+workspace/switch-to 0))
        :desc "Switch to 2nd workspace"  :n "2"   (λ! (+workspace/switch-to 1))
        :desc "Switch to 3rd workspace"  :n "3"   (λ! (+workspace/switch-to 2))
        :desc "Switch to 4th workspace"  :n "4"   (λ! (+workspace/switch-to 3))
        :desc "Switch to 5th workspace"  :n "5"   (λ! (+workspace/switch-to 4))
        :desc "Switch to 6th workspace"  :n "6"   (λ! (+workspace/switch-to 5))
        :desc "Switch to 7th workspace"  :n "7"   (λ! (+workspace/switch-to 6))
        :desc "Switch to 8th workspace"  :n "8"   (λ! (+workspace/switch-to 7))
        :desc "Switch to 9th workspace"  :n "9"   (λ! (+workspace/switch-to 8))
        :desc "Switch to last workspace" :n "0"   #'+workspace/switch-to-last)

      (:desc "buffer" :prefix "b"
        :desc "New empty buffer"        :n "n" #'evil-buffer-new
        (:when (featurep! :feature workspaces)
          :desc "Switch workspace buffer" :n "b" #'persp-switch-to-buffer
          :desc "Switch buffer"           :n "B" #'switch-to-buffer)
        (:unless (featurep! :feature workspaces)
          :desc "Switch buffer"           :n "b" #'switch-to-buffer)
        :desc "Kill buffer"             :n "k" #'kill-this-buffer
        :desc "Kill other buffers"      :n "o" #'doom/kill-other-buffers
        :desc "Save buffer"             :n "s" #'save-buffer
        :desc "Pop scratch buffer"      :n "x" #'doom/open-scratch-buffer
        :desc "Bury buffer"             :n "z" #'bury-buffer
        :desc "Next buffer"             :n "]" #'next-buffer
        :desc "Previous buffer"         :n "[" #'previous-buffer
        :desc "Sudo edit this file"     :n "S" #'doom/sudo-this-file)

      (:desc "code" :prefix "c"
        :desc "List errors"               :n  "x" #'flycheck-list-errors
        :desc "Evaluate buffer/region"    :n  "e" #'+eval/buffer
                                          :v  "e" #'+eval/region
        :desc "Evaluate & replace region" :nv "E" #'+eval:replace-region
        :desc "Format buffer/region"      :n  "f" #'+format/buffer
                                          :v  "f" #'+format/region
        :desc "Build tasks"               :nv "b" #'+eval/build
        :desc "Jump to definition"        :n  "d" #'+lookup/definition
        :desc "Jump to references"        :n  "D" #'+lookup/references
        :desc "Open REPL"                 :n  "r" #'+eval/open-repl
                                          :v  "r" #'+eval:repl)

      (:desc "file" :prefix "f"
        :desc "Find file"                 :n "." #'find-file
        :desc "Sudo find file"            :n ">" #'doom/sudo-find-file
        :desc "Find file in project"      :n "/" #'projectile-find-file
        :desc "Find file from here"       :n "?" #'counsel-file-jump
        :desc "Find other file"           :n "a" #'projectile-find-other-file
        :desc "Open project editorconfig" :n "c" #'editorconfig-find-current-editorconfig
        :desc "Find directory"            :n "d" #'dired
        :desc "Find file in emacs.d"      :n "e" #'+default/find-in-emacsd
        :desc "Browse emacs.d"            :n "E" #'+default/browse-emacsd
        :desc "Recent files"              :n "r" #'recentf-open-files
        :desc "Recent project files"      :n "R" #'projectile-recentf
        :desc "Yank filename"             :n "y" #'+default/yank-buffer-filename
        :desc "Find file in private config" :n "p" #'+default/find-in-config
        :desc "Browse private config"       :n "P" #'+default/browse-config
        :desc "Delete this file"            :n "X" #'doom/delete-this-file)

      (:desc "git" :prefix "g"
        :desc "Magit blame"           :n  "b" #'magit-blame
        :desc "Magit commit"          :n  "c" #'magit-commit
        :desc "Magit clone"           :n  "C" #'+magit/clone
        :desc "Magit dispatch"        :n  "d" #'magit-dispatch-popup
        :desc "Magit find-file"       :n  "f" #'magit-find-file
        :desc "Magit status"          :n  "g" #'magit-status
        :desc "Magit file delete"     :n  "x" #'magit-file-delete
        :desc "List gists"            :n  "G" #'+gist:list
        :desc "Initialize repo"       :n  "i" #'magit-init
        :desc "Browse issues tracker" :n  "I" #'+vc/git-browse-issues
        :desc "Magit buffer log"      :n  "l" #'magit-log-buffer-file
        :desc "List repositories"     :n  "L" #'magit-list-repositories
        :desc "Browse remote"         :n  "o" #'+vc/git-browse
        :desc "Magit push popup"      :n  "p" #'magit-push-popup
        :desc "Magit pull popup"      :n  "P" #'magit-pull-popup
        :desc "Git revert hunk"       :n  "r" #'git-gutter:revert-hunk
        :desc "Git revert file"       :n  "R" #'vc-revert
        :desc "Git stage hunk"        :n  "s" #'git-gutter:stage-hunk
        :desc "Git stage file"        :n  "S" #'magit-stage-file
        :desc "Git time machine"      :n  "t" #'git-timemachine-toggle
        :desc "Git unstage file"      :n  "U" #'magit-unstage-file
        :desc "Next hunk"             :nv "]" #'git-gutter:next-hunk
        :desc "Previous hunk"         :nv "[" #'git-gutter:previous-hunk)

      (:desc "help" :prefix "h"
        :n "h" help-map
        :desc "Apropos"               :n  "a" #'apropos
        :desc "Open Bug Report"       :n  "b" #'doom/open-bug-report
        :desc "Describe char"         :n  "c" #'describe-char
        :desc "Describe DOOM module"  :n  "d" #'doom/describe-module
        :desc "Open Doom manual"      :n  "D" #'doom/open-manual
        :desc "Open vanilla sandbox"  :n  "E" #'doom/open-vanilla-sandbox
        :desc "Describe function"     :n  "f" #'describe-function
        :desc "Describe face"         :n  "F" #'describe-face
        :desc "Info"                  :n  "i" #'info-lookup-symbol
        :desc "Describe key"          :n  "k" #'describe-key
        :desc "Find documentation"    :n  "K" #'+lookup/documentation
        :desc "Find library"          :n  "l" #'find-library
        :desc "Command log"           :n  "L" #'clm/toggle-command-log-buffer
        :desc "View *Messages*"       :n  "m" #'view-echo-area-messages
        :desc "Describe mode"         :n  "M" #'describe-mode
        :desc "Toggle profiler"       :n  "p" #'doom/toggle-profiler
        :desc "Reload theme"          :n  "r" #'doom/reload-theme
        :desc "Reload private config" :n  "R" #'doom/reload
        :desc "Describe DOOM setting" :n  "s" #'doom/describe-setters
        :desc "Describe variable"     :n  "v" #'describe-variable
        :desc "Print Doom version"    :n  "V" #'doom/version
        :desc "Man pages"             :n  "w" #'+default/man-or-woman
        :desc "Describe at point"     :n  "." #'helpful-at-point
        :desc "What face"             :n  "'" #'doom/what-face
        :desc "What minor modes"      :n  ";" #'doom/describe-active-minor-mode)

      (:desc "insert" :prefix "i"
        (:when (featurep! :completion helm)
          :desc "From kill-ring"        :nv "y" #'helm-show-kill-ring)
        (:when (featurep! :completion ivy)
          :desc "From kill-ring"        :nv "y" #'counsel-yank-pop
          :desc "From evil registers"   :nv "r" #'counsel-evil-registers)
        :desc "From snippet"          :nv "s" #'yas-insert-snippet)

      (:desc "notes" :prefix "n"
        :desc "Find file in notes"    :n  "n" #'+default/find-in-notes
        :desc "Browse notes"          :n  "N" #'+default/browse-notes
        :desc "Org capture"           :n  "x" #'org-capture)

      (:desc "open" :prefix "o"
        :desc "Org agenda"            :n  "a" #'org-agenda
        :desc "Default browser"       :n  "b" #'browse-url-of-file
        :desc "Debugger"              :n  "d" #'+debug/open
        :desc "REPL"                  :n  "r" #'+eval/open-repl
                                      :v  "r" #'+eval:repl
        :desc "Dired"                 :n  "-" #'dired-jump
        (:when (featurep! :ui neotree)
          :desc "Project sidebar"              :n  "p" #'+neotree/open
          :desc "Find file in project sidebar" :n  "P" #'+neotree/find-this-file)
        (:when (featurep! :ui treemacs)
          :desc "Project sidebar"              :n  "p" #'+treemacs/toggle
          :desc "Find file in project sidebar" :n  "P" #'+treemacs/find-file)
        :desc "Imenu sidebar"         :nv "i" #'imenu-list-smart-toggle
        :desc "Terminal"              :n  "t" #'+term/open
        :desc "Terminal in popup"     :n  "T" #'+term/open-popup-in-project
        :desc "Eshell"                :n  "e" #'+eshell/open
        :desc "Eshell in popup"       :n  "E" #'+eshell/open-popup

        (:when (featurep! :collab floobits)
          :desc "floobits" :prefix "f"
          :n "c" #'floobits-clear-highlights
          :n "f" #'floobits-follow-user
          :n "j" #'floobits-join-workspace
          :n "l" #'floobits-leave-workspace
          :n "R" #'floobits-share-dir-private
          :n "s" #'floobits-summon
          :n "t" #'floobits-follow-mode-toggle
          :n "U" #'floobits-share-dir-public)

        (:when (featurep! :tools macos)
          :desc "Reveal in Finder"          :n "o" #'+macos/reveal-in-finder
          :desc "Reveal project in Finder"  :n "O" #'+macos/reveal-project-in-finder
          :desc "Send to Transmit"          :n "u" #'+macos/send-to-transmit
          :desc "Send project to Transmit"  :n "U" #'+macos/send-project-to-transmit
          :desc "Send to Launchbar"         :n "l" #'+macos/send-to-launchbar
          :desc "Send project to Launchbar" :n "L" #'+macos/send-project-to-launchbar))

      (:desc "project" :prefix "p"
        :desc "Browse project"          :n  "." #'+default/browse-project
        :desc "Find file in project"    :n  "/" #'projectile-find-file
        :desc "Run cmd in project root" :nv "!" #'projectile-run-shell-command-in-root
        :desc "Compile project"         :n  "c" #'projectile-compile-project
        :desc "Find other file"         :n  "o" #'projectile-find-other-file
        :desc "Switch project"          :n  "p" #'projectile-switch-project
        :desc "Recent project files"    :n  "r" #'projectile-recentf
        :desc "List project tasks"      :n  "t" #'+ivy/tasks
        :desc "Invalidate cache"        :n  "x" #'projectile-invalidate-cache)

      (:desc "quit" :prefix "q"
        :desc "Quit Emacs"             :n "q" #'evil-quit-all
        :desc "Save and quit"          :n "Q" #'evil-save-and-quit
        :desc "Quit (forget session)"  :n "X" #'+workspace/kill-session-and-quit
        :desc "Restart & restore Doom" :n "r" #'+workspace/restart-emacs-then-restore
        :desc "Restart Doom"           :n "R" #'restart-emacs)

      (:when (featurep! :tools upload)
        (:desc "remote" :prefix "r"
          :desc "Upload local"           :n "u" #'ssh-deploy-upload-handler
          :desc "Upload local (force)"   :n "U" #'ssh-deploy-upload-handler-forced
          :desc "Download remote"        :n "d" #'ssh-deploy-download-handler
          :desc "Diff local & remote"    :n "D" #'ssh-deploy-diff-handler
          :desc "Browse remote files"    :n "." #'ssh-deploy-browse-remote-handler
          :desc "Detect remote changes"  :n ">" #'ssh-deploy-remote-changes-handler))

      (:when (featurep! :feature snippets)
        (:desc "snippets" :prefix "s"
          :desc "New snippet"           :n  "n" #'yas-new-snippet
          :desc "Insert snippet"        :nv "i" #'yas-insert-snippet
          :desc "Find snippet"          :n  "s" #'+default/find-in-snippets
          :desc "Find snippet for mode" :n  "S" #'+default/browse-snippets
          :desc "Find global snippet"   :n  "/" #'yas-visit-snippet-file))

      (:desc "toggle" :prefix "t"
        :desc "Flyspell"               :n "s" #'flyspell-mode
        :desc "Flycheck"               :n "f" #'flycheck-mode
        :desc "Line numbers"           :n "l" #'doom/toggle-line-numbers
        :desc "Frame fullscreen"       :n "F" #'toggle-frame-fullscreen
        :desc "Indent guides"          :n "i" #'highlight-indentation-mode
        :desc "Indent guides (column)" :n "I" #'highlight-indentation-current-column-mode
        :desc "Impatient mode"         :n "h" #'+impatient-mode/toggle
        :desc "Big mode"               :n "b" #'doom-big-font-mode
        :desc "Evil goggles"           :n "g" #'evil-goggles-mode
        :desc "org-tree-slide mode"    :n "p" #'+org-present/start))


;;
;; Keybinding fixes
;;

;; This section is dedicated to "fixing" certain keys so that they behave
;; sensibly (and consistently with similar contexts).

;; Make SPC u SPC u possible (#747)
(define-key universal-argument-map
  (kbd (concat doom-leader-key " u")) #'universal-argument-more)

;; Fix MacOS shift+tab
(when IS-MAC
  (define-key input-decode-map [S-iso-lefttab] [backtab]))

(defun +default|setup-input-decode-map ()
  (define-key input-decode-map (kbd "TAB") [tab]))
(add-hook 'tty-setup-hook #'+default|setup-input-decode-map)

(after! tabulated-list
  (define-key tabulated-list-mode-map "q" #'quit-window))

(when (featurep! :feature evil +everywhere)
  (evil-define-key* 'insert 'global
    ;; I want C-a and C-e to be a little smarter. C-a will jump to indentation.
    ;; Pressing it again will send you to the true bol. Same goes for C-e,
    ;; except it will ignore comments and trailing whitespace before jumping to
    ;; eol.
    "\C-a" #'doom/backward-to-bol-or-indent
    "\C-e" #'doom/forward-to-last-non-comment-or-eol
    "\C-u" #'doom/backward-kill-to-bol-and-indent
    ;; textmate-esque newline insertion
    [M-return]   #'evil-open-below
    [S-M-return] #'evil-open-above
    ;; Emacsien motions for insert mode
    "\C-b" #'backward-word
    "\C-f" #'forward-word
    ;; textmate-esque deletion
    [M-backspace] #'doom/backward-kill-to-bol-and-indent)

  (define-key! evil-ex-completion-map
    "\C-s" (if (featurep! :completion ivy)
               #'counsel-minibuffer-history
             #'helm-minibuffer-history)
    "\C-a" #'move-beginning-of-line
    "\C-b" #'backward-word
    "\C-f" #'forward-word)

  (after! view
    (define-key view-mode-map [escape] #'View-quit-all)))

;; Restore common editing keys (and ESC) in minibuffer
(defun +default|fix-minibuffer-in-map (map)
  (define-key! map
    "\C-s" (if (featurep! :completion ivy)
               #'counsel-minibuffer-history
             #'helm-minibuffer-history)
    "\C-a" #'move-beginning-of-line
    "\C-w" #'backward-kill-word
    "\C-u" #'backward-kill-sentence
    "\C-b" #'backward-word
    "\C-f" #'forward-word
    "\C-z" (λ! (ignore-errors (call-interactively #'undo))))
  (when (featurep! :feature evil +everywhere)
    (define-key! map
      [escape] #'abort-recursive-edit
      "\C-r" #'evil-paste-from-register
      "\C-j" #'next-line
      "\C-k" #'previous-line
      (kbd "C-S-j") #'scroll-up-command
      (kbd "C-S-k") #'scroll-down-command)))

(mapc #'+default|fix-minibuffer-in-map
      (list minibuffer-local-map
            minibuffer-local-ns-map
            minibuffer-local-completion-map
            minibuffer-local-must-match-map
            minibuffer-local-isearch-map
            read-expression-map))

(after! ivy (+default|fix-minibuffer-in-map ivy-minibuffer-map))

(after! man
  (evil-define-key* 'normal Man-mode-map "q" #'kill-this-buffer))


;; Evil-collection fixes
(setq evil-collection-key-blacklist
      (list "C-j" "C-k" "gd" "gf" "K" "[" "]" "gz"
            doom-leader-key doom-localleader-key))