| author | Fabien Ninoles <fninoles@genvidtech.com> |
| Mon, 23 Jan 2017 07:21:24 -0500 | |
| changeset 20 | b0af77bc62ec |
| 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) |