diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-02-11 00:13:13 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-02-11 00:13:13 -0500 |
| commit | 836e5544d8765ff27772c312d0f464391b5e2918 (patch) | |
| tree | a5880d2b1cbcb177a99edbbf11fca8d890a63650 | |
| parent | 897405c94d70f257c93900f8b12a1108d6cb7cc4 (diff) | |
| download | emacs.d-836e5544d8765ff27772c312d0f464391b5e2918.tar.gz | |
Group keybindings in init-external
| -rw-r--r-- | lisp/init-external.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/init-external.el b/lisp/init-external.el index b18cd0e..343af00 100644 --- a/lisp/init-external.el +++ b/lisp/init-external.el @@ -1,17 +1,9 @@ -(define-prefix-command 'external-map) -(global-set-key (kbd "C-c x") 'external-map) - (defvar km/terminal "urxvt") (defun km/open-external-terminal () (interactive) (start-process "ext-term" nil km/terminal)) -(define-key external-map "t" 'km/open-external-terminal) -(define-key external-map "s" 'shell-command) - -(global-set-key (kbd "C-c c") 'compile) - (defadvice recompile (around restore-windows activate) "Prevent recompiling from spawning new windows." (save-window-excursion @@ -25,6 +17,13 @@ other window when an asynchronous command is run." ad-do-it (jump-to-register :before-shell-command)) +(define-prefix-command 'external-map) +(global-set-key (kbd "C-c x") 'external-map) + +(define-key external-map "t" 'km/open-external-terminal) +(define-key external-map "s" 'shell-command) + +(global-set-key (kbd "C-c c") 'compile) (global-set-key (kbd "C-c g") 'recompile) (provide 'init-external) |