lisp/my-markdown.el
changeset 1 a234a7579958
equal deleted inserted replaced
0:df7496e40bee 1:a234a7579958
       
     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)