From 9282e3afc2bcfbc2fe905a62ba5e03f7f019f46f Mon Sep 17 00:00:00 2001 From: blendoit Date: Tue, 3 Sep 2019 19:31:14 -0700 Subject: remove personal files --- .../latex-preview-pane.el | 469 --------------------- 1 file changed, 469 deletions(-) delete mode 100755 elpa/latex-preview-pane-20181008.1822/latex-preview-pane.el (limited to 'elpa/latex-preview-pane-20181008.1822/latex-preview-pane.el') diff --git a/elpa/latex-preview-pane-20181008.1822/latex-preview-pane.el b/elpa/latex-preview-pane-20181008.1822/latex-preview-pane.el deleted file mode 100755 index 597ed90..0000000 --- a/elpa/latex-preview-pane-20181008.1822/latex-preview-pane.el +++ /dev/null @@ -1,469 +0,0 @@ -;;; latex-preview-pane.el --- Makes LaTeX editing less painful by providing a updatable preview pane - -;; Copyright (C) 2015 John L. Singleton - -;; Author: John L. Singleton -;; Keywords: latex, preview -;; Version: 20151021 -;; URL: http://www.emacswiki.org/emacs/LaTeXPreviewPane - -;;; Commentary: - -;; latex-preview-pane is a minor mode for Emacs that enables you to preview your LaTeX files directly in Emacs. -;; It supports PDF previews, your choice of pdflatex or xelatex, and it highlights errors in your LaTeX buffer. -;; -;; To enable, place the following in your .emacs file: -;; -;; (latex-preview-pane-enable) -;; -;; As an alternative, you may enable it on the fly with: -;; -;; M-x latex-preview-pane-mode -;; -;; The latest version of latex-preview-pane can always be found at -;; https://github.com/jsinglet/latex-preview-pane -;; -;; You can find the documentation for latex-preview-pane either on GitHub (above) or -;; on EmacsWiki at: http://www.emacswiki.org/emacs/LaTeXPreviewPane - -;;; License: - -;; This program 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 of the License, or -;; (at your option) any later version. -;; -;; This program 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 this program. If not, see . - -;;; Code: - -(require 'doc-view) -(require 'cl-lib) - -(defvar latex-preview-pane-current-version "20151021") -;; -;; Get rid of free variables warnings -;; - -(defvar message-latex-preview-pane-welcome) -(defvar message-no-preview-yet) - -;;;###autoload -(defun latex-preview-pane-enable () - "Enable `latex-preview-pane-mode' in `latex-mode'." - (add-hook 'latex-mode-hook (lambda () (latex-preview-pane-mode 1)))) - -(defun lpp/window-containing-preview () - (let (windows i docViewWindow) - (setq windows (cl-reduce #'append (mapcar `window-list (frame-list)))) - (setq i 0) - (progn - (while (and (not docViewWindow) (<= i (length windows))) - (let ((currentWindow (pop windows))) - (if (window-parameter currentWindow 'is-latex-preview-pane) - (setq docViewWindow currentWindow) - )) - (setq i (1+ i)) - ) - docViewWindow))) - -;; -;; Init procedure: -;; 1) Find a window with doc-view-mode turned on in this frame. -;; 2) If no such window can be found, split this window vertically. -;; 2a) Display startup message, shortcuts, etc. Pause for 3 seconds. -;; 3) TeX the current file. (that is, start the refresh loop) -;; - -;;;###autoload -(defun init-latex-preview-pane () - (progn - ;; make sure the current window isn't the preview pane - (set-window-parameter nil 'is-latex-preview-pane nil) - (if (eq (lpp/window-containing-preview) nil) - ;; tag the newly created window - (set-window-parameter - (if latex-preview-pane-use-frame - (car (window-list (make-frame))) - (split-window nil nil preview-orientation)) - 'is-latex-preview-pane t)) - (lpp/display-startup (lpp/window-containing-preview)) - ;; add the save hook - (add-hook 'after-save-hook 'latex-preview-pane-update nil 'make-it-local) - ;; refresh that pane - - (run-at-time "0 min 3 sec" nil 'latex-preview-pane-update) - ) -) - - -(defun lpp/get-message (f) - (with-temp-buffer - (insert-file-contents f) - (buffer-string))) - - - -(defun lpp/display-startup (where) - (let ((old-buff (current-buffer))) - (progn - (set-window-buffer where (get-buffer-create "*Latex Preview Pane Welcome*")) - (set-buffer (get-buffer "*Latex Preview Pane Welcome*")) - (erase-buffer) - (insert message-latex-preview-pane-welcome) - (set-buffer old-buff) - ))) - - -;; -;; System specific configuration. -;; - -(defvar lpp/view-buffer-command - (pcase system-type - (`windows-nt "start") - (`darwin "open") - (`gnu/linux "xdg-open") - (`gnu/kfreebsd "xdg-open")) - "Command used to view a file with the system's native tools.") - - -;; -;; Updates an external preview program of the current latex file -;; -;;;###autoload -(defun latex-preview-update () -(interactive) -(let ( (pdf-file (replace-regexp-in-string "\.tex$" ".pdf" (lpp/buffer-file-name)))) -(if (not (file-exists-p pdf-file)) - (message (concat "File " pdf-file " does not exist. Save your current buffer to generate it.")) - (if (eq system-type 'windows-nt) - (w32-shell-execute "open" pdf-file nil nil) - (start-process "Preview" - (get-buffer-create "*pdflatex-buffer*") - lpp/view-buffer-command - (replace-regexp-in-string "\.tex$" ".pdf" (lpp/buffer-file-name)) - ))))) - - -;; -;; If a preview pane is open, updates the preview pane on save. -;; -;;;###autoload -(defun latex-preview-pane-update () - (interactive) - (when (and (boundp 'latex-preview-pane-mode) latex-preview-pane-mode) - (if (eq (lpp/window-containing-preview) nil) - (init-latex-preview-pane) - (progn - (if (not (eq (get-buffer "*pdflatex-buffer*") nil)) - (let ((old-buff (current-buffer))) - (progn - (set-buffer "*pdflatex-buffer*") - (erase-buffer) - (set-buffer old-buff) - ))) - (message "Updating LaTeX Preview Pane") - (latex-preview-pane-update-p))))) - - - -(defun lpp/last-backtrace () - (let ((old-buff (current-buffer))) - (set-buffer (get-buffer "*pdflatex-buffer*")) - (let ((error-msg (buffer-substring (point-min) (point-max)))) - (set-buffer old-buff) - (mapconcat 'identity (reverse (split-string error-msg "\n")) "\n")))) - - -(defun latex-pp-filter (condp lst) - (delq nil - (mapcar (lambda (x) (and (funcall condp x) x)) lst))) - -(defface bad-face - '((t (:foreground "White" :background "Red"))) - "Face for errors" - :group 'latex-preview-pane) - - -(defun lpp/chomp (str) - "Chomp leading and tailing whitespace from STR." - (while (string-match "\\`\n+\\|^\\s-+\\|\\s-+$\\|\n+\\'" - str) - (setq str (replace-match "" t t str))) - str) - -(defun lpp/line-errors () - (let ((old-buff (current-buffer))) - (set-buffer (get-buffer "*pdflatex-buffer*")) - (let ((error-msg (buffer-substring (point-min) (point-max)))) - (set-buffer old-buff) - ;; get all the line numbers. - (mapcar (lambda (what) (lpp/chomp (substring what 2))) (latex-pp-filter (lambda (what) (eq (string-match "l\\.[0-9]*" what) 0)) (split-string error-msg "\n")))))) - - -(defun lpp/line-errors-to-layovers (errors) - (mapcar (lambda (what) (let ( (line (string-to-number what))) - (let (layoverStart layoverEnd) - (goto-char (point-min)) (forward-line (1- line)) - (setq layoverStart (point)) - (setq layoverEnd (+ 1 (line-end-position))) - ;;(message (format "Adding Layover On Line: %d, Start: %d, End: %d" line layoverStart layoverEnd)) - ;; create the layover - (overlay-put (make-overlay layoverStart layoverEnd) 'face 'bad-face)))) errors)) - -(defun lpp/display-backtrace () - (let ((old-buff (current-buffer))) - (progn - (set-window-buffer (lpp/window-containing-preview) (get-buffer-create "*Latex Preview Pane Errors*")) - (set-buffer (get-buffer "*Latex Preview Pane Errors*")) - (erase-buffer) - (insert message-no-preview-yet) - (set-buffer (get-buffer "*Latex Preview Pane Errors*")) - (insert (lpp/last-backtrace)) - (set-buffer old-buff) - ))) - -(boundp 'TeX-master) - - -(defun lpp/is-tex (string) - (and (string-match (rx-to-string `(: ,".tex" eos) t) - string) - t)) - - -(defun lpp/auctex-buffer-file-name () - (cond - ((eq (boundp 'TeX-master) nil) (message "The TeX master variable is not defined. To use this mode you must be using AUCTeX on this buffer.")) - ((eq TeX-master nil) (message "AUCTeX is enabled but TeX-master is not yet set. Please set it.")) - ((eq TeX-master t) buffer-file-name) - (t (if (lpp/is-tex TeX-master) TeX-master (concat TeX-master ".tex"))) - ) - ) - -(defun lpp/get-file () - "Prompt user to enter a file path, with file name completion and input history support." - (read-file-name "Location of Master TeX File:")) - - -(defun lpp/prompt-and-save-buffer-file-name () - (progn - (cond - ((eq (boundp 'lpp-TeX-master) nil) (set (make-local-variable 'lpp-TeX-master) (lpp/get-file))) - ((eq lpp-TeX-master nil) (set (make-local-variable 'lpp-TeX-master) (lpp/get-file))) - - ) - (if (lpp/is-tex lpp-TeX-master) lpp-TeX-master (concat lpp-TeX-master ".tex")))) - -(defun lpp/buffer-file-name () - (if (eq latex-preview-pane-multifile-mode 'off) buffer-file-name - (if (eq latex-preview-pane-multifile-mode 'auctex) (lpp/auctex-buffer-file-name) - (lpp/prompt-and-save-buffer-file-name))) -) - -;; -;; Take a string like "../main" and extract: the path leading UP -;; - - - - -(defun lpp/invoke-pdf-latex-command () - (let ((buff (expand-file-name (lpp/buffer-file-name))) (default-directory (file-name-directory (expand-file-name (lpp/buffer-file-name))))) - (if shell-escape-mode - (call-process pdf-latex-command nil "*pdflatex-buffer*" nil shell-escape-mode buff) - (call-process pdf-latex-command nil "*pdflatex-buffer*" nil buff) - ) - ) - ) - - -;;;###autoload -(defun latex-preview-pane-update-p () -(if (eq (lpp/invoke-pdf-latex-command) 1) - (progn - (lpp/display-backtrace) - (remove-overlays) - (lpp/line-errors-to-layovers (lpp/line-errors)) - ) - - (let ((pdf-filename (replace-regexp-in-string "\.tex$" ".pdf" (lpp/buffer-file-name))) - (tex-buff (current-buffer)) - (pdf-buff-name (replace-regexp-in-string "\.tex" ".pdf" (buffer-name (get-file-buffer (lpp/buffer-file-name)))))) - (remove-overlays) - ;; if the file doesn't exist, say that the file isn't available due to error messages - (if (file-exists-p pdf-filename) - (if (eq (get-buffer pdf-buff-name) nil) - (let ((pdf-buff (find-file-noselect pdf-filename 'nowarn))) - (buffer-disable-undo pdf-buff) - (set-window-buffer (lpp/window-containing-preview) pdf-buff)) - (progn - (set-window-buffer (lpp/window-containing-preview) pdf-buff-name) - (with-current-buffer pdf-buff-name (doc-view-revert-buffer nil t)) - )) - )))) - -;; -;; Mode definition -;; - -(defvar latex-preview-pane-mode-map (make-keymap) "Latex preview pane keymap") - -(defun lpp/set-multifile-mode (mode) (progn - (customize-set-variable 'latex-preview-pane-multifile-mode mode) - (set (make-local-variable 'lpp-TeX-master) nil) - )) - - - -(easy-menu-define words-menu latex-preview-pane-mode-map - "Menu for working with Latex Preview Pane" - '("LaTeX Preview Pane" - ["LaTeX Preview Pane Actions" nil :active nil] - - ["Refresh Preview" latex-preview-pane-update] - ["Open Preview in External Viewer" latex-preview-update] - ["Disable LaTeX Preview Pane in this Buffer" (latex-preview-pane-mode 'toggle)] - ["Customize LaTeX Preview Pane" (customize-group 'latex-preview-pane)] - ["--" nil] - ["Multi-File Mode" nil :active nil] - ["Off" (lpp/set-multifile-mode 'off) :style radio :selected (eq latex-preview-pane-multifile-mode 'off)] - ["Use AUCTeX/TeX-master" (lpp/set-multifile-mode 'auctex) :style radio :selected (eq latex-preview-pane-multifile-mode 'auctex)] - - ["Prompt" (lpp/set-multifile-mode 'prompt) :style radio :selected (eq latex-preview-pane-multifile-mode 'prompt)] - - )) - - - - - -(define-key latex-preview-pane-mode-map (kbd "M-p") 'latex-preview-pane-update) -(define-key latex-preview-pane-mode-map (kbd "s-p") 'latex-preview-pane-update) -(define-key latex-preview-pane-mode-map (kbd "M-P") 'latex-preview-update) -(define-key latex-preview-pane-mode-map (kbd "s-P") 'latex-preview-update) - -;;;###autoload -(define-minor-mode latex-preview-pane-mode - "Toggle Latex Preview Pane Mode. - Interactively with no argument, this command toggles the mode. - A positive prefix argument enables the mode, any other prefix - argument disables it. From Lisp, argument omitted or nil enables - the mode, `toggle' toggles the state. - - When Latex Preview Pane mode is enabled, saving a latex file will cause - a PDF preview pane of your document to appear." - ;; The initial value. - :init-value nil - ;; The indicator for the mode line. - :lighter " Latex Preview Pane" - ;; The minor mode bindings. - :keymap latex-preview-pane-mode-map - :group 'latex-preview-pane - ;; if we are turning on the mode, init the view - (if (and (boundp 'latex-preview-pane-mode) latex-preview-pane-mode) - (init-latex-preview-pane) - ;; otherwise, kill the window - (delete-window (lpp/window-containing-preview)) - )) - - -;; set some messages for later -(let ((installation-dir (if load-file-name (file-name-as-directory (file-name-directory load-file-name)) nil))) - (defvar message-latex-preview-pane-welcome (lpp/get-message (expand-file-name "message-latex-preview-pane-welcome.txt" installation-dir))) - (defvar message-no-preview-yet (lpp/get-message (expand-file-name "message-no-preview-yet.txt" installation-dir)))) - - -(defgroup latex-preview-pane nil - "Settings that are used in the Latex Preview Pane" - :group 'latex-preview-pane) - -(defcustom pdf-latex-command "pdflatex" - "The command to produce a PDF file from a latex document." - :type 'string - :group 'latex-preview-pane) - -(defcustom shell-escape-mode nil - "Should the pdflatex command use shell escaping?" - :type '(choice (const :tag "Use shell escaping (-shell-escape)" "-shell-escape") - (const :tag "Do not use shell escaping" nil) - ) - :group 'latex-preview-pane) - - -(defcustom preview-orientation 'right - "Which orientation to display the preview pane. Valid values are above, below, left, or right. Defaults to value right." - :type '(choice (const :tag "Display preview on right" right) - (const :tag "Display preview on left" left) - (const :tag "Display preview above" above) - (const :tag "Display preview below" below) - ) - :group 'latex-preview-pane) - - -(defcustom latex-preview-pane-multifile-mode 'off - "LaTeX Preview Pane can support multifile TeX projects. This variable tells LPP how to behave in different situations." - :type '(choice (const :tag "Off" off) - (const :tag "Use AUCTeX (via the TeX-master variable)" auctex) - (const :tag "Prompt" prompt) - ) - :group 'latex-preview-pane) - -(defcustom latex-preview-pane-use-frame nil - "If set, LaTeX Preview Pane will show preview in a new frame" - :type 'boolean - :group 'latex-preview-pane) - -;; -;; Some utility functions -;; - -(defun lpp/packing-list () - '("README" - "README.md" - "latex-preview-pane-pkg.el" - "latex-preview-pane.el" - "message-latex-preview-pane-welcome.txt" - "message-no-preview-yet.txt" - "ss-error.PNG" - "ss.PNG") -) - -;; for making distributions -(defun lpp/make-dist () - (let ((dist-dir (concat "latex-preview-pane-" latex-preview-pane-current-version))) - (let ((dist-file (concat dist-dir ".tar"))) - - ;; (call-process "rm" nil "*dist-buffer*" nil ("-fr" dist-dir)) - (call-process "mkdir" nil "*dist-buffer*" nil dist-dir) - - ;; copy it over - (mapc (lambda (f) - (progn - (message (concat "Copying " f "...")) - (call-process "cp" nil "*dist-buffer*" nil f dist-dir) - )) - (lpp/packing-list)) - - - (call-process "tar" nil "*dist-buffer*" nil "-cvf" dist-file (concat dist-dir "/")) - (message (concat "Package " dist-file " created.")) - ) - -)) - -;; (lpp/make-dist) - - - -(provide 'latex-preview-pane) - - -;;; latex-preview-pane.el ends here -- cgit v1.2.3