Concat var names ?

Concat var names ?

[Philippe M. Coatmeur]

Hi ; I have those two functions and I want to make them one :

(defun mail-bug-desktop-notify-one ()
  (mapcar
   (lambda (x)
     (if (not (member x mail-bug-advertised-mails-one))
	 (progn
	   (mail-bug-desktop-notification
	    (format "%s" (first x))
	    (format "%s \n%s" (second x)
		    (third x))
	    "5000" mail-bug-new-mail-icon-one)
	   (add-to-list 'mail-bug-advertised-mails-one x))))
   mail-bug-unseen-mails-one))

But I have to create distinct lists, so I'd really like to be able to
say

(setq suffix "plop")
(setq myvar-plop "value")
(message "%s" (concat "myvar-" suffix))

And get "myvar-value" instead of myvar-plop... 

Or even better, to use the same mechanism, a mapcar, but what about
the creation of mail-bug-advertised-mails-SUFFIX ? How do I instruct
my function to tell one list from the other ?

Phil

Re: Concat var names ?

[XeCycle]

[-- Attachment #1: Type: text/plain, Size: 1182 bytes --]

Philippe M. Coatmeur <philippe.coatmeur@gmail.com> writes:

> Hi ; I have those two functions and I want to make them one :
>
> (defun mail-bug-desktop-notify-one ()
>   (mapcar
>    (lambda (x)
>      (if (not (member x mail-bug-advertised-mails-one))
> 	 (progn
> 	   (mail-bug-desktop-notification
> 	    (format "%s" (first x))
> 	    (format "%s \n%s" (second x)
> 		    (third x))
> 	    "5000" mail-bug-new-mail-icon-one)
> 	   (add-to-list 'mail-bug-advertised-mails-one x))))
>    mail-bug-unseen-mails-one))
>
> But I have to create distinct lists, so I'd really like to be able to
> say
>
> (setq suffix "plop")
> (setq myvar-plop "value")
> (message "%s" (concat "myvar-" suffix))
>
> And get "myvar-value" instead of myvar-plop... 

Check what `intern' does.

> Or even better, to use the same mechanism, a mapcar, but what about
> the creation of mail-bug-advertised-mails-SUFFIX ? How do I instruct
> my function to tell one list from the other ?
>
> Phil
>

-- 
Carl Lei (XeCycle)
Department of Physics, Shanghai Jiao Tong University
OpenPGP public key: 7795E591
Fingerprint: 1FB6 7F1F D45D F681 C845 27F7 8D71 8EC4 7795 E591

[-- Attachment #2: Type: application/pgp-signature, Size: 489 bytes --]

Re: Concat var names ?

[Barry Margolin]

In article <mailman.1785.1338177648.855.help-gnu-emacs@gnu.org>,
 XeCycle <XeCycle@Gmail.com> wrote:

> Philippe M. Coatmeur <philippe.coatmeur@gmail.com> writes:
> 
> > Hi ; I have those two functions and I want to make them one :
> >
> > (defun mail-bug-desktop-notify-one ()
> >   (mapcar
> >    (lambda (x)
> >      (if (not (member x mail-bug-advertised-mails-one))
> > 	 (progn
> > 	   (mail-bug-desktop-notification
> > 	    (format "%s" (first x))
> > 	    (format "%s \n%s" (second x)
> > 		    (third x))
> > 	    "5000" mail-bug-new-mail-icon-one)
> > 	   (add-to-list 'mail-bug-advertised-mails-one x))))
> >    mail-bug-unseen-mails-one))
> >
> > But I have to create distinct lists, so I'd really like to be able to
> > say
> >
> > (setq suffix "plop")
> > (setq myvar-plop "value")
> > (message "%s" (concat "myvar-" suffix))
> >
> > And get "myvar-value" instead of myvar-plop... 
> 
> Check what `intern' does.

You also need to use symbol-value to get the value of the variable 
instead of just its name:

(message "%s" (symbol-value (intern (concat "myvar-" suffix"))))

-- 
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***

Re: Concat var names ?

[Philippe M. Coatmeur]

At Mon, 28 May 2012 00:26:37 -0400,
Barry Margolin wrote:
> 
> In article <mailman.1785.1338177648.855.help-gnu-emacs@gnu.org>,
>  XeCycle <XeCycle@Gmail.com> wrote:
> 
> > Philippe M. Coatmeur <philippe.coatmeur@gmail.com> writes:
> > 
> > > Hi ; I have those two functions and I want to make them one :
(...)
> > >
> > > But I have to create distinct lists, so I'd really like to be able to
> > > say
> > >
> > > (setq suffix "plop")
> > > (setq myvar-plop "value")
> > > (message "%s" (concat "myvar-" suffix))
> > >
> > > And get "myvar-value" instead of myvar-plop... 
> > 
> > Check what `intern' does.
> 
> You also need to use symbol-value to get the value of the variable 
> instead of just its name:
> 
> (message "%s" (symbol-value (intern (concat "myvar-" suffix"))))

Guys, thank you very much, it works like a charm, and with
"symbol-value" I can do pretty much whatever I want with the object
returned.

Phil
> 
> -- 
> Barry Margolin, barmar@alum.mit.edu
> Arlington, MA
> *** PLEASE post questions in newsgroups, not directly to me ***