[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] Export problem with source code blocks
From: |
Thomas S. Dye |
Subject: |
Re: [O] Export problem with source code blocks |
Date: |
Sat, 30 Mar 2013 12:32:02 -1000 |
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