TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/core/core-keybindings.el

176 lines
7.7 KiB
EmacsLisp
Raw Normal View History

core: move prefix funcs to new file core-keybindings.el
2015-09-14 02:53:15 +00:00
;;; core-keybindings.el --- Spacemacs Core File
;;
Bump year in copyright headers Happy New Year 2017!
2017-01-06 03:51:13 +00:00
;; Copyright (c) 2012-2017 Sylvain Benner & Contributors
core: move prefix funcs to new file core-keybindings.el
2015-09-14 02:53:15 +00:00
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
(require 'core-funcs)
core: move prefix funcs to new file core-keybindings.el
2015-09-14 02:53:15 +00:00
(defvar spacemacs/prefix-titles nil
"alist for mapping command prefixes to long names.")
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
(defvar spacemacs-default-map (make-sparse-keymap)
"Base keymap for all spacemacs leader key commands.")
core-keys: Enable distinction between C-i and TAB Added dotfile variable to template and core-dotspacemacs.el After enabling, if C-i is translated to the "key" <C-i> which allows you to bind a separate command in the GUI like this (define-key map [C-i] 'c-i-command) or this (define-key map (kbd "<C-i>") 'c-i-command) This has the side effect of no longer making C-i default to TAB in the GUI, but will not affect the TAB or <tab> bindings. Removes spacemacs//handle-terminal-keys
2015-12-02 00:25:37 +00:00
(defun spacemacs/translate-C-i (_)
keys: Fix an issue with C-i/tab distinction Before this <tab> => TAB if there is no binding for <tab>, but then `spacemacs/translate-C-i` turned this into <C-i>, which we don't want because that would mean having to always bind <tab> when this option is enabled. This commit adds a check to make sure we can't possibly be translating from <tab> originally (we only want to capture the C-i events in the GUI). Also, fixes C-m translation but leaves it commented.
2015-12-04 14:37:14 +00:00
"If `dotspacemacs-distinguish-gui-tab' is non nil, the raw key
sequence does not include <tab> or <kp-tab>, and we are in the
gui, translate to [C-i]. Otherwise, [9] (TAB)."
core-keys: Enable distinction between C-i and TAB Added dotfile variable to template and core-dotspacemacs.el After enabling, if C-i is translated to the "key" <C-i> which allows you to bind a separate command in the GUI like this (define-key map [C-i] 'c-i-command) or this (define-key map (kbd "<C-i>") 'c-i-command) This has the side effect of no longer making C-i default to TAB in the GUI, but will not affect the TAB or <tab> bindings. Removes spacemacs//handle-terminal-keys
2015-12-02 00:25:37 +00:00
(interactive)
keys: Fix an issue with C-i/tab distinction Before this <tab> => TAB if there is no binding for <tab>, but then `spacemacs/translate-C-i` turned this into <C-i>, which we don't want because that would mean having to always bind <tab> when this option is enabled. This commit adds a check to make sure we can't possibly be translating from <tab> originally (we only want to capture the C-i events in the GUI). Also, fixes C-m translation but leaves it commented.
2015-12-04 14:37:14 +00:00
(if (and (not (cl-position 'tab (this-single-command-raw-keys)))
(not (cl-position 'kp-tab (this-single-command-raw-keys)))
dotspacemacs-distinguish-gui-tab
(display-graphic-p))
[C-i] [?\C-i]))
core-keys: Enable distinction between C-i and TAB Added dotfile variable to template and core-dotspacemacs.el After enabling, if C-i is translated to the "key" <C-i> which allows you to bind a separate command in the GUI like this (define-key map [C-i] 'c-i-command) or this (define-key map (kbd "<C-i>") 'c-i-command) This has the side effect of no longer making C-i default to TAB in the GUI, but will not affect the TAB or <tab> bindings. Removes spacemacs//handle-terminal-keys
2015-12-02 00:25:37 +00:00
(define-key key-translation-map [?\C-i] 'spacemacs/translate-C-i)
;; (defun spacemacs/translate-C-m (_)
keys: Fix an issue with C-i/tab distinction Before this <tab> => TAB if there is no binding for <tab>, but then `spacemacs/translate-C-i` turned this into <C-i>, which we don't want because that would mean having to always bind <tab> when this option is enabled. This commit adds a check to make sure we can't possibly be translating from <tab> originally (we only want to capture the C-i events in the GUI). Also, fixes C-m translation but leaves it commented.
2015-12-04 14:37:14 +00:00
;; "If `dotspacemacs-distinguish-gui-ret' is non nil, the raw key
;; sequence does not include <ret>, and we are in the gui, translate
;; to [C-m]. Otherwise, [9] (TAB)."
core-keys: Enable distinction between C-i and TAB Added dotfile variable to template and core-dotspacemacs.el After enabling, if C-i is translated to the "key" <C-i> which allows you to bind a separate command in the GUI like this (define-key map [C-i] 'c-i-command) or this (define-key map (kbd "<C-i>") 'c-i-command) This has the side effect of no longer making C-i default to TAB in the GUI, but will not affect the TAB or <tab> bindings. Removes spacemacs//handle-terminal-keys
2015-12-02 00:25:37 +00:00
;; (interactive)
keys: Fix an issue with C-i/tab distinction Before this <tab> => TAB if there is no binding for <tab>, but then `spacemacs/translate-C-i` turned this into <C-i>, which we don't want because that would mean having to always bind <tab> when this option is enabled. This commit adds a check to make sure we can't possibly be translating from <tab> originally (we only want to capture the C-i events in the GUI). Also, fixes C-m translation but leaves it commented.
2015-12-04 14:37:14 +00:00
;; (if (and
;; (not (cl-position 'return (this-single-command-raw-keys)))
;; (not (cl-position 'kp-enter (this-single-command-raw-keys)))
;; dotspacemacs-distinguish-gui-ret
;; (display-graphic-p))
;; [C-m] [?\C-m]))
core-keys: Enable distinction between C-i and TAB Added dotfile variable to template and core-dotspacemacs.el After enabling, if C-i is translated to the "key" <C-i> which allows you to bind a separate command in the GUI like this (define-key map [C-i] 'c-i-command) or this (define-key map (kbd "<C-i>") 'c-i-command) This has the side effect of no longer making C-i default to TAB in the GUI, but will not affect the TAB or <tab> bindings. Removes spacemacs//handle-terminal-keys
2015-12-02 00:25:37 +00:00
;; (define-key key-translation-map [?\C-m] 'spacemacs/translate-C-m)
core: move prefix funcs to new file core-keybindings.el
2015-09-14 02:53:15 +00:00
(defun spacemacs/declare-prefix (prefix name &optional long-name)
"Declare a prefix PREFIX. PREFIX is a string describing a key
Fix bug with define-prefix-command
2015-09-16 14:39:01 +00:00
sequence. NAME is a string used as the prefix command.
core: move prefix funcs to new file core-keybindings.el
2015-09-14 02:53:15 +00:00
LONG-NAME if given is stored in `spacemacs/prefix-titles'."
(let* ((command name)
(full-prefix (concat dotspacemacs-leader-key " " prefix))
(full-prefix-emacs (concat dotspacemacs-emacs-leader-key " " prefix))
(full-prefix-lst (listify-key-sequence (kbd full-prefix)))
(full-prefix-emacs-lst (listify-key-sequence
(kbd full-prefix-emacs))))
;; define the prefix command only if it does not already exist
(unless long-name (setq long-name name))
core: Assume all which-key funcs available now
2015-11-19 02:05:03 +00:00
(which-key-declare-prefixes
full-prefix-emacs (cons name long-name)
full-prefix (cons name long-name))))
core: move prefix funcs to new file core-keybindings.el
2015-09-14 02:53:15 +00:00
(defun spacemacs/declare-prefix-for-mode (mode prefix name &optional long-name)
"Declare a prefix PREFIX. MODE is the mode in which this prefix command should
be added. PREFIX is a string describing a key sequence. NAME is a symbol name
used as the prefix command."
(let ((command (intern (concat (symbol-name mode) name)))
(full-prefix (concat dotspacemacs-leader-key " " prefix))
Add which-key prefixes for major-mode leaders Without this, prefixes configured for `SPC m` bindings don't show up for the major mode leaders.
2015-09-14 05:47:36 +00:00
(full-prefix-emacs (concat dotspacemacs-emacs-leader-key " " prefix))
(is-major-mode-prefix (string-prefix-p "m" prefix))
core: new spacemacs function to set keys spacemacs/set-key spacemacs/set-key-for-state These functions find normalized keys which should handle as sanely as possible the GUI and the terminal. See docstring of spacemacs//normalize-key for more info.
2015-11-28 05:13:31 +00:00
(major-mode-prefix (concat dotspacemacs-major-mode-leader-key
" " (substring prefix 1)))
(major-mode-prefix-emacs
(concat dotspacemacs-major-mode-emacs-leader-key
" " (substring prefix 1))))
core: move prefix funcs to new file core-keybindings.el
2015-09-14 02:53:15 +00:00
(unless long-name (setq long-name name))
Add which-key prefixes for major-mode leaders Without this, prefixes configured for `SPC m` bindings don't show up for the major mode leaders.
2015-09-14 05:47:36 +00:00
(let ((prefix-name (cons name long-name)))
core: Assume all which-key funcs available now
2015-11-19 02:05:03 +00:00
(which-key-declare-prefixes-for-mode mode
full-prefix-emacs prefix-name
full-prefix prefix-name)
(when (and is-major-mode-prefix dotspacemacs-major-mode-leader-key)
(which-key-declare-prefixes-for-mode mode major-mode-prefix prefix-name))
(when (and is-major-mode-prefix dotspacemacs-major-mode-emacs-leader-key)
core: new spacemacs function to set keys spacemacs/set-key spacemacs/set-key-for-state These functions find normalized keys which should handle as sanely as possible the GUI and the terminal. See docstring of spacemacs//normalize-key for more info.
2015-11-28 05:13:31 +00:00
(which-key-declare-prefixes-for-mode
mode major-mode-prefix-emacs prefix-name)))))
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
(defun spacemacs/set-leader-keys (key def &rest bindings)
"Add KEY and DEF as key bindings under
`dotspacemacs-leader-key' and `dotspacemacs-emacs-leader-key'.
KEY should be a string suitable for passing to `kbd', and it
should not include the leaders. DEF is most likely a quoted
command. See `define-key' for more information about the possible
choices for DEF. This function simply uses `define-key' to add
the bindings.
For convenience, this function will accept additional KEY DEF
pairs. For example,
\(spacemacs/set-leader-keys
\"a\" 'command1
\"C-c\" 'command2
\"bb\" 'command3\)"
(while key
core: remove spacemacs/set-key funcs and add a new pre-command-hook This pre-command-hook translates the special key to the corresponding emacs function key. This effects only happens in terminal, this hook is a no-op in GUI. By doing this we attempt to bring more consistency between the GUI and the terminal regarding TAB and RET keys.
2015-11-29 04:08:30 +00:00
(define-key spacemacs-default-map (kbd key) def)
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
(setq key (pop bindings) def (pop bindings))))
Indent spacemacs/set-leader-keys as defun
2015-11-21 17:32:53 +00:00
(put 'spacemacs/set-leader-keys 'lisp-indent-function 'defun)
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
(defalias 'evil-leader/set-key 'spacemacs/set-leader-keys)
Fix for #4204: Don't bind if emacs leader is "" When we try to bind leader + "m" and leader is the empty string, we end up binding to "m" directly which makes "m" all but unusable.
2015-12-17 16:06:37 +00:00
(defun spacemacs//acceptable-leader-p (key)
"Return t if key is a string and non-empty."
(and (stringp key) (not (string= key ""))))
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
(defun spacemacs//init-leader-mode-map (mode map &optional minor)
"Check for MAP-prefix. If it doesn't exist yet, use `bind-map'
to create it and bind it to `dotspacemacs-major-mode-leader-key'
and `dotspacemacs-major-mode-emacs-leader-key'. If MODE is a
minor-mode, the third argument should be non nil."
Fix for #4204: Don't bind if emacs leader is "" When we try to bind leader + "m" and leader is the empty string, we end up binding to "m" directly which makes "m" all but unusable.
2015-12-17 16:06:37 +00:00
(let* ((prefix (intern (format "%s-prefix" map)))
(leader1 (when (spacemacs//acceptable-leader-p
dotspacemacs-major-mode-leader-key)
dotspacemacs-major-mode-leader-key))
(leader2 (when (spacemacs//acceptable-leader-p
dotspacemacs-leader-key)
core: scope minor-mode specific key bindigns under major-mode leader Also remove unnecessary bindings for org-edit-src-exit
2016-12-16 13:52:32 +00:00
(concat dotspacemacs-leader-key " m")))
Fix for #4204: Don't bind if emacs leader is "" When we try to bind leader + "m" and leader is the empty string, we end up binding to "m" directly which makes "m" all but unusable.
2015-12-17 16:06:37 +00:00
(emacs-leader1 (when (spacemacs//acceptable-leader-p
dotspacemacs-major-mode-emacs-leader-key)
dotspacemacs-major-mode-emacs-leader-key))
(emacs-leader2 (when (spacemacs//acceptable-leader-p
dotspacemacs-emacs-leader-key)
core: scope minor-mode specific key bindigns under major-mode leader Also remove unnecessary bindings for org-edit-src-exit
2016-12-16 13:52:32 +00:00
(concat dotspacemacs-emacs-leader-key " m")))
core: replace -non-nil calls by delq So spacemacs core still not depend on dash
2015-12-21 06:30:48 +00:00
(leaders (delq nil (list leader1 leader2)))
(emacs-leaders (delq nil (list emacs-leader1 emacs-leader2))))
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
(or (boundp prefix)
(progn
(eval
`(bind-map ,map
:prefix-cmd ,prefix
,(if minor :minor-modes :major-modes) (,mode)
Fix for #4204: Don't bind if emacs leader is "" When we try to bind leader + "m" and leader is the empty string, we end up binding to "m" directly which makes "m" all but unusable.
2015-12-17 16:06:37 +00:00
:keys ,emacs-leaders
bind-map: Add evilified state to evil major-mode keys Fixes problem referred to in #4495
2016-01-08 19:07:00 +00:00
:evil-keys ,leaders
:evil-states (normal motion visual evilified)))
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
(boundp prefix)))))
(defun spacemacs/set-leader-keys-for-major-mode (mode key def &rest bindings)
"Add KEY and DEF as key bindings under
`dotspacemacs-major-mode-leader-key' and
`dotspacemacs-major-mode-emacs-leader-key' for the major-mode
MODE. MODE should be a quoted symbol corresponding to a valid
major mode. The rest of the arguments are treated exactly like
they are in `spacemacs/set-leader-keys'."
(let* ((map (intern (format "spacemacs-%s-map" mode))))
(when (spacemacs//init-leader-mode-map mode map)
(while key
(define-key (symbol-value map) (kbd key) def)
(setq key (pop bindings) def (pop bindings))))))
Indent spacemacs/set-leader-keys as defun
2015-11-21 17:32:53 +00:00
(put 'spacemacs/set-leader-keys-for-major-mode 'lisp-indent-function 'defun)
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
core: new spacemacs function to set keys spacemacs/set-key spacemacs/set-key-for-state These functions find normalized keys which should handle as sanely as possible the GUI and the terminal. See docstring of spacemacs//normalize-key for more info.
2015-11-28 05:13:31 +00:00
(defalias
'evil-leader/set-key-for-mode
'spacemacs/set-leader-keys-for-major-mode)
core: move prefix funcs to new file core-keybindings.el
2015-09-14 02:53:15 +00:00
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
(defun spacemacs/set-leader-keys-for-minor-mode (mode key def &rest bindings)
"Add KEY and DEF as key bindings under
`dotspacemacs-major-mode-leader-key' and
`dotspacemacs-major-mode-emacs-leader-key' for the minor-mode
MODE. MODE should be a quoted symbol corresponding to a valid
minor mode. The rest of the arguments are treated exactly like
they are in `spacemacs/set-leader-keys'."
(let* ((map (intern (format "spacemacs-%s-map" mode))))
(when (spacemacs//init-leader-mode-map mode map t)
(while key
core: remove spacemacs/set-key funcs and add a new pre-command-hook This pre-command-hook translates the special key to the corresponding emacs function key. This effects only happens in terminal, this hook is a no-op in GUI. By doing this we attempt to bring more consistency between the GUI and the terminal regarding TAB and RET keys.
2015-11-29 04:08:30 +00:00
(define-key (symbol-value map) (kbd key) def)
core: Add new set-key functions to core-keybindings Set up to use bind-map instead of evil-leader for leader key functionality. Alias evil-leader funcs and remove package
2015-11-18 00:35:32 +00:00
(setq key (pop bindings) def (pop bindings))))))
Indent spacemacs/set-leader-keys as defun
2015-11-21 17:32:53 +00:00
(put 'spacemacs/set-leader-keys-for-minor-mode 'lisp-indent-function 'defun)
core: move prefix funcs to new file core-keybindings.el
2015-09-14 02:53:15 +00:00
(provide 'core-keybindings)
Reference in a new issue Copy permalink