106 lines
3.5 KiB
EmacsLisp
106 lines
3.5 KiB
EmacsLisp
;-*- coding: utf-8 -*-
|
||
;; Shortcuts for ERGOEMACS_KEYBOARD_LAYOUT=sp
|
||
|
||
;;; --------------------------------------------------
|
||
;;; CURSOR MOVEMENTS
|
||
|
||
;; Single char cursor movement
|
||
(defconst ergoemacs-backward-char-key (kbd "M-j"))
|
||
(defconst ergoemacs-forward-char-key (kbd "M-l"))
|
||
(defconst ergoemacs-previous-line-key (kbd "M-i"))
|
||
(defconst ergoemacs-next-line-key (kbd "M-k"))
|
||
|
||
;; Move by word
|
||
(defconst ergoemacs-backward-word-key (kbd "M-u"))
|
||
(defconst ergoemacs-forward-word-key (kbd "M-o"))
|
||
|
||
;; Move by paragraph
|
||
(defconst ergoemacs-backward-paragraph-key (kbd "M-U"))
|
||
(defconst ergoemacs-forward-paragraph-key (kbd "M-O"))
|
||
|
||
;; Move to beginning/ending of line
|
||
(defconst ergoemacs-move-beginning-of-line-key (kbd "M-h"))
|
||
(defconst ergoemacs-move-end-of-line-key (kbd "M-H"))
|
||
|
||
;; Move by screen (page up/down)
|
||
(defconst ergoemacs-scroll-down-key (kbd "M-I"))
|
||
(defconst ergoemacs-scroll-up-key (kbd "M-K"))
|
||
|
||
;; Move to beginning/ending of file
|
||
(defconst ergoemacs-beginning-of-buffer-key (kbd "M-J"))
|
||
(defconst ergoemacs-end-of-buffer-key (kbd "M-L"))
|
||
|
||
;; isearch
|
||
(defconst ergoemacs-isearch-forward-key (kbd "M-ñ"))
|
||
(defconst ergoemacs-isearch-backward-key (kbd "M-Ñ"))
|
||
|
||
(defconst ergoemacs-recenter-key (kbd "M-p"))
|
||
|
||
;;; MAJOR EDITING COMMANDS
|
||
|
||
;; Delete previous/next char.
|
||
(defconst ergoemacs-delete-backward-char-key (kbd "M-d"))
|
||
(defconst ergoemacs-delete-char-key (kbd "M-f"))
|
||
|
||
; Delete previous/next word.
|
||
(defconst ergoemacs-backward-kill-word-key (kbd "M-e"))
|
||
(defconst ergoemacs-kill-word-key (kbd "M-r"))
|
||
|
||
; Copy Cut Paste, Paste previous
|
||
(defconst ergoemacs-kill-region-key (kbd "M-x"))
|
||
(defconst ergoemacs-kill-ring-save-key (kbd "M-c"))
|
||
(defconst ergoemacs-yank-key (kbd "M-v"))
|
||
(defconst ergoemacs-yank-pop-key (kbd "M-V"))
|
||
(defconst ergoemacs-copy-all-key (kbd "M-C"))
|
||
(defconst ergoemacs-cut-all-key (kbd "M-X"))
|
||
|
||
;; undo and redo
|
||
(defconst ergoemacs-redo-key (kbd "M-Z"))
|
||
(defconst ergoemacs-undo-key (kbd "M-z"))
|
||
|
||
; Kill line
|
||
(defconst ergoemacs-kill-line-key (kbd "M-g"))
|
||
(defconst ergoemacs-kill-line-backward-key (kbd "M-G"))
|
||
|
||
;;; Textual Transformation
|
||
|
||
(defconst ergoemacs-mark-paragraph-key (kbd "M-S-SPC"))
|
||
(defconst ergoemacs-shrink-whitespaces-key (kbd "M-w"))
|
||
(defconst ergoemacs-comment-dwim-key (kbd "M-´"))
|
||
(defconst ergoemacs-toggle-letter-case-key (kbd "M--"))
|
||
|
||
; keyword completion, because Alt+Tab is used by OS
|
||
(defconst ergoemacs-call-keyword-completion-key (kbd "M-t"))
|
||
|
||
; Hard-wrap/un-hard-wrap paragraph
|
||
(defconst ergoemacs-compact-uncompact-block-key (kbd "M-q"))
|
||
|
||
;;; EMACS'S SPECIAL COMMANDS
|
||
|
||
; Mark point.
|
||
(defconst ergoemacs-set-mark-command-key (kbd "M-SPC"))
|
||
|
||
(defconst ergoemacs-execute-extended-command-key (kbd "M-a"))
|
||
(defconst ergoemacs-shell-command-key (kbd "M-A"))
|
||
|
||
;;; WINDOW SPLITING
|
||
(defconst ergoemacs-move-cursor-next-pane-key (kbd "M-s"))
|
||
(defconst ergoemacs-move-cursor-previous-pane-key (kbd "M-S"))
|
||
|
||
;;; --------------------------------------------------
|
||
;;; OTHER SHORTCUTS
|
||
|
||
(defconst ergoemacs-switch-to-previous-frame-key (kbd "M-ª"))
|
||
(defconst ergoemacs-switch-to-next-frame-key (kbd "M-º"))
|
||
|
||
(defconst ergoemacs-query-replace-key (kbd "M-5"))
|
||
(defconst ergoemacs-query-replace-regexp-key (kbd "M-%"))
|
||
|
||
(defconst ergoemacs-delete-other-windows-key (kbd "M-1"))
|
||
(defconst ergoemacs-delete-window-key (kbd "M-!"))
|
||
|
||
(defconst ergoemacs-split-window-vertically-key (kbd "M-2"))
|
||
(defconst ergoemacs-split-window-horizontally-key (kbd "M-\""))
|
||
|
||
(defconst ergoemacs-extend-selection-key (kbd "M-8"))
|
||
(defconst ergoemacs-select-text-in-quote-key (kbd "M-("))
|