anything.el and emacs lisp

anything.el and emacs lisp

[weber]

Hello!
I'm trying to make anything.el include a category called My Places.
The problem is that it's not a simple list, but a list of pairs, like
this:

(setq my-places '(
 ( "Someproject" "c:/user/proj1/")
 ( "Anotherone" "c:/user/proj2/")))

I want to match on "Someproject" but use "c:\user\proj1" on the
action.
Matching on the first element of the pair is just customizing anything-
sources like this:

 ((name . "Places")
	  (candidates . (lambda () (mapcar (lambda (x) (fst x)) my-places)))
	  (action . open-folder ))

Now, anyone can show me how to apply the action on the second element
of the pair ?

Thanks in advance,
weber

Re: anything.el and emacs lisp

[Vagn Johansen]

weber <hugows@gmail.com> writes:

> (setq my-places '(
>  ( "Someproject" "c:/user/proj1/")
>  ( "Anotherone" "c:/user/proj2/")))
>
> I want to match on "Someproject" but use "c:\user\proj1" on the
> action.
> Matching on the first element of the pair is just customizing anything-
> sources like this:
>
>  ((name . "Places")
> 	  (candidates . (lambda () (mapcar (lambda (x) (fst x)) my-places)))
> 	  (action . open-folder ))

(defun open-folder (name)
  (find-file (cadr (assoc name my-places))))

Re: anything.el and emacs lisp

[weber]

On 12 jul, 15:46, Vagn Johansen <gonz...@hotmail.com> wrote:
> weber <hug...@gmail.com> writes:
> > (setq my-places '(
> >  ( "Someproject" "c:/user/proj1/")
> >  ( "Anotherone" "c:/user/proj2/")))
>
> > I want to match on "Someproject" but use "c:\user\proj1" on the
> > action.
> > Matching on the first element of the pair is just customizing anything-
> > sources like this:
>
> >  ((name . "Places")
> >      (candidates . (lambda () (mapcar (lambda (x) (fst x)) my-places)))
> >      (action . open-folder ))
>
> (defun open-folder (name)
>   (find-file (cadr (assoc name my-places))))

Yep, works beautifuly.
Many thanks Vagn!
Regards,
weber