Re: [O] Export problem with source code blocks

[Thomas S. Dye]

Hi Eric,

Yes, that fixes it.  The cl package wasn't loaded for asynchronous
export.  

The code executes in the buffer without an explicit (require 'cl). It's
a mystery to me where it gets loaded in my setup, though. I don't do it
explicitly--perhaps it tags along with some other package that I do load.

Thanks,
Tom


Eric Schulte <address@hidden> writes:

> Hi Tom,
>
> The `first' function is provided by the cl package.  I'd either replace
> `first' with `car' in your code block, or add (require 'cl) to your
> personal Emacs configuration.
>
> Cheers,
>
> address@hidden (Thomas S. Dye) writes:
>
>> Aloha all,
>>
>> The following code block executes fine in the Org buffer, and it
>> exported cleanly on January 18th, but fails on export to LaTeX with a
>> recent version of Org from the git repo. Here is the error message:
>>
>>   executing Emacs-Lisp code block (plos-one-start)...
>>
>>   Debugger entered--Lisp error: (void-function first)
>>     (first row)
>>
>> #+name: plos-one-start
>> #+header: :var tab=author-table
>> #+header: :var title="A Regional Chronology"
>> #+header: :results raw :wrap latex
>> #+header: :exports results
>> #+begin_src emacs-lisp
>>   (defun author-name (recs)
>>     "Format the author name list."
>>     (let ((i 0))
>>       (mapcar (lambda (row)
>>                 (concat (format "%s$^{%d%s" (first row)
>>                                 (incf i)
>>                                 (if (equal "yes" (eighth row)) ",\\ast" ""))
>>                         (if (equal row (car (last recs))) "}$" "}$,")))
>>               recs)))
>>   
>>   (defun author-affiliation (recs)
>>     "Format the author affiliation list."
>>     (let ((i 0))
>>       (mapcar (lambda (row)
>>                 (format "\\bf{%d} %s, %s, %s, %s, %s" (incf i)
>>                         (second row) (third row) (fourth row)
>>                         (fifth row) (sixth row)))
>>               recs)))
>>   (defun corresponding-email (recs)
>>     "Return the corresponding email."
>>     (mapcar (lambda (row)
>>               (format "%s" (if (equal "yes" (eighth row)) (seventh row) "")))
>>             recs))
>>   
>>   (let* ((tab (cdr (cdr tab)))
>>         (a (author-name tab))
>>         (b (author-affiliation tab))
>>         (c (corresponding-email tab)))
>>     (concat (format "\\begin{flushleft}\n{\\Large\n\\textbf{%s}\n}\n\\\\\n" 
>> title)
>>             (mapconcat 'identity a "\n") "\n\\\\\n"
>>             (mapconcat 'identity b "\n\\\\\n")
>>             "\n\\\\\n$\\ast$ E-mail: "
>>             (mapconcat 'identity c "\n")
>>             "\n\\end{flushleft}"))
>> #+end_src
>>
>> #+name: author-table
>> | Author name | Department | Institution | City | State | Country |
>> | Email | Corresponding |
>> |---------------+----------------------------+-----------------------+----------+-------+---------+---------------+---------------|
>> | Thomas S. Dye | Department of Anthropology | University of Hawai`i |
>> | Honolulu | HI | USA | address@hidden | yes |
>>
>> All the best,
>> Tom

-- 
Thomas S. Dye
http://www.tsdye.com