[emacs-wiki-discuss] Patch for customizable emacs-wiki-menu entries

[Christopher San Diego]

This allows the user to customize menu entries generated by
emacs-wiki-menu-make-from-list. Just redefine
emacs-wiki-menu-make-from-list-format.

cd ~/
diff -c /usr/share/emacs/site-lisp/emacs-wiki/emacs-wiki-menu.el 
/home/toppy/elisp/emacs-wiki/emacs-wiki-menu.el
*** /usr/share/emacs/site-lisp/emacs-wiki/emacs-wiki-menu.el    2005-03-10 
13:41:40.000000000 +0800
--- /home/toppy/elisp/emacs-wiki/emacs-wiki-menu.el     2005-03-16 
05:32:39.000000000 +0800
***************
*** 133,138 ****
--- 133,152 ----
    :type 'string
    :group 'emacs-wiki-menu)
  
+ (defcustom emacs-wiki-menu-make-from-list-format 
+   "  <div class=\"menuitem\">
+   <a href=\"%url\" onmouseout=\"hide()\" 
+ onmouseover=\"showToolTip('%tooltip')\">%text</a>
+   </div>\n"
+ 
+   "The format to be used for each menu item produced by
+ `emacs-wiki-menu-make-from-list'.
+ 
+ %text, %url and %tooltip will be replaced by their respective values
+ from each of the tuples in `emacs-wiki-menu-definition'."
+   :type 'string
+   :group 'emacs-wiki-menu)
+ 
  (defcustom emacs-wiki-menu-top
  "<script type=\"text/javascript\">
  function showToolTip(machaine) {
***************
*** 250,263 ****
       emacs-wiki-menu-top
       (mapconcat
        (lambda (entry)
!         (concat "  <div class=\"menuitem\">\n  <a href=\""
!                 (cadr entry) ; url
!                 "\" onmouseout=\"hide()\" "
!                 "onmouseover=\"showToolTip('"
!                 (car (cddr entry)) ; tooltip
!                 "')\">"
!                 (car entry) ; text
!                 "</a>\n  </div>\n"))
        emacs-wiki-menu-definition "\n")
       emacs-wiki-menu-bottom)))
  
--- 264,273 ----
       emacs-wiki-menu-top
       (mapconcat
        (lambda (entry)
!       (let ((format emacs-wiki-menu-make-from-list-format))
!         (setq format (replace-regexp-in-string "%text" (car entry) format))
!         (setq format (replace-regexp-in-string "%url" (nth 1 entry) format))
!         (replace-regexp-in-string "%tooltip" (nth 2 entry) format)))
        emacs-wiki-menu-definition "\n")
       emacs-wiki-menu-bottom)))
  

Diff finished at Wed Mar 16 06:39:22