help-gnu-emacs
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]