From: Achim Gratz <Stromeko@nexgo.de>
To: emacs-orgmode@gnu.org
Subject: Re: new exporter
Date: Mon, 02 Jul 2012 21:06:20 +0200 [thread overview]
Message-ID: <87a9ziugnn.fsf@Rainer.invalid> (raw)
In-Reply-To: 87hatqh3e2.fsf@gmail.com
Nicolas Goaziou writes:
> Not exactly. With this version, symbols generated with gensym are never
> used, and the macro isn't hygienic anymore.
Yeah, I missed out on some commas along the way and it probably needs
double quoting (which I was trying to avoid). The first version interns
the gensymed symbols at compile time, the later one should have done it
each time the code was called.
> I still think your first take about this macro was the good one. I've
> pushed something very similar. Could you verify if it is correct on the
> compiling side?
Yes, the compile error is easy to fix. Both versions could do the
correct thing, the later one was just trying to be more conservative.
Looking superficially at the generated bytecode I think the current
version should be correct.
>> The org-export-define-derived-backend macro seems similarly starstruck,
>> but I really don't know what you think the expansion should be.
>
> Something along the lines of:
>
> #+begin_src emacs-lisp
> (progn
> (defconst org-e-beamer-options-alist '(...)
> "Alist between filters keywords and back-end specific filters.
> See `org-export-filters-alist' for more information.")
> (defvar org-e-beamer-translate-alist '(...)
> "Alist between element or object types and translators."))
> #+end_src
>
>> One of your recent changes introduced four test fail when org-element is
>> compiled. I haven't yet looked why that would be, the four tests are:
>>
>> FAILED test-org-export/table-cell-alignment
>> FAILED test-org-export/table-cell-borders
>> FAILED test-org-export/table-row-ends-header-p
>> FAILED test-org-export/table-row-starts-header-p
>
> Could you paste the error reported by ERT? I can't think of any recent
> change in this area.
There's only a backtrace that doesn't make much sense to me:
--8<---------------cut here---------------start------------->8---
Test test-org-export/table-row-starts-header-p backtrace:
signal(ert-test-failed (((should (equal (quote (yes no no no)) (org-
ert-fail(((should (equal (quote (yes no no no)) (org-element-map tre
(if (unwind-protect (setq value-3951 (apply fn-3949 args-3950)) (set
(unless (unwind-protect (setq value-3951 (apply fn-3949 args-3950))
(let (form-description-3953) (unless (unwind-protect (setq value-395
(let ((value-3951 (quote ert-form-evaluation-aborted-3952))) (let (f
(let ((fn-3949 (function equal)) (args-3950 (list (quote (yes no no
(should (equal (quote (yes no no no)) (org-element-map tree (quote t
(let* ((tree (org-element-parse-buffer)) (info (org-export-collect-t
(prog1 (let* ((tree (org-element-parse-buffer)) (info (org-export-co
(progn (org-mode) (progn (insert "\n| a |\n| b |\n|---|\n| c |") (go
(unwind-protect (progn (org-mode) (progn (insert "\n| a |\n| b |\n|-
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(with-current-buffer temp-buffer (unwind-protect (progn (org-mode) (
(let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-b
(with-temp-buffer (org-mode) (progn (insert "\n| a |\n| b |\n|---|\n
(org-test-with-temp-text "\n| a |\n| b |\n|---|\n| c |" (let* ((tree
(org-test-with-parsed-data "\n| a |\n| b |\n|---|\n| c |" (should (e
(lambda nil (org-test-with-parsed-data "\n| a |\n| b |\n|---|\n| c |
byte-code("\306\307!▒q\210\310\216\311 \312\216\313\314\315\316\3
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test test-org-export/table-row-starts-he
ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st
ert-run-tests("\\(org\\|ob\\)" #[(event-type &rest event-args) \30
ert-run-tests-batch("\\(org\\|ob\\)")
ert-run-tests-batch-and-exit("\\(org\\|ob\\)")
(let ((org-id-track-globally t) (org-id-locations-file (convert-stan
org-test-run-batch-tests()
call-interactively(org-test-run-batch-tests nil nil)
command-execute(org-test-run-batch-tests)
command-line-1(("--eval" "(add-to-list 'load-path \"./lisp\")" "--ev
command-line()
normal-top-level()
Test test-org-export/table-row-starts-header-p condition:
(ert-test-failed
((should
(equal '...
(org-element-map tree ... ... info)))
:form
(equal
(yes no no no)
(yes yes no no))
:value nil :explanation
(list-elt 1
(different-atoms no yes))))
--8<---------------cut here---------------end--------------->8---
>> The new org-e-beamer.el doesn't compile at all:
>> org-e-beamer.el:258:1:Error: Wrong type argument: listp,
>> org-e-beamer-export-block
>
> It should be fixed.
Thanks, that works correctly now.
Regards,
Achim.
--
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+
Factory and User Sound Singles for Waldorf Q+, Q and microQ:
http://Synth.Stromeko.net/Downloads.html#WaldorfSounds
next prev parent reply other threads:[~2012-07-02 19:06 UTC|newest]
Thread overview: 56+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-06-02 10:46 Bug: Images in Latex [7.8.11 (release_7.8.11-33-g2d71a5 @ /Users/petr/Dropbox/emacs/elisp/org-mode/lisp/)] Petr Samarin
2012-06-02 13:23 ` Jambunathan K
2012-06-02 17:16 ` new exporter (was: Bug: Images in Latex..) Achim Gratz
2012-06-03 13:21 ` new exporter Jambunathan K
2012-06-04 20:23 ` Achim Gratz
2012-06-07 19:44 ` Nicolas Goaziou
2012-06-07 19:59 ` Achim Gratz
2012-06-07 20:24 ` Nicolas Goaziou
2012-06-09 18:48 ` Achim Gratz
2012-06-09 18:56 ` Nicolas Goaziou
2012-06-09 19:06 ` Achim Gratz
2012-06-09 19:45 ` Nicolas Goaziou
2012-06-09 21:19 ` Achim Gratz
2012-06-07 20:14 ` Achim Gratz
2012-06-26 5:39 ` Achim Gratz
2012-06-26 6:18 ` Achim Gratz
2012-06-26 14:53 ` Nicolas Goaziou
2012-06-26 16:14 ` Achim Gratz
2012-06-26 18:43 ` Achim Gratz
2012-06-27 20:05 ` Achim Gratz
2012-06-28 7:03 ` Nicolas Goaziou
2012-06-29 18:17 ` Achim Gratz
2012-06-30 6:48 ` Nicolas Goaziou
2012-06-30 7:12 ` Achim Gratz
2012-07-01 16:33 ` Achim Gratz
2012-07-02 10:19 ` Nicolas Goaziou
2012-07-02 19:06 ` Achim Gratz [this message]
2012-07-12 18:37 ` Achim Gratz
2012-07-13 14:46 ` Nicolas Goaziou
2012-07-13 18:32 ` Achim Gratz
2012-07-14 16:20 ` Nicolas Goaziou
2012-07-14 16:31 ` Achim Gratz
2012-07-14 16:48 ` Jambunathan K
2012-07-14 17:47 ` Jambunathan K
2012-07-15 12:02 ` Achim Gratz
2012-07-15 19:50 ` Nicolas Goaziou
2012-07-15 20:08 ` Bastien
2012-07-15 20:18 ` Achim Gratz
2012-07-16 8:46 ` Nicolas Goaziou
2012-07-16 18:11 ` Achim Gratz
2012-07-16 21:11 ` Nicolas Goaziou
2012-07-17 17:35 ` Achim Gratz
2012-07-17 20:59 ` Nicolas Goaziou
2012-07-18 9:38 ` Nicolas Goaziou
2012-07-18 18:57 ` Achim Gratz
2012-07-18 18:09 ` Achim Gratz
2012-07-16 18:35 ` local.mk vs. default.mk (was: new exporter) Achim Gratz
-- strict thread matches above, loose matches on Subject: below --
2012-09-30 11:41 new exporter itmejl
2012-09-30 12:36 ` Nicolas Goaziou
2012-10-11 12:34 New exporter Sebastien Vauban
2012-10-11 14:07 ` Yagnesh Raghava Yakkala
2012-10-12 7:33 ` Sebastien Vauban
2012-10-11 19:37 ` Nicolas Goaziou
2012-10-12 7:34 ` Sebastien Vauban
2012-10-12 11:09 ` Sebastien Vauban
2012-10-12 11:27 ` Sebastien Vauban
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87a9ziugnn.fsf@Rainer.invalid \
--to=stromeko@nexgo.de \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).