From becff06c71d277647eda4378203d03ab36e141eb Mon Sep 17 00:00:00 2001 From: mattkae Date: Tue, 17 May 2022 07:07:37 -0400 Subject: Evil mode and latex support --- elpa/auctex-13.1.3/style/pdfsync.el | 92 +++++++++++++++++++++++++++++++++++++ 1 file changed, 92 insertions(+) create mode 100644 elpa/auctex-13.1.3/style/pdfsync.el (limited to 'elpa/auctex-13.1.3/style/pdfsync.el') diff --git a/elpa/auctex-13.1.3/style/pdfsync.el b/elpa/auctex-13.1.3/style/pdfsync.el new file mode 100644 index 0000000..122f0eb --- /dev/null +++ b/elpa/auctex-13.1.3/style/pdfsync.el @@ -0,0 +1,92 @@ +;;; pdfsync.el --- AUCTeX style for `pdfsync.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2005-2021 Free Software Foundation, Inc. + +;; Author: Ralf Angeli +;; Maintainer: auctex-devel@gnu.org +;; Created: 2005-12-28 +;; Keywords: tex + +;; This file is part of AUCTeX. + +;; AUCTeX is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; AUCTeX is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with AUCTeX; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA +;; 02110-1301, USA. + +;;; Commentary: + +;; This file adds support for `pdfsync.sty'. + +;;; Code: + +(require 'tex) + +(defun LaTeX-pdfsync-output-page () + "Return page number in output file corresponding to buffer position." + (let* ((line (line-number-at-pos)) + (master (TeX-active-master)) + (file (file-name-sans-extension + (file-relative-name (buffer-file-name) + (file-name-directory master)))) + (pdfsync-file (concat master ".pdfsync")) + (buf-live-p (get-file-buffer pdfsync-file)) + (sync-record "0") + (sync-page "1") + last-match) + (when (file-exists-p pdfsync-file) + (with-current-buffer (find-file-noselect pdfsync-file) + (save-restriction + (goto-char (point-min)) + ;; Narrow region to file in question. + (when (not (string= file master)) + (re-search-forward (concat "^(" file "\\(.tex\\)?$") nil t) + (let ((beg (match-beginning 0))) + (goto-char beg) + (narrow-to-region (line-beginning-position 2) + (progn (forward-sexp) (point)))) + (goto-char (point-min))) + ;; Look for the record number. + (catch 'break + (while (re-search-forward "^(\\|^l \\([0-9]+\\) \\([0-9]+\\)" nil t) + (cond ((string= (match-string 0) "(") + (goto-char (match-beginning 0)) + (forward-sexp)) + ((> (string-to-number (match-string 2)) line) + (throw 'break nil)) + (t + (setq sync-record (match-string 1) + last-match (match-beginning 0)))))) + ;; Look for the page number. + (goto-char (or last-match (point-min))) + ;; There might not be any p or s lines for the current file, + ;; so make it possible to search further. + (widen) + (catch 'break + (while (re-search-forward "^p \\([0-9]+\\)" nil t) + (when (>= (string-to-number (match-string 1)) + (string-to-number sync-record)) + (re-search-backward "^s \\([0-9]+\\)" nil t) + (setq sync-page (match-string 1)) + (throw 'break nil))))) + ;; Kill the buffer if it was loaded by us. + (unless buf-live-p (kill-buffer (current-buffer))))) + sync-page)) + +(TeX-add-style-hook + "pdfsync" + (lambda () + (setq TeX-source-correlate-output-page-function #'LaTeX-pdfsync-output-page)) + TeX-dialect) + +;;; pdfsync.el ends here -- cgit v1.2.1