Re: Re: Frequently used files/headings

[Stephan Schmitt <drmabuse@cs.tu-berlin.de>]

Hi Nathan,

when the lambda form is evaluated (when you press f6) the variable
shortcut-def doesn't exist any more.

The problem is that elisp doesn't support closures.  See
this info page:
(elisp) Top > Variables > Variable Scoping > Extent

As a workaraound you can save the table in a global variable with setq
and access that variable in the lambda form.

Hth,
	Stephan

Also sprach Nathan Neff:
> On Mon, May 10, 2010 at 6:35 AM, Štěpán Němec<stepnem@gmail.com>  wrote:
>> Nathan Neff<nathan.neff@gmail.com>  writes:
>>> I tried something like this, but all I get is "Wrong type argument:
>>> integer-or-marker-p, (quote (second shortcut-def))"
>>>
>>> #+srcname: map-nav(navigation-shortcuts=navigation-shortcuts)
>>> #+begin_src emacs-lisp
>>>   (defun map-navigation-shortcuts (shortcut-def)
>>> (global-set-key (kbd (second shortcut-def)) (lambda () "Goto Foo Org File"
>>>      (interactive)
>>>      (org-id-goto '(third shortcut-def)))))
>>>
>>> (mapcar #'map-navigation-shortcuts navigation-shortcuts)
>>>
>>> #+end_src
>>>
>>> Can anyone point out where I'm going wrong?
>>
>> I haven't tried your code, but the way you call `kbd' is obviously
>> wrong.
>>
>> `kbd' is a macro and does not evaluate its arguments; try
>> using `read-kbd-macro' instead.
>
> Stepan,
>
> Thanks for your help -- The keyboard shortcut is now being mapped
> correctly, but
> whenever I press<f6>  a, I get "Symbol's value as a variable is void:
> shortcut-def"
>
> I suspect that (lambda()) is not evaluating (org-id-goto (third
> shortcut-def)).  I need some way to do that.
>
> I would really like to know an "acceptable" or "standard" way to
> implement this feature -- I think it would help me a lot with learning
> Lisp&  functional languages.  Any help is appreciated!
>
> Here's my new code:
>
> #+tblname:navigation-shortcuts
> | Vim                 |<f6>  a   | 733BD03F-0938-432F-B59A-BE235A2DE7E2 |
>
> #+srcname: map-nav(navigation-shortcuts=navigation-shortcuts)
> #+begin_src emacs-lisp
> (defun map-navigation-shortcuts (shortcut-def)
>      (global-set-key (read-kbd-macro (second shortcut-def))
>        (lambda ()
>          (interactive)
>          (org-id-goto (third shortcut-def)))) ;; this line is not
> evaluated inside lambda()
> )
>
> Thanks,
> --Nate
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode