;;; yatex23.el --- YaTeX facilities for Emacs 23 or later -*- coding: sjis -*- ;;; (c)2014 by HIROSE Yuuji.[yuuji@yatex.org] ;;; Last modified Tue Dec 16 11:29:14 2014 on firestorm ;;; $Id:$ ;;; Code: (defun YaTeX-dnd-handler (uri action) "DnD handler for yatex-mode Convert local image URI to \\includegraphcis{} and .tex file names to \\include{}." (save-excursion (YaTeX-visit-main t) (let*((file (dnd-get-local-file-name uri)) (path (file-relative-name file)) (insert-file-directory nil) (case-fold-search t)) (cond ((memq action '(copy link move private)) (cond ((string-match "\\.\\(jpe?g\\|png\\|gif\\|bmp\\|tiff?\\|e?ps\\|pdf\\)$" path) (insert "\\includegraphics") (insert "{" (YaTeX::includegraphics 1 path t) "}") (YaTeX-package-auto-usepackage "includegraphics" 'section)) ((string-match "\\.tex$" path) (insert "\\include{" path "}")) )) (t (message "%s" action)))))) (provide 'yatex23) ; Local variables: ; fill-prefix: ";;; " ; paragraph-start: "^$\\|\\|;;;$" ; paragraph-separate: "^$\\|\\|;;;$" ; coding: sjis ; End: