From 18eec2656aa8a78b5a4ac9aaca8722c9981eedf4 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 28 Aug 2014 23:20:47 -0400
Subject: Use prefix in name of all custom maps

---
 lisp/init-editing.el | 46 +++++++++++++++++++++++-----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

(limited to 'lisp/init-editing.el')

diff --git a/lisp/init-editing.el b/lisp/init-editing.el
index fad7a07..0d5646d 100644
--- a/lisp/init-editing.el
+++ b/lisp/init-editing.el
@@ -60,13 +60,13 @@
 (add-hook 'before-save-hook 'km/cleanup-buffer)
 
 ;; Replace map
-(define-prefix-command 'replace-map)
-(global-set-key (kbd "C-c r") 'replace-map)
+(define-prefix-command 'km/replace-map)
+(global-set-key (kbd "C-c r") 'km/replace-map)
 
-(define-key replace-map "s" 'query-replace)
-(define-key replace-map "S" 'replace-string)
-(define-key replace-map "r" 'query-replace-regexp)
-(define-key replace-map "R" 'replace-regexp)
+(define-key km/replace-map "s" 'query-replace)
+(define-key km/replace-map "S" 'replace-string)
+(define-key km/replace-map "r" 'query-replace-regexp)
+(define-key km/replace-map "R" 'replace-regexp)
 
 (defun km/narrow-to-comment-heading ()
   "Narrow to the current comment heading subtree.
@@ -136,23 +136,23 @@ and '<<<' mark the bounds of the narrowed region.
 (key-chord-define-global ",c" 'km/toggle-line-or-region-comment)
 
 ;; Put multiple cursors map under insert prefix.
-(define-prefix-command 'editing-map)
-(global-set-key (kbd "C-c e") 'editing-map)
+(define-prefix-command 'km/editing-map)
+(global-set-key (kbd "C-c e") 'km/editing-map)
 
-(define-key editing-map "l" 'mc/edit-lines)
-(define-key editing-map "b" 'mc/edit-beginnings-of-lines)
-(define-key editing-map "e" 'mc/edit-ends-of-lines)
-(define-key editing-map "n" 'mc/mark-next-like-this)
-(define-key editing-map "p" 'mc/mark-previous-like-this)
-(define-key editing-map "a" 'mc/mark-all-like-this)
+(define-key km/editing-map "l" 'mc/edit-lines)
+(define-key km/editing-map "b" 'mc/edit-beginnings-of-lines)
+(define-key km/editing-map "e" 'mc/edit-ends-of-lines)
+(define-key km/editing-map "n" 'mc/mark-next-like-this)
+(define-key km/editing-map "p" 'mc/mark-previous-like-this)
+(define-key km/editing-map "a" 'mc/mark-all-like-this)
 
 (global-set-key (kbd "C-;") 'er/expand-region)
 
-(define-key editing-map "i" 'indent-relative)
+(define-key km/editing-map "i" 'indent-relative)
 
 ;; Kill map
-(define-prefix-command 'kill-map)
-(global-set-key (kbd "C-c k") 'kill-map)
+(define-prefix-command 'km/kill-map)
+(global-set-key (kbd "C-c k") 'km/kill-map)
 
 (defun km/kill-string-at-point ()
   (interactive)
@@ -172,11 +172,11 @@ and '<<<' mark the bounds of the narrowed region.
 (km/make-kill-thing-at-point "line" 'line 'kill-line)
 (km/make-kill-thing-at-point "sexp" 'sexp 'kill-sexp)
 
-(define-key kill-map  "s" 'km/kill-string-at-point)
-(define-key kill-map  "." 'km/kill-sentence-at-point)
-(define-key kill-map  "w" 'km/kill-word-at-point)
-(define-key kill-map  "p" 'km/kill-paragraph-at-point)
-(define-key kill-map  "l" 'km/kill-line-at-point)
+(define-key km/kill-map  "s" 'km/kill-string-at-point)
+(define-key km/kill-map  "." 'km/kill-sentence-at-point)
+(define-key km/kill-map  "w" 'km/kill-word-at-point)
+(define-key km/kill-map  "p" 'km/kill-paragraph-at-point)
+(define-key km/kill-map  "l" 'km/kill-line-at-point)
 
 ;; Taken from prelude-core.el.
 (defun km/join-next-line-with-space ()
@@ -184,6 +184,6 @@ and '<<<' mark the bounds of the narrowed region.
   (interactive)
   (delete-indentation 1))
 
-(define-key kill-map  "j" 'km/join-next-line-with-space)
+(define-key km/kill-map  "j" 'km/join-next-line-with-space)
 
 (provide 'init-editing)
-- 
cgit v1.2.3