Re: [emacs-wiki-discuss] Re: menus again

[Marc Tommasi]

I've tried, but I obtain quotes (") replaced by the entity " and > 
replaced by &lt; and the php code in a <pre> </pre> tag.
Of course the php code could not be interpreted...



Michael Olson wrote:

> Try the following:
>
> (defun mt-write-menu (menu)
>   (when emacs-wiki-publishing-p
>     (let (str)
>       (while menu
>         (setq str (concat str
>                          "$menu[] = array(\"texte\"=>\"" (car(car menu))
>                          "\",\"url\"=>\"" (cadr(car menu))
>                          "\",\"bulle\"=>\"" (caddr(car menu))
>                          "\");\n"
>                          ))     
>         (setq menu (cdr menu))
>         )
>       (concat "<example><?\n" str "\n  display_menu($menu);\n?></example>")
>     )
>   )
> )
>
> This puts the <example> tag around your output, which keeps Emacs Wiki
> from interpreting it any further and preserves whitespace.  The
> <example> tag will go away when you view the published page.
>
>
>
> _______________________________________________
> emacs-wiki-discuss mailing list
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss


--
Marc Tommasi         --- http://www.grappa.univ-lille3.fr/~tommasi
UFR MSES Univ. de Lille 3  59653 Villeneuve d'Ascq cedex  -- FRANCE
Phone:(+33)320416175 --- Fax:(+33)320416770
--
N'ajoutez pas mon email dans votre carnet d'adresses Outlook SVP.
Please do not add my email in your Outlook addressbook.