use bind-keys
[emacs.git] / .emacs.d / config / emacs.org
index 08b7c17..831d61d 100644 (file)
@@ -2142,49 +2142,49 @@ comments headlines - a function never used.
 
 And now a largish set of keybindings...
 #+BEGIN_SRC emacs-lisp :tangle yes :tangle yes
-  (global-set-key "\C-cl" 'org-store-link)
-  (global-set-key "\C-ca" 'org-agenda)
-  (global-set-key "\C-cb" 'org-iswitchb)
-  (define-key mode-specific-map [?a] 'org-agenda)
-
-  (global-set-key (kbd "<f12>")     'org-agenda)
-  (global-set-key (kbd "<f5>")      'bh/org-todo)
-  (global-set-key (kbd "<S-f5>")    'bh/widen)
-  (global-set-key (kbd "<f7>")      'bh/set-truncate-lines)
-  (global-set-key (kbd "<f8>")      'org-cycle-agenda-files)
-
-  (global-set-key (kbd "<f9> <f9>") 'bh/show-org-agenda)
-  (global-set-key (kbd "<f9> b")    'bbdb)
-  (global-set-key (kbd "<f9> c")    'calendar)
-  (global-set-key (kbd "<f9> f")    'boxquote-insert-file)
-  (global-set-key (kbd "<f9> h")    'bh/hide-other)
-  (global-set-key (kbd "<f9> n")    'org-narrow-to-subtree)
-  (global-set-key (kbd "<f9> w")    'widen)
-  (global-set-key (kbd "<f9> u")    'bh/narrow-up-one-level)
-  (global-set-key (kbd "<f9> I")    'bh/punch-in)
-  (global-set-key (kbd "<f9> O")    'bh/punch-out)
-  (global-set-key (kbd "<f9> H")    'jj/punch-in-hw)
-  (global-set-key (kbd "<f9> W")    'jj/punch-out-hw)
-  (global-set-key (kbd "<f9> o")    'bh/make-org-scratch)
-  (global-set-key (kbd "<f9> p")    'bh/phone-call)
-  (global-set-key (kbd "<f9> r")    'boxquote-region)
-  (global-set-key (kbd "<f9> s")    'bh/switch-to-scratch)
-  (global-set-key (kbd "<f9> t")    'bh/insert-inactive-timestamp)
-  (global-set-key (kbd "<f9> T")    'tabify)
-  (global-set-key (kbd "<f9> U")    'untabify)
-  (global-set-key (kbd "<f9> v")    'visible-mode)
-  (global-set-key (kbd "<f9> SPC")  'bh/clock-in-last-task)
-  (global-set-key (kbd "C-<f9>")    'previous-buffer)
-  (global-set-key (kbd "C-<f10>")   'next-buffer)
-  (global-set-key (kbd "M-<f9>")    'org-toggle-inline-images)
-  ;(global-set-key (kbd "C-x n r")   'narrow-to-region)
-  (global-set-key (kbd "<f11>")     'org-clock-goto)
-  (global-set-key (kbd "C-<f11>")   'org-clock-in)
-  (global-set-key (kbd "C-M-r")     'org-capture)
-  (global-set-key (kbd "C-c r")     'org-capture)
-  (global-set-key (kbd "C-S-<f12>") 'bh/save-then-publish)
-
-  (define-key org-mode-map [(control k)] 'jj-org-kill-line)
+(bind-key "C-c l" 'org-store-link)
+(bind-key "C-c a" 'org-agenda)
+(bind-key "C-c b" 'org-iswitchb)
+(define-key mode-specific-map [?a] 'org-agenda)
+
+(bind-key "<f12>"     'org-agenda)
+(bind-key "<f5>"      'bh/org-todo)
+(bind-key "<S-f5>"    'bh/widen)
+(bind-key "<f7>"      'bh/set-truncate-lines)
+(bind-key "<f8>"      'org-cycle-agenda-files)
+
+(bind-key "<f9> <f9>" 'bh/show-org-agenda)
+(bind-key "<f9> b"    'bbdb)
+(bind-key "<f9> c"    'calendar)
+(bind-key "<f9> f"    'boxquote-insert-file)
+(bind-key "<f9> h"    'bh/hide-other)
+(bind-key "<f9> n"    'org-narrow-to-subtree)
+(bind-key "<f9> w"    'widen)
+(bind-key "<f9> u"    'bh/narrow-up-one-level)
+(bind-key "<f9> I"    'bh/punch-in)
+(bind-key "<f9> O"    'bh/punch-out)
+(bind-key "<f9> H"    'jj/punch-in-hw)
+(bind-key "<f9> W"    'jj/punch-out-hw)
+(bind-key "<f9> o"    'bh/make-org-scratch)
+(bind-key "<f9> p"    'bh/phone-call)
+(bind-key "<f9> r"    'boxquote-region)
+(bind-key "<f9> s"    'bh/switch-to-scratch)
+(bind-key "<f9> t"    'bh/insert-inactive-timestamp)
+(bind-key "<f9> T"    'tabify)
+(bind-key "<f9> U"    'untabify)
+(bind-key "<f9> v"    'visible-mode)
+(bind-key "<f9> SPC"  'bh/clock-in-last-task)
+(bind-key "C-<f9>"    'previous-buffer)
+(bind-key "C-<f10>"   'next-buffer)
+(bind-key "M-<f9>"    'org-toggle-inline-images)
+;(bind-key "C-x n r"   'narrow-to-region)
+(bind-key "<f11>"     'org-clock-goto)
+(bind-key "C-<f11>"   'org-clock-in)
+(bind-key "C-M-r"     'org-capture)
+(bind-key "C-c r"     'org-capture)
+(bind-key "C-S-<f12>" 'bh/save-then-publish)
+(bind-key "C-k" 'jj-org-kill-line org-mode-map)
+
 #+END_SRC
 
 *** Tasks, States, Todo fun