emacs-orgmode
[Top][All Lists]
Advanced

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

Re: [Orgmode] [BUG] #+begin_src wo. language blocks XHTML export


From: Sebastian Rose
Subject: Re: [Orgmode] [BUG] #+begin_src wo. language blocks XHTML export
Date: Mon, 05 Jul 2010 00:10:28 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux)

David Maus <address@hidden> writes:
> Sebastian Rose wrote:
>>[1  <text/plain (7bit)>]
>
>>I'm reworking worg/org-contrib/org-protocol.org and could export the
>>results to XHTML.
>
>
>>The reason was line 523.
>
>>Line 523 was:
>
>>   #+begin_src
>
>>without a language added!
>>Line 530 was
>
>>   #+end_src
>
>
>>Changing `_src' to `_example' in both lines makes it possible to export
>>to XHTML again.
>
> I suppose a source block without languag should be considered an
> error, shouldn't it?  Maybe Org should fail more gracefully when it
> encounters such a block during export?


The current behaviour is new.  The file I tried to export worked for
quite a while locally and on orgmode.org.  The fallback was to behave
like `#+begin_example', I believe.


It can be considered an error, since the docs say: 

  "...This is done with the ‘src’ block, where you also need to specify
  the name of the major mode that should be used to fontify the
  example..."


But think of batch export.

But I'd like to see some kind of error message, or better be asked for
the language (i.e. a major-mode).  The mode could be inserted after the
`#+begin_src'. 



Insteat, I get this backtrace:

Debugger entered--Lisp error: (wrong-type-argument consp nil)
  setcar(nil nil)
  (setf (nth 1 info) (if (and ... ...) (org-babel-expand-noweb-references info 
...) (nth 1 info)))
  (let* ((info ...) (params ...)) (setf (nth 1 info) (if ... ... ...)) 
(org-babel-exp-do-export info (quote block)))
  (save-excursion (goto-char (match-beginning 0)) (let* (... ...) (setf ... 
...) (org-babel-exp-do-export info ...)))
  org-babel-exp-src-blocks(#("(let ((a \"b\")\n       c d)\n (message \"a: %S\" 
a))" 0 14 (fontified t font-lock-fontified t) 14 26 (fontified t 
font-lock-fontified t) 26 47 (fontified t font-lock-fontified t)))
  apply(org-babel-exp-src-blocks #("(let ((a \"b\")\n       c d)\n (message 
\"a: %S\" a))" 0 14 (fontified t font-lock-fontified t) 14 26 (fontified t 
font-lock-fontified t) 26 47 (fontified t font-lock-fontified t)) nil)
  (if (memq type org-export-blocks-witheld) "" (apply func body headers))
  (progn (if (memq type org-export-blocks-witheld) "" (apply func body 
headers)))
  (unwind-protect (progn (if ... "" ...)) (set-match-data 
save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal ...)))
  (save-match-data (if (memq type org-export-blocks-witheld) "" (apply func 
body headers)))
  (let ((replacement ...)) (when replacement (replace-match replacement t t) 
(unless preserve-indent ...)))
  (progn (let (...) (when replacement ... ...)))

  etc.pp. 49 more lines...



Not genuin useful.




Best wishes

   Sebastian



reply via email to

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