1 (add-to-list 'auto-mode-alist '("\\.md$" . markdown-mode))

     2 

     3 (setq ditaa-cmd "ditaa")

     4 (defun ditaa-generate (start end)

     5   (interactive "r")

     6   (let ((tmpfile (make-temp-file "ditaa")))

     7     (write-region start end tmpfile)

     8     (shell-command

     9      (concat ditaa-cmd " " tmpfile " " (concat buffer-file-name ".png")))))

    10 

    11 (provide 'my-markdown)