mirror of
https://github.com/vale981/boon
synced 2025-03-04 17:11:40 -05:00
203 lines
8.6 KiB
EmacsLisp
203 lines
8.6 KiB
EmacsLisp
;;; boon-colemak.el --- An Ergonomic Command Mode -*- lexical-binding: t -*-
|
|
|
|
;;; Commentary:
|
|
;;; Code:
|
|
(require 'boon-core)
|
|
(require 'boon-main)
|
|
(require 'boon-search)
|
|
(require 'boon-keys)
|
|
|
|
(define-key boon-select-map "q" 'boon-select-outside-quotes)
|
|
(define-key boon-select-map "w" 'boon-select-word)
|
|
(define-key boon-select-map "f" 'boon-select-word) ;; 'rf' is easier to type than 'rw'
|
|
(define-key boon-select-map "p" 'boon-select-paragraph)
|
|
(define-key boon-select-map "g" 'boon-select-org-table-cell)
|
|
|
|
(define-key boon-select-map "a" 'boon-select-borders) ;; Around
|
|
(define-key boon-select-map "r" 'boon-select-justline) ;; Row
|
|
(define-key boon-select-map "s" 'boon-select-wim) ;; symbol
|
|
(define-key boon-select-map "t" 'boon-select-with-spaces)
|
|
(define-key boon-select-map "d" 'boon-select-document)
|
|
|
|
(define-key boon-select-map "C" 'boon-select-comment)
|
|
(define-key boon-select-map "x" 'boon-select-outside-pairs) ;; eXpression
|
|
(define-key boon-select-map "c" 'boon-select-inside-pairs) ;; Contents
|
|
|
|
(define-key boon-select-map "z" 'boon-select-content) ;; inZide
|
|
|
|
(define-key boon-select-map "k" 'boon-select-blanks) ;; blanKs
|
|
|
|
(define-key boon-moves-map "k" 'boon-switch-mark) ; bacK to marK
|
|
(define-key boon-moves-map "K" 'pop-tag-mark)
|
|
|
|
(define-key boon-moves-map "j" 'boon-find-definition)
|
|
(define-key boon-moves-map "J" 'find-function)
|
|
(define-key boon-moves-map "u" 'previous-line)
|
|
(define-key boon-moves-map "y" 'next-line)
|
|
(define-key boon-moves-map "U" 'backward-paragraph)
|
|
(define-key boon-moves-map "Y" 'forward-paragraph)
|
|
(define-key boon-moves-map "l" 'boon-beginning-of-line)
|
|
(define-key boon-moves-map ";" 'boon-end-of-line)
|
|
(define-key boon-moves-map "n" 'boon-smarter-backward)
|
|
(define-key boon-moves-map "o" 'boon-smarter-forward)
|
|
(define-key boon-moves-map "E" 'boon-smarter-upward)
|
|
(define-key boon-moves-map "I" 'boon-smarter-downward)
|
|
(define-key boon-moves-map "," 'boon-beginning-of-expression)
|
|
(define-key boon-moves-map "." 'boon-end-of-expression)
|
|
(define-key boon-moves-map "e" 'backward-char)
|
|
(define-key boon-moves-map "i" 'forward-char)
|
|
(define-key boon-moves-map "<" 'beginning-of-buffer)
|
|
(define-key boon-moves-map ">" 'end-of-buffer)
|
|
(define-key boon-moves-map "m" 'boon-qsearch-previous-at-point)
|
|
(define-key boon-moves-map "/" 'boon-qsearch-next-at-point)
|
|
(define-key boon-moves-map "h" 'avy-goto-word-1)
|
|
(define-key boon-moves-map "H" 'avy-goto-char)
|
|
|
|
|
|
(eval-after-load 'ivy
|
|
'(progn
|
|
(define-key ivy-minibuffer-map (kbd "RET") 'ivy-done)
|
|
(define-key ivy-minibuffer-map (kbd "<C-return>") 'ivy-call)
|
|
;; (define-key ivy-minibuffer-map (kbd "C-j") 'ivy-alt-done)
|
|
;; (define-key ivy-minibuffer-map (kbd "C-M-j") 'ivy-immediate-done)
|
|
(define-key ivy-minibuffer-map (kbd "C-n") 'ivy-partial)
|
|
(define-key ivy-minibuffer-map (kbd "C-y") 'ivy-next-line)
|
|
(define-key ivy-minibuffer-map (kbd "C-u") 'ivy-previous-line)
|
|
(define-key ivy-minibuffer-map (kbd "<down>") 'ivy-next-line)
|
|
(define-key ivy-minibuffer-map (kbd "<up>") 'ivy-previous-line)
|
|
;; (define-key ivy-minibuffer-map (kbd "C-s") 'ivy-next-line-or-history)
|
|
;; (define-key ivy-minibuffer-map (kbd "C-r") 'ivy-reverse-i-search)
|
|
(define-key ivy-minibuffer-map (kbd "SPC") 'boon-completer-space)
|
|
(define-key ivy-minibuffer-map (kbd "DEL") 'ivy-backward-delete-char)
|
|
(define-key ivy-minibuffer-map (kbd "C-w") 'ivy-backward-kill-word)
|
|
(define-key ivy-minibuffer-map (kbd "C-d") 'ivy-delete-char)
|
|
(define-key ivy-minibuffer-map (kbd "C-f") 'ivy-forward-char)
|
|
;; (define-key ivy-minibuffer-map (kbd "M-<") 'ivy-beginning-of-buffer)
|
|
;; (define-key ivy-minibuffer-map (kbd "M->") 'ivy-end-of-buffer)
|
|
(define-key ivy-minibuffer-map (kbd "C-.") 'ivy-next-history-element)
|
|
(define-key ivy-minibuffer-map (kbd "C-,") 'ivy-previous-history-element)
|
|
(define-key ivy-minibuffer-map (kbd "<escape>") 'minibuffer-keyboard-quit)
|
|
;; (define-key ivy-minibuffer-map (kbd "C-v") 'ivy-scroll-up-command)
|
|
;; (define-key ivy-minibuffer-map (kbd "M-v") 'ivy-scroll-down-command)
|
|
;; (define-key ivy-minibuffer-map (kbd "C-M-n") 'ivy-next-line-and-call)
|
|
;; (define-key ivy-minibuffer-map (kbd "C-M-p") 'ivy-previous-line-and-call)
|
|
(define-key ivy-minibuffer-map (kbd "C-q") 'ivy-toggle-regexp-quote)
|
|
;; (define-key ivy-minibuffer-map (kbd "M-j") 'ivy-yank-word)
|
|
(define-key ivy-minibuffer-map (kbd "C-v") 'ivy-insert-current)
|
|
(define-key ivy-minibuffer-map (kbd "TAB") 'ivy-partial) ;; for counsel-find-file
|
|
(define-key ivy-minibuffer-map (kbd "C-TAB") 'ivy-dispatching-call)
|
|
(define-key ivy-minibuffer-map (kbd "C-k") 'ivy-kill-line)
|
|
(define-key ivy-minibuffer-map (kbd "S-SPC") 'ivy-restrict-to-matches)
|
|
(define-key ivy-minibuffer-map (kbd "C-t") 'ivy-kill-ring-save)
|
|
;; (define-key ivy-minibuffer-map (kbd "C-h") 'ivy-avy)
|
|
;; (define-key ivy-minibuffer-map (kbd "C-M-a") 'ivy-read-action)
|
|
(define-key ivy-minibuffer-map (kbd "C-o") 'ivy-occur)
|
|
)
|
|
)
|
|
|
|
(with-eval-after-load 'helm
|
|
(define-helm-key (kbd "u") 'helm-previous-line)
|
|
(define-helm-key (kbd "y") 'helm-next-line)
|
|
(define-helm-key (kbd ",") 'helm-previous-page)
|
|
(define-helm-key (kbd ".") 'helm-next-page)
|
|
(define-helm-key (kbd "t") 'helm-execute-persistent-action)
|
|
)
|
|
|
|
|
|
(define-key isearch-mode-map [(control p)] 'helm-occur-from-isearch)
|
|
(define-key isearch-mode-map [(control w)] 'isearch-repeat-backward)
|
|
(define-key isearch-mode-map [(control f)] 'isearch-repeat-forward)
|
|
|
|
;; Special keys
|
|
|
|
;; LEFT HAND
|
|
|
|
;; Top row
|
|
;; q
|
|
(define-key boon-command-map "q" 'boon-quote-character)
|
|
|
|
;; w,f
|
|
;; where is? find?
|
|
(define-key boon-moves-map "w " 'isearch-backward)
|
|
(define-key boon-moves-map "f " 'isearch-forward)
|
|
|
|
(define-key boon-moves-map "wt" 'boon-qsearch-previous-at-point)
|
|
(define-key boon-moves-map "ft" 'boon-qsearch-next-at-point)
|
|
(define-key boon-moves-map "ws" 'boon-qsearch-previous-at-point)
|
|
(define-key boon-moves-map "fs" 'boon-qsearch-next-at-point)
|
|
|
|
(define-key boon-moves-map "ww" 'boon-qsearch-previous)
|
|
(define-key boon-moves-map "ff" 'boon-qsearch-next)
|
|
|
|
(define-key boon-moves-map "W" 'boon-qsearch-previous)
|
|
(define-key boon-moves-map "F" 'boon-qsearch-next)
|
|
(define-key boon-moves-map "wp" 'boon-qsearch-previous)
|
|
(define-key boon-moves-map "fp" 'boon-qsearch-next)
|
|
(define-key boon-moves-map "we" 'previous-error)
|
|
(define-key boon-moves-map "fe" 'next-error)
|
|
(define-key boon-moves-map "wk" 'flycheck-previous-error)
|
|
(define-key boon-moves-map "fk" 'flycheck-next-error)
|
|
(define-key boon-moves-map "wb" 'previous-buffer)
|
|
(define-key boon-moves-map "fb" 'next-buffer)
|
|
(define-key boon-moves-map "fu" 'mc/cycle-forward)
|
|
(define-key boon-moves-map "wu" 'mc/cycle-backward)
|
|
|
|
;; p
|
|
;; Pinpoint Place
|
|
(define-key boon-command-map "p" 'helm-occur)
|
|
|
|
;; Misc crap
|
|
(define-key boon-command-map "P" 'kmacro-end-or-call-macro) ; Play
|
|
(define-key boon-command-map "X" 'boon-highlight-regexp)
|
|
|
|
;; g Gather/Go To
|
|
(define-key boon-command-map "g" boon-goto-map)
|
|
|
|
;; home row
|
|
;; a
|
|
(define-key boon-command-map "a" 'boon-enclose) ; around
|
|
|
|
;; r
|
|
(define-key boon-command-map "r" 'boon-substitute-region) ; replace
|
|
(define-key boon-command-map "R" 'kmacro-start-macro) ; Record
|
|
|
|
;; s
|
|
(define-key boon-command-map "s" 'boon-splice) ; splice
|
|
(define-key boon-command-map "S" 'yank-pop)
|
|
|
|
;; t
|
|
(define-key boon-command-map "t" 'boon-take-region) ; "take"
|
|
(define-key boon-command-map "T" 'boon-treasure-region) ; "treasure"
|
|
|
|
;; d
|
|
(define-key boon-command-map "d" 'boon-replace-by-character) ; "displace"
|
|
|
|
;; Bottom row
|
|
;; z
|
|
;; reserved (repeat?)
|
|
(define-key boon-command-map "z" 'boon-drop-cursor)
|
|
(define-key boon-command-map "Z" 'boon-move-cursor)
|
|
;; x
|
|
(define-key boon-command-map "x" boon-x-map)
|
|
;; c
|
|
(define-key boon-command-map "c" 'boon-c-god)
|
|
;; v
|
|
(define-key boon-command-map (kbd "C-v") 'boon-open-line-and-insert)
|
|
(define-key boon-command-map "V" 'boon-open-next-line-and-insert)
|
|
(define-key boon-command-map "v" 'boon-set-insert-like-state) ; 'v' looks like an insertion mark
|
|
;; b
|
|
(define-key boon-command-map "B" 'boon-copy-to-register)
|
|
(define-key boon-command-map "b" 'insert-register)
|
|
|
|
;; RIGHT HAND: movement and marking commands.
|
|
;; Most of these are actually in the boon-moves-map; however some don't quite work there; so they end up here.
|
|
(define-key boon-command-map (kbd "C-u") 'scroll-down-line)
|
|
(define-key boon-command-map (kbd "C-y") 'scroll-up-line)
|
|
|
|
(define-key indent-rigidly-map "i" 'indent-rigidly-right)
|
|
(define-key indent-rigidly-map "e" 'indent-rigidly-left)
|
|
|
|
(provide 'boon-colemak)
|
|
;;; boon-colemak.el ends here
|
|
|
|
|