How to build a conditional keymap?

How to build a conditional keymap?

[rejeep]

Hi,

I'm trying to create a minor mode. But I get stuck on the mode-map.
I'm trying to set the keybindings depending on some condition.

I created this minor example to illustrate what I've tried to do so
far.

(defvar mm-minor-mode-map (make-sparse-keymap)
  "...")

(defun mm-a()
  (interactive)
  (print "a"))

(defun mm-b()
  (interactive)
  (print "b"))

(defun mm-keys()
  (define-key mm-minor-mode-map "\C-n" 'mm-a)
  (if (< 3 -1)
      (define-key mm-minor-mode-map "\C-m" 'mm-b))
    mm-minor-mode-map)

;;;###autoload
(define-minor-mode mm-mode
  "..."
  :init-value nil
  :lighter " ..."
  :keymap (mm-keys))
;;;###autoload

(provide 'mm)

But this will not work. So basically my question is: How do I best
build a conditional keymap?

Thanks!

Re: How to build a conditional keymap?

[Ian Eure]

On Dec 5, 2008, at 2:06 AM, rejeep wrote:

> Hi,
>
> I'm trying to create a minor mode. But I get stuck on the mode-map.
> I'm trying to set the keybindings depending on some condition.
>
> But this will not work. So basically my question is: How do I best
> build a conditional keymap?
>
What's wrong with:

(define-key mm-minor-mode-map "\C-m" 'mm-b))
(defun mm-b ()
   (interactive)
   (and (< 3 -1) (print "b")))

  - Ian

Re: How to build a conditional keymap?

[rejeep]

On Dec 6, 7:43 am, Ian Eure <i...@digg.com> wrote:
> On Dec 5, 2008, at 2:06 AM, rejeep wrote:
>
> > Hi,
>
> > I'm trying to create a minor mode. But I get stuck on the mode-map.
> > I'm trying to set the keybindings depending on some condition.
>
> > But this will not work. So basically my question is: How do I best
> > build a conditional keymap?
>
> What's wrong with:
>
> (define-key mm-minor-mode-map "\C-m" 'mm-b))
> (defun mm-b ()
>    (interactive)
>    (and (< 3 -1) (print "b")))
>
>   - Ian

That will still bind C-m to mm-b. The condition is to decide whether
or not the binding should be set. So if the condition is true I want C-
m to be set to mm-b. But if it's false I don't want C-m to change.


Sorry if I was unclear about that!

Re: How to build a conditional keymap?

[Andreas Politz]

rejeep wrote:
> Hi,
> 
> I'm trying to create a minor mode. But I get stuck on the mode-map.
> I'm trying to set the keybindings depending on some condition.
> 
> I created this minor example to illustrate what I've tried to do so
> far.
> 
> (defvar mm-minor-mode-map (make-sparse-keymap)
>   "...")
> 

The keymap should be named MODE-map.

> (defun mm-a()
>   (interactive)
>   (print "a"))
> 
> (defun mm-b()
>   (interactive)
>   (print "b"))
> 
> (defun mm-keys()
>   (define-key mm-minor-mode-map "\C-n" 'mm-a)
>   (if (< 3 -1)
>       (define-key mm-minor-mode-map "\C-m" 'mm-b))
>     mm-minor-mode-map)
> 
> ;;;###autoload
> (define-minor-mode mm-mode
>   "..."
>   :init-value nil
>   :lighter " ..."
>   :keymap (mm-keys))
> ;;;###autoload
> 
> (provide 'mm)
> 
> But this will not work. So basically my question is: How do I best
> build a conditional keymap?
> 
> Thanks!


(define-minor-mode mm-mode
   "..."
   :init-value nil
   :lighter " ..."
   :keymap mm-minor-mode-map
   (if mm-mode
       (setq mm-minor-mode-map (mm-keys))))

-ap

Re: How to build a conditional keymap?

[rejeep]

On Dec 6, 3:49 pm, Andreas Politz <poli...@fh-trier.de> wrote:
> rejeep wrote:
> > Hi,
>
> > I'm trying to create a minor mode. But I get stuck on the mode-map.
> > I'm trying to set the keybindings depending on some condition.
>
> > I created this minor example to illustrate what I've tried to do so
> > far.
>
> > (defvar mm-minor-mode-map (make-sparse-keymap)
> >   "...")
>
> The keymap should be named MODE-map.
>
>
>
> > (defun mm-a()
> >   (interactive)
> >   (print "a"))
>
> > (defun mm-b()
> >   (interactive)
> >   (print "b"))
>
> > (defun mm-keys()
> >   (define-key mm-minor-mode-map "\C-n" 'mm-a)
> >   (if (< 3 -1)
> >       (define-key mm-minor-mode-map "\C-m" 'mm-b))
> >     mm-minor-mode-map)
>
> > ;;;###autoload
> > (define-minor-mode mm-mode
> >   "..."
> >   :init-value nil
> >   :lighter " ..."
> >   :keymap (mm-keys))
> > ;;;###autoload
>
> > (provide 'mm)
>
> > But this will not work. So basically my question is: How do I best
> > build a conditional keymap?
>
> > Thanks!
>
> (define-minor-mode mm-mode
>    "..."
>    :init-value nil
>    :lighter " ..."
>    :keymap mm-minor-mode-map
>    (if mm-mode
>        (setq mm-minor-mode-map (mm-keys))))
>
> -ap

Ahh, I see. Thanks Andreas!