emacs add mapping of keychord

diff --git a/emacs.d/config/init-keychord.el b/emacs.d/config/init-keychord.el
new file mode 100644 (file)
index 0000000..e15e56b
--- /dev/null
+++ b/emacs.d/config/init-keychord.el
@@ -0,0 +1,28 @@
+
+
+(require 'key-chord)
+
+(setq key-chord-two-keys-delay 0.5)
+
+;; from emacs conference 2015 workshop
+(defun keychord-keymap (keychord bindings)
+  (setq keymap (make-sparse-keymap))
+  (dolist (binding bindings)
+    (define-key keymap (car binding) (cdr binding)))
+  (key-chord-define-global keychord keymap))
+
+;; main keymap
+(keychord-keymap "dk"
+                 '(("f" . helm-mini)
+                   ("a" . find-file)))
+
+
+;; helm-mini find buffer and recent file 
+(key-chord-define-global "sj" 'helm-mini)
+(key-chord-define-global "sk" 'helm-find-files)
+;(key-chord-define-global ";s" ')
+
+(key-chord-define-global "jj" "\C-g")
+(key-chord-mode 1)
+
+(provide 'init-keychord)

diff --git a/emacs.d/init.el b/emacs.d/init.el
index c281acc..c1e9cec 100644 (file)
--- a/emacs.d/init.el
+++ b/emacs.d/init.el
@@ -133,4 +133,4 @@
    "eim-py" "euc-cn" 'eim-use-package
    "拼音" "汉字拼音输入法" "~/.emacs.d/site-lisp/eim/py.txt")
 
-
+(require 'init-keychord)