You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
100 lines
3.2 KiB
EmacsLisp
100 lines
3.2 KiB
EmacsLisp
;;; $DOOMDIR/penguin/keybinds.el -*- lexical-binding: t; -*-
|
|
|
|
(map! :leader
|
|
:desc "Comment/Uncomment"
|
|
"/" #'comment-line)
|
|
(map! :leader
|
|
:desc "Search project for text"
|
|
"s /" #'+default/search-project)
|
|
(with-eval-after-load 'evil
|
|
(map!
|
|
(:prefix "g"
|
|
:desc "New line after comment block" :n "o" #'+default/newline-below)))
|
|
(with-eval-after-load 'evil
|
|
(map!
|
|
(:prefix "g"
|
|
:desc "New line after comment block" :n "O" #'+default/newline-above)))
|
|
(defhydra doom-window-resize-hydra (:hint nil)
|
|
"
|
|
_k_ increase height _<up>_ increase height
|
|
_h_ decrease width _l_ increase width _<left>_ decrease width _<right>_ increase width
|
|
_j_ decrease height _<down>_ decrease height
|
|
S-arrow key to shift by 5
|
|
"
|
|
("h" evil-window-decrease-width)
|
|
("j" evil-window-increase-height)
|
|
("k" evil-window-decrease-height)
|
|
("l" evil-window-increase-width)
|
|
("<left>" evil-window-decrease-width)
|
|
("<up>" evil-window-increase-height)
|
|
("<down>" evil-window-decrease-height)
|
|
("<right>" evil-window-increase-width)
|
|
("<S-left>" (evil-window-decrease-width 20))
|
|
("<S-up>" (evil-window-increase-height 20))
|
|
("<S-down>" (evil-window-decrease-height 20))
|
|
("<S-right>" (evil-window-increase-width 20))
|
|
|
|
("q" nil))
|
|
(map!
|
|
(:leader
|
|
:prefix "w"
|
|
:desc "Hydra resize" :n "SPC" #'doom-window-resize-hydra/body))
|
|
;; (map! :leader
|
|
;; "f p" nil
|
|
;; "f P" nil)
|
|
(map!
|
|
:leader
|
|
:prefix "f"
|
|
:desc "Open doom config" "p" #'doom/open-private-config)
|
|
(map!
|
|
:leader
|
|
:prefix "w"
|
|
:desc "Jump to window" "a" #'ace-window)
|
|
|
|
(map!
|
|
(:leader
|
|
:prefix "o"
|
|
:desc "Calendar" :n "c" #'cfw:open-org-calendar))
|
|
|
|
(map! :map dap-mode-map
|
|
:leader
|
|
:prefix ("d" . "dap")
|
|
;; basics
|
|
:desc "dap next" "n" #'dap-next
|
|
:desc "dap step in" "i" #'dap-step-in
|
|
:desc "dap step out" "o" #'dap-step-out
|
|
:desc "dap continue" "c" #'dap-continue
|
|
:desc "dap hydra" "h" #'dap-hydra
|
|
:desc "dap debug restart" "r" #'dap-debug-restart
|
|
:desc "dap debug" "s" #'dap-debug
|
|
|
|
;; debug
|
|
:prefix ("dd" . "Debug")
|
|
:desc "dap debug recent" "r" #'dap-debug-recent
|
|
:desc "dap debug last" "l" #'dap-debug-last
|
|
|
|
;; eval
|
|
:prefix ("de" . "Eval")
|
|
:desc "eval" "e" #'dap-eval
|
|
:desc "eval region" "r" #'dap-eval-region
|
|
:desc "eval thing at point" "s" #'dap-eval-thing-at-point
|
|
:desc "add expression" "a" #'dap-ui-expressions-add
|
|
:desc "remove expression" "d" #'dap-ui-expressions-remove
|
|
|
|
:prefix ("db" . "Breakpoint")
|
|
:desc "dap breakpoint toggle" "b" #'dap-breakpoint-toggle
|
|
:desc "dap breakpoint condition" "c" #'dap-breakpoint-condition
|
|
:desc "dap breakpoint hit count" "h" #'dap-breakpoint-hit-condition
|
|
:desc "dap breakpoint log message" "l" #'dap-breakpoint-log-message)
|
|
|
|
(after! centaur-tabs
|
|
(map!
|
|
(:leader
|
|
:desc "Jump to tab" :n "j" #'centaur-tabs-ace-jump))
|
|
(centaur-tabs-group-by-projectile-project)
|
|
(centaur-tabs-group-buffer-groups))
|
|
|
|
;; kill company completion
|
|
(with-eval-after-load 'company
|
|
(define-key company-active-map (kbd "C-k") 'company-abort))
|