[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Help with a big mode map
From: |
William Stevenson |
Subject: |
Help with a big mode map |
Date: |
Fri, 10 May 2013 21:52:29 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) |
I create a huge mode map for the game board, one for each intersection of
lines, with entries like those below. Is there any way to collapse these
entries or alternately register a more generic map?
<A1> Prefix Command
<B1> Prefix Command
<A1> <mouse-1> go-play-stone-mouse
<B1> <mouse-1> go-play-stone-mouse
#+BEGIN_SRC elisp
;; Code lives at: https://github.com/yhvh/go-svg-mode
(defvar gosvg-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "g" 'go-board-update)
(define-key map "k" 'gosvg-cleanup)
(define-key map "p" 'go-play-stone)
(define-key map "P" 'go-play-pass)
(define-key map "m" 'go-genmove)
(define-key map "l" 'go-level-set)
(define-key map "b" 'go-boardsize-set)
(define-key map "u" 'go-undo)
(define-key map "e" 'go-estimate-score)
(define-key map "F" 'go-final-score)
(define-key map "L" 'go-load-sgf)
(define-key map "S" 'go-save-sgf)
;; The svg image has a map of circles which show the pointer as
;; hand and fire an event like: <D4 mouse-1>. Here I bind all these
;; events to `go-play-stone-mouse'. This results in a great many
;; entries in the keymap.
(dolist (pos go-position-map)
(eval
`(define-key map (vector (car pos) 'mouse-1) 'go-play-stone-mouse)))
map)
"Keymap for `gosvg-mode'")
#+END_SRC
- Help with a big mode map,
William Stevenson <=