emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] [PATCH] Checkboxes: LaTeX export


From: Valentin Wüstholz
Subject: [Orgmode] [PATCH] Checkboxes: LaTeX export
Date: Fri, 6 Nov 2009 13:20:09 +0100

Hi,

I would like to suggest two smaller changes to the way checkboxes are
exported in LaTeX. This is my patch:

diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index 6fbb06c..fa340a4 100644
--- a/lisp/org-latex.el
+++ b/lisp/org-latex.el
@@ -97,6 +97,7 @@
 \\usepackage{float}
 \\usepackage{wrapfig}
 \\usepackage{soul}
+\\usepackage{amssymb}
 \\usepackage{hyperref}"
      ("\\section{%s}" . "\\section*{%s}")
      ("\\subsection{%s}" . "\\subsection*{%s}")
@@ -112,6 +113,7 @@
 \\usepackage{float}
 \\usepackage{wrapfig}
 \\usepackage{soul}
+\\usepackage{amssymb}
 \\usepackage{hyperref}"
      ("\\part{%s}" . "\\part*{%s}")
      ("\\chapter{%s}" . "\\chapter*{%s}")
@@ -127,6 +129,7 @@
 \\usepackage{float}
 \\usepackage{wrapfig}
 \\usepackage{soul}
+\\usepackage{amssymb}
 \\usepackage{hyperref}"
      ("\\part{%s}" . "\\part*{%s}")
      ("\\chapter{%s}" . "\\chapter*{%s}")
@@ -290,7 +293,7 @@ string should be like \"\\end{itemize\"."
                 (string :tag "Use a section string" :value 
"\\subparagraph{%s}")))

 (defcustom org-export-latex-list-parameters
-  '(:cbon "\\texttt{[X]}" :cboff "\\texttt{[ ]}")
+  '(:cbon "$\\boxtimes$" :cboff "$\\Box$")
   "Parameters for the LaTeX list exporter.
 These parameters will be passed on to `org-list-to-latex', which in turn
 will pass them (combined with the LaTeX default list parameters) to
diff --git a/lisp/org-list.el b/lisp/org-list.el
index f17cde5..7a74964 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -1305,6 +1305,8 @@ Valid parameters PARAMS are
                   (setq sublist (replace-match cbon t t sublist)))
               (if (string-match "\\[CBOFF\\]" sublist)
                   (setq sublist (replace-match cboff t t sublist)))
+              (if (string-match "\\[-\\]" sublist)
+                  (setq sublist (replace-match "$\\boxminus$" t t sublist)))
               (setq rtn (concat rtn istart term ddstart
                                 sublist ddend iend isep)))
              (t (setq rtn (concat rtn   ;; previous list

Cheers,

Valentin




reply via email to

[Prev in Thread] Current Thread [Next in Thread]