= Trac Wiki Page Editing Mode for Emacs =

[http://www.meadowy.org/~gotoh/trac-wiki/trac-wiki.el trac-wiki.el]
is a emacs lisp code to create/edit wiki pages via XML-RPC.
It provides not only comfortable editing on emacs
but also some original functions for editing like diff, merging,
highlighting, completion.

=== Features ===
 * Multiple project access.
 * Retrieve page from remote site and edit it with highlighting.
 * Commit page with version check.
 * Diff / Ediff between editing text and original.
 * Revert local edit.
 * Merge with most recent version if it is modified by other user.
 * Show history of page (but not so informative).
 * Preview page in emacs with w3m (textual).
 * Preview page with external browser with CSS.
 * Search words in trac site for all pages and view result.
 * Completion for macro name and wiki page name in buffer. 


= Patch to add save-buffers-kill-emacs support to trac-wiki =

The following patch prevents you from losing work when hitting C-x C-c, 
by telling trac-wiki mode to prompt you when emacs is killed. Just paste it
into your trac-wiki.el at the end, right before the line with {{{ (provide 'trac-wiki) }}}. 

{{{
(defun trac-wiki-modified-buffers ()
  "Return a list of all modified trac-wiki buffers."
  (let (trac-wiki-modified-buffer-list)
    (dolist (buf (buffer-list) trac-wiki-modified-buffer-list)
      (if (and (buffer-modified-p buf)
               (equal "TracWiki" (cdr (assq 'mode-name (buffer-local-variables buf)))))
          (setq trac-wiki-modified-buffer-list
                (cons 
                 buf
                 trac-wiki-modified-buffer-list))))))

(defun trac-wiki-commit-all-modified-buffers ()
  "Iterate over modified trac-wiki buffers and prompt to commit each one"
  (interactive)
  (dolist (buf (trac-wiki-modified-buffers))
    (switch-to-buffer buf)
    (if (yes-or-no-p (format "Commit changes to buffer %s ? " (buffer-name buf)))
        (call-interactively 'trac-wiki-commit))
    ))


;;Make save-buffers-kill-emacs run this function
(add-hook 'kill-emacs-query-functions (lambda () (trac-wiki-commit-all-modified-buffers) t))
}}}

== Patch to trac-wiki.el to reflect changes in xml-rpc.el ==

At some point xml-rpc.el changed the way it handles datetime. trac-wiki.el needs the patch below applied to use this new format.

{{{
#!diff
 diff -E -b -u trac-wiki.el.1 trac-wiki.el
--- trac-wiki.el.1      2007-11-15 03:50:18.000000000 +1300
+++ trac-wiki.el        2011-02-14 23:08:27.000000000 +1300
@@ -1921,24 +1921,8 @@
 
 (defun trac-wiki-convert-to-readable-time-string (str)
   "Parse STR as ISO format time and return encoded time value."
-  (if (not (string-match (concat "\\`"
-                                "\\([0-9][0-9][0-9][0-9]\\)"
-                                "\\([0-9][0-9]\\)"
-                                "\\([0-9][0-9]\\)"
-                                "T"
-                                "\\([0-9][0-9]?\\)"
-                                ":"
-                                "\\([0-9][0-9]?\\)"
-                                ":"
-                                "\\([0-9][0-9]?\\)"
-                                "\\([-+][0-9][0-9][0-9][0-9]\\)?"
-                                "\\'")
-                        str))
-      (error "Invalid time format: %s" str)
-    (apply 'format "%s-%s-%s %s:%s:%s%s"
-          (append (mapcar (lambda (n)
-                            (or (match-string n str) ""))
-                          '(1 2 3 4 5 6 7))))))
+  (xml-rpc-datetime-to-string str)
+)
}}}