| author | Fabien Ninoles <fabien@tzone.org> |
| Sun, 14 Jun 2015 22:18:07 -0400 | |
| changeset 11 | 7226709dc4c4 |
| parent 1 | a234a7579958 |
| permissions | -rw-r--r-- |
| 1 | 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) |