From 4058a64d484295cf60828256643f4e1b438d6c2a Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sun, 6 Jan 2019 08:26:36 +0000
Subject: Change default keybindings to match Emacs conventions

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
---
 org-d20.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'org-d20.el')

diff --git a/org-d20.el b/org-d20.el
index a40bd49..b8b79d9 100644
--- a/org-d20.el
+++ b/org-d20.el
@@ -79,12 +79,12 @@ Rather than starting again for each type."
 
 (defvar org-d20-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "<f9>") #'org-d20-initiative-dwim)
-    (define-key map (kbd "S-<f9>") #'org-d20-initiative-add)
-    (define-key map (kbd "<f10>") #'org-d20-damage)
-    (define-key map (kbd "S-<f10>") #'org-d20-roll-at-point)
-    (define-key map (kbd "<f11>") #'org-d20-roll)
-    (define-key map (kbd "S-<f11>") #'org-d20-roll-last)
+    (define-key map (kbd "C-c , i") #'org-d20-initiative-dwim)
+    (define-key map (kbd "C-c , a") #'org-d20-initiative-add)
+    (define-key map (kbd "C-c , d") #'org-d20-damage)
+    (define-key map (kbd "C-c , r") #'org-d20-roll)
+    (define-key map (kbd "<f10>") #'org-d20-roll-at-point)
+    (define-key map (kbd "<f11>") #'org-d20-roll-last)
     (define-key map (kbd "<f12>") #'org-d20-d20)
     (define-key map (kbd "S-<f12>") #'org-d20-d%)
     map)
-- 
cgit v1.2.3