summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2016-08-14 00:59:24 -0400
committerKyle Meyer <kyle@kyleam.com>2016-08-14 00:59:24 -0400
commit1ae55546271444de82e0beff0759a4193d679933 (patch)
tree8541e9db87c9ce2743bb39e22896bbfecea337d2
parent33559ccbef32ded4f7d72c61555dff44a7e114e8 (diff)
downloademacs.d-1ae55546271444de82e0beff0759a4193d679933.tar.gz
Define all prefix commands in same section
-rw-r--r--init.el30
1 files changed, 14 insertions, 16 deletions
diff --git a/init.el b/init.el
index f56d8cf..f30d21e 100644
--- a/init.el
+++ b/init.el
@@ -79,6 +79,20 @@
(define-prefix-command map)
(global-set-key (kbd key) map))
+(define-prefix-command 'km/diff-prefix-map)
+(define-prefix-command 'km/dired-copy-filename-map)
+(define-prefix-command 'km/dired-narrow-prefix-map)
+(define-prefix-command 'km/dired-prefix-map)
+(define-prefix-command 'km/dired-subtree-prefix-map)
+(define-prefix-command 'km/gnus-summary-prefix-map)
+(define-prefix-command 'km/magit-map)
+(define-prefix-command 'km/magit-wip-map)
+(define-prefix-command 'km/notmuch-show-prefix-map)
+(define-prefix-command 'km/org-prefix-map)
+(define-prefix-command 'km/projectile-ctl-x-4-map)
+(define-prefix-command 'km/python-prefix-map)
+(define-prefix-command 'km/gnus-article-prefix-map)
+
;;; Org
@@ -95,7 +109,6 @@
("o" . org-open-at-point)
("s" . org-save-all-org-buffers)
("w" . org-refile-goto-last-stored))
- (define-prefix-command 'km/org-prefix-map)
(setq org-use-extra-keys t)
(setq org-export-backends '(ascii html latex))
@@ -679,7 +692,6 @@
:diminish projectile-mode
:chords ("jq" . projectile-commander)
:init
- (define-prefix-command 'km/projectile-ctl-x-4-map)
(define-key ctl-x-4-map "p" 'km/projectile-ctl-x-4-map)
(bind-keys :map km/projectile-ctl-x-4-map
("C-o" . projectile-display-buffer)
@@ -851,8 +863,6 @@
("d" . magit-dispatch-popup)
("l" . magit-log-buffer-file)
("s" . magit-stage-file))
- (define-prefix-command 'km/magit-map)
- (define-prefix-command 'km/magit-wip-map)
(define-key km/git-map "w" 'km/magit-wip-map)
(setq magit-push-current-set-remote-if-missing nil)
:config
@@ -1295,8 +1305,6 @@
(use-package dired
:defer t
- :init
- (define-prefix-command 'km/dired-prefix-map)
:config
(require 'dired-x)
;; .git is present as part of `dired-omit-extensions', but this
@@ -1335,7 +1343,6 @@
(use-package km-dired
:bind ("C-x C-d" . km/dired-switch-to-buffer)
:init
- (define-prefix-command 'km/dired-copy-filename-map)
(after 'projectile
(define-key km/dired-copy-filename-map "p"
#'km/dired-copy-project-filename-as-kill))
@@ -1365,7 +1372,6 @@
:defer t
:init
(after 'dired
- (define-prefix-command 'km/dired-narrow-prefix-map)
(bind-keys :map km/dired-narrow-prefix-map
("f" . dired-narrow-fuzzy)
("n" . dired-narrow)
@@ -1377,7 +1383,6 @@
:defer t
:init
(after 'dired
- (define-prefix-command 'km/dired-subtree-prefix-map)
(bind-keys :map km/dired-subtree-prefix-map
("@" . dired-subtree-mark-subtree)
("." . dired-subtree-unmark-subtree)
@@ -1506,7 +1511,6 @@
(use-package diff
:defer t
:init
- (define-prefix-command 'km/diff-prefix-map)
(define-key km/external-map "d" 'km/diff-prefix-map)
(define-key km/diff-prefix-map "d" #'diff)
:config
@@ -1761,7 +1765,6 @@
:init
(add-to-list 'interpreter-mode-alist '("python2" . python-mode))
(add-to-list 'interpreter-mode-alist '("python3" . python-mode))
- (define-prefix-command 'km/python-prefix-map)
:config
(setq python-fill-docstring-style 'pep-257-nn
python-indent-guess-indent-offset nil)
@@ -1894,7 +1897,6 @@
notmuch-search-oldest-first nil)
(add-to-list 'notmuch-saved-searches
'(:name "today" :query "date:today.." :key "."))
- (define-prefix-command 'km/notmuch-show-prefix-map)
(define-key notmuch-show-mode-map (kbd "C-c m") 'km/notmuch-show-prefix-map)
(define-key km/notmuch-show-prefix-map "i"
@@ -1956,8 +1958,6 @@
(use-package gnus-sum
:defer t
- :init
- (define-prefix-command 'km/gnus-summary-prefix-map)
:config
(setq gnus-sum-thread-tree-indent " "
gnus-sum-thread-tree-root "."
@@ -1975,8 +1975,6 @@
(use-package gnus-art
:defer t
- :init
- (define-prefix-command 'km/gnus-article-prefix-map)
:config
(setq gnus-article-x-face-too-ugly ".*")
(setq gnus-treat-display-smileys nil)