yatex

annotate yatex23.el @ 343:43fb2bf403e4

find changesets by author, revision, files, or words in the commit message
Set undo-boundary for quick modification by user.
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 18 Dec 2014 22:55:48 +0900
parents d9c547265e6e
children bfd7a5998555
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@343 3 ;;; Last modified Thu Dec 18 18:26:55 2014 on firestorm
yuuji@330 4 ;;; $Id:$
yuuji@330 5
yuuji@330 6 ;;; Code:
yuuji@343 7 (defvar YaTeX-dnd-auto-figure "figure"
yuuji@343 8 "*If set, include dropped \\includegraphcs{} into that environment.
yuuji@343 9 The value should be string. Set this `nil' to disable enclosing.")
yuuji@330 10 (defun YaTeX-dnd-handler (uri action)
yuuji@330 11 "DnD handler for yatex-mode
yuuji@330 12 Convert local image URI to \\includegraphcis{} and
yuuji@330 13 .tex file names to \\include{}."
yuuji@343 14 (let*((file (dnd-get-local-file-name uri))
yuuji@343 15 (path (save-excursion
yuuji@343 16 (YaTeX-visit-main t)
yuuji@343 17 (file-relative-name file)))
yuuji@343 18 (insert-file-directory nil)
yuuji@343 19 (case-fold-search t)
yuuji@343 20 (b nil) p1 p2 (cc (current-column)) envstart)
yuuji@343 21 (cond
yuuji@343 22 ((memq action '(copy link move private))
yuuji@330 23 (cond
yuuji@343 24 ((string-match "\\.\\(jpe?g\\|png\\|gif\\|bmp\\|tiff?\\|e?ps\\|pdf\\)$" path)
yuuji@343 25 (if (and (stringp YaTeX-dnd-auto-figure)
yuuji@343 26 (not (YaTeX-in-environment-p YaTeX-dnd-auto-figure))
yuuji@343 27 (not (string-match "figure"
yuuji@343 28 (or (YaTeX-inner-environment t) "body")))
yuuji@343 29 YaTeX-dnd-auto-figure)
yuuji@343 30 (setq b (format "\\begin{%s}[htbp] %%\\centering\n"
yuuji@343 31 YaTeX-dnd-auto-figure)))
yuuji@343 32 (unwind-protect
yuuji@343 33 (progn
yuuji@343 34 (setq envstart (point-marker))
yuuji@343 35 (insert "\\includegraphics")
yuuji@343 36 (insert "{" (YaTeX::includegraphics 1 path t) "}")
yuuji@343 37 (save-excursion
yuuji@343 38 (YaTeX-package-auto-usepackage "includegraphics" 'section))
yuuji@343 39 (cond
yuuji@343 40 (b
yuuji@343 41 (undo-boundary)
yuuji@343 42 (save-excursion
yuuji@343 43 (goto-char envstart)
yuuji@343 44 (insert b))
yuuji@343 45 (YaTeX-indent-line)
yuuji@343 46 (insert "\n")
yuuji@343 47 (indent-to (1+ cc))
yuuji@343 48 (setq p1 (point))
yuuji@343 49 (insert "\\caption{")
yuuji@343 50 (setq p2 (point))
yuuji@343 51 (insert (format "}\\label{%s}\n" path))
yuuji@343 52 (indent-to cc)
yuuji@343 53 (insert (format "\\end{%s}\n" YaTeX-dnd-auto-figure))
yuuji@343 54 (goto-char p2)
yuuji@343 55 (undo-boundary)
yuuji@343 56 (insert (file-name-nondirectory path))
yuuji@343 57 (undo-boundary)
yuuji@343 58 (goto-char p1)
yuuji@343 59 (insert "%")
yuuji@343 60 (end-of-line)
yuuji@343 61 (or (get 'YaTeX-dnd-auto-figure 'guide)
yuuji@343 62 (progn
yuuji@343 63 (newline 1)
yuuji@343 64 (indent-to (1+ cc))
yuuji@343 65 (insert (format
yuuji@343 66 (if YaTeX-japan
yuuji@343 67 "%% Undo(%s)するとcaptionが活きます。2度押しで空欄 3度押しで無環境"
yuuji@343 68 "%% TYPE undo(%s) to ACTIVATE caption. Twice to clear caption. 3 to no-env")
yuuji@343 69 (key-description
yuuji@343 70 (car (where-is-internal 'undo)))))
yuuji@343 71 (put 'YaTeX-dnd-auto-figure 'guide t)))))
yuuji@343 72 (YaTeX-help "includegraphics")
yuuji@343 73 )
yuuji@343 74 (set-marker envstart nil) ;;sure to reset marker
yuuji@343 75 action))
yuuji@343 76 ((string-match "\\.tex$" path)
yuuji@343 77 (insert "\\include{" path "}"))
yuuji@343 78 ))
yuuji@343 79 (t (message "%s" action)))))
yuuji@330 80
yuuji@330 81 (provide 'yatex23)
yuuji@330 82
yuuji@330 83 ; Local variables:
yuuji@330 84 ; fill-prefix: ";;; "
yuuji@330 85 ; paragraph-start: "^$\\| \\|;;;$"
yuuji@330 86 ; paragraph-separate: "^$\\| \\|;;;$"
yuuji@330 87 ; coding: sjis
yuuji@330 88 ; End: