[emacs-wiki-discuss] Re: menus again

[Michael Olson]

Marc Tommasi <address@hidden> writes:

> (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 "<?\n" str "\n  display_menu($menu);\n?>")
>     )
>   )
> )

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.