+bindings.el

;;; private/my/+bindings.el -*- lexical-binding: t; -*-

(define-inline +my/prefix-M-x (prefix)
  (inline-quote
   (lambda () (interactive)
     (setq unread-command-events (string-to-list ,prefix))
     (call-interactively #'execute-extended-command))))

(define-inline +my/simulate-key (key)
  (inline-quote
   (lambda () (interactive)
     (setq prefix-arg current-prefix-arg)
     (setq unread-command-events (listify-key-sequence (read-kbd-macro ,key))))))

(map!
 ;; localleader
 :m ","    nil

 (:map prog-mode-map
   ;; Override default :n < > ( )
   ;; :nm "<" #'lispyville-previous-opening
   ;; :nm ">" #'lispyville-next-closing

   :n "C-h" #'lispyville-backward-up-list
   :n "C-j" #'lispyville-forward-sexp
   :n "C-k" #'lispyville-backward-sexp
   :n "C-l" #'lispyville-up-list

   :n "H"  #'lsp-ui-peek-jump-backward
   :n "L"  #'lsp-ui-peek-jump-forward
   :m "C-S-h"  #'+my/xref-jump-backward-file
   :m "C-S-l"  #'+my/xref-jump-forward-file
   )

 :n "M-u" (+my/simulate-key "[")
 :n "M-i" (+my/simulate-key "]")
 :m "M-h"  #'smart-up
 :m "M-l"  #'smart-down
 :n "M-."  #'+lookup/definition
 :n "M-j"  #'+my/find-definitions

 :n "C-1" #'+popup/raise
 :n "C-c a" #'org-agenda
 :n "C-,"  #'+my/find-references
 ;; all symbols
 :n ";"    (λ! (if lsp-mode
                    (progn (+my/avy-document-symbol t)
                           (+my/find-definitions))
                  (avy-goto-word-0 nil)))
 ;; outline
 :n "z;"   (λ! (+my/avy-document-symbol nil) (+my/find-definitions))

 :n "ga"   #'lsp-ui-find-workspace-symbol
 :n "gc"   #'evilnc-comment-or-uncomment-lines
 :n "gf"   #'+my/ffap
 :n "go"   (λ! (message "%S" (text-properties-at (point))))

 :n "[ M-u" #'symbol-overlay-switch-backward
 :n "] M-i" #'symbol-overlay-switch-forward

 (:leader
   :n "SPC" #'+ivy/switch-workspace-buffer
   :n "M-u" (+my/simulate-key "SPC [")
   :n "M-i" (+my/simulate-key "SPC ]")
   (:desc "app" :prefix "a"
     :desc "genhdr" :n "g"
     (λ! (shell-command-on-region (point-min) (point-max) "genhdr" t t))
     :desc "genhdr windows" :n "G"
     (λ! (shell-command-on-region (point-min) (point-max) "genhdr windows" t t))
     )
   (:prefix "b"
     :desc "Last buffer" :n "b" #'evil-switch-to-windows-last-buffer
     :n "l" #'ivy-switch-buffer
     )
   (:desc "error" :prefix "e"
     :n "n" #'flycheck-next-error
     :n "p" #'flycheck-previous-error
     )
   (:prefix "f"
     :n "p" #'treemacs-projectile
     :n "C-p" #'+default/find-in-config
     :n "C-S-p" #'+default/browse-config
     :n "t" #'treemacs
     )
   (:prefix "g"
     :n "*" (+my/prefix-M-x "magit-")
     :n "q" #'git-link
     )
   (:prefix "h"
     :n "C" #'helpful-command
     )
   (:desc "lsp" :prefix "l"
     :n "=" #'lsp-format-buffer
     :n "a" #'lsp-execute-code-action
     :n "l" #'lsp-ui-sideline-mode
     :n "d" #'lsp-ui-doc-mode
     :n "e" #'lsp-ui-flycheck-list
     :n "i" #'lsp-ui-imenu
     :n "r" #'lsp-rename
     :n "R" #'lsp-restart-workspace
     :n "w" #'lsp-ui-peek-find-workspace-symbol
     )
   :desc "lispyville" :n "L" (+my/prefix-M-x "lispyville ")
   (:prefix "o"
     :n "c" #'counsel-imenu-comments
     :n "d" #'+debugger:start
     :n "o" #'symbol-overlay-put
     :n "q" #'symbol-overlay-remove-all
     )
   (:prefix "p"
     :n "e" #'projectile-run-eshell
     :n "f" #'counsel-projectile-find-file
     :n "*" (+my/prefix-M-x "projectile-")
     )
   (:prefix "r"
     :n "l" #'ivy-resume
     )

   ;; Rebind to "S"
   (:desc "snippets" :prefix "S"
     :desc "New snippet"            :n  "n" #'yas-new-snippet
     :desc "Insert snippet"         :nv "i" #'yas-insert-snippet
     :desc "Find snippet for mode"  :n  "s" #'yas-visit-snippet-file
     :desc "Find snippet"           :n  "S" #'+default/find-in-snippets)

   (:desc "search" :prefix "s"
     :n "b" #'swiper-all
     :desc "Directory"              :nv "d" #'+ivy/project-search-from-cwd
     :desc "Project"                :nv "/" #'+ivy/project-search
     :nv "s" (λ! (minibuffer-with-setup-hook
                      (lambda () (insert ivy--default)) (+ivy/project-search)))
     :desc "Symbols"                :nv "i" #'imenu
     :desc "Symbols across buffers" :nv "I" #'imenu-anywhere
     :desc "Online providers"       :nv "o" #'+lookup/online-select
     )

   (:desc "toggle" :prefix "t"
     :n "d" #'toggle-debug-on-error
     :n "D" #'+my/realtime-elisp-doc
     )
   )

 :n "x" nil
 (:desc "xref" :prefix "x"
   :n ";" (λ! (+my/avy-document-symbol t) (+my/find-references))

   ;; $ccls/inheritance
   :n "b" (λ! (ccls/base 1))
   :n "B" (λ! (ccls/base 3))
   :n "d" (λ! (ccls/derived 1))
   :n "D" (λ! (ccls/derived 3))
   :n "i" #'ccls-inheritance-hierarchy  ; base hierarchy
   :n "I" (λ! (ccls-inheritance-hierarchy t)) ; derived hierarchy

   ;; $ccls/call
   :n "c" #'ccls/caller
   :n "C" #'ccls/callee
   ;; caller hierarchy
   :n "e" #'ccls-call-hierarchy
   ;; callee hierarchy
   :n "E" (λ! (ccls-call-hierarchy t))

   ;; $ccls/member
   :n "s" (λ! (ccls/member 2))        ; 2 (Type) => nested classes/namespace members
   :n "f" (λ! (ccls/member 3))        ; 3 (Func) => member functions
   :n "m" (λ! (ccls/member 0))        ; other => member variables
   :n "M" #'ccls-member-hierarchy

   :n "L" #'ccls-code-lens-mode
   :n "t" #'lsp-goto-type-definition
   ;; https://github.com/maskray/ccls/blob/master/src/messages/ccls_vars.cc#L15
   :n "v" (λ! (ccls/vars 3))           ; field or local variable
   :n "V" (λ! (ccls/vars 1))           ; field
   :n "C-v" (λ! (ccls/vars 7))         ; any
   :n "x" #'evil-delete-char)

 (:prefix "C-x"
   :n "e"  #'pp-eval-last-sexp
   :n "u" #'link-hint-open-link
   )

 (:after evil-collection-info
   :map Info-mode-map
   "/" #'Info-search
   "?" #'Info-search-backward
   )

 ;; ivy
 (:after ivy
   :map ivy-minibuffer-map
   "<tab>" #'ivy-call-and-recenter
   "C-;"   #'ivy-avy
   "C-b"   #'backward-char
   "C-f"   #'forward-char
   )

 (:after company
   (:map company-active-map
     ;; Don't interfere with `evil-delete-backward-word' in insert mode
     "C-v"        #'company-next-page
     "M-v"        #'company-previous-page
     "C-i"        #'company-complete-selection
     [tab]        #'company-complete-selection
     "RET"        nil
     [return]     nil
     "SPC"        nil))

 (:after realgud
   (:map realgud-track-mode-map
     :in ";" #'realgud-window-src-undisturb-cmd)
   (:map realgud:shortkey-mode-map
     :n "e" (λ! (realgud:cmd-run-command (thing-at-point 'symbol) "eval"))
     :n "t" #'realgud:cmd-tbreak
     :n "U" #'realgud:cmd-until
     :n "1" (λ! (+my/realgud-eval-nth-name-forward 1))
     :n "2" (λ! (+my/realgud-eval-nth-name-forward 2))
     :n "3" (λ! (+my/realgud-eval-nth-name-forward 3))
     :n "4" (λ! (+my/realgud-eval-nth-name-forward 4))
     :n "5" (λ! (+my/realgud-eval-nth-name-forward 5))
     :n "6" (λ! (+my/realgud-eval-nth-name-forward 6))
     :n "7" (λ! (+my/realgud-eval-nth-name-forward 7))
     :n "8" (λ! (+my/realgud-eval-nth-name-forward 8))
     :n "9" (λ! (+my/realgud-eval-nth-name-forward 9))
     :n "M-1" (λ! (+my/realgud-eval-nth-name-backward 1))
     :n "M-2" (λ! (+my/realgud-eval-nth-name-backward 2))
     :n "M-3" (λ! (+my/realgud-eval-nth-name-backward 3))
     :n "M-4" (λ! (+my/realgud-eval-nth-name-backward 4))
     :n "M-5" (λ! (+my/realgud-eval-nth-name-backward 5))
     :n "M-6" (λ! (+my/realgud-eval-nth-name-backward 6))
     :n "M-7" (λ! (+my/realgud-eval-nth-name-backward 7))
     :n "M-8" (λ! (+my/realgud-eval-nth-name-backward 8))
     :n "M-9" (λ! (+my/realgud-eval-nth-name-backward 9))
     )
   ))