home *** CD-ROM | disk | FTP | other *** search
(require (quote shell)) (defvar latexinfo-latex-shell-cd-command "cd" "\ Command to give to shell running LaTeX to change directory.") (defvar latexinfo-latex-command "latex" "\ *Command used by latexinfo-latex-region to run LaTeX on a region.") (defvar latexinfo-latexindex-command "latexindex" "\ *Command used by latexinfo-latexindex to sort unsorted index files.") (defvar latexinfo-latex-dvi-print-command "lpr -d" "\ *Command string used by \\[tex-print] to print a .dvi file.") (defvar latexinfo-show-latex-queue-command "lpq" "\ *Command string used to show the Latexinfo LaTeX print queue. Command is used by \\[latexinfo-show-latex-print-queue] and it should show the queue that \\[latexinfo-latex-print] puts jobs on.") (defvar latexinfo-delete-from-print-queue-command "lprm" "\ *Command string used to delete a job from the line printer queue. Command is used by \\[latexinfo-delete-from-latex-print-queue] based on number provided by a previous \\[latexinfo-show-latex-print-queue] command.") (defvar latexinfo-latex-trailer "\\end{document}" "\ String appended after a region sent to LaTeX by latexinfo-latex-region.") (defvar latexinfo-latex-original-file "" "\ Original name of file on which to run LaTeX.") (defvar latexinfo-latex-temp-file nil "\ Temporary file name used for text being sent as input to LaTeX.") (defvar latexinfo-latex-root-temp-file nil "\ Temporary file name used for text being sent as input to LaTeX.") (defun latexinfo-latex-region (beginning end) "\ Run LaTeX on the current region. A temporary file is written in the default directory, and LaTeX is run in that directory. The first line of the file is copied to the temporary file; and if the buffer has a header, it is written to the temporary file before the region itself. The buffer's header is all lines between the strings defined by latexinfo-start-of-header and latexinfo-end-of-header inclusive. The header must start in the first 100 lines. The value of latexinfo-latex-trailer is appended to the temporary file after the region." (interactive "r") (byte-code "╞ê╤╥!â ╙╘╒!└\"é ╓ ê╫╪┘┌█ !!!!ëê ▄Pèî▌ êebê▐▀!ê`ee ebêα`è▐ß!ê`) ╞╞%ê▐ß!ê`WàW `ëêΓ └#à~ π ê`ëêΓ ╞└#â{ ▐ß!ê`ëé~ eëêα ^ └╞%êα ] └╞%ê Σσ! qêµ êτΦ!ê à▓ cêαed └╞%*+êΘ╘╒!Ω\"êδ╒∞ΦR\"êδ╒∞ ΦR\"êφε!)))ç" [t latexinfo-latex-root-temp-file latexinfo-latex-temp-file search-end header-beginning header-end nil beginning latexinfo-start-of-header latexinfo-end-of-header end local-latex-trailer latexinfo-latex-trailer temp-buffer latexinfo-latex-shell-cd-command default-directory latexinfo-latex-command get-buffer "*latexinfo-latex-shell*" quit-process get-process "latexinfo-latex-shell" latexinfo-latex-start-shell expand-file-name make-temp-name prin1-to-string read buffer-name ".tex" widen forward-line 100 write-region 1 search-forward beginning-of-line get-buffer-create " latexinfo-trailer-buffer" erase-buffer insert-string " " set-process-sentinel latexinfo-latex-shell-sentinel send-string " " latexinfo-recenter-latex-output-buffer 0] 33)) (defun latexinfo-latex-buffer (buffer) "\ Run LaTeX on current buffer. After running LaTeX the first time, you may have to run \\[latexinfo-latexindex] and then \\[latexinfo-latex-buffer] again." (interactive (byte-code "┬├p!─\"à â ┼╞╟! \"é ┼╞╟!├p!\"Cç" [latexinfo-latex-root-temp-file latexinfo-latex-original-file string= buffer-name "*latexinfo-latex-shell*" read-string format "Run LaTeX on: "] 9)) (byte-code "╟ê╚╔p!╩\"â qé ╔p!ëê╦╩!â% ╠═╬!├\"é' ╧ ê ?â3 ╨╤!ép ╥ â> ╨╙!ép ╘═╬!╒\"ê╓╬ ╫╪─╦ !!!┘R\"ê╓╬╫ ┘R\"ê ┌█▄ \"åi GOëê▌┌!ç" [latexinfo-latex-root-temp-file latexinfo-latex-original-file buffer t buffer-file-name latexinfo-latex-shell-cd-command latexinfo-latex-command nil string= buffer-name "*latexinfo-latex-shell*" get-buffer quit-process get-process "latexinfo-latex-shell" latexinfo-latex-start-shell error "Buffer not visiting any file!" buffer-modified-p "Buffer has been modified since last saved!" set-process-sentinel latexinfo-latex-shell-sentinel send-string " " file-name-directory " " 0 string-match "\\.tex" latexinfo-recenter-latex-output-buffer] 22)) (defun latexinfo-latexindex nil "\ Run latexindex on unsorted index files. The index files are made by \\[latexinfo-latex-region] or \\[latexinfo-latex-buffer]. Runs the shell command defined by latexinfo-latexindex-command." (interactive) (byte-code "┬ê├─┼╞ ╟╚%\"ê╔┬!ç" [latexinfo-latexindex-command latexinfo-latex-root-temp-file nil send-string "latexinfo-latex-shell" concat " " ".??" " " latexinfo-recenter-latex-output-buffer] 8)) (defun latexinfo-latex-print nil "\ Print .dvi file made by \\[latexinfo-latex-region] or \\[latexinfo-latex-buffer]. Runs the shell command defined by latexinfo-latex-dvi-print-command." (interactive) (byte-code "┬ê├─┼╞ ╟╚%\"ê╔┬!ç" [latexinfo-latex-dvi-print-command latexinfo-latex-root-temp-file nil send-string "latexinfo-latex-shell" concat " " ".dvi" " " latexinfo-recenter-latex-output-buffer] 8)) (defun latexinfo-latex-start-shell nil (byte-code "è├─!?à ┼╞!ê╟╚╔└╩$qê╦ !ëê╠ !ê═ !ê╬╧!ê╨╤ !à0 ╥╙!)ç" [nil latexinfo-latex-shell-map shell-mode-map fboundp latexinfo-mode load "latexnfo-mde" make-shell "latexinfo-latex-shell" "/bin/sh" "-v" copy-keymap latexinfo-define-common-keys use-local-map run-hooks latexinfo-latex-shell-hook zerop buffer-size sleep-for 1] 11)) (defun latexinfo-quit-latex-job nil "\ Quit currently running LaTeX job, by sending an `x' to it." (interactive) (byte-code "└ê┴┬!?à ├─!êè┼╞!qêdbê╟cê╚ )ç" [nil get-process "latexinfo-latex-shell" error "No LaTeX shell running." get-buffer "*latexinfo-latex-shell*" "x" shell-send-input] 5)) (defun latexinfo-kill-latex-job nil "\ Kill the currently running LaTeX job." (interactive) (byte-code "└ê┴┬!à ├┴┬!!ç" [nil get-process "latexinfo-latex-shell" kill-process] 4)) (defun latexinfo-latex-shell-sentinel (process event) "\ Restart latexinfo-latex-shell after it is killed." (byte-code "┴┬\"à è├qê─cê┼ )ç" [event equal "killed " "*latexinfo-latex-shell*" " " latexinfo-latex-start-shell] 3)) (defun latexinfo-recenter-latex-output-buffer (linenum) "\ Redisplay buffer of LaTeX job output so that most recent output can be seen. The last line of the buffer is displayed on line LINE of the window, or centered if LINE is nil." (interactive "P") (byte-code "├ê─┼!p?â ╞╟!é3 ╚!ê╔!êdbê╩ â) ╦ !é. ╠═ ╬\"!ê╚ !*ç" [latexinfo-latex-shell old-buffer linenum nil get-buffer "*latexinfo-latex-shell*" message "No LaTeX output buffer" pop-to-buffer bury-buffer recenter prefix-numeric-value / window-height 2] 10)) (defun latexinfo-show-latex-print-queue nil "\ Show the print queue that \\[latexinfo-latex-print] put your job on. Runs the shell command defined by latexinfo-show-latex-queue-command." (interactive) (byte-code "┴ê┬ ?à ├ ê─┼╞P\"ê╟┴!ç" [latexinfo-show-latex-queue-command nil latexinfo-latex-shell-running-p latexinfo-latex-start-shell send-string "latexinfo-latex-shell" " " latexinfo-recenter-latex-output-buffer] 6)) (defun latexinfo-delete-from-latex-print-queue (job-number) "\ Delete job from the line printer spooling queue. You are prompted for the job number (shown by a previous \\[latexinfo-show-latex-print-queue] command." (interactive "nPrinter job number for deletion: ") (byte-code "┬ê├ â ─ é ┼ ê╞╟╚ ╔R\"ê╩┬!ç" [latexinfo-delete-from-print-queue-command job-number nil latexinfo-latex-shell-running-p latexinfo-kill-latex-job latexinfo-latex-start-shell send-string "latexinfo-latex-shell" " " " " latexinfo-recenter-latex-output-buffer] 9)) (defun latexinfo-latex-shell-running-p nil (byte-code "└┴!à ┬└┴!!├=ç" [get-process "latexinfo-latex-shell" process-status run] 5)) (provide (quote latexnfo-tex)) 
