emacs.d/config/init-keychord.el

   1
   2
   3 (require 'key-chord)
   4
   5 (setq key-chord-two-keys-delay 0.5)
   6
   7 ;; from emacs conference 2015 workshop
   8 (defun keychord-keymap (keychord bindings)
   9   (setq keymap (make-sparse-keymap))
  10   (dolist (binding bindings)
  11     (define-key keymap (car binding) (cdr binding)))
  12   (key-chord-define-global keychord keymap))
  13
  14 ;; main keymap
  15 (keychord-keymap "dk"
  16                  '(("f" . helm-mini)
  17                    ("a" . find-file)))
  18
  19
  20 ;; helm-mini find buffer and recent file
  21 (key-chord-define-global "sj" 'helm-mini)
  22 (key-chord-define-global "sk" 'helm-find-files)
  23 ;(key-chord-define-global ";s" ')
  24
  25 (key-chord-define-global "jj" "\C-g")
  26 (key-chord-mode 1)
  27
  28 (provide 'init-keychord)