[Fix #399] Extract key-chord into a separate module

This commit is contained in:
Bozhidar Batsov 2013-11-03 23:50:09 +02:00
parent 523a4851a6
commit 3239f5c724
5 changed files with 53 additions and 12 deletions

View file

@ -357,6 +357,8 @@ If you ever forget any of Projectile's keybindings just do a:
#### Key-chords #### Key-chords
**Key-chords are available only when the `prelude-key-chord` module has been enabled.**
Keybinding | Description Keybinding | Description
-------------------|---------------------------------------------- -------------------|----------------------------------------------
<kbd>jj</kbd> | Jump to the beginning of a word(`ace-jump-word-mode`) <kbd>jj</kbd> | Jump to the beginning of a word(`ace-jump-word-mode`)

View file

@ -114,17 +114,6 @@
(global-set-key (kbd "C-c SPC") 'ace-jump-mode) (global-set-key (kbd "C-c SPC") 'ace-jump-mode)
(global-set-key (kbd "C-x SPC") 'ace-jump-mode-pop-mark) (global-set-key (kbd "C-x SPC") 'ace-jump-mode-pop-mark)
;; key chords
(require 'key-chord)
(key-chord-define-global "jj" 'ace-jump-word-mode)
(key-chord-define-global "jl" 'ace-jump-line-mode)
(key-chord-define-global "jk" 'ace-jump-char-mode)
(key-chord-define-global "JJ" 'prelude-switch-to-previous-buffer)
(key-chord-define-global "uu" 'undo-tree-visualize)
(key-chord-mode +1)
(provide 'prelude-global-keybindings) (provide 'prelude-global-keybindings)
;;; prelude-global-keybindings.el ends here ;;; prelude-global-keybindings.el ends here

View file

@ -46,7 +46,7 @@
epl expand-region flx-ido flycheck gist epl expand-region flx-ido flycheck gist
gitconfig-mode gitignore-mode grizzl gitconfig-mode gitignore-mode grizzl
guru-mode projectile ido-ubiquitous guru-mode projectile ido-ubiquitous
key-chord magit move-text rainbow-mode magit move-text rainbow-mode
smartparens smex undo-tree smartparens smex undo-tree
volatile-highlights zenburn-theme) volatile-highlights zenburn-theme)
"A list of packages to ensure are installed at launch.") "A list of packages to ensure are installed at launch.")

View file

@ -0,0 +1,49 @@
;;; prelude-key-chord.el --- Helm setup
;;
;; Copyright © 2011-2013 Bozhidar Batsov
;;
;; Author: Bozhidar Batsov <bozhidar@batsov.com>
;; URL: https://github.com/bbatsov/prelude
;; Version: 1.0.0
;; Keywords: convenience
;; This file is not part of GNU Emacs.
;;; Commentary:
;; Some config for Helm.
;;; License:
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 3
;; of the License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Code:
;; key chords
(prelude-require-package 'key-chord)
(require 'key-chord)
(key-chord-define-global "jj" 'ace-jump-word-mode)
(key-chord-define-global "jl" 'ace-jump-line-mode)
(key-chord-define-global "jk" 'ace-jump-char-mode)
(key-chord-define-global "JJ" 'prelude-switch-to-previous-buffer)
(key-chord-define-global "uu" 'undo-tree-visualize)
(key-chord-mode +1)
(provide 'prelude-key-chord)
;;; prelude-key-chord.el ends here

View file

@ -11,6 +11,7 @@
;; (require 'prelude-haskell) ;; (require 'prelude-haskell)
;; (require 'prelude-helm) ;; (require 'prelude-helm)
(require 'prelude-js) (require 'prelude-js)
;; (require 'prelude-key-chord)
;; (require 'prelude-latex) ;; (require 'prelude-latex)
(require 'prelude-lisp) (require 'prelude-lisp)
;; (require 'prelude-mediawiki) ;; (require 'prelude-mediawiki)