[emacs-wiki-discuss] Re: Tag completion.

[Michael Olson]

Andrea Riciputi <address@hidden> writes:

> I'm trying out emacs-wiki, and I'm quite satisfied with it. However I'm 
> very lazy ;-) and I've got tired very early to type all these tags such 
> as <verse>, <example> and so on.
>
> In particular I was not able to create a list with all the emacs-wiki 
> tag automatically, so I have populated it by hand (only few tags are 
> present in the attached file, indeed). Is anyone able to do it?

To do that, (mapcar 'car emacs-wiki-markup-tags) seems to work.

Here's a slightly modified version of what you wrote.  I haven't
tested it explicitly, but it looks right :^) .

I prefer to have the function mapped to C-c C-i (or C-c TAB) for the
sake of forward-compatibility with Muse.  Would it be okay for me to
include this code with emacs-wiki?

(defcustom emacs-wiki-default-tag "example"
  "*The default tag when creating new ones with `emacs-wiki-insert-tag'."
  :group 'emacs-wiki-publish
  :type 'string)
(make-variable-buffer-local 'emacs-wiki-default-tag)

(defvar emacs-wiki-tag-history nil)

(defun emacs-wiki-insert-tag ()
  "Insert a tag pair with blank line between them.
The cursor is placed between the tags."
  (interactive)
  (let ((markup-tag (completing-read
                     (concat "Tag: (default "
                             emacs-wiki-default-tag
                             ") ")
                     (mapcar 'car emacs-wiki-markup-tags)
                     nil nil nil
                     'emacs-wiki-tag-history)))
    (if (zerop (length markup-tag))
        (setq markup-tag emacs-wiki-default-tag)
      (setq emacs-wiki-default-tag markup-tag))

    (insert (concat "\n<" markup-tag ">\n\n</" markup-tag ">\n")))
  (forward-line -2))

(local-set-key (kbd "C-c C-i") 'emacs-wiki-insert-tag)

-- 
Michael Olson -- FSF Associate Member #652 -- http://www.mwolson.org/
Jabber: mwolson_at_hcoop.net -- IRC: mwolson on freenode.net: #muse, #pulug
  /` |\ | | |
 |_] | \| |_|   Interests: anime, Debian GNU/Linux, XHTML, wiki, Lisp

pgp3NIcHgwm72.pgp
Description: PGP signature