[elpa] 90/255: moving around major mode and key bindings

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 55ce404756ff61970c87ecc569ee88428db2f760
Author: Eric Schulte <address@hidden>
Date:   Thu May 24 20:22:48 2012 -0600

    moving around major mode and key bindings
---
 sgf-board.el |   39 +++++++++++++++++++++++++--------------
 1 files changed, 25 insertions(+), 14 deletions(-)

diff --git a/sgf-board.el b/sgf-board.el
index b13196b..09e52ac 100644
--- a/sgf-board.el
+++ b/sgf-board.el
@@ -256,20 +256,6 @@
   (interactive "MComment: ")
   (message "comment: %S" comment))
 
-
-;;; Display mode
-(defvar sgf-board-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "<right>") 'sgf-board-next)
-    (define-key map (kbd "<left>")  'sgf-board-prev)
-    (define-key map (kbd "q") (lambda () (interactive)
-                                (kill-buffer (current-buffer))))
-    map)
-  "Keymap for `sgf-board-mode'.")
-
-(define-derived-mode sgf-board-mode nil "SGF"
-  "Major mode for editing text written for viewing SGF files.")
-
 (defun sgf-board-next (&optional count)
   (interactive "p")
   (dotimes (n (or count 1) (or count 1))
@@ -284,4 +270,29 @@
     (pop *history*)
     (update-display (current-buffer))))
 
+(defun sgf-board-mouse-move (ev)
+  (interactive "e")
+  (let ((position (posn-point (event-start ev))))
+    ))
+
+
+;;; Display mode
+(defvar sgf-board-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "m") 'sgf-board-act-move)
+    (define-key map (kbd "r") 'sgf-board-act-resign)
+    (define-key map (kbd "u") 'sgf-board-act-undo)
+    (define-key map (kbd "c") 'sgf-board-act-comment)
+    (define-key map (kbd "n") 'sgf-board-next)
+    (define-key map (kbd "p") 'sgf-board-prev)
+    (define-key map (kbd "<right>") 'sgf-board-next)
+    (define-key map (kbd "<left>")  'sgf-board-prev)
+    (define-key map (kbd "q") (lambda () (interactive)
+                                (kill-buffer (current-buffer))))
+    map)
+  "Keymap for `sgf-board-mode'.")
+
+(define-derived-mode sgf-board-mode nil "SGF"
+  "Major mode for editing text written for viewing SGF files.")
+
 (provide 'sgf-board)