From mboxrd@z Thu Jan 1 00:00:00 1970 From: Aaron Ecay Subject: [PATCH] ox-latex: provide width and height options for images Date: Tue, 26 Feb 2013 14:22:34 -0500 Message-ID: <1361906554-26709-1-git-send-email-aaronecay@gmail.com> References: <87obf63mq6.fsf@gmail.com> Return-path: Received: from eggs.gnu.org ([208.118.235.92]:37322) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UAQ7G-0000AC-6h for emacs-orgmode@gnu.org; Tue, 26 Feb 2013 14:23:07 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UAQ7E-0002Hr-SA for emacs-orgmode@gnu.org; Tue, 26 Feb 2013 14:23:06 -0500 Received: from mail-qe0-f48.google.com ([209.85.128.48]:63131) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UAQ7E-0002Hj-La for emacs-orgmode@gnu.org; Tue, 26 Feb 2013 14:23:04 -0500 Received: by mail-qe0-f48.google.com with SMTP id 9so430431qea.35 for ; Tue, 26 Feb 2013 11:23:04 -0800 (PST) In-Reply-To: <87obf63mq6.fsf@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org These are implemented with \resizebox, and thus are uniform across different types of image inclusion (\includegraphics, \input of tikz images). This differs from the older way of using width and height optional args to \includegraphics. Thus, the default value for org-latex-image-default-options is left untouched, to avoid breaking compatibility with older code. After a transition period, the 0.9\linewidth value should be moved into org-latex-image-default-width, and the -options variable set to the empty string. Also introduce a convenience function to org-macs.el. --- lisp/org-macs.el | 7 +++++++ lisp/ox-latex.el | 29 ++++++++++++++++++++++++++--- 2 files changed, 33 insertions(+), 3 deletions(-) diff --git a/lisp/org-macs.el b/lisp/org-macs.el index 172d5d1..3fe62cd 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -87,6 +87,13 @@ Otherwise return nil." (and v (not (equal v "nil")) v)) +(defun org-not-nil-or-empty (v) + "Return V if V is not nil, the string \"nil\", or a string +consisting of solely whitespace. Otherwise return nil." + (and (org-not-nil v) + (org-string-nw-p v) + v)) + (defun org-substitute-posix-classes (re) "Substitute posix classes in regular expression RE." (let ((ss re)) diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index 13da3f0..d1f47b8 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -471,11 +471,24 @@ which format headlines like for Org version prior to 8.0." ;;;; Links +;;; NOTE: this variable is for backwards compatibility; eventually the +;;; width setting should be moved to the default-width variable, and +;;; this set to the empty string. (defcustom org-latex-image-default-option "width=.9\\linewidth" "Default option for images." :group 'org-export-latex :type 'string) +(defcustom org-latex-image-default-width "" + "Default option for images." + :group 'org-export-latex + :type 'string) + +(defcustom org-latex-image-default-height "" + "Default option for images." + :group 'org-export-latex + :type 'string) + (defcustom org-latex-default-figure-position "htb" "Default position for latex figures." :group 'org-export-latex @@ -1755,6 +1768,15 @@ used as a communication channel." (format "[%s]" org-latex-default-figure-position)) (t "")))) (comment-include (if (plist-get attr :comment-include) "%" "")) + ;; It is possible to specify width and height in the + ;; ATTR_LATEX line, and also via default variables. + (width (format "%s" (or (plist-get attr :width) + org-latex-image-default-width))) + (height (format "%s" (or (plist-get attr :height) + org-latex-image-default-height))) + (resize (format "\\resizebox{%s}{%s}{%%s}" + (if (org-not-nil-or-empty width) width "!") + (if (org-not-nil-or-empty height) height "!"))) ;; Options for "includegraphics" macro. Make sure it is ;; a string with square brackets when non empty. Default to ;; `org-latex-image-default-option' when possible. @@ -1766,9 +1788,10 @@ used as a communication channel." ((eq float 'float) "[width=0.7\\textwidth]") ((eq float 'wrap) "[width=0.48\\textwidth]") (t "")))) - (image-code (if (equal filetype "tikz") - (format "\\input{%s}" path) - (format "\\includegraphics%s{%s}" options path)))) + (image-code (format resize + (if (equal filetype "tikz") + (format "\\input{%s}" path) + (format "\\includegraphics%s{%s}" options path))))) ;; Return proper string, depending on FLOAT. (case float (wrap (format "\\begin{wrapfigure}%s -- 1.8.1.4