xemacs-beta: lisp/w3/w3-latex.el comparison

comparison lisp/w3/w3-latex.el @ 2:ac2d302a0011 r19-15b2

Import from CVS: tag r19-15b2

author	cvs
date	Mon, 13 Aug 2007 08:46:35 +0200
parents	376386a54a3c
children	9ee227acff29

comparison

equal deleted inserted replaced

-:c0c6a60d29db
+:ac2d302a0011
-;;; w3-latex.el,v --- Emacs-W3 printing via LaTeX
+;;; w3-latex.el --- Emacs-W3 printing via LaTeX
 ;; Author: wmperry
-;; Created: 1996/06/06 15:00:18
+;; Created: 1996/06/30 18:08:34
-;; Version: 1.4
+;; Version: 1.3
 ;; Keywords: hypermedia, printing, typesetting
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Copyright (c) 1996 by Stephen Peters <speters%samsun@us.oracle.com>
 ;;;
 ;;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Elisp code to convert a W3 parse tree into a LaTeX buffer.
 ;;;
-;;; Heavily hacked upon by William Perry <wmperry@spry.com> to add more
+;;; Heavily hacked upon by William Perry <wmperry@cs.indiana.edu> to add more
 ;;; bells and whistles.
 ;;;
 ;;; KNOWN BUGS:
 ;;; 1) This does not use stylesheets to get the formatting information
 ;;; 2) This means that the new drawing routines need to be abstracted
 ;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (require 'w3-print)
 (defvar w3-latex-print-links nil
-"*If non-nil, prints the URLs of hypertext links as footnotes on a page.")
+"*If non-nil, prints the URLs of hypertext links as endnotes at the end of
+the document.  If `footnote', prints the URL's as footnotes on a page.")
 (defvar w3-latex-use-latex2e nil
 "*If non-nil, configures LaTeX parser to use LaTeX2e syntax.  A `nil'
 value indicates that LaTeX 2.0.9 compatibility will be used instead.")
 document titles.")
 ;; Internal variables - do not touch!
 (defvar w3-latex-current-url nil "What URL we are formatting")
 (defvar w3-latex-verbatim nil "Whether we are in a {verbatim} block or not")
+(defvar w3-latex-links-list nil "List of links for endnote usage")
 (defvar w3-latex-entities
 '((nbsp . "~")
 (iexcl . "!`")
 ;   (cent . "")
 (acute . "\\'{ }")
 (micro . "$\\mu$")
 (para . "\\P ")
 (middot . "$\\cdot$")
 (cedil . "\\c{ }")
-(sup1 . "$^{1}")
+(sup1 . "$^{1}$")
 ;   (ordm . "")
 (raquo . "$\\gg$")
 (frac14 . "$\frac{1}{4}$")
 (frac12 . "$\frac{1}{2}$")
 (frac34 . "$\frac{3}{4}$")
 	(setq start (match-end 0))))
 str))
 (defun w3-latex-insert-string (str)
 ;;; convert string to a LaTeX-compatible one.
-(let ((todo (list (cons "\\\\"          "\\BaCkSlAsH")
+(let ((todo (list (cons "\\\\"          "-BaCkSlAsH-")
 		    (cons "[%&#_{}$]"     "\\\\\\&")
-		    (cons "[~^]"          "\\\\\\&{ }")
+		    (cons "\\^"           "{\\\\textasciicircum}")
+		    (cons "~"             "{\\\\textasciitilde}")
 		    (cons "[*]"           "{\\&}")
 		    (cons "[><|]"         "$\\&$")
-		    (cons "\\\\BaCkSlAsH" "$\\backslash$")
+		    (cons "-BaCkSlAsH-"   "$\\\\backslash$"))))
-		    (cons "\n"            (if w3-latex-verbatim
-					      "\\\\newline\n"
-					    " ")))))
 (if w3-latex-verbatim
-	(setq todo (append todo '((" " . "\\\\ ")))))
+	(setq todo (append todo '(("\n" . "\\\\newline\\\\nullspace\n")
+				  (" " . "\\\\ ")))))
 (save-excursion
 (set-buffer (get-buffer-create " *w3-latex-munging*"))
 (erase-buffer)
 (insert str)
 (while todo
 	  (replace-match (cdar todo)))
 	(setq todo (cdr todo)))
 (setq str (w3-latex-replace-entities (buffer-string))))
 (insert str)))
+(defun w3-latex-ignore (tree)
+;;; ignores any contents of this tree.
+nil)
 (defun w3-latex-contents (tree)
 ;;; passes contents of subtree through to the latex-subtree
 (let ((contents (car (cdr (cdr tree)))))
 (while contents
 (w3-latex-subtree (car contents))
 (insert "% This document automatically generated by Emacs-W3 v"
 	  w3-version-number "\n")
 (if w3-latex-current-url
 (insert "% from <URL:" w3-latex-current-url ">\n"))
 (insert "%\n"
-	  "\\begin{document}\n")
+	  "\\batchmode\n\\begin{document}\n")
-(w3-latex-contents tree)
+(insert "\\setlength{\\parindent}{0pt}\n"
+	  "\\setlength{\\parskip}{1.5ex}\n")
+(insert "\\newcommand{\\nullspace}{\\rule{0pt}{0pt}}")
+(w3-latex-contents tree)
+(if w3-latex-links-list (w3-latex-endnotes))
 (insert "\\end{document}\n"))
 (defun w3-latex-title (tree)
 (if w3-latex-use-maketitle
 (insert "\\title{")
 (w3-latex-contents tree)
 (insert "\\end{quote}\n"))
 (defun w3-latex-break (tree)
 ;; no content allowed
-(insert "\\linebreak"))
+(insert "\\newline "))
+(defun w3-latex-endnotes ()
+(let ((i 1))
+(insert "\\begin{thebibliography}{99}\n")
+(while w3-latex-links-list
+(insert (concat "\\bibitem{ref" (number-to-string i) "}"))
+(w3-latex-insert-string (car w3-latex-links-list))
+(insert "\n")
+(setq w3-latex-links-list (cdr w3-latex-links-list))
+(setq i (1+ i)))
+(insert "\\end{thebibliography}\n")))
 (defun w3-latex-href (tree)
-(let ((href (cdr-safe (assq 'href (cadr tree)))))
+(let ((href (cdr-safe (assq 'href (cadr tree))))
+	(name (cdr-safe (assq 'name (cadr tree)))))
 (cond
 ((not w3-latex-print-links)	; No special treatment
 (w3-latex-contents tree))
+(name
+(w3-latex-contents tree)
+(insert (concat "\\label{" name "}")))
 (href				; Special treatment requested
-(insert "\\underline{")		; and we have a URL - underline
+;      (insert "\\underline{")		; and we have a URL - underline
-(w3-latex-contents tree)		; it and prepare a footnote.
+(w3-latex-contents tree)		; it.
-(insert "}\\footnote{" href "}"))
+;      (insert "}")
+(cond
+((char-equal ?# (aref href 0))
+	(insert (concat " (see page~\\pageref{"
+			(substring href 1)
+			"})")))
+((eq w3-latex-print-links 'footnote)
+	(insert "\\footnote{")		; Request to prepare footnote
+	(w3-latex-insert-string href)
+	(insert "}"))
+(t				; Otherwise, prepare endnotes
+	(let ((mem (member href w3-latex-links-list))
+	      (i (1+ (length w3-latex-links-list))))
+	  (if mem
+	      (setq i (- i (length mem)))
+	    (setq w3-latex-links-list
+		  (append w3-latex-links-list (cons href nil))))
+	  (insert (concat "~\\cite{ref" (number-to-string i) "}"))))))
 (t					; Special treatment requested, but
 (w3-latex-contents tree)))))	; no URL - do nothing.
 (defun w3-latex-preformatted (tree)
 (let ((w3-latex-verbatim t))
-(insert "\\tt{")
+(insert "\\par\\noindent\\begin{tt}")
 (w3-latex-contents tree)
-(insert "}")
+(insert "\\end{tt}\\par")
 ))
 (defun w3-latex-xmp (tree)
 (insert "\\begin{verbatim}")
 (w3-latex-contents tree)
 (write-region (point-min) (point-max)
 		  (expand-file-name "w3-tmp.latex"
 				    w3-temporary-directory) nil 5)
 (shell-command
 (format
-"(cd %s ; latex w3-tmp.latex ; xdvi w3-tmp.dvi ; rm -f w3-tmp*) &"
+"(cd %s ; latex w3-tmp.latex ; latex w3-tmp.latex ; xdvi w3-tmp.dvi ; rm -f w3-tmp*) &"
 w3-temporary-directory))))
 (provide 'w3-latex)

Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-latex.el @ 2:ac2d302a0011 r19-15b2