Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (def-package! modalka
- :unless (featurep! :editor evil)
- :after-call after-init-hook
- :config
- (modalka-global-mode 1)
- (add-to-list 'modalka-excluded-modes 'magit-status-mode)
- (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
- "D" 'kill-line
- "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)
- (message "-- %s" (lookup-key modalka-mode-map "g"))
- ;; Goto keys
- (general-define-key
- :keymap 'modalka-mode-map
- "g h" 'beginning-of-visual-line
- "g l" 'end-of-visual-line
- "g k" 'beginning-of-buffer
- "g j" 'end-of-buffer
- "g f" 'find-file-at-point)
- ;; EZ movement
- (general-define-key
- :keymap 'modalka-mode-map
- ;; EZ movement
- "gsf" 'sike-ez/forward-find-char
- "gst" 'sike-ez/forward
- "gsw" 'sike-ez/forward-word-begin
- "gsk" 'sike-ez/goto-line-above
- "gsj" '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)
- ;; some leader key things
- (modalka-leader modalka-mode-map
- "d" 'dired-toggle
- "X" 'org-capture
- "." 'helm-find-files
- "<" 'helm-buffer-list
- ":" 'helm-M-x
- ";" 'eval-expression))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement