Re: [PATCH] fontified source-code on latex export with listings package

[Carsten Dominik <carsten.dominik@gmail.com>]

Hi Eric, thanks!

BTW, when adding your patch, I added a few more languages to the  
default settings.

- Carsten

On Aug 11, 2009, at 3:01 PM, Eric Schulte wrote:

> Carsten Dominik <carsten.dominik@gmail.com> writes:
>
>> I have added the patch, thanks!
>>
>
> Thanks for adding the patch.
>
>>
>> Eric, color setup is relative complex, which i why I don't want
>> to discuss this in detail in the manual.  Maybe you could write
>> a Worg page about this, and/or a FAQ entry?
>>
>
> I've added a FAQ entry to worg which encapsulates the *very little*  
> I do
> know about using the listings and color packages in LaTeX documents.
>
> http://orgmode.org/worg/org-faq.php#fontified_source_code_w_latex
>
> Best -- Eric
>
>>
>> - Carsten
>>
>> On Aug 8, 2009, at 8:59 PM, Eric Schulte wrote:
>>
>>> Hi,
>>>
>>> The attached patch allows for fontified source code blocks on export
>>> to
>>> LaTeX.  It does this using the 'listings' latex package.  A new
>>> variable
>>> is introduced; `org-export-latex-listings' which should be set to
>>> non-nil for source-code to be exported as listings blocks.  This
>>> variable defaults to nil in which case the current practice of
>>> exporting
>>> source code to verbatim latex blocks remains unchanged.
>>>
>>> To use this functionality add the following to your org-mode config.
>>>
>>> --8<---------------cut here---------------start------------->8---
>>> ;; tell org to use listings
>>> (setq org-export-latex-listings t)
>>>
>>> ;; you must include the listings package
>>> (add-to-list 'org-export-latex-packages-alist '("" "listings"))
>>>
>>> ;; if you want colored source code then you need to include the
>>> color package
>>> (add-to-list 'org-export-latex-packages-alist '("" "color"))
>>> --8<---------------cut here---------------end--------------->8---
>>>
>>> In addition to the patch, I'm attaching an example org-mode file,
>>> along
>>> with the generated LaTeX file and PDF file.
>>>
>>> Do you think this would be appropriate for inclusion into org-mode?
>>>
>>> Thanks -- Eric
>>>
>>> diff --git a/lisp/org-exp.el b/lisp/org-exp.el
>>> index 00fd6c8..9de5e5f 100644
>>> --- a/lisp/org-exp.el
>>> +++ b/lisp/org-exp.el
>>> @@ -2204,6 +2204,8 @@ in the list) and remove property and value
>>> from the list in LISTVAR."
>>> (defvar htmlp)  ;; dynamically scoped
>>> (defvar latexp)  ;; dynamically scoped
>>> (defvar org-export-latex-verbatim-wrap) ;; defined in org-latex.el
>>> +(defvar org-export-latex-listings) ;; defined in org-latex.el
>>> +(defvar org-export-latex-listings-langs) ;; defined in org-latex.el
>>>
>>> (defun org-export-format-source-code-or-example
>>>  (backend lang code &optional opts indent)
>>> @@ -2310,8 +2312,20 @@ INDENT was the original indentation of the
>>> block."
>>> 	     ((eq backend 'latex)
>>> 	      (setq rtn (org-export-number-lines rtn 'latex 0 0 num
>>> cont rpllbl fmt))
>>> 	      (concat "\n#+BEGIN_LaTeX\n"
>>> -		      (org-add-props (concat (car org-export-latex-verbatim-wrap)
>>> -					     rtn (cdr org-export-latex-verbatim-wrap))
>>> +		      (org-add-props
>>> +                          (if org-export-latex-listings
>>> +                              (concat
>>> +                               (if lang
>>> +                                   (let* ((lang-sym (intern (concat
>>> ":" lang)))
>>> +                                          (lstlang (or (plist-get
>>> org-export-latex-listings-langs
>>> +
>>> lang-sym)
>>> +                                                       lang)))
>>> +                                     (format "\\lstset{language=%s}
>>> \n" lstlang))
>>> +                                 "")
>>> +                               "\\begin{lstlisting}\n"
>>> +                               rtn "\\end{lstlisting}\n")
>>> +                            (concat (car org-export-latex-verbatim-
>>> wrap)
>>> +                                    rtn (cdr org-export-latex-
>>> verbatim-wrap)))
>>> 			  '(org-protected t))
>>> 		      "#+END_LaTeX\n\n"))
>>> 	     ((eq backend 'ascii)
>>> diff --git a/lisp/org-latex.el b/lisp/org-latex.el
>>> index fdf9ae2..f80e221 100644
>>> --- a/lisp/org-latex.el
>>> +++ b/lisp/org-latex.el
>>> @@ -69,6 +69,9 @@
>>> 	  org-deadline-string "\\|"
>>> 	  org-closed-string"\\)")
>>>  "Regexp matching special time planning keywords plus the time
>>> after it.")
>>> +(defvar org-export-latex-listings nil
>>> +  "If non-nil then source code blocks will be fontified using the
>>> +listings package.")
>>>
>>> (defvar latexp)    ; dynamically scoped from org.el
>>> (defvar re-quote)  ; dynamically scoped from org.el
>>> @@ -297,6 +300,12 @@ Defaults to \\begin{verbatim} and \
>>> \end{verbatim}."
>>>  :type '(cons (string :tag "Open")
>>> 	       (string :tag "Close")))
>>>
>>> +(defcustom org-export-latex-listings-langs
>>> +  '(:emacs-lisp "lisp")
>>> +  "Property list mapping languages to their listing language
>>> counterpart."
>>> +  :group 'org-export-latex
>>> +  :type 'plist)
>>> +
>>> (defcustom org-export-latex-remove-from-headlines
>>>  '(:todo nil :priority nil :tags nil)
>>>  "A plist of keywords to remove from headlines. OBSOLETE.
>>> <
>>> listngs
>>> .org
>>>>
>>> <
>>> listngs
>>> .tex><listngs.pdf>_______________________________________________
>>> Emacs-orgmode mailing list
>>> Remember: use `Reply All' to send replies to the list.
>>> Emacs-orgmode@gnu.org
>>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode