yatex
annotate yatex23.el @ 330:9cef5d10a0f1
First Drag-n-Drop support
| author | HIROSE Yuuji <yuuji@gentei.org> |
|---|---|
| date | Tue, 16 Dec 2014 11:12:38 +0900 |
| parents | |
| children | d9c547265e6e |
| rev | line source |
|---|---|
| yuuji@330 | 1 ;;; yatex23.el --- YaTeX facilities for Emacs 23 or later -*- coding: sjis -*- |
| yuuji@330 | 2 ;;; (c)2014 by HIROSE Yuuji.[yuuji@yatex.org] |
| yuuji@330 | 3 ;;; Last modified Tue Dec 16 11:08:10 2014 on firestorm |
| yuuji@330 | 4 ;;; $Id:$ |
| yuuji@330 | 5 |
| yuuji@330 | 6 ;;; Code: |
| yuuji@330 | 7 (defun YaTeX-dnd-handler (uri action) |
| yuuji@330 | 8 "DnD handler for yatex-mode |
| yuuji@330 | 9 Convert local image URI to \\includegraphcis{} and |
| yuuji@330 | 10 .tex file names to \\include{}." |
| yuuji@330 | 11 (save-excursion |
| yuuji@330 | 12 (YaTeX-visit-main t) |
| yuuji@330 | 13 (let*((file (dnd-get-local-file-name uri)) |
| yuuji@330 | 14 (path (file-relative-name file)) |
| yuuji@330 | 15 (insert-file-directory nil) |
| yuuji@330 | 16 (case-fold-search t)) |
| yuuji@330 | 17 (cond |
| yuuji@330 | 18 ((memq action '(copy link move private)) |
| yuuji@330 | 19 (cond |
| yuuji@330 | 20 ((string-match "\\.\\(jpe?g\\|png\\|gif\\|bmp\\|tiff?\\|e?ps\\|pdf\\)$" path) |
| yuuji@330 | 21 (insert "\\includegraphics" |
| yuuji@330 | 22 "{" (YaTeX::includegraphics 1 path t) "}") |
| yuuji@330 | 23 (YaTeX-package-auto-usepackage "includegraphics" 'section)) |
| yuuji@330 | 24 ((string-match "\\.tex$" path) |
| yuuji@330 | 25 (insert "\\include{" path "}")) |
| yuuji@330 | 26 )) |
| yuuji@330 | 27 (t (message "%s" action)))))) |
| yuuji@330 | 28 |
| yuuji@330 | 29 (provide 'yatex23) |
| yuuji@330 | 30 |
| yuuji@330 | 31 ; Local variables: |
| yuuji@330 | 32 ; fill-prefix: ";;; " |
| yuuji@330 | 33 ; paragraph-start: "^$\\| \\|;;;$" |
| yuuji@330 | 34 ; paragraph-separate: "^$\\| \\|;;;$" |
| yuuji@330 | 35 ; coding: sjis |
| yuuji@330 | 36 ; End: |