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

;; Sensible deafult key bindings for non-evil users

;; persp-mode and projectile in different prefixes
(setq persp-keymap-prefix (kbd "C-c e"))
(after! projectile
  (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map))

(which-key-add-key-based-replacements "C-c !"   "checking")
(which-key-add-key-based-replacements "C-c e"   "perspective")
(which-key-add-key-based-replacements "C-c p"   "projectile")

;; Prefix key to invoke doom related commands
(setq doom-leader-alt-key "C-c")
(setq doom-localleader-alt-key "C-c l")

(map!
 ;; Text scaling
 "<C-mouse-4>" #'text-scale-increase
 "<C-mouse-5>" #'text-scale-decrease
 "<C-down-mouse-2>" (λ! (text-scale-set 0))
 "M-+" (λ! (text-scale-set 0))
 "M-=" #'text-scale-increase
 "M--" #'text-scale-decrease
 ;; Editor related bindings
 [remap newline]  #'newline-and-indent
 "C-j"            #'+default/newline
 (:when (featurep! :completion ivy)
   "C-S-s"        #'swiper
   "C-S-r"        #'ivy-resume)
 (:when (featurep! :completion helm)
   "C-S-s"        #'swiper-helm
   "C-S-r"        #'helm-resume)
 ;; Buffer related bindings
 "C-x b"       #'persp-switch-to-buffer
 "C-x C-b"     #'ibuffer-list-buffers
 "C-x B"       #'switch-to-buffer
 "C-x k"       #'doom/kill-this-buffer-in-all-windows
 ;; Popup bindigns
 "C-x p"   #'+popup/other
 "C-`"     #'+popup/toggle
 "C-~"     #'+popup/raise
 ;; Doom emacs bindings
 (:leader
   (:prefix ("d" . "doom")
     :desc "Dashboard"                 "d" #'+doom-dashboard/open
     :desc "Recent files"              "f" #'recentf-open-files
     (:when (featurep! :ui neotree)
       :desc "Open neotree"            "n" #'+neotree/open
       :desc "File in neotree"         "N" #'neotree/find-this-file)
     (:when (featurep! :ui treemacs)
       :desc "Toggle treemacs"         "n" #'+treemacs/toggle
       :desc "File in treemacs"        "N" #'+treemacs/find-file)
     :desc "Popup other"               "o" #'+popup/other
     :desc "Popup toggle"              "t" #'+popup/toggle
     :desc "Popup close"               "c" #'+popup/close
     :desc "Popup close all"           "C" #'+popup/close-all
     :desc "Popup raise"               "r" #'+popup/raise
     :desc "Popup restore"             "R" #'+popup/restore
     :desc "Scratch buffer"            "s" #'doom/open-scratch-buffer
     :desc "Switch to scratch buffer"  "S" #'doom/switch-to-scratch-buffer
     :desc "Sudo this file"            "u" #'doom/sudo-this-file
     :desc "Sudo find file"            "U" #'doom/sudo-find-file
     :desc "Eshell popup"              "e" #'+eshell/open-popup
     :desc "Eshell open"               "E" #'+eshell/open
     :desc "Reload Private Config"     "R" #'doom/reload)
   ;; Org related bindings
   "o" nil ; we need to unbind it first as Org claims this
   (:prefix ("o". "org")
     :desc "Do what I mean"          "o"     #'+org/dwim-at-point
     :desc "Sync org caldav"         "s"     #'org-caldav-sync
     (:prefix ("a" . "org agenda")
       :desc "Agenda"                  "a"   #'org-agenda
       :desc "Todo list"               "t"   #'org-todo-list
       :desc "Tags view"               "m"   #'org-tags-view
       :desc "View search"             "v"   #'org-search-view)
     :desc "Capture"                 "c"     #'org-capture
     :desc "Goto capture"            "C"     (λ! (require 'org-capture) (call-interactively #'org-capture-goto-target))
     :desc "Switch org buffers"      "b"     #'org-switchb
     (:prefix ("e" . "org export")
       :desc "Export beamer to latex"  "l b" #'org-beamer-export-to-latex
       :desc "Export beamer as latex"  "l B" #'org-beamer-export-as-latex
       :desc "Export beamer as pdf"    "l P" #'org-beamer-export-to-pdf)
     :desc "Link store"              "l"     #'org-store-link)
   ;; Quit/Restart
   (:prefix ("q" . "quit/restart")
     :desc "Quit Emacs"                   "q" #'kill-emacs
     :desc "Save and quit Emacs"          "Q" #'save-buffers-kill-terminal
     (:when (featurep! :feature workspaces)
       :desc "Quit Emacs & forget session"  "X" #'+workspace/kill-session-and-quit
       :desc "Restart & restore Emacs"      "r" #'+workspace/restart-emacs-then-restore)
     :desc "Restart Emacs"                "R" #'restart-emacs)
   ;; Snippets
   "&" nil ; yasnippet creates this prefix, we use a different one
   (:prefix ("s" . "snippets")
     :desc "New snippet"           "n" #'yas-new-snippet
     :desc "Insert snippet"        "i" #'yas-insert-snippet
     :desc "Find global snippet"   "/" #'yas-visit-snippet-file
     :desc "Reload snippets"       "r" #'yas-reload-all
     :desc "Create Temp Template"  "c" #'aya-create
     :desc "Use Temp Template"     "e" #'aya-expand)
   ;; Version control bindings
   (:prefix ("v" . "versioning")
     :desc "Browse issues tracker" "i" #'+vc/git-browse-issues
     :desc "Browse remote"         "o" #'+vc/git-browse
     :desc "Diff current file"     "d" #'magit-diff-buffer-file
     :desc "Git revert hunk"       "r" #'git-gutter:revert-hunk
     :desc "Git stage file"        "S" #'magit-stage-file
     :desc "Git stage hunk"        "s" #'git-gutter:stage-hunk
     :desc "Git time machine"      "t" #'git-timemachine-toggle
     :desc "Git unstage file"      "U" #'magit-unstage-file
     :desc "Initialize repo"       "I" #'magit-init
     :desc "List repositories"     "L" #'magit-list-repositories
     :desc "Magit blame"           "b" #'magit-blame-addition
     :desc "Magit buffer log"      "l" #'magit-log-buffer-file
     :desc "Magit commit"          "c" #'magit-commit-create
     :desc "Magit status"          "g" #'magit-status
     :desc "Next hunk"             "]" #'git-gutter:next-hunk
     :desc "Previous hunk"         "[" #'git-gutter:previous-hunk)
   ;; Worspace and window management bindings
   (:prefix ("w". "workspaces")
     :desc "Autosave session"             "a" #'+workspace/save-session
     :desc "Display workspaces"           "d" #'+workspace/display
     :desc "Rename workspace"             "r" #'+workspace/rename
     :desc "Create workspace"             "c" #'+workspace/new
     :desc "Delete workspace"             "k" #'+workspace/delete
     :desc "Save session"                 "s" (λ! (let ((current-prefix-arg '(4))) (call-interactively #'+workspace/save-session)))
     :desc "Save workspace"               "S" #'+workspace/save
     :desc "Load session"                 "l" #'+workspace/load-session
     :desc "Load last autosaved session"  "L" #'+workspace/load-last-session
     :desc "Kill other buffers"           "o" #'doom/kill-other-buffers
     :desc "Undo window config"           "u" #'winner-undo
     :desc "Redo window config"           "U" #'winner-redo
     :desc "Switch to left workspace"     "p" #'+workspace/switch-left
     :desc "Switch to right workspace"    "n" #'+workspace/switch-right
     :desc "Switch to"                    "w" #'+workspace/switch-to
     :desc "Switch to workspace 1"        "1" (λ! (+workspace/switch-to 0))
     :desc "Switch to workspace 2"        "2" (λ! (+workspace/switch-to 1))
     :desc "Switch to workspace 3"        "3" (λ! (+workspace/switch-to 2))
     :desc "Switch to workspace 4"        "4" (λ! (+workspace/switch-to 3))
     :desc "Switch to workspace 5"        "5" (λ! (+workspace/switch-to 4))
     :desc "Switch to workspace 6"        "6" (λ! (+workspace/switch-to 5))
     :desc "Switch to workspace 7"        "7" (λ! (+workspace/switch-to 6))
     :desc "Switch to workspace 8"        "8" (λ! (+workspace/switch-to 7))
     :desc "Switch to workspace 9"        "9" (λ! (+workspace/switch-to 8))
     :desc "Switch to last workspace"     "0" #'+workspace/switch-to-last)
   ;; Multiple Cursors
   (:when (featurep! :editor multiple-cursors)
     (:prefix ("m" . "multiple cursors")
       :desc "Edit lines"         "l"         #'mc/edit-lines
       :desc "Mark next"          "n"         #'mc/mark-next-like-this
       :desc "Unmark next"        "N"         #'mc/unmark-next-like-this
       :desc "Mark previous"      "p"         #'mc/mark-previous-like-this
       :desc "Unmark previous"    "P"         #'mc/unmark-previous-like-this
       :desc "Mark all"           "t"         #'mc/mark-all-like-this
       :desc "Mark all DWIM"      "m"         #'mc/mark-all-like-this-dwim
       :desc "Edit line endings"  "e"         #'mc/edit-ends-of-lines
       :desc "Edit line starts"   "a"         #'mc/edit-beginnings-of-lines
       :desc "Mark tag"           "s"         #'mc/mark-sgml-tag-pair
       :desc "Mark in defun"      "d"         #'mc/mark-all-like-this-in-defun
       :desc "Add cursor w/mouse" "<mouse-1>" #'mc/add-cursor-on-click))

   ;; APPs

   ;; Email
   (:when (featurep! :app email)
     (:prefix ("M" . "email")
       :desc "Open email app" "m" #'=email
       :desc "Compose email" "c"  #'+email/compose))
   ;; IRC
   (:when (featurep! :app irc)
     (:prefix ("I" . "irc")
       :desc "Open irc app" "i"       #'=irc
       :desc "Next unread buffer" "a" #'tracking-next-buffer
       :desc "Quit irc" "q"           #'+irc/quit
       :desc "Reconnect all" "r"      #'circe-reconnect-all
       :desc "Send message" "s"       #'+irc/send-message
       (:when (featurep! :completion ivy)
         :desc "Jump to channel" "j" #'irc/ivy-jump-to-channel)))
   ;; Twitter
   (:when (featurep! :app twitter)
     (:prefix ("T" . "twitter")
       :desc "Open twitter app" "t" #'=twitter
       :desc "Quit twitter" "q"     #'+twitter/quit
       :desc "Rerender twits" "r"   #'+twitter/rerender-all
       :desc "Ace link" "l"         #'+twitter/ace-link)))

 ;; Plugins

 ;; misc plugins
 (:when (featurep! :ui neotree)
   "<f9>" #'+neotree/open)
 (:when (featurep! :ui treemacs)
   "<f9>" #'+treemacs)
 "C-="  #'er/expand-region
 "C--"  #'er/contract-region
 ;; smartparens
 (:after smartparens
   (:map smartparens-mode-map
     "C-M-a"     #'sp-beginning-of-sexp
     "C-M-e"     #'sp-end-of-sexp
     "C-M-f"     #'sp-forward-sexp
     "C-M-b"     #'sp-backward-sexp
     "C-M-d"     #'sp-splice-sexp
     "C-M-k"     #'sp-kill-sexp
     "C-M-t"     #'sp-transpose-sexp
     "C-<right>" #'sp-forward-slurp-sexp
     "M-<right>" #'sp-forward-barf-sexp
     "C-<left>"  #'sp-backward-slurp-sexp
     "M-<left>"  #'sp-backward-barf-sexp))
 ;; company mode
 "C-;" #'+company/complete
 ;; 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))
     "C-h b" #'counsel-descbinds
     "C-M-y" #'counsel-yank-pop
     "C-h F" #'counsel-faces
     "C-h p" #'counsel-package
     "C-h a" #'counsel-apropos
     "C-h V" #'counsel-set-variable
     "C-'"   #'counsel-imenu))
 ;; repl toggle
 "C-c C-z" #'+eval/open-repl
 ;; company mode
 (:after company
   (:map company-active-map
     "C-o"        #'company-search-kill-others
     "C-n"        #'company-select-next
     "C-p"        #'company-select-previous
     "C-h"        #'company-quickhelp-manual-begin
     "C-S-h"      #'company-show-doc-buffer
     "C-s"        #'company-search-candidates
     "M-s"        #'company-filter-candidates
     "<C-tab>"    #'company-complete-common-or-cycle
     [tab]        #'company-complete-common-or-cycle
     [backtab]    #'company-select-previous
     "C-RET"      #'counsel-company)
   (:map company-search-map
     "C-n"        #'company-search-repeat-forward
     "C-p"        #'company-search-repeat-backward
     "C-s"        (λ! (company-search-abort) (company-filter-candidates))))
 ;; neotree bindings
 (:after neotree
   :map neotree-mode-map
   "q"       #'neotree-hide
   [return]  #'neotree-enter
   "RET"     #'neotree-enter
   "SPC"     #'neotree-quick-look
   "v"       #'neotree-enter-vertical-split
   "s"       #'neotree-enter-horizontal-split
   "c"       #'neotree-create-node
   "D"       #'neotree-delete-node
   "g"       #'neotree-refresh
   "r"       #'neotree-rename-node
   "R"       #'neotree-refresh
   "h"       #'+neotree/collapse-or-up
   "l"       #'+neotree/expand-or-open
   "n"       #'neotree-next-line
   "p"       #'neotree-previous-line
   "N"       #'neotree-select-next-sibling-node
   "P"       #'neotree-select-previous-sibling-node)
 ;; help and info
 (:after help-mode
   (:map help-mode-map
     "o" #'ace-link-help
     ">" #'help-go-forward
     "<" #'help-go-back))
 (:after helpful-mode
   (:map helpful-mode-map
     "o" #'ace-link-help))
 (:after info
   (:map Info-mode-map
     "o" #'ace-link-info))
 ;; yasnippet
 (:after yasnippet
   ;; keymap while editing an inserted snippet
   (:map yas-keymap
     "C-e"           #'snippets/goto-end-of-field
     "C-a"           #'snippets/goto-start-of-field
     "<S-tab>"       #'yas-prev-field
     "<M-backspace>" #'+snippets/delete-to-start-of-field
     [backspace]     #'+snippets/delete-backward-char
     [delete]        #'+snippets/delete-forward-char-or-field))
 ;; flycheck
 (:after flycheck
   (:map flycheck-error-list-mode-map
     "C-n" #'flycheck-error-list-next-error
     "C-p" #'flycheck-error-list-previous-error
     "RET" #'flycheck-error-list-goto-error))
 ;; ivy
 (:after ivy
   (:map ivy-minibuffer-map
     "TAB" #'ivy-alt-done
     "C-g" #'keyboard-escape-quit))
 ;; ein notebokks
 (:after ein:notebook-multilang
   (:map ein:notebook-multilang-mode-map
     "C-c h" #'+ein/hydra/body)))