Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 33 lines (30 sloc) 1.081 kB
a18f3bc @jwiegley Added one-key.el
authored
1 (require 'one-key)
2
3 (defmacro setup-one-key (key title)
4 (with-temp-buffer
5 (insert "(progn")
6 (one-key-insert-template key title)
7 (insert (format "(global-set-key (kbd \"%s\") 'one-key-menu-%s)"
8 (regexp-quote key) title))
9 (insert ")")
10 (goto-char (point-min))
11 (read (current-buffer))))
12
13 (setup-one-key "M-s" "search")
14 (setup-one-key "M-g" "goto")
15 (setup-one-key "C-h e" "emacs-help")
16 (setup-one-key "C-x a" "abbrevs")
17 ;; (setup-one-key "C-x c" "helm")
18 (setup-one-key "C-x j" "bmkp")
19 (setup-one-key "C-x r" "bookmarks-and-rectangles")
20 (setup-one-key "C-x X" "edebug")
21 (setup-one-key "C-x 4" "other-window")
22 (setup-one-key "C-x 5" "other-frame")
23 (setup-one-key "C-x 6" "two-columns")
24 (setup-one-key "C-x C-k" "kmacro")
25 (setup-one-key "C-x C-p" "pages")
26 (setup-one-key "C-c e" "emacs-lisp")
27 (setup-one-key "C-c i" "flyspell")
28 (setup-one-key "C-c t" "tags")
29 (setup-one-key "C-c x" "org-mode")
30 (setup-one-key "C-c w" "yaoddmuse")
31 (setup-one-key "C-c y" "yasnippet")
32 (setup-one-key "C-\\" "workgroups")
Something went wrong with that request. Please try again.