key-chord setting

gistfile1.el

;; key-chord
(require 'key-chord)
(key-chord-mode 1)
(devar key-chord-bindings
  '(("hf" . describe-function)
    ("hb" . describe-bindings)
    ("hv" . describe-variable)
    ("rs" . replace-string)
    ("rp" . replace-regexp)
    ("a;" . goto-line)
    ("xf" . find-file)
    ("::" . other-window)
    ("ys" . yas/expand)
    ("kk" . kill-this-buffer)
    (";;" . next-buffer)
    ("aa" . previous-buffer)
    ("ss" . svn-status)
    ("??" . key-chord-describe-bindings)
    ("!!" . key-chord-set-bindings))
  "List of keybind-function pair")

(defun key-chord-set-bindings ()
  "Set global bindings according to `key-chord-bindings`"
  (interactive)
  (mapc
   (lambda (pair)
     (key-chord-define-global (car pair) (cdr pair)))
   key-chord-bindings))
(key-chord-set-bindings)

(defun key-chord-describe-bindings ()
  (interactive)
  (message
   (mapconcat
    (lambda (pair)
      (format "%-4s %s"
              (car pair)
              (symbol-name (cdr pair))))
    key-chord-bindings
    "¥n")))