--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/my-markdown.el	Thu Oct 13 08:46:42 2011 -0400
@@ -0,0 +1,11 @@
+(add-to-list 'auto-mode-alist '("\\.md$" . markdown-mode))
+
+(setq ditaa-cmd "ditaa")
+(defun ditaa-generate (start end)
+  (interactive "r")
+  (let ((tmpfile (make-temp-file "ditaa")))
+    (write-region start end tmpfile)
+    (shell-command
+     (concat ditaa-cmd " " tmpfile " " (concat buffer-file-name ".png")))))
+
+(provide 'my-markdown)
\ No newline at end of file