emacs: lisp/org/org-export-latex.el comparison

comparison lisp/org/org-export-latex.el @ 100448:cea079b68b76

2008-12-16 Carsten Dominik <carsten.dominik@gmail.com> * org.el (org-refile): Avoid refiling to within the region to be refiled. * org-export-latex.el (org-export-latex-special-chars): Replace special characters also in tables. * org-agenda.el (org-agenda-change-all-lines): New argument FORCE-TAGS. (org-agenda-set-tags): Cet the new tags and pas them to `org-format-agenda-item'. 2008-12-16 Carsten Dominik <carsten.dominik@gmail.com> * org-export-latex.el (org-export-latex-classes): Add longable as a default package to all classes. (org-export-latex-tables): Handle the longtable attribute and the align attribute. * org-table.el (orgtbl-to-generic): Handle tables that start with a hline. * org-export-latex.el (org-export-latex-emphasis-alist): Switch to \verb for colde-like snippets. (org-export-as-latex): Fix issues with region export. * org.el (org-up-heading-safe): Speed up function by using a direct regexp search. (org-olpa): New variable. (org-get-outline-path): Speed-up path constructions in cases where this is possible because the entire hierarchy is scanned anyway. (org-refile-get-location): Don't compare the truenames of files, this is too slow. (org-goto-max-level): New option. (org-goto): Use `org-goto-max-level'. 2008-12-16 Tassilo Horn <tassilo@member.fsf.org> * org-gnus.el (org-gnus-article-link, org-gnus-article-link): Strip angle brackets from message-ids in the former and don't do it in the latter. (org-gnus-follow-link): Open summary reliable, even if the last messages were deleted, and handle empty groups, too. 2008-12-16 Carsten Dominik <carsten.dominik@gmail.com> * org-export-latex.el (org-export-latex-emphasis-alist): Use \verb instead of \texttt for the =...= and ~===~ emphasis environments. (org-export-as-latex): Remove any old :org-license-to-kill text properties. (org-export-as-latex): Pass RBEG to `org-export-latex-first-lines'. (org-export-latex-make-header): Add some hard space after the table of contents. (org-export-latex-first-lines): Accept RBEG argument. Mark exported text so that it will be excuded in further steps. * org-table.el (org-table-get-specials): Make @0 reference the last line in a table. (org-table-recalculate): Improve docstring. 2008-12-16 Carsten Dominik <carsten.dominik@gmail.com> * org.el (org-log-done): Fix docstring. 2008-12-16 Carsten Dominik <carsten.dominik@gmail.com> * org-exp.el (org-export-html-format-image): Fix bugs. * org-export-latex.el (org-export-latex-tables) (org-export-latex-links): Implement attribute, label, and caption handling. * org-exp.el (org-export-html-style-default): Add style definitions for the figure div. (org-export-preprocess-string, org-export-as-html): Implement attribute, label, and caption handling. (org-export-attach-captions-and-attributes): New function. (org-export-html-format-image): New function. (org-format-org-table-html): Implement attribute, label, and caption handling. * org.el (org-find-text-property-in-string): New function. (org-extract-attributes): Use the property org-attr instead of org-attrobutes, because this property is now set with the #+ATTR lines. 2008-12-16 Carsten Dominik <carsten.dominik@gmail.com> * org-compat.el (org-substring-no-properties): Fix for XEmacs, for the case that FROM is nil. * org.el (org-before-first-heading-p): New function. 2008-12-16 Carsten Dominik <carsten.dominik@gmail.com> * org-exp.el (org-export-as-html): Do not add a space before enforces line breaks. (org-export-as-html): Close paragraph before blockquote and verse tags. 2008-12-16 Carsten Dominik <carsten.dominik@gmail.com> * org-id.el (org-id-locations-file): Wrap file name with `convert-standard-filename'. (org-id-files): New variable. (org-id-use-hash): New option. (org-id-update-id-locations): Also search in all files current listed in `org-id-files'. Convert the resulting alist to a hash if the user customation says so. (org-id-locations-save): Handle he case if `org-id-locations' is a hash. (org-id-locations-load): Convert the alist to a hash. (org-id-add-location): Handle the hast case. (kill-emacs-hook): Make sure id locations are saved when Emacs is exited. (org-id-hash-to-alist, org-id-alist-to-hash) (org-id-paste-tracker): New functions.

author	Carsten Dominik <dominik@science.uva.nl>
date	Tue, 16 Dec 2008 13:28:37 +0000
parents	c851df8e004e
children	ba23e35d3eaf

comparison

equal deleted inserted replaced

-:f84c0729a0e9
+:cea079b68b76
 ;;
 ;; Copyright (C) 2007, 2008 Free Software Foundation, Inc.
 ;;
 ;; Emacs Lisp Archive Entry
 ;; Filename: org-export-latex.el
-;; Version: 6.14
+;; Version: 6.15a
 ;; Author: Bastien Guerry <bzg AT altern DOT org>
 ;; Maintainer: Bastien Guerry <bzg AT altern DOT org>
 ;; Keywords: org, wp, tex
 ;; Description: Converts an org-mode buffer into LaTeX
 ;; URL: http://www.cognition.ens.fr/~guerry/u/org-export-latex.el
 '(("article"
 "\\documentclass[11pt,a4paper]{article}
 \\usepackage[utf8]{inputenc}
 \\usepackage[T1]{fontenc}
 \\usepackage{graphicx}
+\\usepackage{longtable}
 \\usepackage{hyperref}"
 ("\\section{%s}" . "\\section*{%s}")
 ("\\subsection{%s}" . "\\subsection*{%s}")
 ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
 ("\\paragraph{%s}" . "\\paragraph*{%s}")
 ("report"
 "\\documentclass[11pt,a4paper]{report}
 \\usepackage[utf8]{inputenc}
 \\usepackage[T1]{fontenc}
 \\usepackage{graphicx}
+\\usepackage{longtable}
 \\usepackage{hyperref}"
 ("\\part{%s}" . "\\part*{%s}")
 ("\\chapter{%s}" . "\\chapter*{%s}")
 ("\\section{%s}" . "\\section*{%s}")
 ("\\subsection{%s}" . "\\subsection*{%s}")
 ("book"
 "\\documentclass[11pt,a4paper]{book}
 \\usepackage[utf8]{inputenc}
 \\usepackage[T1]{fontenc}
 \\usepackage{graphicx}
+\\usepackage{longtable}
 \\usepackage{hyperref}"
 ("\\part{%s}" . "\\part*{%s}")
 ("\\chapter{%s}" . "\\chapter*{%s}")
 ("\\section{%s}" . "\\section*{%s}")
 ("\\subsection{%s}" . "\\subsection*{%s}")
 (defcustom org-export-latex-emphasis-alist
 '(("*" "\\textbf{%s}" nil)
 ("/" "\\emph{%s}" nil)
 ("_" "\\underline{%s}" nil)
 ("+" "\\texttt{%s}" nil)
-("=" "\\texttt{%s}" nil)
+("=" "\\verb|%s|" nil)
-("~" "\\texttt{%s}" t))
+("~" "\\verb|%s|" t))
 "Alist of LaTeX expressions to convert emphasis fontifiers.
 Each element of the list is a list of three elements.
 The first element is the character used as a marker for fontification.
 The second element is a formatting string to wrap fontified text with.
 The third element decides whether to protect converted text from other
 		       (with-current-buffer (buffer-base-buffer)
 			 buffer-file-name))
 (error "Need a file name to be able to export")))
 (message "Exporting to LaTeX...")
+(remove-text-properties (point-min) (point-max)
+			  '(:org-license-to-kill nil))
 (org-update-radio-target-regexp)
 (org-export-latex-set-initial-vars ext-plist arg)
 (let* ((wcf (current-window-configuration))
 	 (opt-plist org-export-latex-options-plist)
 	 (region-p (org-region-active-p))
 		      (t (get-buffer-create to-buffer)))
 		   (find-file-noselect filename)))
 	 (odd org-odd-levels-only)
 	 (header (org-export-latex-make-header title opt-plist))
 	 (skip (cond (subtree-p nil)
-		     (region-p t)
+		     (region-p nil)
-		 ;; never skip first lines when exporting a subtree
 		     (t (plist-get opt-plist :skip-before-1st-heading))))
 	 (text (plist-get opt-plist :text))
-	 (first-lines (if skip "" (org-export-latex-first-lines)))
+	 (first-lines (if skip "" (org-export-latex-first-lines rbeg)))
 	 (coding-system (and (boundp 'buffer-file-coding-system)
 			     buffer-file-coding-system))
 	 (coding-system-for-write (or org-export-latex-coding-system
 				      coding-system))
 	 (save-buffer-coding-system (or org-export-latex-coding-system
 (region (buffer-substring
 		  (if region-p (region-beginning) (point-min))
 		  (if region-p (region-end) (point-max))))
 	 (string-for-export
 	  (org-export-preprocess-string
-	   region :emph-multiline t
+	   region
-		  :for-LaTeX t
+	   :emph-multiline t
-		  :comments nil
+	   :for-LaTeX t
-		  :tags (plist-get opt-plist :tags)
+	   :comments nil
-		  :priority (plist-get opt-plist :priority)
+	   :tags (plist-get opt-plist :tags)
-		  :todo-keywords (plist-get opt-plist :todo-keywords)
+	   :priority (plist-get opt-plist :priority)
-		  :add-text (if (eq to-buffer 'string) nil text)
+	   :todo-keywords (plist-get opt-plist :todo-keywords)
-		  :skip-before-1st-heading skip
+	   :add-text (if (eq to-buffer 'string) nil text)
-		  :select-tags (plist-get opt-plist :select-tags)
+	   :skip-before-1st-heading skip
-		  :exclude-tags (plist-get opt-plist :exclude-tags)
+	   :select-tags (plist-get opt-plist :select-tags)
-		  :LaTeX-fragments nil)))
+	   :exclude-tags (plist-get opt-plist :exclude-tags)
+	   :LaTeX-fragments nil)))
 (set-buffer buffer)
 (erase-buffer)
 (and (fboundp 'set-buffer-file-coding-system)
 	       "\n\n"))
 ;; insert lines before the first headline
 (unless (or skip (eq to-buffer 'string))
 (insert first-lines))
-;; handle the case where the region does not begin with a section
-(when region-p
-(insert (with-temp-buffer
-		(insert string-for-export)
-		(org-export-latex-first-lines))))
 ;; export the content of headlines
 (org-export-latex-global
 (with-temp-buffer
 (insert string-for-export)
 "\n\n"
 ;; table of contents
 (when (and org-export-with-toc
 		(plist-get opt-plist :section-numbers))
 (cond ((numberp toc)
-	      (format "\\setcounter{tocdepth}{%s}\n\\tableofcontents\n\n"
+	      (format "\\setcounter{tocdepth}{%s}\n\\tableofcontents\n\\vspace*{1cm}\n"
 		      (min toc (plist-get opt-plist :headline-levels))))
-	     (toc (format "\\setcounter{tocdepth}{%s}\n\\tableofcontents\n\n"
+	     (toc (format "\\setcounter{tocdepth}{%s}\n\\tableofcontents\n\\vspace*{1cm}\n"
 			  (plist-get opt-plist :headline-levels))))))))
-(defun org-export-latex-first-lines (&optional comments)
+(defun org-export-latex-first-lines (&optional beg)
 "Export the first lines before first headline.
-COMMENTS is either nil to replace them with the empty string or a
+If BEG is non-nil, the is the beginning of he region."
-formatting string like %%%%s if we want to comment them out."
 (save-excursion
-(goto-char (point-min))
+(goto-char (or beg (point-min)))
 (if (org-at-heading-p) (beginning-of-line 2))
 (let* ((pt (point))
-	   (end (if (and (re-search-forward "^\\* " nil t)
+	   (end (if (re-search-forward "^\\*+ " nil t)
-			 (not (eq pt (match-beginning 0))))
 		    (goto-char (match-beginning 0))
 		  (goto-char (point-max)))))
-(org-export-latex-content
+(prog1
-(org-export-preprocess-string
+	  (org-export-latex-content
-	(buffer-substring (point-min) end)
+	   (org-export-preprocess-string
-	:for-LaTeX t
+	    (buffer-substring pt end)
-	:emph-multiline t
+	    :for-LaTeX t
-	:add-text nil
+	    :emph-multiline t
-	:comments nil
+	    :add-text nil
-	:skip-before-1st-heading nil
+	    :comments nil
-	:LaTeX-fragments nil)))))
+	    :skip-before-1st-heading nil
+	    :LaTeX-fragments nil))
+	(add-text-properties pt (max pt (1- end))
+			     '(:org-license-to-kill t))))))
 (defun org-export-latex-content (content &optional exclude-list)
 "Convert CONTENT string to LaTeX.
 Don't perform conversions that are in EXCLUDE-LIST.  Recognized
 conversion types are: quotation-marks, emphasis, sub-superscript,
 (defun org-export-latex-quotation-marks ()
 "Export quotation marks depending on language conventions."
 (let* ((lang (plist-get org-export-latex-options-plist :language))
 	 (quote-rpl (if (equal lang "fr")
-			'(("\\(\\s-\\)\"" "�~")
+			'(("\\(\\s-\\)\"" "«~")
-			  ("\\(\\S-\\)\"" "~�")
+			  ("\\(\\S-\\)\"" "~»")
 			  ("\\(\\s-\\)'" "`"))
 		      '(("\\(\\s-\\)\"" "``")
 			("\\(\\S-\\)\"" "''")
 			("\\(\\s-\\)'" "`")))))
 (mapc (lambda(l) (goto-char (point-min))
 (goto-char (point-min))
 (mapc (lambda(c)
 	  (goto-char (point-min))
 	  (while (re-search-forward c nil t)
 	    ;; Put the point where to check for org-protected
-	    (unless (or (get-text-property (match-beginning 2) 'org-protected)
+;	    (unless (or (get-text-property (match-beginning 2) 'org-protected);
-			(org-at-table-p))
+;			(org-at-table-p))
+	    (unless (get-text-property (match-beginning 2) 'org-protected)
 	      (cond ((member (match-string 2) '("\\$" "$"))
 		     (if (equal (match-string 2) "\\$")
 			 (replace-match (concat (match-string 1) "$"
 						(match-string 3)) t t)
 		       (replace-match (concat (match-string 1) "\\$"
 (while (re-search-forward "^\\([ \t]*\\)|" nil t)
 ;; FIXME really need to save-excursion?
 (save-excursion (org-table-align))
 (let* ((beg (org-table-begin))
 	   (end (org-table-end))
-	   (raw-table (buffer-substring-no-properties beg end))
+	   (raw-table (buffer-substring beg end))
-	   fnum fields line lines olines gr colgropen line-fmt align)
+	   fnum fields line lines olines gr colgropen line-fmt align
+	   caption label attr floatp longtblp)
 (if org-export-latex-tables-verbatim
 	  (let* ((tbl (concat "\\begin{verbatim}\n" raw-table
 			      "\\end{verbatim}\n")))
 	    (apply 'delete-region (list beg end))
 	    (insert (org-export-latex-protect-string tbl)))
 	(progn
+	  (setq caption (org-find-text-property-in-string
+			 'org-caption raw-table)
+		attr (org-find-text-property-in-string
+		      'org-attributes raw-table)
+		label (org-find-text-property-in-string
+		       'org-label raw-table)
+		longtblp (and attr (stringp attr)
+			      (string-match "\\<longtable\\>" attr))
+		align (and attr (stringp attr)
+			   (string-match "\\<align=\\([^ \t\n\r,]+\\)" attr)
+			   (match-string 1 attr))
+		floatp (or caption label))
 	  (setq lines (split-string raw-table "\n" t))
 	  (apply 'delete-region (list beg end))
 	  (when org-export-table-remove-special-lines
 	    (setq lines (org-table-clean-before-export lines)))
 	  ;; make a formatting string to reflect aligment
 	  ;; maybe remove the first and last "|"
 	  (when (and (not org-export-latex-tables-column-borders)
 		     (string-match "^\\(|\\)?\\(.+\\)|$" line-fmt))
 	    (setq line-fmt (match-string 2 line-fmt)))
 	  ;; format alignment
-	  (setq align (apply 'format
+	  (unless align
-			     (cons line-fmt
+	    (setq align (apply 'format
-				   (mapcar (lambda (x) (if x "r" "l"))
+			       (cons line-fmt
-					   org-table-last-alignment))))
+				     (mapcar (lambda (x) (if x "r" "l"))
+					     org-table-last-alignment)))))
 	  ;; prepare the table to send to orgtbl-to-latex
 	  (setq lines
 		(mapcar
 		 (lambda(elem)
 		   (or (and (string-match "[ \t]*|-+" elem) 'hline)
 		       (split-string (org-trim elem) "|" t)))
 		 lines))
 	  (when insert
 	    (insert (org-export-latex-protect-string
-(orgtbl-to-latex
+		     (concat
-lines `(:tstart ,(concat "\\begin{tabular}{" align "}"))))
+		      (if longtblp
+			  (concat "\\begin{longtable}{" align "}\n")
+			(if floatp "\\begin{table}[htb]\n"))
+		      (if (or floatp longtblp)
+			  (format
+			   "\\caption{%s%s}"
+			   (if label (concat "\\\label{" label "}") "")
+			   (or caption "")))
+		      (if longtblp "\\\\\n" "\n")
+		      (if (not longtblp) "\\begin{center}\n")
+		      (if (not longtblp) (concat "\\begin{tabular}{" align "}\n"))
+		      (orgtbl-to-latex
+		       lines
+		       `(:tstart nil :tend nil
+				 :hlend ,(if longtblp
+					     (format "\\\\
+\\hline
+\\endhead
+\\hline\\multicolumn{%d}{r}{Continued on next page}\\
+\\endfoot
+\\endlastfoot" (length org-table-last-alignment))
+					   nil)))
+		      (if (not longtblp) (concat "\n\\end{tabular}"))
+		      (if longtblp "\n" "\n\\end{center}\n")
+		      (if longtblp
+			  "\\end{longtable}"
+			(if floatp "\\end{table}"))))
 		    "\n\n")))))))
 (defun org-export-latex-fontify ()
 "Convert fontification to LaTeX."
 (goto-char (point-min))
 (while (re-search-forward org-bracket-link-analytic-regexp nil t)
 (org-if-unprotected
 (goto-char (match-beginning 0))
 (let* ((re-radio org-export-latex-all-targets-re)
 	    (remove (list (match-beginning 0) (match-end 0)))
-	    (type (match-string 2))
 	    (raw-path (org-extract-attributes (match-string 3)))
 	    (full-raw-path (concat (match-string 1) raw-path))
 	    (desc (match-string 5))
+	    (type (or (match-string 2)
+		      (if (or (file-name-absolute-p raw-path)
+			      (string-match "^\\.\\.?/" raw-path))
+			  "file")))
+	    (caption (org-find-text-property-in-string 'org-caption raw-path))
+	    (attr (org-find-text-property-in-string 'org-attributes raw-path))
+	    (label (org-find-text-property-in-string 'org-label raw-path))
+	    (floatp (or label caption))
 	    imgp radiop
 	    ;; define the path of the link
 	    (path (cond
 		   ((member type '("http" "https" "ftp"))
 		    (concat type ":" raw-path))
 		    (setq radiop t))
 		   ((equal type "mailto")
 		    (concat type ":" raw-path))
 		   ((equal type "file")
 		    (if (and (or (org-file-image-p (expand-file-name raw-path))
-				 (string-match "\\.eps$" raw-path))
+				 (string-match "\\.\\(pdf\\|jpg\\|ps\\|eps\\)$"
+					       raw-path))
 			     (equal desc full-raw-path))
 			(setq imgp t)
 		      (progn (when (string-match "\\(.+\\)::.+" raw-path)
 			       (setq raw-path (match-string 1 raw-path)))
 			     (if (file-exists-p raw-path)
 						   :LaTeX org-export-latex-options-plist)
 				       raw-path))))))))
 ;; process with link inserting
 (apply 'delete-region remove)
 (cond ((and imgp (plist-get org-export-latex-options-plist :inline-images))
-	      (insert (format "\\includegraphics[%s]{%s}"
+	      (insert
-			      ;; image option should be set be a comment line
+	       (concat
-			      org-export-latex-image-default-option
+		(if floatp "\\begin{figure}[htb]\n")
-			      (expand-file-name raw-path))))
+		(format "\\centerline{\\includegraphics[%s]{%s}}\n"
+			(or attr org-export-latex-image-default-option)
+			(expand-file-name raw-path))
+		(if floatp
+		    (format "\\caption{%s%s}\n"
+			    (if label (concat "\\label{" label "}"))
+			    (or caption "")))
+		(if floatp "\\end{figure}\n"))))
 	     (radiop (insert (format "\\hyperref[%s]{%s}"
 				     (org-solidify-link-text raw-path) desc)))
 	     ((not type)
 	      (insert (format "\\hyperref[%s]{%s}"
 			      (org-solidify-link-text raw-path) desc)))
 (defvar org-latex-entities)   ; defined below
 (defvar org-latex-entities-regexp)   ; defined below
 (defun org-export-latex-preprocess ()
 "Clean stuff in the LaTeX export."
 ;; Preserve line breaks
 (goto-char (point-min))
 (while (re-search-forward "\\\\\\\\" nil t)
 (add-text-properties (match-beginning 0) (match-end 0)
 			 '(org-protected t)))

Mercurial > emacs

comparison lisp/org/org-export-latex.el @ 100448:cea079b68b76