Re: [emacs-wiki-discuss] Re: modify emacs-wiki.el to handle more tags/faces ?

[Joe Corneli]

Anyway, this works[1].

(defun emacs-wiki-foo-tag (beg end highlight-p)
;  (if highlight-p
;      (progn
;        (emacs-wiki-multiline-maybe beg end)
;        (goto-char end))
    (add-text-properties beg end '(face font-lock-comment-face
                                   rear-nonsticky (read-only))))
;)

(The commented-out stuff causes the function not to work as I would
have liked... perhaps it is being called with highlight-p set to
nil, but I'm not sure how to test this.)

By the way, what I would like even better would be if the tags
themselves disappeared.  I.e.

<foo>hello</foo> [[Emacs]]

should display only a red `hello' followed by a cyan `Emacs'.

Advice on how to make this happen?


[1] In combination, of course, with the following .emacs snippet.

(setq emacs-wiki-markup-tags
 (quote (("example" t nil t emacs-wiki-example-tag)
         ("verbatim" t nil t emacs-wiki-verbatim-tag)
         ("nowiki" t nil t emacs-wiki-nowiki-tag)
         ("verse" t nil nil emacs-wiki-verse-tag)
         ("numbered" t nil nil emacs-wiki-numbered-tag)
         ("nop" nil nil t emacs-wiki-nop-tag)
         ("contents" nil t nil emacs-wiki-contents-tag)
         ("include" nil t nil emacs-wiki-include-tag)
         ("c-source" t t t emacs-wiki-c-source-tag)
         ("comment" t nil nil emacs-wiki-comment-tag)
         ("foo" t nil t emacs-wiki-foo-tag))))