emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* org-exp-blocks.el
@ 2008-12-19  0:32 Sebastian Rose
  2008-12-19  3:10 ` org-exp-blocks.el Eric Schulte
  0 siblings, 1 reply; 3+ messages in thread
From: Sebastian Rose @ 2008-12-19  0:32 UTC (permalink / raw)
  To: emacs-orgmode Org-Mode

Hi Eric,


This little patch fixes a problem in org-exp-blocs.el which leads to an
error, if one tries to run ditaa on a block with empty lines that begin
with a colon.

diff --git a/org-exp-blocks.el b/org-exp-blocks.el
index 26b999d..29bbf51 100644
--- a/org-exp-blocks.el
+++ b/org-exp-blocks.el
@@ -183,10 +183,10 @@ passed to the ditaa utility as command line arguments."
       (error (format "Could not find ditaa.jar at %s" org-ditaa-jar-path)))
     (setq body (if (string-match "^\\([^:\\|:[^ ]\\)" body)
                   body
-                (mapconcat (lambda (x) (substring x 2))
+                (mapconcat (lambda (x) (if (> (length x) 1) (substring x 2) (substring x 1)))
                            (org-split-string body "\n")
                            "\n")))



Example file:

 --->8----------------------------->8----------------------------->8---
   * First example
   
   #+begin_ditaa ditaa-all-examples.png -o -E
   : /----\ /----\ /----\ /----\
   : |c33F| |cC02| |c1FF| |c1AB|
   : |    | |    | |    | |    |
   : \----/ \----/ \----/ \----/
   :
   : Color codes:
   : /-------------+-------------\
   : |cRED RED     |cBLU BLU     |
   : +-------------+-------------+
   : |cGRE GRE     |cPNK PNK     |
   : +-------------+-------------+
   : |cBLK BLK     |cYEL YEL     |
   : \-------------+-------------/
   :
   : Die Optione -E verhindert die Lücke zwischen den Blöcken.
   #+end_ditaa
 ---8<-----------------------------8<-----------------------------8<---


I cannot produce the image in the first section anymore. Once I could
export the whole thing and didn't change it since (current exported
image is from 25. Nov).

I figured it's because of the empty lines. If I put something there, the
image is created:

 --->8----------------------------->8----------------------------->8---
   * First example
   
   #+begin_ditaa ditaa-all-examples.png -o -E
   : /----\ /----\ /----\ /----\
   : |c33F| |cC02| |c1FF| |c1AB|
   : |    | |    | |    | |    |
   : \----/ \----/ \----/ \----/
   :           SOMETHING INSTEAD OF AN EMPTY LINE HERE
   : Color codes:
   : /-------------+-------------\
   : |cRED RED     |cBLU BLU     |
   : +-------------+-------------+
   : |cGRE GRE     |cPNK PNK     |
   : +-------------+-------------+
   : |cBLK BLK     |cYEL YEL     |
   : \-------------+-------------/
   :           SOMETHING INSTEAD OF AN EMPTY LINE HERE
   : Die Optione -E verhindert die Lücke zwischen den Blöcken.
   #+end_ditaa
 ---8<-----------------------------8<-----------------------------8<---





With those empty lines I get

        ditaa-formatting...
        Args out of range: #(":" 0 1 (fontified t)), 2, 1

  ...and with debug-on-error this backtrace:


Debugger entered--Lisp error: (args-out-of-range #(":" 0 1 (fontified t)) 2 1)
  substring(#(":" 0 1 (fontified t)) 2)
  (lambda (x) (substring x 2))(#(":" 0 1 (fontified t)))
  mapconcat((lambda (x) (substring x 2)) (#(": /----\\ /----\\ /----\\ /----\\" 0 4 (face org-code fontified t) 4 8 (font-lock-multiline t face org-code fontified t) 8 11 (face org-code fontified t) 11 15 (font-lock-multiline t face org-code fontified t) 15 18 (face org-code fontified t) 18 22 (font-lock-multiline t face org-code fontified t) 22 25 (face org-code fontified t) 25 29 (font-lock-multiline t face org-code fontified t)) #(": |c33F| |cC02| |c1FF| |c1AB|" 0 29 (face org-code fontified t)) #(": |    | |    | |    | |    |" 0 29 (face org-code fontified t)) #(": \\----/ \\----/ \\----/ \\----/" 0 2 (face org-code fontified t) 2 4 (font-lock-multiline t face org-code fontified t) 4 8 (font-lock-multiline t face org-code fontified t) 8 9 (face org-code fontified t) 9 11 (font-lock-multiline t face org-code fontified t) 11 15 (font-lock-multiline t face org-code fontified t) 15 16 (face org-code fontified t) 16 18 (font-lock-multiline t face org-code fontified t) 18 22 (font-lock-multiline t face org-code fontified t) 22 23 (face org-code fontified t) 23 25 (font-lock-multiline t face org-code fontified t) 25 29 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": Color codes:" 0 14 (face org-code fontified t)) #(": /-------------+-------------\\" 0 13 (face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 27 (face org-code fontified t) 27 31 (font-lock-multiline t face org-code fontified t)) #(": |cRED RED     |cBLU BLU     |" 0 31 (face org-code fontified t)) #(": +-------------+-------------+" 0 2 (face org-code fontified t) 2 13 (font-lock-multiline t face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 27 (face org-code fontified t) 27 31 (font-lock-multiline t face org-code fontified t)) #(": |cGRE GRE     |cPNK PNK     |" 0 31 (face org-code fontified t)) #(": +-------------+-------------+" 0 2 (face org-code fontified t) 2 13 (font-lock-multiline t face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 27 (face org-code fontified t) 27 31 (font-lock-multiline t face org-code fontified t)) #(": |cBLK BLK     |cYEL YEL     |" 0 31 (face org-code fontified t)) #(": \\-------------+-------------/" 0 2 (face org-code fontified t) 2 4 (font-lock-multiline t face org-code fontified t) 4 13 (face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 27 (face org-code fontified t) 27 31 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": Die Optione -E verhindert die L\x00fc\ cke zwischen den Bl\x00f6\ cken." 0 59 (face org-code fontified t)) #(":" 0 1 (fontified t)) #(": /--+" 0 3 (face org-code fontified t) 3 6 (font-lock-multiline t face org-code fontified t)) #(": |  |" 0 6 (face org-code fontified t)) #(": +--/" 0 3 (face org-code fontified t) 3 6 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": +---------+" 0 2 (face org-code fontified t) 2 9 (font-lock-multiline t face org-code fontified t) 9 13 (font-lock-multiline t face org-code fontified t)) #(": | cBLU    |" 0 13 (face org-code fontified t)) #(": |         |" 0 13 (face org-code fontified t)) #(": |    +----+" 0 7 (face org-code fontified t) 7 9 (font-lock-multiline t face org-code fontified t) 9 13 (font-lock-multiline t face org-code fontified t)) #(": |    |cPNK|" 0 13 (face org-code fontified t)) #(": |    |    |" 0 13 (face org-code fontified t)) #(": +----+----+" 0 2 (face org-code fontified t) 2 4 (font-lock-multiline t face org-code fontified t) 4 8 (font-lock-multiline t face org-code fontified t) 8 9 (face org-code fontified t) 9 13 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": +-----+ +-----+ +-----+" 0 2 (face org-code fontified t) 2 5 (font-lock-multiline t face org-code fontified t) 5 9 (font-lock-multiline t face org-code fontified t) 9 10 (face org-code fontified t) 10 13 (font-lock-multiline t face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 18 (face org-code fontified t) 18 21 (font-lock-multiline t face org-code fontified t) 21 25 (font-lock-multiline t face org-code fontified t)) #(": |{d}  | |{s}  | |{io} |" 0 25 (face org-code fontified t)) #(": |     | |     | |     |" 0 25 (face org-code fontified t)) #(": |     | |     | |     |" 0 25 (face org-code fontified t)) #(": +-----+ +-----+ +-----+" 0 2 (face org-code fontified t) 2 5 (font-lock-multiline t face org-code fontified t) 5 9 (font-lock-multiline t face org-code fontified t) 9 10 (face org-code fontified t) 10 13 (font-lock-multiline t face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 18 (face org-code fontified t) 18 21 (font-lock-multiline t face org-code fontified t) 21 25 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": ----+  /----\\  +----+" 0 3 (face org-code fontified t) 3 7 (font-lock-multiline t face org-code fontified t) 7 11 (face org-code fontified t) 11 15 (font-lock-multiline t face org-code fontified t) 15 17 (face org-code fontified t) 17 19 (font-lock-multiline t face org-code fontified t) 19 23 (font-lock-multiline t face org-code fontified t)) #(":     :  |    |  :    |" 0 23 (face org-code fontified t)) #(":     |  |    |  |{s} |" 0 23 (face org-code fontified t)) #(":     v  \\-=--+  +----+" 0 9 (face org-code fontified t) 9 11 (font-lock-multiline t face org-code fontified t) 11 12 (face org-code fontified t) 12 15 (font-lock-multiline t face org-code fontified t) 15 17 (face org-code fontified t) 17 19 (font-lock-multiline t face org-code fontified t) 19 23 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": *----*      /--B1--B2" 0 2 (face org-code fontified t) 2 4 (font-lock-multiline t face org-code fontified t) 4 8 (font-lock-multiline t face org-code fontified t) 8 15 (face org-code fontified t) 15 18 (font-lock-multiline t face org-code fontified t) 18 19 (face org-code fontified t) 19 22 (font-lock-multiline t face org-code fontified t) 22 23 (face org-code fontified t)) #(": |    |      |" 0 15 (face org-code fontified t)) #(": *    *  -*--+--*--*" 0 12 (face org-code fontified t) 12 15 (font-lock-multiline t face org-code fontified t) 15 18 (font-lock-multiline t face org-code fontified t) 18 21 (font-lock-multiline t face org-code fontified t)) #(": |    |      |" 0 15 (face org-code fontified t)) #(": *----*      \\--*" 0 2 (face org-code fontified t) 2 4 (font-lock-multiline t face org-code fontified t) 4 8 (font-lock-multiline t face org-code fontified t) 8 14 (face org-code fontified t) 14 16 (font-lock-multiline t face org-code fontified t) 16 18 (face org-code fontified t)) #(":" 0 1 (fontified t)) #(": /-----------------\\" 0 17 (face org-code fontified t) 17 21 (font-lock-multiline t face org-code fontified t)) #(": | Things to do    |" 0 21 (face org-code fontified t)) #(": | cGRE            |" 0 21 (face org-code fontified t)) #(": | o Cut the grass |" 0 21 (face org-code fontified t)) #(": | o Buy jam       |" 0 21 (face org-code fontified t)) ...) "\n")
  (if (string-match "^\\([^:\\|:[^ ]\\)" body) body (mapconcat (lambda ... ...) (org-split-string body "\n") "\n"))
  (setq body (if (string-match "^\\([^:\\|:[^ ]\\)" body) body (mapconcat ... ... "\n")))
  (let ((out-file ...) (args ...) (data-file ...)) (unless (file-exists-p org-ditaa-jar-path) (error ...)) (setq body (if ... body ...)) (cond (... ... ... ... ...) (t ...)))
  org-export-blocks-format-ditaa(#(": /----\\ /----\\ /----\\ /----\\\n: |c33F| |cC02| |c1FF| |c1AB|\n: |    | |    | |    | |    |\n: \\----/ \\----/ \\----/ \\----/\n:\n: Color codes:\n: /-------------+-------------\\\n: |cRED RED     |cBLU BLU     |\n: +-------------+-------------+\n: |cGRE GRE     |cPNK PNK     |\n: +-------------+-------------+\n: |cBLK BLK     |cYEL YEL     |\n: \\-------------+-------------/\n:\n: Die Optione -E verhindert die L\x00fc\ cke zwischen den Bl\x00f6\ cken.\n:\n: /--+\n: |  |\n: +--/\n:\n: +---------+\n: | cBLU    |\n: |         |\n: |    +----+\n: |    |cPNK|\n: |    |    |\n: +----+----+\n:\n: +-----+ +-----+ +-----+\n: |{d}  | |{s}  | |{io} |\n: |     | |     | |     |\n: |     | |     | |     |\n: +-----+ +-----+ +-----+\n:\n: ----+  /----\\  +----+\n:     :  |    |  :    |\n:     |  |    |  |{s} |\n:     v  \\-=--+  +----+\n:\n: *----*      /--B1--B2\n: |    |      |\n: *    *  -*--+--*--*\n: |    |      |\n: *----*      \\--*\n:\n: /-----------------\\\n: | Things to do    |\n: | cGRE            |\n: | o Cut the grass |\n: | o Buy jam       |\n: | o Fix car       |\n: | o Make website  |\n: \\-----------------/\n" 0 4 (fontified t face org-code) 4 8 (fontified t face org-code font-lock-multiline t) 8 11 (fontified t face org-code) 11 15 (fontified t face org-code font-lock-multiline t) 15 18 (fontified t face org-code) 18 22 (fontified t face org-code font-lock-multiline t) 22 25 (fontified t face org-code) 25 29 (fontified t face org-code font-lock-multiline t) 29 30 (fontified t face org-code) 30 60 (fontified t face org-code) 60 90 (fontified t face org-code) 90 92 (fontified t face org-code) 92 94 (fontified t face org-code font-lock-multiline t) 94 98 (fontified t face org-code font-lock-multiline t) 98 99 (fontified t face org-code) 99 101 (fontified t face org-code font-lock-multiline t) 101 105 (fontified t face org-code font-lock-multiline t) 105 106 (fontified t face org-code) 106 108 (fontified t face org-code font-lock-multiline t) 108 112 (fontified t face org-code font-lock-multiline t) 112 113 (fontified t face org-code) 113 115 (fontified t face org-code font-lock-multiline t) 115 119 (fontified t face org-code font-lock-multiline t) 119 120 (fontified t face org-code) 120 122 (fontified t) 122 137 (fontified t face org-code) 137 150 (fontified t face org-code) 150 154 (fontified t face org-code font-lock-multiline t) 154 164 (fontified t face org-code) 164 168 (fontified t face org-code font-lock-multiline t) 168 169 (fontified t face org-code) 169 201 (fontified t face org-code) 201 203 (fontified t face org-code) 203 214 (fontified t face org-code font-lock-multiline t) 214 218 (fontified t face org-code font-lock-multiline t) 218 228 (fontified t face org-code) 228 232 (fontified t face org-code font-lock-multiline t) 232 233 (fontified t face org-code) 233 265 (fontified t face org-code) 265 267 (fontified t face org-code) 267 278 (fontified t face org-code font-lock-multiline t) 278 282 (fontified t face org-code font-lock-multiline t) 282 292 (fontified t face org-code) 292 296 (fontified t face org-code font-lock-multiline t) 296 297 (fontified t face org-code) 297 329 (fontified t face org-code) 329 331 (fontified t face org-code) 331 333 (fontified t face org-code font-lock-multiline t) 333 342 (fontified t face org-code) 342 346 (fontified t face org-code font-lock-multiline t) 346 356 (fontified t face org-code) 356 360 (fontified t face org-code font-lock-multiline t) 360 361 (fontified t face org-code) 361 363 (fontified t) 363 423 (fontified t face org-code) 423 425 (fontified t) 425 428 (fontified t face org-code) 428 431 (fontified t face org-code font-lock-multiline t) 431 432 (fontified t face org-code) 432 439 (fontified t face org-code) 439 442 (fontified t face org-code) 442 445 (fontified t face org-code font-lock-multiline t) 445 446 (fontified t face org-code) 446 448 (fontified t) 448 450 (fontified t face org-code) 450 457 (fontified t face org-code font-lock-multiline t) 457 461 (fontified t face org-code font-lock-multiline t) 461 462 (fontified t face org-code) 462 476 (fontified t face org-code) 476 490 (fontified t face org-code) 490 497 (fontified t face org-code) 497 499 (fontified t face org-code font-lock-multiline t) 499 503 (fontified t face org-code font-lock-multiline t) 503 504 (fontified t face org-code) 504 518 (fontified t face org-code) 518 532 (fontified t face org-code) 532 534 (fontified t face org-code) 534 536 (fontified t face org-code font-lock-multiline t) 536 540 (fontified t face org-code font-lock-multiline t) 540 541 (fontified t face org-code) 541 545 (fontified t face org-code font-lock-multiline t) 545 546 (fontified t face org-code) 546 548 (fontified t) 548 550 (fontified t face org-code) 550 553 (fontified t face org-code font-lock-multiline t) 553 557 (fontified t face org-code font-lock-multiline t) 557 558 (fontified t face org-code) 558 561 (fontified t face org-code font-lock-multiline t) 561 565 (fontified t face org-code font-lock-multiline t) 565 566 (fontified t face org-code) 566 569 (fontified t face org-code font-lock-multiline t) 569 573 (fontified t face org-code font-lock-multiline t) 573 574 (fontified t face org-code) 574 600 (fontified t face org-code) 600 626 (fontified t face org-code) 626 652 (fontified t face org-code) 652 654 (fontified t face org-code) 654 657 (fontified t face org-code font-lock-multiline t) 657 661 (fontified t face org-code font-lock-multiline t) 661 662 (fontified t face org-code) 662 665 (fontified t face org-code font-lock-multiline t) 665 669 (fontified t face org-code font-lock-multiline t) 669 670 (fontified t face org-code) 670 673 (fontified t face org-code font-lock-multiline t) 673 677 (fontified t face org-code font-lock-multiline t) 677 678 (fontified t face org-code) 678 680 (fontified t) 680 683 (fontified t face org-code) 683 687 (fontified t face org-code font-lock-multiline t) 687 691 (fontified t face org-code) 691 695 (fontified t face org-code font-lock-multiline t) 695 697 (fontified t face org-code) 697 699 (fontified t face org-code font-lock-multiline t) 699 703 (fontified t face org-code font-lock-multiline t) 703 704 (fontified t face org-code) 704 728 (fontified t face org-code) 728 752 (fontified t face org-code) 752 761 (fontified t face org-code) 761 763 (fontified t face org-code font-lock-multiline t) 763 764 (fontified t face org-code) 764 767 (fontified t face org-code font-lock-multiline t) 767 769 (fontified t face org-code) 769 771 (fontified t face org-code font-lock-multiline t) 771 775 (fontified t face org-code font-lock-multiline t) 775 776 (fontified t face org-code) 776 778 (fontified t) 778 780 (fontified t face org-code) 780 782 (fontified t face org-code font-lock-multiline t) 782 786 (fontified t face org-code font-lock-multiline t) 786 793 (fontified t face org-code) 793 796 (fontified t face org-code font-lock-multiline t) 796 797 (fontified t face org-code) 797 800 (fontified t face org-code font-lock-multiline t) 800 802 (fontified t face org-code) 802 818 (fontified t face org-code) 818 830 (fontified t face org-code) 830 833 (fontified t face org-code font-lock-multiline t) 833 836 (fontified t face org-code font-lock-multiline t) 836 839 (fontified t face org-code font-lock-multiline t) 839 840 (fontified t face org-code) 840 856 (fontified t face org-code) 856 858 (fontified t face org-code) 858 860 (fontified t face org-code font-lock-multiline t) 860 864 (fontified t face org-code font-lock-multiline t) 864 870 (fontified t face org-code) 870 872 (fontified t face org-code font-lock-multiline t) 872 875 (fontified t face org-code) 875 877 (fontified t) 877 894 (fontified t face org-code) 894 898 (fontified t face org-code font-lock-multiline t) 898 899 (fontified t face org-code) 899 921 (fontified t face org-code) 921 943 (fontified t face org-code) 943 965 (fontified t face org-code) 965 987 (fontified t face org-code) 987 1009 (fontified t face org-code) 1009 1031 (fontified t face org-code) 1031 1033 (fontified t face org-code) 1033 1035 (fontified t face org-code font-lock-multiline t) 1035 1048 (fontified t face org-code) 1048 1052 (fontified t face org-code font-lock-multiline t) 1052 1053 (fontified t face org-code)) #("ditaa-all-examples.png" 0 22 (face font-lock-comment-face fontified t)) #("-o" 0 2 (face font-lock-comment-face fontified t)) #("-E" 0 2 (face font-lock-comment-face fontified t)))
  apply(org-export-blocks-format-ditaa #(": /----\\ /----\\ /----\\ /----\\\n: |c33F| |cC02| |c1FF| |c1AB|\n: |    | |    | |    | |    |\n: \\----/ \\----/ \\----/ \\----/\n:\n: Color codes:\n: /-------------+-------------\\\n: |cRED RED     |cBLU BLU     |\n: +-------------+-------------+\n: |cGRE GRE     |cPNK PNK     |\n: +-------------+-------------+\n: |cBLK BLK     |cYEL YEL     |\n: \\-------------+-------------/\n:\n: Die Optione -E verhindert die L\x00fc\ cke zwischen den Bl\x00f6\ cken.\n:\n: /--+\n: |  |\n: +--/\n:\n: +---------+\n: | cBLU    |\n: |         |\n: |    +----+\n: |    |cPNK|\n: |    |    |\n: +----+----+\n:\n: +-----+ +-----+ +-----+\n: |{d}  | |{s}  | |{io} |\n: |     | |     | |     |\n: |     | |     | |     |\n: +-----+ +-----+ +-----+\n:\n: ----+  /----\\  +----+\n:     :  |    |  :    |\n:     |  |    |  |{s} |\n:     v  \\-=--+  +----+\n:\n: *----*      /--B1--B2\n: |    |      |\n: *    *  -*--+--*--*\n: |    |      |\n: *----*      \\--*\n:\n: /-----------------\\\n: | Things to do    |\n: | cGRE            |\n: | o Cut the grass |\n: | o Buy jam       |\n: | o Fix car       |\n: | o Make website  |\n: \\-----------------/\n" 0 4 (fontified t face org-code) 4 8 (fontified t face org-code font-lock-multiline t) 8 11 (fontified t face org-code) 11 15 (fontified t face org-code font-lock-multiline t) 15 18 (fontified t face org-code) 18 22 (fontified t face org-code font-lock-multiline t) 22 25 (fontified t face org-code) 25 29 (fontified t face org-code font-lock-multiline t) 29 30 (fontified t face org-code) 30 60 (fontified t face org-code) 60 90 (fontified t face org-code) 90 92 (fontified t face org-code) 92 94 (fontified t face org-code font-lock-multiline t) 94 98 (fontified t face org-code font-lock-multiline t) 98 99 (fontified t face org-code) 99 101 (fontified t face org-code font-lock-multiline t) 101 105 (fontified t face org-code font-lock-multiline t) 105 106 (fontified t face org-code) 106 108 (fontified t face org-code font-lock-multiline t) 108 112 (fontified t face org-code font-lock-multiline t) 112 113 (fontified t face org-code) 113 115 (fontified t face org-code font-lock-multiline t) 115 119 (fontified t face org-code font-lock-multiline t) 119 120 (fontified t face org-code) 120 122 (fontified t) 122 137 (fontified t face org-code) 137 150 (fontified t face org-code) 150 154 (fontified t face org-code font-lock-multiline t) 154 164 (fontified t face org-code) 164 168 (fontified t face org-code font-lock-multiline t) 168 169 (fontified t face org-code) 169 201 (fontified t face org-code) 201 203 (fontified t face org-code) 203 214 (fontified t face org-code font-lock-multiline t) 214 218 (fontified t face org-code font-lock-multiline t) 218 228 (fontified t face org-code) 228 232 (fontified t face org-code font-lock-multiline t) 232 233 (fontified t face org-code) 233 265 (fontified t face org-code) 265 267 (fontified t face org-code) 267 278 (fontified t face org-code font-lock-multiline t) 278 282 (fontified t face org-code font-lock-multiline t) 282 292 (fontified t face org-code) 292 296 (fontified t face org-code font-lock-multiline t) 296 297 (fontified t face org-code) 297 329 (fontified t face org-code) 329 331 (fontified t face org-code) 331 333 (fontified t face org-code font-lock-multiline t) 333 342 (fontified t face org-code) 342 346 (fontified t face org-code font-lock-multiline t) 346 356 (fontified t face org-code) 356 360 (fontified t face org-code font-lock-multiline t) 360 361 (fontified t face org-code) 361 363 (fontified t) 363 423 (fontified t face org-code) 423 425 (fontified t) 425 428 (fontified t face org-code) 428 431 (fontified t face org-code font-lock-multiline t) 431 432 (fontified t face org-code) 432 439 (fontified t face org-code) 439 442 (fontified t face org-code) 442 445 (fontified t face org-code font-lock-multiline t) 445 446 (fontified t face org-code) 446 448 (fontified t) 448 450 (fontified t face org-code) 450 457 (fontified t face org-code font-lock-multiline t) 457 461 (fontified t face org-code font-lock-multiline t) 461 462 (fontified t face org-code) 462 476 (fontified t face org-code) 476 490 (fontified t face org-code) 490 497 (fontified t face org-code) 497 499 (fontified t face org-code font-lock-multiline t) 499 503 (fontified t face org-code font-lock-multiline t) 503 504 (fontified t face org-code) 504 518 (fontified t face org-code) 518 532 (fontified t face org-code) 532 534 (fontified t face org-code) 534 536 (fontified t face org-code font-lock-multiline t) 536 540 (fontified t face org-code font-lock-multiline t) 540 541 (fontified t face org-code) 541 545 (fontified t face org-code font-lock-multiline t) 545 546 (fontified t face org-code) 546 548 (fontified t) 548 550 (fontified t face org-code) 550 553 (fontified t face org-code font-lock-multiline t) 553 557 (fontified t face org-code font-lock-multiline t) 557 558 (fontified t face org-code) 558 561 (fontified t face org-code font-lock-multiline t) 561 565 (fontified t face org-code font-lock-multiline t) 565 566 (fontified t face org-code) 566 569 (fontified t face org-code font-lock-multiline t) 569 573 (fontified t face org-code font-lock-multiline t) 573 574 (fontified t face org-code) 574 600 (fontified t face org-code) 600 626 (fontified t face org-code) 626 652 (fontified t face org-code) 652 654 (fontified t face org-code) 654 657 (fontified t face org-code font-lock-multiline t) 657 661 (fontified t face org-code font-lock-multiline t) 661 662 (fontified t face org-code) 662 665 (fontified t face org-code font-lock-multiline t) 665 669 (fontified t face org-code font-lock-multiline t) 669 670 (fontified t face org-code) 670 673 (fontified t face org-code font-lock-multiline t) 673 677 (fontified t face org-code font-lock-multiline t) 677 678 (fontified t face org-code) 678 680 (fontified t) 680 683 (fontified t face org-code) 683 687 (fontified t face org-code font-lock-multiline t) 687 691 (fontified t face org-code) 691 695 (fontified t face org-code font-lock-multiline t) 695 697 (fontified t face org-code) 697 699 (fontified t face org-code font-lock-multiline t) 699 703 (fontified t face org-code font-lock-multiline t) 703 704 (fontified t face org-code) 704 728 (fontified t face org-code) 728 752 (fontified t face org-code) 752 761 (fontified t face org-code) 761 763 (fontified t face org-code font-lock-multiline t) 763 764 (fontified t face org-code) 764 767 (fontified t face org-code font-lock-multiline t) 767 769 (fontified t face org-code) 769 771 (fontified t face org-code font-lock-multiline t) 771 775 (fontified t face org-code font-lock-multiline t) 775 776 (fontified t face org-code) 776 778 (fontified t) 778 780 (fontified t face org-code) 780 782 (fontified t face org-code font-lock-multiline t) 782 786 (fontified t face org-code font-lock-multiline t) 786 793 (fontified t face org-code) 793 796 (fontified t face org-code font-lock-multiline t) 796 797 (fontified t face org-code) 797 800 (fontified t face org-code font-lock-multiline t) 800 802 (fontified t face org-code) 802 818 (fontified t face org-code) 818 830 (fontified t face org-code) 830 833 (fontified t face org-code font-lock-multiline t) 833 836 (fontified t face org-code font-lock-multiline t) 836 839 (fontified t face org-code font-lock-multiline t) 839 840 (fontified t face org-code) 840 856 (fontified t face org-code) 856 858 (fontified t face org-code) 858 860 (fontified t face org-code font-lock-multiline t) 860 864 (fontified t face org-code font-lock-multiline t) 864 870 (fontified t face org-code) 870 872 (fontified t face org-code font-lock-multiline t) 872 875 (fontified t face org-code) 875 877 (fontified t) 877 894 (fontified t face org-code) 894 898 (fontified t face org-code font-lock-multiline t) 898 899 (fontified t face org-code) 899 921 (fontified t face org-code) 921 943 (fontified t face org-code) 943 965 (fontified t face org-code) 965 987 (fontified t face org-code) 987 1009 (fontified t face org-code) 1009 1031 (fontified t face org-code) 1031 1033 (fontified t face org-code) 1033 1035 (fontified t face org-code font-lock-multiline t) 1035 1048 (fontified t face org-code) 1048 1052 (fontified t face org-code font-lock-multiline t) 1052 1053 (fontified t face org-code)) (#("ditaa-all-examples.png" 0 22 (face font-lock-comment-face fontified t)) #("-o" 0 2 (face font-lock-comment-face fontified t)) #("-E" 0 2 (face font-lock-comment-face fontified t))))
  (if (memq type blocks) "" (apply func (match-string 3) (split-string ... " ")))
  (progn (if (memq type blocks) "" (apply func ... ...)))
  (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 blocks) "" (apply func ... ...)))
  (replace-match (save-match-data (if ... "" ...)) t t)
  (if (setf func (cadr ...)) (replace-match (save-match-data ...) t t))
  (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data (setf type ...)) (unless (memq type types) (setf types ...)) (setf end (save-match-data ...)) (interblock start end type) (if (setf func ...) (replace-match ... t t)) (setf start (save-match-data ...)))
  (progn (fset (quote interblock) (function* ...)) (goto-char (point-min)) (setf start (point)) (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data ...) (unless ... ...) (setf end ...) (interblock start end type) (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
  (unwind-protect (progn (fset ... ...) (goto-char ...) (setf start ...) (while ... ... ... ... ... ... ...) (mapcar ... types)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
  (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn ... ... ... ... ...) (if --cl-letf-bound-- ... ...)))
  (letf ((... ...)) (goto-char (point-min)) (setf start (point)) (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data ...) (unless ... ...) (setf end ...) (interblock start end type) (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
  (letf* ((... ...)) (goto-char (point-min)) (setf start (point)) (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data ...) (unless ... ...) (setf end ...) (interblock start end type) (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
  (flet ((interblock ... ...)) (goto-char (point-min)) (setf start (point)) (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data ...) (unless ... ...) (setf end ...) (interblock start end type) (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
  (let ((count 0) (blocks org-export-blocks-witheld) (case-fold-search t) (types ...) type func start end) (flet (...) (goto-char ...) (setf start ...) (while ... ... ... ... ... ... ...) (mapcar ... types)))
  (save-window-excursion (let (... ... ... ... type func start end) (flet ... ... ... ... ...)))
  org-export-blocks-preprocess()
  run-hooks(org-export-preprocess-hook)
  (save-current-buffer (set-buffer (get-buffer-create " org-mode-tmp")) (erase-buffer) (insert string) (setq case-fold-search t) (run-hooks (quote org-export-preprocess-hook)) (org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search t) (untabify (point-min) (point-max)) (org-export-handle-include-files) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (org-export-replace-src-segments) (setq target-alist (org-export-define-heading-targets target-alist)) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert ... "\n")) (org-export-remove-archived-trees archived-trees) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (org-export-protect-examples (if asciip ... nil)) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-protect-verbatim) (org-export-mark-blockquote-and-verse) (setq target-alist (org-export-attach-captions-and-attributes backend target-alist)) (org-export-remove-comment-blocks-and-subtrees) (org-export-mark-radio-links) (org-export-concatenate-multiline-links) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when (plist-get parameters :emph-multiline) (org-export-concatenate-multiline-emphasis)) (when org-export-table-remove-special-lines (org-export-remove-special-table-lines)) (when latexp (require ... nil) (org-export-latex-preprocess)) (when asciip (org-export-ascii-preprocess)) (when htmlp (org-export-html-preprocess parameters)) (org-export-handle-comments (plist-get parameters :comments)) (setq rtn (buffer-string)))
  (with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t) (run-hooks (quote org-export-preprocess-hook)) (org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search t) (untabify (point-min) (point-max)) (org-export-handle-include-files) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (org-export-replace-src-segments) (setq target-alist (org-export-define-heading-targets target-alist)) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert ... "\n")) (org-export-remove-archived-trees archived-trees) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (org-export-protect-examples (if asciip ... nil)) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-protect-verbatim) (org-export-mark-blockquote-and-verse) (setq target-alist (org-export-attach-captions-and-attributes backend target-alist)) (org-export-remove-comment-blocks-and-subtrees) (org-export-mark-radio-links) (org-export-concatenate-multiline-links) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when (plist-get parameters :emph-multiline) (org-export-concatenate-multiline-emphasis)) (when org-export-table-remove-special-lines (org-export-remove-special-table-lines)) (when latexp (require ... nil) (org-export-latex-preprocess)) (when asciip (org-export-ascii-preprocess)) (when htmlp (org-export-html-preprocess parameters)) (org-export-handle-comments (plist-get parameters :comments)) (setq rtn (buffer-string)))
  (let* ((htmlp ...) (asciip ...) (latexp ...) (backend ...) (archived-trees ...) (inhibit-read-only t) (drawers org-drawers) (outline-regexp "\\*+ ") target-alist rtn) (setq org-export-target-aliases nil) (with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t) (run-hooks ...) (org-export-kill-licensed-text) (let ... ...) (setq case-fold-search t) (untabify ... ...) (org-export-handle-include-files) (org-export-handle-export-tags ... ...) (org-export-replace-src-segments) (setq target-alist ...) (org-export-remove-or-extract-drawers drawers ...) (when ... ... ...) (when ... ... ...) (org-export-remove-archived-trees archived-trees) (org-export-remove-headline-metadata parameters) (setq target-alist ...) (org-export-protect-examples ...) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-protect-verbatim) (org-export-mark-blockquote-and-verse) (setq target-alist ...) (org-export-remove-comment-blocks-and-subtrees) (org-export-mark-radio-links) (org-export-concatenate-multiline-links) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when ... ...) (when org-export-table-remove-special-lines ...) (when latexp ... ...) (when asciip ...) (when htmlp ...) (org-export-handle-comments ...) (setq rtn ...)) (kill-buffer " org-mode-tmp") rtn)
  org-export-preprocess-string(#("#+TITLE:     xy.org\n#+AUTHOR:    Sebastian Rose\n#+EMAIL:     nomail@example.com\n\n* First example\n\n#+begin_ditaa ditaa-all-examples.png -o -E\n: /----\\ /----\\ /----\\ /----\\\n: |c33F| |cC02| |c1FF| |c1AB|\n: |    | |    | |    | |    |\n: \\----/ \\----/ \\----/ \\----/\n:\n: Color codes:\n: /-------------+-------------\\\n: |cRED RED     |cBLU BLU     |\n: +-------------+-------------+\n: |cGRE GRE     |cPNK PNK     |\n: +-------------+-------------+\n: |cBLK BLK     |cYEL YEL     |\n: \\-------------+-------------/\n:\n: Die Optione -E verhindert die L\x00fc\ cke zwischen den Bl\x00f6\ cken.\n:\n: /--+\n: |  |\n: +--/\n:\n: +---------+\n: | cBLU    |\n: |         |\n: |    +----+\n: |    |cPNK|\n: |    |    |\n: +----+----+\n:\n: +-----+ +-----+ +-----+\n: |{d}  | |{s}  | |{io} |\n: |     | |     | |     |\n: |     | |     | |     |\n: +-----+ +-----+ +-----+\n:\n: ----+  /----\\  +----+\n:     :  |    |  :    |\n:     |  |    |  |{s} |\n:     v  \\-=--+  +----+\n:\n: *----*      /--B1--B2\n: |    |      |\n: *    *  -*--+--*--*\n: |    |      |\n: *----*      \\--*\n:\n: /-----------------\\\n: | Things to do    |\n: | cGRE            |\n: | o Cut the grass |\n: | o Buy jam       |\n: | o Fix car       |\n: | o Make website  |\n: \\-----------------/\n#+end_ditaa\n\n* Second example\n\n\n#+begin_ditaa Database.png -o -E\n: /---------------------\\    /-------------\\    /-------------------\\\n: | region_2_zoom  cYEL |    | region cYEL |    | hotel_2_zoom cYEL |\n: +---------------------+    +-------------+    +-------------------+\n: | id                  |    | id          |    | id                |\n: | zoom_id             |    | name        |    | zoom_id           |\n: | region_id           |    \\-------------/    | hotel_id          |\n: | iX                  |           ^           | hX                |\n: | iY                  |           |           | hY                |\n: | X1                  |-----------/           \\---------+---------/\n: | Y1                  |                                 |\n: | X2                  |                                 |\n: | Y2                  |                                 |\n: | path                |                                 |\n: | filename            |                                 |\n: \\----------+----------/                                 |\n:            |                                            |\n:            |                                            |\n:            \\---------------------*----------------------/\n:                                  |\n:                                  v\n: /------------\\             /-----------\\            /-------------\\\n: | row   cYEL |             | zoom cYEL |            | column cYEL |\n: +------------+             +-----------+            +-------------+\n: | id         |             | zoom      |            | id          |\n: | zoom_id    +------------>| name      |<-----------+ zoom_id     |\n: | tY         |             \\-----------/            | tX          |\n: | pY         |                                      | pX          |\n: |visible     |                                      | visible     |\n: \\------------/                                      \\-------------/\n:       ^                                                     ^\n:       |                                                     |\n:       |                    /-----------\\                    |\n:       |                    | tile cYEL |                    |\n:       |                    +-----------+                    |\n:       |                    | id        |                    |\n:       \\--------------------+ row_id    |                    |\n:                            | column_id +--------------------/\n:                            | filename  |\n:                            \\-----------/\n#+end_ditaa\n" 0 19 (fontified t face font-lock-comment-face) 19 20 (fontified t) 20 47 (fontified t face font-lock-comment-face) 47 48 (fontified t) 48 70 (fontified t face font-lock-comment-face) 70 75 (fontified t face font-lock-comment-face font-lock-multiline t) 75 82 (fontified t face font-lock-comment-face) 82 83 (fontified t) 83 84 (fontified t) 84 86 (fontified t face org-level-1) 86 99 (fontified t face org-level-1) 99 100 (fontified t) 100 101 (fontified t) 101 108 (fontified t face font-lock-comment-face) 108 114 (fontified t face font-lock-comment-face font-lock-multiline t) 114 143 (fontified t face font-lock-comment-face) 143 144 (fontified t) 144 148 (fontified t face org-code) 148 152 (fontified t face org-code font-lock-multiline t) 152 155 (fontified t face org-code) 155 159 (fontified t face org-code font-lock-multiline t) 159 162 (fontified t face org-code) 162 166 (fontified t face org-code font-lock-multiline t) 166 169 (fontified t face org-code) 169 173 (fontified t face org-code font-lock-multiline t) 173 174 (fontified t face org-code) 174 204 (fontified t face org-code) 204 234 (fontified t face org-code) 234 236 (fontified t face org-code) 236 238 (fontified t face org-code font-lock-multiline t) 238 242 (fontified t face org-code font-lock-multiline t) 242 243 (fontified t face org-code) 243 245 (fontified t face org-code font-lock-multiline t) 245 249 (fontified t face org-code font-lock-multiline t) 249 250 (fontified t face org-code) 250 252 (fontified t face org-code font-lock-multiline t) 252 256 (fontified t face org-code font-lock-multiline t) 256 257 (fontified t face org-code) 257 259 (fontified t face org-code font-lock-multiline t) 259 263 (fontified t face org-code font-lock-multiline t) 263 264 (fontified t face org-code) 264 266 (fontified t) 266 281 (fontified t face org-code) 281 294 (fontified t face org-code) 294 298 (fontified t face org-code font-lock-multiline t) 298 308 (fontified t face org-code) 308 312 (fontified t face org-code font-lock-multiline t) 312 313 (fontified t face org-code) 313 345 (fontified t face org-code) 345 347 (fontified t face org-code) 347 358 (fontified t face org-code font-lock-multiline t) 358 362 (fontified t face org-code font-lock-multiline t) 362 372 (fontified t face org-code) 372 376 (fontified t face org-code font-lock-multiline t) 376 377 (fontified t face org-code) 377 409 (fontified t face org-code) 409 411 (fontified t face org-code) 411 422 (fontified t face org-code font-lock-multiline t) 422 426 (fontified t face org-code font-lock-multiline t) 426 436 (fontified t face org-code) 436 440 (fontified t face org-code font-lock-multiline t) 440 441 (fontified t face org-code) 441 473 (fontified t face org-code) 473 475 (fontified t face org-code) 475 477 (fontified t face org-code font-lock-multiline t) 477 486 (fontified t face org-code) 486 490 (fontified t face org-code font-lock-multiline t) 490 500 (fontified t face org-code) 500 504 (fontified t face org-code font-lock-multiline t) 504 505 (fontified t face org-code) 505 507 (fontified t) 507 567 (fontified t face org-code) 567 569 (fontified t) 569 572 (fontified t face org-code) 572 575 (fontified t face org-code font-lock-multiline t) 575 576 (fontified t face org-code) 576 583 (fontified t face org-code) 583 586 (fontified t face org-code) 586 589 (fontified t face org-code font-lock-multiline t) 589 590 (fontified t face org-code) 590 592 (fontified t) 592 594 (fontified t face org-code) 594 601 (fontified t face org-code font-lock-multiline t) 601 605 (fontified t face org-code font-lock-multiline t) 605 606 (fontified t face org-code) 606 620 (fontified t face org-code) 620 634 (fontified t face org-code) 634 641 (fontified t face org-code) 641 643 (fontified t face org-code font-lock-multiline t) 643 647 (fontified t face org-code font-lock-multiline t) 647 648 (fontified t face org-code) 648 662 (fontified t face org-code) 662 676 (fontified t face org-code) 676 678 (fontified t face org-code) 678 680 (fontified t face org-code font-lock-multiline t) 680 684 (fontified t face org-code font-lock-multiline t) 684 685 (fontified t face org-code) 685 689 (fontified t face org-code font-lock-multiline t) 689 690 (fontified t face org-code) 690 692 (fontified t) 692 694 (fontified t face org-code) 694 697 (fontified t face org-code font-lock-multiline t) 697 701 (fontified t face org-code font-lock-multiline t) 701 702 (fontified t face org-code) 702 705 (fontified t face org-code font-lock-multiline t) 705 709 (fontified t face org-code font-lock-multiline t) 709 710 (fontified t face org-code) 710 713 (fontified t face org-code font-lock-multiline t) 713 717 (fontified t face org-code font-lock-multiline t) 717 718 (fontified t face org-code) 718 744 (fontified t face org-code) 744 770 (fontified t face org-code) 770 796 (fontified t face org-code) 796 798 (fontified t face org-code) 798 801 (fontified t face org-code font-lock-multiline t) 801 805 (fontified t face org-code font-lock-multiline t) 805 806 (fontified t face org-code) 806 809 (fontified t face org-code font-lock-multiline t) 809 813 (fontified t face org-code font-lock-multiline t) 813 814 (fontified t face org-code) 814 817 (fontified t face org-code font-lock-multiline t) 817 821 (fontified t face org-code font-lock-multiline t) 821 822 (fontified t face org-code) 822 824 (fontified t) 824 827 (fontified t face org-code) 827 831 (fontified t face org-code font-lock-multiline t) 831 835 (fontified t face org-code) 835 839 (fontified t face org-code font-lock-multiline t) 839 841 (fontified t face org-code) 841 843 (fontified t face org-code font-lock-multiline t) 843 847 (fontified t face org-code font-lock-multiline t) 847 848 (fontified t face org-code) 848 872 (fontified t face org-code) 872 896 (fontified t face org-code) 896 905 (fontified t face org-code) 905 907 (fontified t face org-code font-lock-multiline t) 907 908 (fontified t face org-code) 908 911 (fontified t face org-code font-lock-multiline t) 911 913 (fontified t face org-code) 913 915 (fontified t face org-code font-lock-multiline t) 915 919 (fontified t face org-code font-lock-multiline t) 919 920 (fontified t face org-code) 920 922 (fontified t) 922 924 (fontified t face org-code) 924 926 (fontified t face org-code font-lock-multiline t) 926 930 (fontified t face org-code font-lock-multiline t) 930 937 (fontified t face org-code) 937 940 (fontified t face org-code font-lock-multiline t) 940 941 (fontified t face org-code) 941 944 (fontified t face org-code font-lock-multiline t) 944 946 (fontified t face org-code) 946 962 (fontified t face org-code) 962 974 (fontified t face org-code) 974 977 (fontified t face org-code font-lock-multiline t) 977 980 (fontified t face org-code font-lock-multiline t) 980 983 (fontified t face org-code font-lock-multiline t) 983 984 (fontified t face org-code) 984 1000 (fontified t face org-code) 1000 1002 (fontified t face org-code) 1002 1004 (fontified t face org-code font-lock-multiline t) 1004 1008 (fontified t face org-code font-lock-multiline t) 1008 1014 (fontified t face org-code) 1014 1016 (fontified t face org-code font-lock-multiline t) 1016 1019 (fontified t face org-code) 1019 1021 (fontified t) 1021 1038 (fontified t face org-code) 1038 1042 (fontified t face org-code font-lock-multiline t) 1042 1043 (fontified t face org-code) 1043 1065 (fontified t face org-code) 1065 1087 (fontified t face org-code) 1087 1109 (fontified t face org-code) 1109 1131 (fontified t face org-code) 1131 1153 (fontified t face org-code) 1153 1175 (fontified t face org-code) 1175 1177 (fontified t face org-code) 1177 1179 (fontified t face org-code font-lock-multiline t) 1179 1192 (fontified t face org-code) 1192 1196 (fontified t face org-code font-lock-multiline t) 1196 1197 (fontified t face org-code) 1197 1202 (fontified t face font-lock-comment-face) 1202 1208 (fontified t face font-lock-comment-face font-lock-multiline t) 1208 1209 (fontified t) 1209 1210 (fontified t) 1210 1212 (fontified t face org-level-1) 1212 1226 (fontified t face org-level-1) 1226 1227 (fontified t) 1227 1228 (fontified t) 1228 1229 (fontified t) 1229 1236 (fontified t face font-lock-comment-face) 1236 1242 (fontified t face font-lock-comment-face font-lock-multiline t) 1242 1261 (fontified t face font-lock-comment-face) 1261 1262 (fontified t) 1262 1283 (fontified t face org-code) 1283 1287 (fontified t face org-code font-lock-multiline t) 1287 1302 (fontified t face org-code) 1302 1306 (fontified t face org-code font-lock-multiline t) 1306 1327 (fontified t face org-code) 1327 1331 (fontified t face org-code font-lock-multiline t) 1331 1332 (fontified t face org-code) 1332 1342 (fontified t face org-code) 1342 1344 (fontified t face org-code font-lock-multiline t) 1344 1387 (fontified t face org-code) 1387 1389 (fontified t face org-code font-lock-multiline t) 1389 1402 (fontified t face org-code) 1402 1404 (fontified t face org-code) 1404 1423 (fontified t face org-code font-lock-multiline t) 1423 1427 (fontified t face org-code font-lock-multiline t) 1427 1431 (fontified t face org-code) 1431 1442 (fontified t face org-code font-lock-multiline t) 1442 1446 (fontified t face org-code font-lock-multiline t) 1446 1450 (fontified t face org-code) 1450 1467 (fontified t face org-code font-lock-multiline t) 1467 1471 (fontified t face org-code font-lock-multiline t) 1471 1472 (fontified t face org-code) 1472 1542 (fontified t face org-code) 1542 1550 (fontified t face org-code) 1550 1553 (fontified t face org-code font-lock-multiline t) 1553 1596 (fontified t face org-code) 1596 1599 (fontified t face org-code font-lock-multiline t) 1599 1612 (fontified t face org-code) 1612 1622 (fontified t face org-code) 1622 1625 (fontified t face org-code font-lock-multiline t) 1625 1641 (fontified t face org-code) 1641 1643 (fontified t face org-code font-lock-multiline t) 1643 1652 (fontified t face org-code) 1652 1656 (fontified t face org-code font-lock-multiline t) 1656 1667 (fontified t face org-code) 1667 1670 (fontified t face org-code font-lock-multiline t) 1670 1682 (fontified t face org-code) 1682 1752 (fontified t face org-code) 1752 1822 (fontified t face org-code) 1822 1855 (fontified t face org-code) 1855 1859 (fontified t face org-code font-lock-multiline t) 1859 1870 (fontified t face org-code) 1870 1872 (fontified t face org-code font-lock-multiline t) 1872 1877 (fontified t face org-code) 1877 1881 (fontified t face org-code font-lock-multiline t) 1881 1887 (fontified t face org-code) 1887 1891 (fontified t face org-code font-lock-multiline t) 1891 1892 (fontified t face org-code) 1892 1952 (fontified t face org-code) 1952 2012 (fontified t face org-code) 2012 2072 (fontified t face org-code) 2072 2132 (fontified t face org-code) 2132 2192 (fontified t face org-code) 2192 2194 (fontified t face org-code) 2194 2196 (fontified t face org-code font-lock-multiline t) 2196 2202 (fontified t face org-code) 2202 2206 (fontified t face org-code font-lock-multiline t) 2206 2213 (fontified t face org-code) 2213 2217 (fontified t face org-code font-lock-multiline t) 2217 2252 (fontified t face org-code) 2252 2312 (fontified t face org-code) 2312 2372 (fontified t face org-code) 2372 2385 (fontified t face org-code) 2385 2387 (fontified t face org-code font-lock-multiline t) 2387 2404 (fontified t face org-code) 2404 2408 (fontified t face org-code font-lock-multiline t) 2408 2427 (fontified t face org-code) 2427 2431 (fontified t face org-code font-lock-multiline t) 2431 2432 (fontified t face org-code) 2432 2469 (fontified t face org-code) 2469 2506 (fontified t face org-code) 2506 2518 (fontified t face org-code) 2518 2522 (fontified t face org-code font-lock-multiline t) 2522 2544 (fontified t face org-code) 2544 2548 (fontified t face org-code font-lock-multiline t) 2548 2571 (fontified t face org-code) 2571 2575 (fontified t face org-code font-lock-multiline t) 2575 2576 (fontified t face org-code) 2576 2646 (fontified t face org-code) 2646 2648 (fontified t face org-code) 2648 2658 (fontified t face org-code font-lock-multiline t) 2658 2662 (fontified t face org-code font-lock-multiline t) 2662 2675 (fontified t face org-code) 2675 2684 (fontified t face org-code font-lock-multiline t) 2684 2688 (fontified t face org-code font-lock-multiline t) 2688 2700 (fontified t face org-code) 2700 2711 (fontified t face org-code font-lock-multiline t) 2711 2715 (fontified t face org-code font-lock-multiline t) 2715 2716 (fontified t face org-code) 2716 2786 (fontified t face org-code) 2786 2794 (fontified t face org-code) 2794 2797 (fontified t face org-code font-lock-multiline t) 2797 2801 (fontified t face org-code) 2801 2811 (fontified t face org-code font-lock-multiline t) 2811 2815 (fontified t face org-code font-lock-multiline t) 2815 2837 (fontified t face org-code font-lock-multiline t) 2837 2841 (fontified t face org-code font-lock-multiline t) 2841 2846 (fontified t face org-code) 2846 2849 (fontified t face org-code font-lock-multiline t) 2849 2856 (fontified t face org-code) 2856 2885 (fontified t face org-code) 2885 2887 (fontified t face org-code font-lock-multiline t) 2887 2894 (fontified t face org-code) 2894 2898 (fontified t face org-code font-lock-multiline t) 2898 2926 (fontified t face org-code) 2926 2996 (fontified t face org-code) 2996 3066 (fontified t face org-code) 3066 3068 (fontified t face org-code) 3068 3070 (fontified t face org-code font-lock-multiline t) 3070 3078 (fontified t face org-code) 3078 3082 (fontified t face org-code font-lock-multiline t) 3082 3120 (fontified t face org-code) 3120 3122 (fontified t face org-code font-lock-multiline t) 3122 3131 (fontified t face org-code) 3131 3135 (fontified t face org-code font-lock-multiline t) 3135 3136 (fontified t face org-code) 3136 3200 (fontified t face org-code) 3200 3264 (fontified t face org-code) 3264 3302 (fontified t face org-code) 3302 3306 (fontified t face org-code font-lock-multiline t) 3306 3328 (fontified t face org-code) 3328 3392 (fontified t face org-code) 3392 3421 (fontified t face org-code) 3421 3430 (fontified t face org-code font-lock-multiline t) 3430 3434 (fontified t face org-code font-lock-multiline t) 3434 3456 (fontified t face org-code) 3456 3520 (fontified t face org-code) 3520 3528 (fontified t face org-code) 3528 3530 (fontified t face org-code font-lock-multiline t) 3530 3546 (fontified t face org-code) 3546 3550 (fontified t face org-code font-lock-multiline t) 3550 3554 (fontified t face org-code) 3554 3557 (fontified t face org-code font-lock-multiline t) 3557 3584 (fontified t face org-code) 3584 3621 (fontified t face org-code) 3621 3624 (fontified t face org-code font-lock-multiline t) 3624 3643 (fontified t face org-code) 3643 3647 (fontified t face org-code font-lock-multiline t) 3647 3648 (fontified t face org-code) 3648 3691 (fontified t face org-code) 3691 3720 (fontified t face org-code) 3720 3722 (fontified t face org-code font-lock-multiline t) 3722 3729 (fontified t face org-code) 3729 3733 (fontified t face org-code font-lock-multiline t) 3733 3734 (fontified t face org-code) 3734 3739 (fontified t face font-lock-comment-face) 3739 3744 (fontified t face font-lock-comment-face font-lock-multiline t) 3744 3745 (rear-nonsticky t fontified t face font-lock-comment-face font-lock-multiline t) 3745 3746 (fontified t rear-nonsticky t)) :emph-multiline t :for-html t :skip-before-1st-heading nil :drawers t :todo-keywords t :tags not-in-toc :priority nil :archived-trees headline :select-tags ("export") :exclude-tags ("noexport") :add-text nil :LaTeX-fragments t)
  (org-split-string (org-export-preprocess-string region :emph-multiline t :for-html t :skip-before-1st-heading (plist-get opt-plist :skip-before-1st-heading) :drawers (plist-get opt-plist :drawers) :todo-keywords (plist-get opt-plist :todo-keywords) :tags (plist-get opt-plist :tags) :priority (plist-get opt-plist :priority) :archived-trees (plist-get opt-plist :archived-trees) :select-tags (plist-get opt-plist :select-tags) :exclude-tags (plist-get opt-plist :exclude-tags) :add-text (plist-get opt-plist :text) :LaTeX-fragments (plist-get opt-plist :LaTeX-fragments)) "[.\n]")
  (let* ((opt-plist ...) (style ...) (html-extension ...) (link-validate ...) valid thetoc have-headings first-heading-pos (odd org-odd-levels-only) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...) (opt-plist ...) (org-current-export-dir ...) (org-current-export-file buffer-file-name) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (filename ...) (current-dir ...) (buffer ...) (org-levels-open ...) (date ...) (author ...) (title ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) (inquote nil) (infixed nil) (inverse nil) (in-local-list nil) (local-list-type nil) (local-list-indent nil) (llt org-plain-list-ordered-item-terminator) (email ...) (language ...) (lang-words nil) (head-count 0) cnt (start 0) (coding-system ...) (coding-system-for-write ...) (save-buffer-coding-system ...) (charset ...) ...) (let (...) (org-unmodified ...)) (message "Exporting...") (setq org-min-level (org-get-min-level lines)) (setq org-last-level org-min-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer)) (fundamental-mode) (and (fboundp ...) (set-buffer-file-coding-system coding-system-for-write)) (let (... ...) (mapc ... org-export-plist-vars) (setq umax ...) (setq umax-toc ...) (unless body-only ... ... ...) (if ... ...) (setq head-count 0) (org-init-section-numbers) (org-open-par) (while ... ...) (when inquote ... ...) (when in-local-list ... ...) (org-html-level-start 1 nil umax ... head-count) (when ... ...) (save-excursion ... ...) (when footnotes ...) (unless body-only ... ... ... ...) (unless ... ... ...) (goto-char ...) (when thetoc ... ... ... ...) (goto-char ...) (while ... ...) (goto-char ...) (while ... ...) (goto-char ...) (while ... ...) (goto-char ...) (let ... ...) (or to-buffer ...) (goto-char ...) (message "Exporting... done") (if ... ... ...)))
  org-export-as-html(nil)
  call-interactively(org-export-as-html)
  (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sentinel p ...) (message "Background process \"%s\": started" p)) (call-interactively (nth 1 ass)))
  (let* ((bg ...) (help "[t]   insert the export option template\n[v]   limit export to visible part of outline tree\n\n[a] export as ASCII\n\n[h] export as HTML\n[H] export as HTML to temporary buffer\n[R] export region as HTML\n[b] export as HTML and browse immediately\n[x] export as XOXO\n\n[l] export as LaTeX\n[p] export as LaTeX and process to PDF\n[d] export as LaTeX, process to PDF, and open the resulting PDF document\n[L] export as LaTeX to temporary buffer\n\n[i] export current file as iCalendar file\n[I] export all agenda files as iCalendar files\n[c] export agenda files into combined iCalendar file\n\n[F] publish current file\n[P] publish current project\n[X] publish... (project will be prompted for)\n[A] publish all projects") (cmds ...) r1 r2 ass) (save-window-excursion (delete-other-windows) (with-output-to-temp-buffer "*Org Export/Publishing Help*" ...) (org-fit-window-to-buffer ...) (message "Select command: ") (setq r1 ...)) (setq r2 (if ... ... r1)) (unless (setq ass ...) (error "No command associated with key %c" r1)) (if (and bg ... ... ...) (let ... ... ...) (call-interactively ...)))
  org-export(nil)
  call-interactively(org-export nil nil)




Regards,


--
Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449 Hannover
Tel.:  +49 (0)511 - 36 58 472
Fax:   +49 (0)1805 - 233633 - 11044
mobil: +49 (0)173 - 83 93 417
Http:  www.emma-stil.de

^ permalink raw reply related	[flat|nested] 3+ messages in thread

* Re: org-exp-blocks.el
  2008-12-19  0:32 org-exp-blocks.el Sebastian Rose
@ 2008-12-19  3:10 ` Eric Schulte
  2008-12-19  8:39   ` org-exp-blocks.el Carsten Dominik
  0 siblings, 1 reply; 3+ messages in thread
From: Eric Schulte @ 2008-12-19  3:10 UTC (permalink / raw)
  To: Sebastian Rose; +Cc: emacs-orgmode Org-Mode

Sebastian Rose <sebastian_rose@gmx.de> writes:

> Hi Eric,
>
>
> This little patch fixes a problem in org-exp-blocs.el which leads to an
> error, if one tries to run ditaa on a block with empty lines that begin
> with a colon.
>

Hi Sebastian,

Thanks for catching this.  Carsten, can you please apply this patch?

Thanks -- Eric

>
> diff --git a/org-exp-blocks.el b/org-exp-blocks.el
> index 26b999d..29bbf51 100644
> --- a/org-exp-blocks.el
> +++ b/org-exp-blocks.el
> @@ -183,10 +183,10 @@ passed to the ditaa utility as command line arguments."
>        (error (format "Could not find ditaa.jar at %s" org-ditaa-jar-path)))
>      (setq body (if (string-match "^\\([^:\\|:[^ ]\\)" body)
>                    body
> -                (mapconcat (lambda (x) (substring x 2))
> +                (mapconcat (lambda (x) (if (> (length x) 1) (substring x 2) (substring x 1)))
>                             (org-split-string body "\n")
>                             "\n")))
>
>
>
> Example file:
>
>  --->8----------------------------->8----------------------------->8---
>    * First example
>    
>    #+begin_ditaa ditaa-all-examples.png -o -E
>    : /----\ /----\ /----\ /----\
>    : |c33F| |cC02| |c1FF| |c1AB|
>    : |    | |    | |    | |    |
>    : \----/ \----/ \----/ \----/
>    :
>    : Color codes:
>    : /-------------+-------------\
>    : |cRED RED     |cBLU BLU     |
>    : +-------------+-------------+
>    : |cGRE GRE     |cPNK PNK     |
>    : +-------------+-------------+
>    : |cBLK BLK     |cYEL YEL     |
>    : \-------------+-------------/
>    :
>    : Die Optione -E verhindert die Lücke zwischen den Blöcken.
>    #+end_ditaa
>  ---8<-----------------------------8<-----------------------------8<---
>
>
> I cannot produce the image in the first section anymore. Once I could
> export the whole thing and didn't change it since (current exported
> image is from 25. Nov).
>
> I figured it's because of the empty lines. If I put something there, the
> image is created:
>
>  --->8----------------------------->8----------------------------->8---
>    * First example
>    
>    #+begin_ditaa ditaa-all-examples.png -o -E
>    : /----\ /----\ /----\ /----\
>    : |c33F| |cC02| |c1FF| |c1AB|
>    : |    | |    | |    | |    |
>    : \----/ \----/ \----/ \----/
>    :           SOMETHING INSTEAD OF AN EMPTY LINE HERE
>    : Color codes:
>    : /-------------+-------------\
>    : |cRED RED     |cBLU BLU     |
>    : +-------------+-------------+
>    : |cGRE GRE     |cPNK PNK     |
>    : +-------------+-------------+
>    : |cBLK BLK     |cYEL YEL     |
>    : \-------------+-------------/
>    :           SOMETHING INSTEAD OF AN EMPTY LINE HERE
>    : Die Optione -E verhindert die Lücke zwischen den Blöcken.
>    #+end_ditaa
>  ---8<-----------------------------8<-----------------------------8<---
>
>
>
>
>
> With those empty lines I get
>
>         ditaa-formatting...
>         Args out of range: #(":" 0 1 (fontified t)), 2, 1
>
>   ...and with debug-on-error this backtrace:
>
>
> Debugger entered--Lisp error: (args-out-of-range #(":" 0 1 (fontified t)) 2 1)
>   substring(#(":" 0 1 (fontified t)) 2)
>   (lambda (x) (substring x 2))(#(":" 0 1 (fontified t)))
>   mapconcat((lambda (x) (substring x 2)) (#(": /----\\ /----\\ /----\\ /----\\" 0 4 (face org-code fontified t) 4 8 (font-lock-multiline t face org-code fontified t) 8 11 (face org-code fontified t) 11 15 (font-lock-multiline t face org-code fontified t) 15 18 (face org-code fontified t) 18 22 (font-lock-multiline t face org-code fontified t) 22 25 (face org-code fontified t) 25 29 (font-lock-multiline t face org-code fontified t)) #(": |c33F| |cC02| |c1FF| |c1AB|" 0 29 (face org-code fontified t)) #(": |    | |    | |    | |    |" 0 29 (face org-code fontified t)) #(": \\----/ \\----/ \\----/ \\----/" 0 2 (face org-code fontified t) 2 4 (font-lock-multiline t face org-code fontified t) 4 8 (font-lock-multiline t face org-code fontified t) 8 9 (face org-code fontified t) 9 11 (font-lock-multiline t face org-code fontified t) 11 15 (font-lock-multiline t face org-code fontified t) 15 16 (face org-code fontified t) 16 18 (font-lock-multiline t face org-code fontified t) 18 22 (font-lock-multiline t face org-code fontified t) 22 23 (face org-code fontified t) 23 25 (font-lock-multiline t face org-code fontified t) 25 29 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": Color codes:" 0 14 (face org-code fontified t)) #(": /-------------+-------------\\" 0 13 (face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 27 (face org-code fontified t) 27 31 (font-lock-multiline t face org-code fontified t)) #(": |cRED RED     |cBLU BLU     |" 0 31 (face org-code fontified t)) #(": +-------------+-------------+" 0 2 (face org-code fontified t) 2 13 (font-lock-multiline t face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 27 (face org-code fontified t) 27 31 (font-lock-multiline t face org-code fontified t)) #(": |cGRE GRE     |cPNK PNK     |" 0 31 (face org-code fontified t)) #(": +-------------+-------------+" 0 2 (face org-code fontified t) 2 13 (font-lock-multiline t face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 27 (face org-code fontified t) 27 31 (font-lock-multiline t face org-code fontified t)) #(": |cBLK BLK     |cYEL YEL     |" 0 31 (face org-code fontified t)) #(": \\-------------+-------------/" 0 2 (face org-code fontified t) 2 4 (font-lock-multiline t face org-code fontified t) 4 13 (face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 27 (face org-code fontified t) 27 31 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": Die Optione -E verhindert die L\x00fc\ cke zwischen den Bl\x00f6\ cken." 0 59 (face org-code fontified t)) #(":" 0 1 (fontified t)) #(": /--+" 0 3 (face org-code fontified t) 3 6 (font-lock-multiline t face org-code fontified t)) #(": |  |" 0 6 (face org-code fontified t)) #(": +--/" 0 3 (face org-code fontified t) 3 6 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": +---------+" 0 2 (face org-code fontified t) 2 9 (font-lock-multiline t face org-code fontified t) 9 13 (font-lock-multiline t face org-code fontified t)) #(": | cBLU    |" 0 13 (face org-code fontified t)) #(": |         |" 0 13 (face org-code fontified t)) #(": |    +----+" 0 7 (face org-code fontified t) 7 9 (font-lock-multiline t face org-code fontified t) 9 13 (font-lock-multiline t face org-code fontified t)) #(": |    |cPNK|" 0 13 (face org-code fontified t)) #(": |    |    |" 0 13 (face org-code fontified t)) #(": +----+----+" 0 2 (face org-code fontified t) 2 4 (font-lock-multiline t face org-code fontified t) 4 8 (font-lock-multiline t face org-code fontified t) 8 9 (face org-code fontified t) 9 13 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": +-----+ +-----+ +-----+" 0 2 (face org-code fontified t) 2 5 (font-lock-multiline t face org-code fontified t) 5 9 (font-lock-multiline t face org-code fontified t) 9 10 (face org-code fontified t) 10 13 (font-lock-multiline t face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 18 (face org-code fontified t) 18 21 (font-lock-multiline t face org-code fontified t) 21 25 (font-lock-multiline t face org-code fontified t)) #(": |{d}  | |{s}  | |{io} |" 0 25 (face org-code fontified t)) #(": |     | |     | |     |" 0 25 (face org-code fontified t)) #(": |     | |     | |     |" 0 25 (face org-code fontified t)) #(": +-----+ +-----+ +-----+" 0 2 (face org-code fontified t) 2 5 (font-lock-multiline t face org-code fontified t) 5 9 (font-lock-multiline t face org-code fontified t) 9 10 (face org-code fontified t) 10 13 (font-lock-multiline t face org-code fontified t) 13 17 (font-lock-multiline t face org-code fontified t) 17 18 (face org-code fontified t) 18 21 (font-lock-multiline t face org-code fontified t) 21 25 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": ----+  /----\\  +----+" 0 3 (face org-code fontified t) 3 7 (font-lock-multiline t face org-code fontified t) 7 11 (face org-code fontified t) 11 15 (font-lock-multiline t face org-code fontified t) 15 17 (face org-code fontified t) 17 19 (font-lock-multiline t face org-code fontified t) 19 23 (font-lock-multiline t face org-code fontified t)) #(":     :  |    |  :    |" 0 23 (face org-code fontified t)) #(":     |  |    |  |{s} |" 0 23 (face org-code fontified t)) #(":     v  \\-=--+  +----+" 0 9 (face org-code fontified t) 9 11 (font-lock-multiline t face org-code fontified t) 11 12 (face org-code fontified t) 12 15 (font-lock-multiline t face org-code fontified t) 15 17 (face org-code fontified t) 17 19 (font-lock-multiline t face org-code fontified t) 19 23 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified t)) #(": *----*      /--B1--B2" 0 2 (face org-code fontified t) 2 4 (font-lock-multiline t face org-code fontified t) 4 8 (font-lock-multiline t face org-code fontified t) 8 15 (face org-code fontified t) 15 18 (font-lock-multiline t face org-code fontified t) 18 19 (face org-code fontified t) 19 22 (font-lock-multiline t face org-code fontified t) 22 23 (face org-code fontified t)) #(": |    |      |" 0 15 (face org-code fontified t)) #(": *    *  -*--+--*--*" 0 12 (face org-code fontified t) 12 15 (font-lock-multiline t face org-code fontified t) 15 18 (font-lock-multiline t face org-code fontified t) 18 21 (font-lock-multiline t face org-code fontified t)) #(": |    |      |" 0 15 (face org-code fontified t)) #(": *----*      \\--*" 0 2 (face org-code fontified t) 2 4 (font-lock-multiline t face org-code fontified t) 4 8 (font-lock-multiline t face org-code fontified t) 8 14 (face org-code fontified t) 14 16 (font-lock-multiline t face org-code fontified t) 16 18 (face org-code fontified t)) #(":" 0 1 (fontified t)) #(": /-----------------\\" 0 17 (face org-code fontified t) 17 21 (font-lock-multiline t face org-code fontified t)) #(": | Things to do    |" 0 21 (face org-code fontified t)) #(": | cGRE            |" 0 21 (face org-code fontified t)) #(": | o Cut the grass |" 0 21 (face org-code fontified t)) #(": | o Buy jam       |" 0 21 (face org-code fontified t)) ...) "\n")
>   (if (string-match "^\\([^:\\|:[^ ]\\)" body) body (mapconcat (lambda ... ...) (org-split-string body "\n") "\n"))
>   (setq body (if (string-match "^\\([^:\\|:[^ ]\\)" body) body (mapconcat ... ... "\n")))
>   (let ((out-file ...) (args ...) (data-file ...)) (unless (file-exists-p org-ditaa-jar-path) (error ...)) (setq body (if ... body ...)) (cond (... ... ... ... ...) (t ...)))
>   org-export-blocks-format-ditaa(#(": /----\\ /----\\ /----\\ /----\\\n: |c33F| |cC02| |c1FF| |c1AB|\n: |    | |    | |    | |    |\n: \\----/ \\----/ \\----/ \\----/\n:\n: Color codes:\n: /-------------+-------------\\\n: |cRED RED     |cBLU BLU     |\n: +-------------+-------------+\n: |cGRE GRE     |cPNK PNK     |\n: +-------------+-------------+\n: |cBLK BLK     |cYEL YEL     |\n: \\-------------+-------------/\n:\n: Die Optione -E verhindert die L\x00fc\ cke zwischen den Bl\x00f6\ cken.\n:\n: /--+\n: |  |\n: +--/\n:\n: +---------+\n: | cBLU    |\n: |         |\n: |    +----+\n: |    |cPNK|\n: |    |    |\n: +----+----+\n:\n: +-----+ +-----+ +-----+\n: |{d}  | |{s}  | |{io} |\n: |     | |     | |     |\n: |     | |     | |     |\n: +-----+ +-----+ +-----+\n:\n: ----+  /----\\  +----+\n:     :  |    |  :    |\n:     |  |    |  |{s} |\n:     v  \\-=--+  +----+\n:\n: *----*      /--B1--B2\n: |    |      |\n: *    *  -*--+--*--*\n: |    |      |\n: *----*      \\--*\n:\n: /-----------------\\\n: | Things to do    |\n: | cGRE            |\n: | o Cut the grass |\n: | o Buy jam       |\n: | o Fix car       |\n: | o Make website  |\n: \\-----------------/\n" 0 4 (fontified t face org-code) 4 8 (fontified t face org-code font-lock-multiline t) 8 11 (fontified t face org-code) 11 15 (fontified t face org-code font-lock-multiline t) 15 18 (fontified t face org-code) 18 22 (fontified t face org-code font-lock-multiline t) 22 25 (fontified t face org-code) 25 29 (fontified t face org-code font-lock-multiline t) 29 30 (fontified t face org-code) 30 60 (fontified t face org-code) 60 90 (fontified t face org-code) 90 92 (fontified t face org-code) 92 94 (fontified t face org-code font-lock-multiline t) 94 98 (fontified t face org-code font-lock-multiline t) 98 99 (fontified t face org-code) 99 101 (fontified t face org-code font-lock-multiline t) 101 105 (fontified t face org-code font-lock-multiline t) 105 106 (fontified t face org-code) 106 108 (fontified t face org-code font-lock-multiline t) 108 112 (fontified t face org-code font-lock-multiline t) 112 113 (fontified t face org-code) 113 115 (fontified t face org-code font-lock-multiline t) 115 119 (fontified t face org-code font-lock-multiline t) 119 120 (fontified t face org-code) 120 122 (fontified t) 122 137 (fontified t face org-code) 137 150 (fontified t face org-code) 150 154 (fontified t face org-code font-lock-multiline t) 154 164 (fontified t face org-code) 164 168 (fontified t face org-code font-lock-multiline t) 168 169 (fontified t face org-code) 169 201 (fontified t face org-code) 201 203 (fontified t face org-code) 203 214 (fontified t face org-code font-lock-multiline t) 214 218 (fontified t face org-code font-lock-multiline t) 218 228 (fontified t face org-code) 228 232 (fontified t face org-code font-lock-multiline t) 232 233 (fontified t face org-code) 233 265 (fontified t face org-code) 265 267 (fontified t face org-code) 267 278 (fontified t face org-code font-lock-multiline t) 278 282 (fontified t face org-code font-lock-multiline t) 282 292 (fontified t face org-code) 292 296 (fontified t face org-code font-lock-multiline t) 296 297 (fontified t face org-code) 297 329 (fontified t face org-code) 329 331 (fontified t face org-code) 331 333 (fontified t face org-code font-lock-multiline t) 333 342 (fontified t face org-code) 342 346 (fontified t face org-code font-lock-multiline t) 346 356 (fontified t face org-code) 356 360 (fontified t face org-code font-lock-multiline t) 360 361 (fontified t face org-code) 361 363 (fontified t) 363 423 (fontified t face org-code) 423 425 (fontified t) 425 428 (fontified t face org-code) 428 431 (fontified t face org-code font-lock-multiline t) 431 432 (fontified t face org-code) 432 439 (fontified t face org-code) 439 442 (fontified t face org-code) 442 445 (fontified t face org-code font-lock-multiline t) 445 446 (fontified t face org-code) 446 448 (fontified t) 448 450 (fontified t face org-code) 450 457 (fontified t face org-code font-lock-multiline t) 457 461 (fontified t face org-code font-lock-multiline t) 461 462 (fontified t face org-code) 462 476 (fontified t face org-code) 476 490 (fontified t face org-code) 490 497 (fontified t face org-code) 497 499 (fontified t face org-code font-lock-multiline t) 499 503 (fontified t face org-code font-lock-multiline t) 503 504 (fontified t face org-code) 504 518 (fontified t face org-code) 518 532 (fontified t face org-code) 532 534 (fontified t face org-code) 534 536 (fontified t face org-code font-lock-multiline t) 536 540 (fontified t face org-code font-lock-multiline t) 540 541 (fontified t face org-code) 541 545 (fontified t face org-code font-lock-multiline t) 545 546 (fontified t face org-code) 546 548 (fontified t) 548 550 (fontified t face org-code) 550 553 (fontified t face org-code font-lock-multiline t) 553 557 (fontified t face org-code font-lock-multiline t) 557 558 (fontified t face org-code) 558 561 (fontified t face org-code font-lock-multiline t) 561 565 (fontified t face org-code font-lock-multiline t) 565 566 (fontified t face org-code) 566 569 (fontified t face org-code font-lock-multiline t) 569 573 (fontified t face org-code font-lock-multiline t) 573 574 (fontified t face org-code) 574 600 (fontified t face org-code) 600 626 (fontified t face org-code) 626 652 (fontified t face org-code) 652 654 (fontified t face org-code) 654 657 (fontified t face org-code font-lock-multiline t) 657 661 (fontified t face org-code font-lock-multiline t) 661 662 (fontified t face org-code) 662 665 (fontified t face org-code font-lock-multiline t) 665 669 (fontified t face org-code font-lock-multiline t) 669 670 (fontified t face org-code) 670 673 (fontified t face org-code font-lock-multiline t) 673 677 (fontified t face org-code font-lock-multiline t) 677 678 (fontified t face org-code) 678 680 (fontified t) 680 683 (fontified t face org-code) 683 687 (fontified t face org-code font-lock-multiline t) 687 691 (fontified t face org-code) 691 695 (fontified t face org-code font-lock-multiline t) 695 697 (fontified t face org-code) 697 699 (fontified t face org-code font-lock-multiline t) 699 703 (fontified t face org-code font-lock-multiline t) 703 704 (fontified t face org-code) 704 728 (fontified t face org-code) 728 752 (fontified t face org-code) 752 761 (fontified t face org-code) 761 763 (fontified t face org-code font-lock-multiline t) 763 764 (fontified t face org-code) 764 767 (fontified t face org-code font-lock-multiline t) 767 769 (fontified t face org-code) 769 771 (fontified t face org-code font-lock-multiline t) 771 775 (fontified t face org-code font-lock-multiline t) 775 776 (fontified t face org-code) 776 778 (fontified t) 778 780 (fontified t face org-code) 780 782 (fontified t face org-code font-lock-multiline t) 782 786 (fontified t face org-code font-lock-multiline t) 786 793 (fontified t face org-code) 793 796 (fontified t face org-code font-lock-multiline t) 796 797 (fontified t face org-code) 797 800 (fontified t face org-code font-lock-multiline t) 800 802 (fontified t face org-code) 802 818 (fontified t face org-code) 818 830 (fontified t face org-code) 830 833 (fontified t face org-code font-lock-multiline t) 833 836 (fontified t face org-code font-lock-multiline t) 836 839 (fontified t face org-code font-lock-multiline t) 839 840 (fontified t face org-code) 840 856 (fontified t face org-code) 856 858 (fontified t face org-code) 858 860 (fontified t face org-code font-lock-multiline t) 860 864 (fontified t face org-code font-lock-multiline t) 864 870 (fontified t face org-code) 870 872 (fontified t face org-code font-lock-multiline t) 872 875 (fontified t face org-code) 875 877 (fontified t) 877 894 (fontified t face org-code) 894 898 (fontified t face org-code font-lock-multiline t) 898 899 (fontified t face org-code) 899 921 (fontified t face org-code) 921 943 (fontified t face org-code) 943 965 (fontified t face org-code) 965 987 (fontified t face org-code) 987 1009 (fontified t face org-code) 1009 1031 (fontified t face org-code) 1031 1033 (fontified t face org-code) 1033 1035 (fontified t face org-code font-lock-multiline t) 1035 1048 (fontified t face org-code) 1048 1052 (fontified t face org-code font-lock-multiline t) 1052 1053 (fontified t face org-code)) #("ditaa-all-examples.png" 0 22 (face font-lock-comment-face fontified t)) #("-o" 0 2 (face font-lock-comment-face fontified t)) #("-E" 0 2 (face font-lock-comment-face fontified t)))
>   apply(org-export-blocks-format-ditaa #(": /----\\ /----\\ /----\\ /----\\\n: |c33F| |cC02| |c1FF| |c1AB|\n: |    | |    | |    | |    |\n: \\----/ \\----/ \\----/ \\----/\n:\n: Color codes:\n: /-------------+-------------\\\n: |cRED RED     |cBLU BLU     |\n: +-------------+-------------+\n: |cGRE GRE     |cPNK PNK     |\n: +-------------+-------------+\n: |cBLK BLK     |cYEL YEL     |\n: \\-------------+-------------/\n:\n: Die Optione -E verhindert die L\x00fc\ cke zwischen den Bl\x00f6\ cken.\n:\n: /--+\n: |  |\n: +--/\n:\n: +---------+\n: | cBLU    |\n: |         |\n: |    +----+\n: |    |cPNK|\n: |    |    |\n: +----+----+\n:\n: +-----+ +-----+ +-----+\n: |{d}  | |{s}  | |{io} |\n: |     | |     | |     |\n: |     | |     | |     |\n: +-----+ +-----+ +-----+\n:\n: ----+  /----\\  +----+\n:     :  |    |  :    |\n:     |  |    |  |{s} |\n:     v  \\-=--+  +----+\n:\n: *----*      /--B1--B2\n: |    |      |\n: *    *  -*--+--*--*\n: |    |      |\n: *----*      \\--*\n:\n: /-----------------\\\n: | Things to do    |\n: | cGRE            |\n: | o Cut the grass |\n: | o Buy jam       |\n: | o Fix car       |\n: | o Make website  |\n: \\-----------------/\n" 0 4 (fontified t face org-code) 4 8 (fontified t face org-code font-lock-multiline t) 8 11 (fontified t face org-code) 11 15 (fontified t face org-code font-lock-multiline t) 15 18 (fontified t face org-code) 18 22 (fontified t face org-code font-lock-multiline t) 22 25 (fontified t face org-code) 25 29 (fontified t face org-code font-lock-multiline t) 29 30 (fontified t face org-code) 30 60 (fontified t face org-code) 60 90 (fontified t face org-code) 90 92 (fontified t face org-code) 92 94 (fontified t face org-code font-lock-multiline t) 94 98 (fontified t face org-code font-lock-multiline t) 98 99 (fontified t face org-code) 99 101 (fontified t face org-code font-lock-multiline t) 101 105 (fontified t face org-code font-lock-multiline t) 105 106 (fontified t face org-code) 106 108 (fontified t face org-code font-lock-multiline t) 108 112 (fontified t face org-code font-lock-multiline t) 112 113 (fontified t face org-code) 113 115 (fontified t face org-code font-lock-multiline t) 115 119 (fontified t face org-code font-lock-multiline t) 119 120 (fontified t face org-code) 120 122 (fontified t) 122 137 (fontified t face org-code) 137 150 (fontified t face org-code) 150 154 (fontified t face org-code font-lock-multiline t) 154 164 (fontified t face org-code) 164 168 (fontified t face org-code font-lock-multiline t) 168 169 (fontified t face org-code) 169 201 (fontified t face org-code) 201 203 (fontified t face org-code) 203 214 (fontified t face org-code font-lock-multiline t) 214 218 (fontified t face org-code font-lock-multiline t) 218 228 (fontified t face org-code) 228 232 (fontified t face org-code font-lock-multiline t) 232 233 (fontified t face org-code) 233 265 (fontified t face org-code) 265 267 (fontified t face org-code) 267 278 (fontified t face org-code font-lock-multiline t) 278 282 (fontified t face org-code font-lock-multiline t) 282 292 (fontified t face org-code) 292 296 (fontified t face org-code font-lock-multiline t) 296 297 (fontified t face org-code) 297 329 (fontified t face org-code) 329 331 (fontified t face org-code) 331 333 (fontified t face org-code font-lock-multiline t) 333 342 (fontified t face org-code) 342 346 (fontified t face org-code font-lock-multiline t) 346 356 (fontified t face org-code) 356 360 (fontified t face org-code font-lock-multiline t) 360 361 (fontified t face org-code) 361 363 (fontified t) 363 423 (fontified t face org-code) 423 425 (fontified t) 425 428 (fontified t face org-code) 428 431 (fontified t face org-code font-lock-multiline t) 431 432 (fontified t face org-code) 432 439 (fontified t face org-code) 439 442 (fontified t face org-code) 442 445 (fontified t face org-code font-lock-multiline t) 445 446 (fontified t face org-code) 446 448 (fontified t) 448 450 (fontified t face org-code) 450 457 (fontified t face org-code font-lock-multiline t) 457 461 (fontified t face org-code font-lock-multiline t) 461 462 (fontified t face org-code) 462 476 (fontified t face org-code) 476 490 (fontified t face org-code) 490 497 (fontified t face org-code) 497 499 (fontified t face org-code font-lock-multiline t) 499 503 (fontified t face org-code font-lock-multiline t) 503 504 (fontified t face org-code) 504 518 (fontified t face org-code) 518 532 (fontified t face org-code) 532 534 (fontified t face org-code) 534 536 (fontified t face org-code font-lock-multiline t) 536 540 (fontified t face org-code font-lock-multiline t) 540 541 (fontified t face org-code) 541 545 (fontified t face org-code font-lock-multiline t) 545 546 (fontified t face org-code) 546 548 (fontified t) 548 550 (fontified t face org-code) 550 553 (fontified t face org-code font-lock-multiline t) 553 557 (fontified t face org-code font-lock-multiline t) 557 558 (fontified t face org-code) 558 561 (fontified t face org-code font-lock-multiline t) 561 565 (fontified t face org-code font-lock-multiline t) 565 566 (fontified t face org-code) 566 569 (fontified t face org-code font-lock-multiline t) 569 573 (fontified t face org-code font-lock-multiline t) 573 574 (fontified t face org-code) 574 600 (fontified t face org-code) 600 626 (fontified t face org-code) 626 652 (fontified t face org-code) 652 654 (fontified t face org-code) 654 657 (fontified t face org-code font-lock-multiline t) 657 661 (fontified t face org-code font-lock-multiline t) 661 662 (fontified t face org-code) 662 665 (fontified t face org-code font-lock-multiline t) 665 669 (fontified t face org-code font-lock-multiline t) 669 670 (fontified t face org-code) 670 673 (fontified t face org-code font-lock-multiline t) 673 677 (fontified t face org-code font-lock-multiline t) 677 678 (fontified t face org-code) 678 680 (fontified t) 680 683 (fontified t face org-code) 683 687 (fontified t face org-code font-lock-multiline t) 687 691 (fontified t face org-code) 691 695 (fontified t face org-code font-lock-multiline t) 695 697 (fontified t face org-code) 697 699 (fontified t face org-code font-lock-multiline t) 699 703 (fontified t face org-code font-lock-multiline t) 703 704 (fontified t face org-code) 704 728 (fontified t face org-code) 728 752 (fontified t face org-code) 752 761 (fontified t face org-code) 761 763 (fontified t face org-code font-lock-multiline t) 763 764 (fontified t face org-code) 764 767 (fontified t face org-code font-lock-multiline t) 767 769 (fontified t face org-code) 769 771 (fontified t face org-code font-lock-multiline t) 771 775 (fontified t face org-code font-lock-multiline t) 775 776 (fontified t face org-code) 776 778 (fontified t) 778 780 (fontified t face org-code) 780 782 (fontified t face org-code font-lock-multiline t) 782 786 (fontified t face org-code font-lock-multiline t) 786 793 (fontified t face org-code) 793 796 (fontified t face org-code font-lock-multiline t) 796 797 (fontified t face org-code) 797 800 (fontified t face org-code font-lock-multiline t) 800 802 (fontified t face org-code) 802 818 (fontified t face org-code) 818 830 (fontified t face org-code) 830 833 (fontified t face org-code font-lock-multiline t) 833 836 (fontified t face org-code font-lock-multiline t) 836 839 (fontified t face org-code font-lock-multiline t) 839 840 (fontified t face org-code) 840 856 (fontified t face org-code) 856 858 (fontified t face org-code) 858 860 (fontified t face org-code font-lock-multiline t) 860 864 (fontified t face org-code font-lock-multiline t) 864 870 (fontified t face org-code) 870 872 (fontified t face org-code font-lock-multiline t) 872 875 (fontified t face org-code) 875 877 (fontified t) 877 894 (fontified t face org-code) 894 898 (fontified t face org-code font-lock-multiline t) 898 899 (fontified t face org-code) 899 921 (fontified t face org-code) 921 943 (fontified t face org-code) 943 965 (fontified t face org-code) 965 987 (fontified t face org-code) 987 1009 (fontified t face org-code) 1009 1031 (fontified t face org-code) 1031 1033 (fontified t face org-code) 1033 1035 (fontified t face org-code font-lock-multiline t) 1035 1048 (fontified t face org-code) 1048 1052 (fontified t face org-code font-lock-multiline t) 1052 1053 (fontified t face org-code)) (#("ditaa-all-examples.png" 0 22 (face font-lock-comment-face fontified t)) #("-o" 0 2 (face font-lock-comment-face fontified t)) #("-E" 0 2 (face font-lock-comment-face fontified t))))
>   (if (memq type blocks) "" (apply func (match-string 3) (split-string ... " ")))
>   (progn (if (memq type blocks) "" (apply func ... ...)))
>   (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 blocks) "" (apply func ... ...)))
>   (replace-match (save-match-data (if ... "" ...)) t t)
>   (if (setf func (cadr ...)) (replace-match (save-match-data ...) t t))
>   (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data (setf type ...)) (unless (memq type types) (setf types ...)) (setf end (save-match-data ...)) (interblock start end type) (if (setf func ...) (replace-match ... t t)) (setf start (save-match-data ...)))
>   (progn (fset (quote interblock) (function* ...)) (goto-char (point-min)) (setf start (point)) (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data ...) (unless ... ...) (setf end ...) (interblock start end type) (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
>   (unwind-protect (progn (fset ... ...) (goto-char ...) (setf start ...) (while ... ... ... ... ... ... ...) (mapcar ... types)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
>   (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn ... ... ... ... ...) (if --cl-letf-bound-- ... ...)))
>   (letf ((... ...)) (goto-char (point-min)) (setf start (point)) (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data ...) (unless ... ...) (setf end ...) (interblock start end type) (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
>   (letf* ((... ...)) (goto-char (point-min)) (setf start (point)) (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data ...) (unless ... ...) (setf end ...) (interblock start end type) (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
>   (flet ((interblock ... ...)) (goto-char (point-min)) (setf start (point)) (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data ...) (unless ... ...) (setf end ...) (interblock start end type) (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
>   (let ((count 0) (blocks org-export-blocks-witheld) (case-fold-search t) (types ...) type func start end) (flet (...) (goto-char ...) (setf start ...) (while ... ... ... ... ... ... ...) (mapcar ... types)))
>   (save-window-excursion (let (... ... ... ... type func start end) (flet ... ... ... ... ...)))
>   org-export-blocks-preprocess()
>   run-hooks(org-export-preprocess-hook)
>   (save-current-buffer (set-buffer (get-buffer-create " org-mode-tmp")) (erase-buffer) (insert string) (setq case-fold-search t) (run-hooks (quote org-export-preprocess-hook)) (org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search t) (untabify (point-min) (point-max)) (org-export-handle-include-files) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (org-export-replace-src-segments) (setq target-alist (org-export-define-heading-targets target-alist)) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert ... "\n")) (org-export-remove-archived-trees archived-trees) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (org-export-protect-examples (if asciip ... nil)) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-protect-verbatim) (org-export-mark-blockquote-and-verse) (setq target-alist (org-export-attach-captions-and-attributes backend target-alist)) (org-export-remove-comment-blocks-and-subtrees) (org-export-mark-radio-links) (org-export-concatenate-multiline-links) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when (plist-get parameters :emph-multiline) (org-export-concatenate-multiline-emphasis)) (when org-export-table-remove-special-lines (org-export-remove-special-table-lines)) (when latexp (require ... nil) (org-export-latex-preprocess)) (when asciip (org-export-ascii-preprocess)) (when htmlp (org-export-html-preprocess parameters)) (org-export-handle-comments (plist-get parameters :comments)) (setq rtn (buffer-string)))
>   (with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t) (run-hooks (quote org-export-preprocess-hook)) (org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search t) (untabify (point-min) (point-max)) (org-export-handle-include-files) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (org-export-replace-src-segments) (setq target-alist (org-export-define-heading-targets target-alist)) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert ... "\n")) (org-export-remove-archived-trees archived-trees) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (org-export-protect-examples (if asciip ... nil)) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-protect-verbatim) (org-export-mark-blockquote-and-verse) (setq target-alist (org-export-attach-captions-and-attributes backend target-alist)) (org-export-remove-comment-blocks-and-subtrees) (org-export-mark-radio-links) (org-export-concatenate-multiline-links) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when (plist-get parameters :emph-multiline) (org-export-concatenate-multiline-emphasis)) (when org-export-table-remove-special-lines (org-export-remove-special-table-lines)) (when latexp (require ... nil) (org-export-latex-preprocess)) (when asciip (org-export-ascii-preprocess)) (when htmlp (org-export-html-preprocess parameters)) (org-export-handle-comments (plist-get parameters :comments)) (setq rtn (buffer-string)))
>   (let* ((htmlp ...) (asciip ...) (latexp ...) (backend ...) (archived-trees ...) (inhibit-read-only t) (drawers org-drawers) (outline-regexp "\\*+ ") target-alist rtn) (setq org-export-target-aliases nil) (with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t) (run-hooks ...) (org-export-kill-licensed-text) (let ... ...) (setq case-fold-search t) (untabify ... ...) (org-export-handle-include-files) (org-export-handle-export-tags ... ...) (org-export-replace-src-segments) (setq target-alist ...) (org-export-remove-or-extract-drawers drawers ...) (when ... ... ...) (when ... ... ...) (org-export-remove-archived-trees archived-trees) (org-export-remove-headline-metadata parameters) (setq target-alist ...) (org-export-protect-examples ...) (org-export-select-backend-specific-text backend) (org-export-protect-quoted-subtrees) (org-export-protect-verbatim) (org-export-mark-blockquote-and-verse) (setq target-alist ...) (org-export-remove-comment-blocks-and-subtrees) (org-export-mark-radio-links) (org-export-concatenate-multiline-links) (org-export-normalize-links) (org-export-target-internal-links target-alist) (when ... ...) (when org-export-table-remove-special-lines ...) (when latexp ... ...) (when asciip ...) (when htmlp ...) (org-export-handle-comments ...) (setq rtn ...)) (kill-buffer " org-mode-tmp") rtn)
>   org-export-preprocess-string(#("#+TITLE:     xy.org\n#+AUTHOR:    Sebastian Rose\n#+EMAIL:     nomail@example.com\n\n* First example\n\n#+begin_ditaa ditaa-all-examples.png -o -E\n: /----\\ /----\\ /----\\ /----\\\n: |c33F| |cC02| |c1FF| |c1AB|\n: |    | |    | |    | |    |\n: \\----/ \\----/ \\----/ \\----/\n:\n: Color codes:\n: /-------------+-------------\\\n: |cRED RED     |cBLU BLU     |\n: +-------------+-------------+\n: |cGRE GRE     |cPNK PNK     |\n: +-------------+-------------+\n: |cBLK BLK     |cYEL YEL     |\n: \\-------------+-------------/\n:\n: Die Optione -E verhindert die L\x00fc\ cke zwischen den Bl\x00f6\ cken.\n:\n: /--+\n: |  |\n: +--/\n:\n: +---------+\n: | cBLU    |\n: |         |\n: |    +----+\n: |    |cPNK|\n: |    |    |\n: +----+----+\n:\n: +-----+ +-----+ +-----+\n: |{d}  | |{s}  | |{io} |\n: |     | |     | |     |\n: |     | |     | |     |\n: +-----+ +-----+ +-----+\n:\n: ----+  /----\\  +----+\n:     :  |    |  :    |\n:     |  |    |  |{s} |\n:     v  \\-=--+  +----+\n:\n: *----*      /--B1--B2\n: |    |      |\n: *    *  -*--+--*--*\n: |    |      |\n: *----*      \\--*\n:\n: /-----------------\\\n: | Things to do    |\n: | cGRE            |\n: | o Cut the grass |\n: | o Buy jam       |\n: | o Fix car       |\n: | o Make website  |\n: \\-----------------/\n#+end_ditaa\n\n* Second example\n\n\n#+begin_ditaa Database.png -o -E\n: /---------------------\\    /-------------\\    /-------------------\\\n: | region_2_zoom  cYEL |    | region cYEL |    | hotel_2_zoom cYEL |\n: +---------------------+    +-------------+    +-------------------+\n: | id                  |    | id          |    | id                |\n: | zoom_id             |    | name        |    | zoom_id           |\n: | region_id           |    \\-------------/    | hotel_id          |\n: | iX                  |           ^           | hX                |\n: | iY                  |           |           | hY                |\n: | X1                  |-----------/           \\---------+---------/\n: | Y1                  |                                 |\n: | X2                  |                                 |\n: | Y2                  |                                 |\n: | path                |                                 |\n: | filename            |                                 |\n: \\----------+----------/                                 |\n:            |                                            |\n:            |                                            |\n:            \\---------------------*----------------------/\n:                                  |\n:                                  v\n: /------------\\             /-----------\\            /-------------\\\n: | row   cYEL |             | zoom cYEL |            | column cYEL |\n: +------------+             +-----------+            +-------------+\n: | id         |             | zoom      |            | id          |\n: | zoom_id    +------------>| name      |<-----------+ zoom_id     |\n: | tY         |             \\-----------/            | tX          |\n: | pY         |                                      | pX          |\n: |visible     |                                      | visible     |\n: \\------------/                                      \\-------------/\n:       ^                                                     ^\n:       |                                                     |\n:       |                    /-----------\\                    |\n:       |                    | tile cYEL |                    |\n:       |                    +-----------+                    |\n:       |                    | id        |                    |\n:       \\--------------------+ row_id    |                    |\n:                            | column_id +--------------------/\n:                            | filename  |\n:                            \\-----------/\n#+end_ditaa\n" 0 19 (fontified t face font-lock-comment-face) 19 20 (fontified t) 20 47 (fontified t face font-lock-comment-face) 47 48 (fontified t) 48 70 (fontified t face font-lock-comment-face) 70 75 (fontified t face font-lock-comment-face font-lock-multiline t) 75 82 (fontified t face font-lock-comment-face) 82 83 (fontified t) 83 84 (fontified t) 84 86 (fontified t face org-level-1) 86 99 (fontified t face org-level-1) 99 100 (fontified t) 100 101 (fontified t) 101 108 (fontified t face font-lock-comment-face) 108 114 (fontified t face font-lock-comment-face font-lock-multiline t) 114 143 (fontified t face font-lock-comment-face) 143 144 (fontified t) 144 148 (fontified t face org-code) 148 152 (fontified t face org-code font-lock-multiline t) 152 155 (fontified t face org-code) 155 159 (fontified t face org-code font-lock-multiline t) 159 162 (fontified t face org-code) 162 166 (fontified t face org-code font-lock-multiline t) 166 169 (fontified t face org-code) 169 173 (fontified t face org-code font-lock-multiline t) 173 174 (fontified t face org-code) 174 204 (fontified t face org-code) 204 234 (fontified t face org-code) 234 236 (fontified t face org-code) 236 238 (fontified t face org-code font-lock-multiline t) 238 242 (fontified t face org-code font-lock-multiline t) 242 243 (fontified t face org-code) 243 245 (fontified t face org-code font-lock-multiline t) 245 249 (fontified t face org-code font-lock-multiline t) 249 250 (fontified t face org-code) 250 252 (fontified t face org-code font-lock-multiline t) 252 256 (fontified t face org-code font-lock-multiline t) 256 257 (fontified t face org-code) 257 259 (fontified t face org-code font-lock-multiline t) 259 263 (fontified t face org-code font-lock-multiline t) 263 264 (fontified t face org-code) 264 266 (fontified t) 266 281 (fontified t face org-code) 281 294 (fontified t face org-code) 294 298 (fontified t face org-code font-lock-multiline t) 298 308 (fontified t face org-code) 308 312 (fontified t face org-code font-lock-multiline t) 312 313 (fontified t face org-code) 313 345 (fontified t face org-code) 345 347 (fontified t face org-code) 347 358 (fontified t face org-code font-lock-multiline t) 358 362 (fontified t face org-code font-lock-multiline t) 362 372 (fontified t face org-code) 372 376 (fontified t face org-code font-lock-multiline t) 376 377 (fontified t face org-code) 377 409 (fontified t face org-code) 409 411 (fontified t face org-code) 411 422 (fontified t face org-code font-lock-multiline t) 422 426 (fontified t face org-code font-lock-multiline t) 426 436 (fontified t face org-code) 436 440 (fontified t face org-code font-lock-multiline t) 440 441 (fontified t face org-code) 441 473 (fontified t face org-code) 473 475 (fontified t face org-code) 475 477 (fontified t face org-code font-lock-multiline t) 477 486 (fontified t face org-code) 486 490 (fontified t face org-code font-lock-multiline t) 490 500 (fontified t face org-code) 500 504 (fontified t face org-code font-lock-multiline t) 504 505 (fontified t face org-code) 505 507 (fontified t) 507 567 (fontified t face org-code) 567 569 (fontified t) 569 572 (fontified t face org-code) 572 575 (fontified t face org-code font-lock-multiline t) 575 576 (fontified t face org-code) 576 583 (fontified t face org-code) 583 586 (fontified t face org-code) 586 589 (fontified t face org-code font-lock-multiline t) 589 590 (fontified t face org-code) 590 592 (fontified t) 592 594 (fontified t face org-code) 594 601 (fontified t face org-code font-lock-multiline t) 601 605 (fontified t face org-code font-lock-multiline t) 605 606 (fontified t face org-code) 606 620 (fontified t face org-code) 620 634 (fontified t face org-code) 634 641 (fontified t face org-code) 641 643 (fontified t face org-code font-lock-multiline t) 643 647 (fontified t face org-code font-lock-multiline t) 647 648 (fontified t face org-code) 648 662 (fontified t face org-code) 662 676 (fontified t face org-code) 676 678 (fontified t face org-code) 678 680 (fontified t face org-code font-lock-multiline t) 680 684 (fontified t face org-code font-lock-multiline t) 684 685 (fontified t face org-code) 685 689 (fontified t face org-code font-lock-multiline t) 689 690 (fontified t face org-code) 690 692 (fontified t) 692 694 (fontified t face org-code) 694 697 (fontified t face org-code font-lock-multiline t) 697 701 (fontified t face org-code font-lock-multiline t) 701 702 (fontified t face org-code) 702 705 (fontified t face org-code font-lock-multiline t) 705 709 (fontified t face org-code font-lock-multiline t) 709 710 (fontified t face org-code) 710 713 (fontified t face org-code font-lock-multiline t) 713 717 (fontified t face org-code font-lock-multiline t) 717 718 (fontified t face org-code) 718 744 (fontified t face org-code) 744 770 (fontified t face org-code) 770 796 (fontified t face org-code) 796 798 (fontified t face org-code) 798 801 (fontified t face org-code font-lock-multiline t) 801 805 (fontified t face org-code font-lock-multiline t) 805 806 (fontified t face org-code) 806 809 (fontified t face org-code font-lock-multiline t) 809 813 (fontified t face org-code font-lock-multiline t) 813 814 (fontified t face org-code) 814 817 (fontified t face org-code font-lock-multiline t) 817 821 (fontified t face org-code font-lock-multiline t) 821 822 (fontified t face org-code) 822 824 (fontified t) 824 827 (fontified t face org-code) 827 831 (fontified t face org-code font-lock-multiline t) 831 835 (fontified t face org-code) 835 839 (fontified t face org-code font-lock-multiline t) 839 841 (fontified t face org-code) 841 843 (fontified t face org-code font-lock-multiline t) 843 847 (fontified t face org-code font-lock-multiline t) 847 848 (fontified t face org-code) 848 872 (fontified t face org-code) 872 896 (fontified t face org-code) 896 905 (fontified t face org-code) 905 907 (fontified t face org-code font-lock-multiline t) 907 908 (fontified t face org-code) 908 911 (fontified t face org-code font-lock-multiline t) 911 913 (fontified t face org-code) 913 915 (fontified t face org-code font-lock-multiline t) 915 919 (fontified t face org-code font-lock-multiline t) 919 920 (fontified t face org-code) 920 922 (fontified t) 922 924 (fontified t face org-code) 924 926 (fontified t face org-code font-lock-multiline t) 926 930 (fontified t face org-code font-lock-multiline t) 930 937 (fontified t face org-code) 937 940 (fontified t face org-code font-lock-multiline t) 940 941 (fontified t face org-code) 941 944 (fontified t face org-code font-lock-multiline t) 944 946 (fontified t face org-code) 946 962 (fontified t face org-code) 962 974 (fontified t face org-code) 974 977 (fontified t face org-code font-lock-multiline t) 977 980 (fontified t face org-code font-lock-multiline t) 980 983 (fontified t face org-code font-lock-multiline t) 983 984 (fontified t face org-code) 984 1000 (fontified t face org-code) 1000 1002 (fontified t face org-code) 1002 1004 (fontified t face org-code font-lock-multiline t) 1004 1008 (fontified t face org-code font-lock-multiline t) 1008 1014 (fontified t face org-code) 1014 1016 (fontified t face org-code font-lock-multiline t) 1016 1019 (fontified t face org-code) 1019 1021 (fontified t) 1021 1038 (fontified t face org-code) 1038 1042 (fontified t face org-code font-lock-multiline t) 1042 1043 (fontified t face org-code) 1043 1065 (fontified t face org-code) 1065 1087 (fontified t face org-code) 1087 1109 (fontified t face org-code) 1109 1131 (fontified t face org-code) 1131 1153 (fontified t face org-code) 1153 1175 (fontified t face org-code) 1175 1177 (fontified t face org-code) 1177 1179 (fontified t face org-code font-lock-multiline t) 1179 1192 (fontified t face org-code) 1192 1196 (fontified t face org-code font-lock-multiline t) 1196 1197 (fontified t face org-code) 1197 1202 (fontified t face font-lock-comment-face) 1202 1208 (fontified t face font-lock-comment-face font-lock-multiline t) 1208 1209 (fontified t) 1209 1210 (fontified t) 1210 1212 (fontified t face org-level-1) 1212 1226 (fontified t face org-level-1) 1226 1227 (fontified t) 1227 1228 (fontified t) 1228 1229 (fontified t) 1229 1236 (fontified t face font-lock-comment-face) 1236 1242 (fontified t face font-lock-comment-face font-lock-multiline t) 1242 1261 (fontified t face font-lock-comment-face) 1261 1262 (fontified t) 1262 1283 (fontified t face org-code) 1283 1287 (fontified t face org-code font-lock-multiline t) 1287 1302 (fontified t face org-code) 1302 1306 (fontified t face org-code font-lock-multiline t) 1306 1327 (fontified t face org-code) 1327 1331 (fontified t face org-code font-lock-multiline t) 1331 1332 (fontified t face org-code) 1332 1342 (fontified t face org-code) 1342 1344 (fontified t face org-code font-lock-multiline t) 1344 1387 (fontified t face org-code) 1387 1389 (fontified t face org-code font-lock-multiline t) 1389 1402 (fontified t face org-code) 1402 1404 (fontified t face org-code) 1404 1423 (fontified t face org-code font-lock-multiline t) 1423 1427 (fontified t face org-code font-lock-multiline t) 1427 1431 (fontified t face org-code) 1431 1442 (fontified t face org-code font-lock-multiline t) 1442 1446 (fontified t face org-code font-lock-multiline t) 1446 1450 (fontified t face org-code) 1450 1467 (fontified t face org-code font-lock-multiline t) 1467 1471 (fontified t face org-code font-lock-multiline t) 1471 1472 (fontified t face org-code) 1472 1542 (fontified t face org-code) 1542 1550 (fontified t face org-code) 1550 1553 (fontified t face org-code font-lock-multiline t) 1553 1596 (fontified t face org-code) 1596 1599 (fontified t face org-code font-lock-multiline t) 1599 1612 (fontified t face org-code) 1612 1622 (fontified t face org-code) 1622 1625 (fontified t face org-code font-lock-multiline t) 1625 1641 (fontified t face org-code) 1641 1643 (fontified t face org-code font-lock-multiline t) 1643 1652 (fontified t face org-code) 1652 1656 (fontified t face org-code font-lock-multiline t) 1656 1667 (fontified t face org-code) 1667 1670 (fontified t face org-code font-lock-multiline t) 1670 1682 (fontified t face org-code) 1682 1752 (fontified t face org-code) 1752 1822 (fontified t face org-code) 1822 1855 (fontified t face org-code) 1855 1859 (fontified t face org-code font-lock-multiline t) 1859 1870 (fontified t face org-code) 1870 1872 (fontified t face org-code font-lock-multiline t) 1872 1877 (fontified t face org-code) 1877 1881 (fontified t face org-code font-lock-multiline t) 1881 1887 (fontified t face org-code) 1887 1891 (fontified t face org-code font-lock-multiline t) 1891 1892 (fontified t face org-code) 1892 1952 (fontified t face org-code) 1952 2012 (fontified t face org-code) 2012 2072 (fontified t face org-code) 2072 2132 (fontified t face org-code) 2132 2192 (fontified t face org-code) 2192 2194 (fontified t face org-code) 2194 2196 (fontified t face org-code font-lock-multiline t) 2196 2202 (fontified t face org-code) 2202 2206 (fontified t face org-code font-lock-multiline t) 2206 2213 (fontified t face org-code) 2213 2217 (fontified t face org-code font-lock-multiline t) 2217 2252 (fontified t face org-code) 2252 2312 (fontified t face org-code) 2312 2372 (fontified t face org-code) 2372 2385 (fontified t face org-code) 2385 2387 (fontified t face org-code font-lock-multiline t) 2387 2404 (fontified t face org-code) 2404 2408 (fontified t face org-code font-lock-multiline t) 2408 2427 (fontified t face org-code) 2427 2431 (fontified t face org-code font-lock-multiline t) 2431 2432 (fontified t face org-code) 2432 2469 (fontified t face org-code) 2469 2506 (fontified t face org-code) 2506 2518 (fontified t face org-code) 2518 2522 (fontified t face org-code font-lock-multiline t) 2522 2544 (fontified t face org-code) 2544 2548 (fontified t face org-code font-lock-multiline t) 2548 2571 (fontified t face org-code) 2571 2575 (fontified t face org-code font-lock-multiline t) 2575 2576 (fontified t face org-code) 2576 2646 (fontified t face org-code) 2646 2648 (fontified t face org-code) 2648 2658 (fontified t face org-code font-lock-multiline t) 2658 2662 (fontified t face org-code font-lock-multiline t) 2662 2675 (fontified t face org-code) 2675 2684 (fontified t face org-code font-lock-multiline t) 2684 2688 (fontified t face org-code font-lock-multiline t) 2688 2700 (fontified t face org-code) 2700 2711 (fontified t face org-code font-lock-multiline t) 2711 2715 (fontified t face org-code font-lock-multiline t) 2715 2716 (fontified t face org-code) 2716 2786 (fontified t face org-code) 2786 2794 (fontified t face org-code) 2794 2797 (fontified t face org-code font-lock-multiline t) 2797 2801 (fontified t face org-code) 2801 2811 (fontified t face org-code font-lock-multiline t) 2811 2815 (fontified t face org-code font-lock-multiline t) 2815 2837 (fontified t face org-code font-lock-multiline t) 2837 2841 (fontified t face org-code font-lock-multiline t) 2841 2846 (fontified t face org-code) 2846 2849 (fontified t face org-code font-lock-multiline t) 2849 2856 (fontified t face org-code) 2856 2885 (fontified t face org-code) 2885 2887 (fontified t face org-code font-lock-multiline t) 2887 2894 (fontified t face org-code) 2894 2898 (fontified t face org-code font-lock-multiline t) 2898 2926 (fontified t face org-code) 2926 2996 (fontified t face org-code) 2996 3066 (fontified t face org-code) 3066 3068 (fontified t face org-code) 3068 3070 (fontified t face org-code font-lock-multiline t) 3070 3078 (fontified t face org-code) 3078 3082 (fontified t face org-code font-lock-multiline t) 3082 3120 (fontified t face org-code) 3120 3122 (fontified t face org-code font-lock-multiline t) 3122 3131 (fontified t face org-code) 3131 3135 (fontified t face org-code font-lock-multiline t) 3135 3136 (fontified t face org-code) 3136 3200 (fontified t face org-code) 3200 3264 (fontified t face org-code) 3264 3302 (fontified t face org-code) 3302 3306 (fontified t face org-code font-lock-multiline t) 3306 3328 (fontified t face org-code) 3328 3392 (fontified t face org-code) 3392 3421 (fontified t face org-code) 3421 3430 (fontified t face org-code font-lock-multiline t) 3430 3434 (fontified t face org-code font-lock-multiline t) 3434 3456 (fontified t face org-code) 3456 3520 (fontified t face org-code) 3520 3528 (fontified t face org-code) 3528 3530 (fontified t face org-code font-lock-multiline t) 3530 3546 (fontified t face org-code) 3546 3550 (fontified t face org-code font-lock-multiline t) 3550 3554 (fontified t face org-code) 3554 3557 (fontified t face org-code font-lock-multiline t) 3557 3584 (fontified t face org-code) 3584 3621 (fontified t face org-code) 3621 3624 (fontified t face org-code font-lock-multiline t) 3624 3643 (fontified t face org-code) 3643 3647 (fontified t face org-code font-lock-multiline t) 3647 3648 (fontified t face org-code) 3648 3691 (fontified t face org-code) 3691 3720 (fontified t face org-code) 3720 3722 (fontified t face org-code font-lock-multiline t) 3722 3729 (fontified t face org-code) 3729 3733 (fontified t face org-code font-lock-multiline t) 3733 3734 (fontified t face org-code) 3734 3739 (fontified t face font-lock-comment-face) 3739 3744 (fontified t face font-lock-comment-face font-lock-multiline t) 3744 3745 (rear-nonsticky t fontified t face font-lock-comment-face font-lock-multiline t) 3745 3746 (fontified t rear-nonsticky t)) :emph-multiline t :for-html t :skip-before-1st-heading nil :drawers t :todo-keywords t :tags not-in-toc :priority nil :archived-trees headline :select-tags ("export") :exclude-tags ("noexport") :add-text nil :LaTeX-fragments t)
>   (org-split-string (org-export-preprocess-string region :emph-multiline t :for-html t :skip-before-1st-heading (plist-get opt-plist :skip-before-1st-heading) :drawers (plist-get opt-plist :drawers) :todo-keywords (plist-get opt-plist :todo-keywords) :tags (plist-get opt-plist :tags) :priority (plist-get opt-plist :priority) :archived-trees (plist-get opt-plist :archived-trees) :select-tags (plist-get opt-plist :select-tags) :exclude-tags (plist-get opt-plist :exclude-tags) :add-text (plist-get opt-plist :text) :LaTeX-fragments (plist-get opt-plist :LaTeX-fragments)) "[.\n]")
>   (let* ((opt-plist ...) (style ...) (html-extension ...) (link-validate ...) valid thetoc have-headings first-heading-pos (odd org-odd-levels-only) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...) (opt-plist ...) (org-current-export-dir ...) (org-current-export-file buffer-file-name) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (filename ...) (current-dir ...) (buffer ...) (org-levels-open ...) (date ...) (author ...) (title ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) (inquote nil) (infixed nil) (inverse nil) (in-local-list nil) (local-list-type nil) (local-list-indent nil) (llt org-plain-list-ordered-item-terminator) (email ...) (language ...) (lang-words nil) (head-count 0) cnt (start 0) (coding-system ...) (coding-system-for-write ...) (save-buffer-coding-system ...) (charset ...) ...) (let (...) (org-unmodified ...)) (message "Exporting...") (setq org-min-level (org-get-min-level lines)) (setq org-last-level org-min-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer)) (fundamental-mode) (and (fboundp ...) (set-buffer-file-coding-system coding-system-for-write)) (let (... ...) (mapc ... org-export-plist-vars) (setq umax ...) (setq umax-toc ...) (unless body-only ... ... ...) (if ... ...) (setq head-count 0) (org-init-section-numbers) (org-open-par) (while ... ...) (when inquote ... ...) (when in-local-list ... ...) (org-html-level-start 1 nil umax ... head-count) (when ... ...) (save-excursion ... ...) (when footnotes ...) (unless body-only ... ... ... ...) (unless ... ... ...) (goto-char ...) (when thetoc ... ... ... ...) (goto-char ...) (while ... ...) (goto-char ...) (while ... ...) (goto-char ...) (while ... ...) (goto-char ...) (let ... ...) (or to-buffer ...) (goto-char ...) (message "Exporting... done") (if ... ... ...)))
>   org-export-as-html(nil)
>   call-interactively(org-export-as-html)
>   (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sentinel p ...) (message "Background process \"%s\": started" p)) (call-interactively (nth 1 ass)))
>   (let* ((bg ...) (help "[t]   insert the export option template\n[v]   limit export to visible part of outline tree\n\n[a] export as ASCII\n\n[h] export as HTML\n[H] export as HTML to temporary buffer\n[R] export region as HTML\n[b] export as HTML and browse immediately\n[x] export as XOXO\n\n[l] export as LaTeX\n[p] export as LaTeX and process to PDF\n[d] export as LaTeX, process to PDF, and open the resulting PDF document\n[L] export as LaTeX to temporary buffer\n\n[i] export current file as iCalendar file\n[I] export all agenda files as iCalendar files\n[c] export agenda files into combined iCalendar file\n\n[F] publish current file\n[P] publish current project\n[X] publish... (project will be prompted for)\n[A] publish all projects") (cmds ...) r1 r2 ass) (save-window-excursion (delete-other-windows) (with-output-to-temp-buffer "*Org Export/Publishing Help*" ...) (org-fit-window-to-buffer ...) (message "Select command: ") (setq r1 ...)) (setq r2 (if ... ... r1)) (unless (setq ass ...) (error "No command associated with key %c" r1)) (if (and bg ... ... ...) (let ... ... ...) (call-interactively ...)))
>   org-export(nil)
>   call-interactively(org-export nil nil)
>
>
>
>
> Regards,
>
>
> --
> Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449 Hannover
> Tel.:  +49 (0)511 - 36 58 472
> Fax:   +49 (0)1805 - 233633 - 11044
> mobil: +49 (0)173 - 83 93 417
> Http:  www.emma-stil.de
>
>
> _______________________________________________
> 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

^ permalink raw reply	[flat|nested] 3+ messages in thread

* Re: org-exp-blocks.el
  2008-12-19  3:10 ` org-exp-blocks.el Eric Schulte
@ 2008-12-19  8:39   ` Carsten Dominik
  0 siblings, 0 replies; 3+ messages in thread
From: Carsten Dominik @ 2008-12-19  8:39 UTC (permalink / raw)
  To: Eric Schulte; +Cc: emacs-orgmode Org-Mode


[-- Attachment #1.1: Type: text/plain, Size: 65428 bytes --]

Applied, thanks.

- Carsten

On Dec 19, 2008, at 4:10 AM, Eric Schulte wrote:

> Sebastian Rose <sebastian_rose@gmx.de> writes:
>
>> Hi Eric,
>>
>>
>> This little patch fixes a problem in org-exp-blocs.el which leads  
>> to an
>> error, if one tries to run ditaa on a block with empty lines that  
>> begin
>> with a colon.
>>
>
> Hi Sebastian,
>
> Thanks for catching this.  Carsten, can you please apply this patch?
>
> Thanks -- Eric
>
>>
>> diff --git a/org-exp-blocks.el b/org-exp-blocks.el
>> index 26b999d..29bbf51 100644
>> --- a/org-exp-blocks.el
>> +++ b/org-exp-blocks.el
>> @@ -183,10 +183,10 @@ passed to the ditaa utility as command line  
>> arguments."
>>       (error (format "Could not find ditaa.jar at %s" org-ditaa-jar- 
>> path)))
>>     (setq body (if (string-match "^\\([^:\\|:[^ ]\\)" body)
>>                   body
>> -                (mapconcat (lambda (x) (substring x 2))
>> +                (mapconcat (lambda (x) (if (> (length x) 1)  
>> (substring x 2) (substring x 1)))
>>                            (org-split-string body "\n")
>>                            "\n")))
>>
>>
>>
>> Example file:
>>
>> --->8----------------------------->8----------------------------- 
>> >8---
>>   * First example
>>
>>   #+begin_ditaa ditaa-all-examples.png -o -E
>>   : /----\ /----\ /----\ /----\
>>   : |c33F| |cC02| |c1FF| |c1AB|
>>   : |    | |    | |    | |    |
>>   : \----/ \----/ \----/ \----/
>>   :
>>   : Color codes:
>>   : /-------------+-------------\
>>   : |cRED RED     |cBLU BLU     |
>>   : +-------------+-------------+
>>   : |cGRE GRE     |cPNK PNK     |
>>   : +-------------+-------------+
>>   : |cBLK BLK     |cYEL YEL     |
>>   : \-------------+-------------/
>>   :
>>   : Die Optione -E verhindert die Lücke zwischen den Blöcken.
>>   #+end_ditaa
>> ---8 
>> <-----------------------------8<-----------------------------8<---
>>
>>
>> I cannot produce the image in the first section anymore. Once I could
>> export the whole thing and didn't change it since (current exported
>> image is from 25. Nov).
>>
>> I figured it's because of the empty lines. If I put something  
>> there, the
>> image is created:
>>
>> --->8----------------------------->8----------------------------- 
>> >8---
>>   * First example
>>
>>   #+begin_ditaa ditaa-all-examples.png -o -E
>>   : /----\ /----\ /----\ /----\
>>   : |c33F| |cC02| |c1FF| |c1AB|
>>   : |    | |    | |    | |    |
>>   : \----/ \----/ \----/ \----/
>>   :           SOMETHING INSTEAD OF AN EMPTY LINE HERE
>>   : Color codes:
>>   : /-------------+-------------\
>>   : |cRED RED     |cBLU BLU     |
>>   : +-------------+-------------+
>>   : |cGRE GRE     |cPNK PNK     |
>>   : +-------------+-------------+
>>   : |cBLK BLK     |cYEL YEL     |
>>   : \-------------+-------------/
>>   :           SOMETHING INSTEAD OF AN EMPTY LINE HERE
>>   : Die Optione -E verhindert die Lücke zwischen den Blöcken.
>>   #+end_ditaa
>> ---8 
>> <-----------------------------8<-----------------------------8<---
>>
>>
>>
>>
>>
>> With those empty lines I get
>>
>>        ditaa-formatting...
>>        Args out of range: #(":" 0 1 (fontified t)), 2, 1
>>
>>  ...and with debug-on-error this backtrace:
>>
>>
>> Debugger entered--Lisp error: (args-out-of-range #(":" 0 1  
>> (fontified t)) 2 1)
>>  substring(#(":" 0 1 (fontified t)) 2)
>>  (lambda (x) (substring x 2))(#(":" 0 1 (fontified t)))
>>  mapconcat((lambda (x) (substring x 2)) (#(": /----\\ /----\\ /----\ 
>> \ /----\\" 0 4 (face org-code fontified t) 4 8 (font-lock-multiline  
>> t face org-code fontified t) 8 11 (face org-code fontified t) 11 15  
>> (font-lock-multiline t face org-code fontified t) 15 18 (face org- 
>> code fontified t) 18 22 (font-lock-multiline t face org-code  
>> fontified t) 22 25 (face org-code fontified t) 25 29 (font-lock- 
>> multiline t face org-code fontified t)) #(": |c33F| |cC02| |c1FF| | 
>> c1AB|" 0 29 (face org-code fontified t)) #(": |    | |    | |    |  
>> |    |" 0 29 (face org-code fontified t)) #(": \\----/ \\----/ \ 
>> \----/ \\----/" 0 2 (face org-code fontified t) 2 4 (font-lock- 
>> multiline t face org-code fontified t) 4 8 (font-lock-multiline t  
>> face org-code fontified t) 8 9 (face org-code fontified t) 9 11  
>> (font-lock-multiline t face org-code fontified t) 11 15 (font-lock- 
>> multiline t face org-code fontified t) 15 16 (face org-code  
>> fontified t) 16 18 (font-lock-multiline t face org-code fontified  
>> t) 18 22 (font-lock-multiline t face org-code fontified t) 22 23  
>> (face org-code fontified t) 23 25 (font-lock-multiline t face org- 
>> code fontified t) 25 29 (font-lock-multiline t face org-code  
>> fontified t)) #(":" 0 1 (fontified t)) #(": Color codes:" 0 14  
>> (face org-code fontified t)) #(": /-------------+-------------\\" 0  
>> 13 (face org-code fontified t) 13 17 (font-lock-multiline t face  
>> org-code fontified t) 17 27 (face org-code fontified t) 27 31 (font- 
>> lock-multiline t face org-code fontified t)) #(": |cRED RED     | 
>> cBLU BLU     |" 0 31 (face org-code fontified t)) #(":  
>> +-------------+-------------+" 0 2 (face org-code fontified t) 2 13  
>> (font-lock-multiline t face org-code fontified t) 13 17 (font-lock- 
>> multiline t face org-code fontified t) 17 27 (face org-code  
>> fontified t) 27 31 (font-lock-multiline t face org-code fontified  
>> t)) #(": |cGRE GRE     |cPNK PNK     |" 0 31 (face org-code  
>> fontified t)) #(": +-------------+-------------+" 0 2 (face org- 
>> code fontified t) 2 13 (font-lock-multiline t face org-code  
>> fontified t) 13 17 (font-lock-multiline t face org-code fontified  
>> t) 17 27 (face org-code fontified t) 27 31 (font-lock-multiline t  
>> face org-code fontified t)) #(": |cBLK BLK     |cYEL YEL     |" 0  
>> 31 (face org-code fontified t)) #(": \\------------- 
>> +-------------/" 0 2 (face org-code fontified t) 2 4 (font-lock- 
>> multiline t face org-code fontified t) 4 13 (face org-code  
>> fontified t) 13 17 (font-lock-multiline t face org-code fontified  
>> t) 17 27 (face org-code fontified t) 27 31 (font-lock-multiline t  
>> face org-code fontified t)) #(":" 0 1 (fontified t)) #(": Die  
>> Optione -E verhindert die L\x00fc\ cke zwischen den Bl\x00f6\  
>> cken." 0 59 (face org-code fontified t)) #(":" 0 1 (fontified t))  
>> #(": /--+" 0 3 (face org-code fontified t) 3 6 (font-lock-multiline  
>> t face org-code fontified t)) #(": |  |" 0 6 (face org-code  
>> fontified t)) #(": +--/" 0 3 (face org-code fontified t) 3 6 (font- 
>> lock-multiline t face org-code fontified t)) #(":" 0 1 (fontified  
>> t)) #(": +---------+" 0 2 (face org-code fontified t) 2 9 (font- 
>> lock-multiline t face org-code fontified t) 9 13 (font-lock- 
>> multiline t face org-code fontified t)) #(": | cBLU    |" 0 13  
>> (face org-code fontified t)) #(": |         |" 0 13 (face org-code  
>> fontified t)) #(": |    +----+" 0 7 (face org-code fontified t) 7 9  
>> (font-lock-multiline t face org-code fontified t) 9 13 (font-lock- 
>> multiline t face org-code fontified t)) #(": |    |cPNK|" 0 13  
>> (face org-code fontified t)) #(": |    |    |" 0 13 (face org-code  
>> fontified t)) #(": +----+----+" 0 2 (face org-code fontified t) 2 4  
>> (font-lock-multiline t face org-code fontified t) 4 8 (font-lock- 
>> multiline t face org-code fontified t) 8 9 (face org-code fontified  
>> t) 9 13 (font-lock-multiline t face org-code fontified t)) #(":" 0  
>> 1 (fontified t)) #(": +-----+ +-----+ +-----+" 0 2 (face org-code  
>> fontified t) 2 5 (font-lock-multiline t face org-code fontified t)  
>> 5 9 (font-lock-multiline t face org-code fontified t) 9 10 (face  
>> org-code fontified t) 10 13 (font-lock-multiline t face org-code  
>> fontified t) 13 17 (font-lock-multiline t face org-code fontified  
>> t) 17 18 (face org-code fontified t) 18 21 (font-lock-multiline t  
>> face org-code fontified t) 21 25 (font-lock-multiline t face org- 
>> code fontified t)) #(": |{d}  | |{s}  | |{io} |" 0 25 (face org- 
>> code fontified t)) #(": |     | |     | |     |" 0 25 (face org- 
>> code fontified t)) #(": |     | |     | |     |" 0 25 (face org- 
>> code fontified t)) #(": +-----+ +-----+ +-----+" 0 2 (face org-code  
>> fontified t) 2 5 (font-lock-multiline t face org-code fontified t)  
>> 5 9 (font-lock-multiline t face org-code fontified t) 9 10 (face  
>> org-code fontified t) 10 13 (font-lock-multiline t face org-code  
>> fontified t) 13 17 (font-lock-multiline t face org-code fontified  
>> t) 17 18 (face org-code fontified t) 18 21 (font-lock-multiline t  
>> face org-code fontified t) 21 25 (font-lock-multiline t face org- 
>> code fontified t)) #(":" 0 1 (fontified t)) #(": ----+  /----\\   
>> +----+" 0 3 (face org-code fontified t) 3 7 (font-lock-multiline t  
>> face org-code fontified t) 7 11 (face org-code fontified t) 11 15  
>> (font-lock-multiline t face org-code fontified t) 15 17 (face org- 
>> code fontified t) 17 19 (font-lock-multiline t face org-code  
>> fontified t) 19 23 (font-lock-multiline t face org-code fontified  
>> t)) #(":     :  |    |  :    |" 0 23 (face org-code fontified t))  
>> #(":     |  |    |  |{s} |" 0 23 (face org-code fontified t))  
>> #(":     v  \\-=--+  +----+" 0 9 (face org-code fontified t) 9 11  
>> (font-lock-multiline t face org-code fontified t) 11 12 (face org- 
>> code fontified t) 12 15 (font-lock-multiline t face org-code  
>> fontified t) 15 17 (face org-code fontified t) 17 19 (font-lock- 
>> multiline t face org-code fontified t) 19 23 (font-lock-multiline t  
>> face org-code fontified t)) #(":" 0 1 (fontified t)) #(": *---- 
>> *      /--B1--B2" 0 2 (face org-code fontified t) 2 4 (font-lock- 
>> multiline t face org-code fontified t) 4 8 (font-lock-multiline t  
>> face org-code fontified t) 8 15 (face org-code fontified t) 15 18  
>> (font-lock-multiline t face org-code fontified t) 18 19 (face org- 
>> code fontified t) 19 22 (font-lock-multiline t face org-code  
>> fontified t) 22 23 (face org-code fontified t)) #(": |    |      |"  
>> 0 15 (face org-code fontified t)) #(": *    *  -*--+--*--*" 0 12  
>> (face org-code fontified t) 12 15 (font-lock-multiline t face org- 
>> code fontified t) 15 18 (font-lock-multiline t face org-code  
>> fontified t) 18 21 (font-lock-multiline t face org-code fontified  
>> t)) #(": |    |      |" 0 15 (face org-code fontified t)) #(": *---- 
>> *      \\--*" 0 2 (face org-code fontified t) 2 4 (font-lock- 
>> multiline t face org-code fontified t) 4 8 (font-lock-multiline t  
>> face org-code fontified t) 8 14 (face org-code fontified t) 14 16  
>> (font-lock-multiline t face org-code fontified t) 16 18 (face org- 
>> code fontified t)) #(":" 0 1 (fontified t)) #(": /-----------------\ 
>> \" 0 17 (face org-code fontified t) 17 21 (font-lock-multiline t  
>> face org-code fontified t)) #(": | Things to do    |" 0 21 (face  
>> org-code fontified t)) #(": | cGRE            |" 0 21 (face org- 
>> code fontified t)) #(": | o Cut the grass |" 0 21 (face org-code  
>> fontified t)) #(": | o Buy jam       |" 0 21 (face org-code  
>> fontified t)) ...) "\n")
>>  (if (string-match "^\\([^:\\|:[^ ]\\)" body) body (mapconcat  
>> (lambda ... ...) (org-split-string body "\n") "\n"))
>>  (setq body (if (string-match "^\\([^:\\|:[^ ]\\)" body) body  
>> (mapconcat ... ... "\n")))
>>  (let ((out-file ...) (args ...) (data-file ...)) (unless (file- 
>> exists-p org-ditaa-jar-path) (error ...)) (setq body (if ...  
>> body ...)) (cond (... ... ... ... ...) (t ...)))
>>  org-export-blocks-format-ditaa(#(": /----\\ /----\\ /----\\ /----\\ 
>> \n: |c33F| |cC02| |c1FF| |c1AB|\n: |    | |    | |    | |    |\n: \ 
>> \----/ \\----/ \\----/ \\----/\n:\n: Color codes:\n: /------------- 
>> +-------------\\\n: |cRED RED     |cBLU BLU     |\n: +------------- 
>> +-------------+\n: |cGRE GRE     |cPNK PNK     |\n: +------------- 
>> +-------------+\n: |cBLK BLK     |cYEL YEL     |\n: \\------------- 
>> +-------------/\n:\n: Die Optione -E verhindert die L\x00fc\ cke  
>> zwischen den Bl\x00f6\ cken.\n:\n: /--+\n: |  |\n: +--/\n:\n:  
>> +---------+\n: | cBLU    |\n: |         |\n: |    +----+\n: |    | 
>> cPNK|\n: |    |    |\n: +----+----+\n:\n: +-----+ +-----+ +-----+ 
>> \n: |{d}  | |{s}  | |{io} |\n: |     | |     | |     |\n: |     |  
>> |     | |     |\n: +-----+ +-----+ +-----+\n:\n: ----+  /----\\   
>> +----+\n:     :  |    |  :    |\n:     |  |    |  |{s} |\n:     v  \ 
>> \-=--+  +----+\n:\n: *----*      /--B1--B2\n: |    |      |\n: *     
>> *  -*--+--*--*\n: |    |      |\n: *----*      \\--*\n: 
>> \n: /-----------------\\\n: | Things to do    |\n: |  
>> cGRE            |\n: | o Cut the grass |\n: | o Buy jam       |\n:  
>> | o Fix car       |\n: | o Make website  |\n: \\-----------------/ 
>> \n" 0 4 (fontified t face org-code) 4 8 (fontified t face org-code  
>> font-lock-multiline t) 8 11 (fontified t face org-code) 11 15  
>> (fontified t face org-code font-lock-multiline t) 15 18 (fontified  
>> t face org-code) 18 22 (fontified t face org-code font-lock- 
>> multiline t) 22 25 (fontified t face org-code) 25 29 (fontified t  
>> face org-code font-lock-multiline t) 29 30 (fontified t face org- 
>> code) 30 60 (fontified t face org-code) 60 90 (fontified t face org- 
>> code) 90 92 (fontified t face org-code) 92 94 (fontified t face org- 
>> code font-lock-multiline t) 94 98 (fontified t face org-code font- 
>> lock-multiline t) 98 99 (fontified t face org-code) 99 101  
>> (fontified t face org-code font-lock-multiline t) 101 105  
>> (fontified t face org-code font-lock-multiline t) 105 106  
>> (fontified t face org-code) 106 108 (fontified t face org-code font- 
>> lock-multiline t) 108 112 (fontified t face org-code font-lock- 
>> multiline t) 112 113 (fontified t face org-code) 113 115 (fontified  
>> t face org-code font-lock-multiline t) 115 119 (fontified t face  
>> org-code font-lock-multiline t) 119 120 (fontified t face org-code)  
>> 120 122 (fontified t) 122 137 (fontified t face org-code) 137 150  
>> (fontified t face org-code) 150 154 (fontified t face org-code font- 
>> lock-multiline t) 154 164 (fontified t face org-code) 164 168  
>> (fontified t face org-code font-lock-multiline t) 168 169  
>> (fontified t face org-code) 169 201 (fontified t face org-code) 201  
>> 203 (fontified t face org-code) 203 214 (fontified t face org-code  
>> font-lock-multiline t) 214 218 (fontified t face org-code font-lock- 
>> multiline t) 218 228 (fontified t face org-code) 228 232 (fontified  
>> t face org-code font-lock-multiline t) 232 233 (fontified t face  
>> org-code) 233 265 (fontified t face org-code) 265 267 (fontified t  
>> face org-code) 267 278 (fontified t face org-code font-lock- 
>> multiline t) 278 282 (fontified t face org-code font-lock-multiline  
>> t) 282 292 (fontified t face org-code) 292 296 (fontified t face  
>> org-code font-lock-multiline t) 296 297 (fontified t face org-code)  
>> 297 329 (fontified t face org-code) 329 331 (fontified t face org- 
>> code) 331 333 (fontified t face org-code font-lock-multiline t) 333  
>> 342 (fontified t face org-code) 342 346 (fontified t face org-code  
>> font-lock-multiline t) 346 356 (fontified t face org-code) 356 360  
>> (fontified t face org-code font-lock-multiline t) 360 361  
>> (fontified t face org-code) 361 363 (fontified t) 363 423  
>> (fontified t face org-code) 423 425 (fontified t) 425 428  
>> (fontified t face org-code) 428 431 (fontified t face org-code font- 
>> lock-multiline t) 431 432 (fontified t face org-code) 432 439  
>> (fontified t face org-code) 439 442 (fontified t face org-code) 442  
>> 445 (fontified t face org-code font-lock-multiline t) 445 446  
>> (fontified t face org-code) 446 448 (fontified t) 448 450  
>> (fontified t face org-code) 450 457 (fontified t face org-code font- 
>> lock-multiline t) 457 461 (fontified t face org-code font-lock- 
>> multiline t) 461 462 (fontified t face org-code) 462 476 (fontified  
>> t face org-code) 476 490 (fontified t face org-code) 490 497  
>> (fontified t face org-code) 497 499 (fontified t face org-code font- 
>> lock-multiline t) 499 503 (fontified t face org-code font-lock- 
>> multiline t) 503 504 (fontified t face org-code) 504 518 (fontified  
>> t face org-code) 518 532 (fontified t face org-code) 532 534  
>> (fontified t face org-code) 534 536 (fontified t face org-code font- 
>> lock-multiline t) 536 540 (fontified t face org-code font-lock- 
>> multiline t) 540 541 (fontified t face org-code) 541 545 (fontified  
>> t face org-code font-lock-multiline t) 545 546 (fontified t face  
>> org-code) 546 548 (fontified t) 548 550 (fontified t face org-code)  
>> 550 553 (fontified t face org-code font-lock-multiline t) 553 557  
>> (fontified t face org-code font-lock-multiline t) 557 558  
>> (fontified t face org-code) 558 561 (fontified t face org-code font- 
>> lock-multiline t) 561 565 (fontified t face org-code font-lock- 
>> multiline t) 565 566 (fontified t face org-code) 566 569 (fontified  
>> t face org-code font-lock-multiline t) 569 573 (fontified t face  
>> org-code font-lock-multiline t) 573 574 (fontified t face org-code)  
>> 574 600 (fontified t face org-code) 600 626 (fontified t face org- 
>> code) 626 652 (fontified t face org-code) 652 654 (fontified t face  
>> org-code) 654 657 (fontified t face org-code font-lock-multiline t)  
>> 657 661 (fontified t face org-code font-lock-multiline t) 661 662  
>> (fontified t face org-code) 662 665 (fontified t face org-code font- 
>> lock-multiline t) 665 669 (fontified t face org-code font-lock- 
>> multiline t) 669 670 (fontified t face org-code) 670 673 (fontified  
>> t face org-code font-lock-multiline t) 673 677 (fontified t face  
>> org-code font-lock-multiline t) 677 678 (fontified t face org-code)  
>> 678 680 (fontified t) 680 683 (fontified t face org-code) 683 687  
>> (fontified t face org-code font-lock-multiline t) 687 691  
>> (fontified t face org-code) 691 695 (fontified t face org-code font- 
>> lock-multiline t) 695 697 (fontified t face org-code) 697 699  
>> (fontified t face org-code font-lock-multiline t) 699 703  
>> (fontified t face org-code font-lock-multiline t) 703 704  
>> (fontified t face org-code) 704 728 (fontified t face org-code) 728  
>> 752 (fontified t face org-code) 752 761 (fontified t face org-code)  
>> 761 763 (fontified t face org-code font-lock-multiline t) 763 764  
>> (fontified t face org-code) 764 767 (fontified t face org-code font- 
>> lock-multiline t) 767 769 (fontified t face org-code) 769 771  
>> (fontified t face org-code font-lock-multiline t) 771 775  
>> (fontified t face org-code font-lock-multiline t) 775 776  
>> (fontified t face org-code) 776 778 (fontified t) 778 780  
>> (fontified t face org-code) 780 782 (fontified t face org-code font- 
>> lock-multiline t) 782 786 (fontified t face org-code font-lock- 
>> multiline t) 786 793 (fontified t face org-code) 793 796 (fontified  
>> t face org-code font-lock-multiline t) 796 797 (fontified t face  
>> org-code) 797 800 (fontified t face org-code font-lock-multiline t)  
>> 800 802 (fontified t face org-code) 802 818 (fontified t face org- 
>> code) 818 830 (fontified t face org-code) 830 833 (fontified t face  
>> org-code font-lock-multiline t) 833 836 (fontified t face org-code  
>> font-lock-multiline t) 836 839 (fontified t face org-code font-lock- 
>> multiline t) 839 840 (fontified t face org-code) 840 856 (fontified  
>> t face org-code) 856 858 (fontified t face org-code) 858 860  
>> (fontified t face org-code font-lock-multiline t) 860 864  
>> (fontified t face org-code font-lock-multiline t) 864 870  
>> (fontified t face org-code) 870 872 (fontified t face org-code font- 
>> lock-multiline t) 872 875 (fontified t face org-code) 875 877  
>> (fontified t) 877 894 (fontified t face org-code) 894 898  
>> (fontified t face org-code font-lock-multiline t) 898 899  
>> (fontified t face org-code) 899 921 (fontified t face org-code) 921  
>> 943 (fontified t face org-code) 943 965 (fontified t face org-code)  
>> 965 987 (fontified t face org-code) 987 1009 (fontified t face org- 
>> code) 1009 1031 (fontified t face org-code) 1031 1033 (fontified t  
>> face org-code) 1033 1035 (fontified t face org-code font-lock- 
>> multiline t) 1035 1048 (fontified t face org-code) 1048 1052  
>> (fontified t face org-code font-lock-multiline t) 1052 1053  
>> (fontified t face org-code)) #("ditaa-all-examples.png" 0 22 (face  
>> font-lock-comment-face fontified t)) #("-o" 0 2 (face font-lock- 
>> comment-face fontified t)) #("-E" 0 2 (face font-lock-comment-face  
>> fontified t)))
>>  apply(org-export-blocks-format-ditaa #(": /----\\ /----\\ /----\ 
>> \ /----\\\n: |c33F| |cC02| |c1FF| |c1AB|\n: |    | |    | |    |  
>> |    |\n: \\----/ \\----/ \\----/ \\----/\n:\n: Color codes: 
>> \n: /-------------+-------------\\\n: |cRED RED     |cBLU BLU     | 
>> \n: +-------------+-------------+\n: |cGRE GRE     |cPNK PNK     | 
>> \n: +-------------+-------------+\n: |cBLK BLK     |cYEL YEL     | 
>> \n: \\-------------+-------------/\n:\n: Die Optione -E verhindert  
>> die L\x00fc\ cke zwischen den Bl\x00f6\ cken.\n:\n: /--+\n: |  |\n:  
>> +--/\n:\n: +---------+\n: | cBLU    |\n: |         |\n: |    +----+ 
>> \n: |    |cPNK|\n: |    |    |\n: +----+----+\n:\n: +-----+ +-----+  
>> +-----+\n: |{d}  | |{s}  | |{io} |\n: |     | |     | |     |\n:  
>> |     | |     | |     |\n: +-----+ +-----+ +-----+\n:\n: ---- 
>> +  /----\\  +----+\n:     :  |    |  :    |\n:     |  |    |  |{s} | 
>> \n:     v  \\-=--+  +----+\n:\n: *----*      /--B1--B2\n: |     
>> |      |\n: *    *  -*--+--*--*\n: |    |      |\n: *----*      \\-- 
>> *\n:\n: /-----------------\\\n: | Things to do    |\n: |  
>> cGRE            |\n: | o Cut the grass |\n: | o Buy jam       |\n:  
>> | o Fix car       |\n: | o Make website  |\n: \\-----------------/ 
>> \n" 0 4 (fontified t face org-code) 4 8 (fontified t face org-code  
>> font-lock-multiline t) 8 11 (fontified t face org-code) 11 15  
>> (fontified t face org-code font-lock-multiline t) 15 18 (fontified  
>> t face org-code) 18 22 (fontified t face org-code font-lock- 
>> multiline t) 22 25 (fontified t face org-code) 25 29 (fontified t  
>> face org-code font-lock-multiline t) 29 30 (fontified t face org- 
>> code) 30 60 (fontified t face org-code) 60 90 (fontified t face org- 
>> code) 90 92 (fontified t face org-code) 92 94 (fontified t face org- 
>> code font-lock-multiline t) 94 98 (fontified t face org-code font- 
>> lock-multiline t) 98 99 (fontified t face org-code) 99 101  
>> (fontified t face org-code font-lock-multiline t) 101 105  
>> (fontified t face org-code font-lock-multiline t) 105 106  
>> (fontified t face org-code) 106 108 (fontified t face org-code font- 
>> lock-multiline t) 108 112 (fontified t face org-code font-lock- 
>> multiline t) 112 113 (fontified t face org-code) 113 115 (fontified  
>> t face org-code font-lock-multiline t) 115 119 (fontified t face  
>> org-code font-lock-multiline t) 119 120 (fontified t face org-code)  
>> 120 122 (fontified t) 122 137 (fontified t face org-code) 137 150  
>> (fontified t face org-code) 150 154 (fontified t face org-code font- 
>> lock-multiline t) 154 164 (fontified t face org-code) 164 168  
>> (fontified t face org-code font-lock-multiline t) 168 169  
>> (fontified t face org-code) 169 201 (fontified t face org-code) 201  
>> 203 (fontified t face org-code) 203 214 (fontified t face org-code  
>> font-lock-multiline t) 214 218 (fontified t face org-code font-lock- 
>> multiline t) 218 228 (fontified t face org-code) 228 232 (fontified  
>> t face org-code font-lock-multiline t) 232 233 (fontified t face  
>> org-code) 233 265 (fontified t face org-code) 265 267 (fontified t  
>> face org-code) 267 278 (fontified t face org-code font-lock- 
>> multiline t) 278 282 (fontified t face org-code font-lock-multiline  
>> t) 282 292 (fontified t face org-code) 292 296 (fontified t face  
>> org-code font-lock-multiline t) 296 297 (fontified t face org-code)  
>> 297 329 (fontified t face org-code) 329 331 (fontified t face org- 
>> code) 331 333 (fontified t face org-code font-lock-multiline t) 333  
>> 342 (fontified t face org-code) 342 346 (fontified t face org-code  
>> font-lock-multiline t) 346 356 (fontified t face org-code) 356 360  
>> (fontified t face org-code font-lock-multiline t) 360 361  
>> (fontified t face org-code) 361 363 (fontified t) 363 423  
>> (fontified t face org-code) 423 425 (fontified t) 425 428  
>> (fontified t face org-code) 428 431 (fontified t face org-code font- 
>> lock-multiline t) 431 432 (fontified t face org-code) 432 439  
>> (fontified t face org-code) 439 442 (fontified t face org-code) 442  
>> 445 (fontified t face org-code font-lock-multiline t) 445 446  
>> (fontified t face org-code) 446 448 (fontified t) 448 450  
>> (fontified t face org-code) 450 457 (fontified t face org-code font- 
>> lock-multiline t) 457 461 (fontified t face org-code font-lock- 
>> multiline t) 461 462 (fontified t face org-code) 462 476 (fontified  
>> t face org-code) 476 490 (fontified t face org-code) 490 497  
>> (fontified t face org-code) 497 499 (fontified t face org-code font- 
>> lock-multiline t) 499 503 (fontified t face org-code font-lock- 
>> multiline t) 503 504 (fontified t face org-code) 504 518 (fontified  
>> t face org-code) 518 532 (fontified t face org-code) 532 534  
>> (fontified t face org-code) 534 536 (fontified t face org-code font- 
>> lock-multiline t) 536 540 (fontified t face org-code font-lock- 
>> multiline t) 540 541 (fontified t face org-code) 541 545 (fontified  
>> t face org-code font-lock-multiline t) 545 546 (fontified t face  
>> org-code) 546 548 (fontified t) 548 550 (fontified t face org-code)  
>> 550 553 (fontified t face org-code font-lock-multiline t) 553 557  
>> (fontified t face org-code font-lock-multiline t) 557 558  
>> (fontified t face org-code) 558 561 (fontified t face org-code font- 
>> lock-multiline t) 561 565 (fontified t face org-code font-lock- 
>> multiline t) 565 566 (fontified t face org-code) 566 569 (fontified  
>> t face org-code font-lock-multiline t) 569 573 (fontified t face  
>> org-code font-lock-multiline t) 573 574 (fontified t face org-code)  
>> 574 600 (fontified t face org-code) 600 626 (fontified t face org- 
>> code) 626 652 (fontified t face org-code) 652 654 (fontified t face  
>> org-code) 654 657 (fontified t face org-code font-lock-multiline t)  
>> 657 661 (fontified t face org-code font-lock-multiline t) 661 662  
>> (fontified t face org-code) 662 665 (fontified t face org-code font- 
>> lock-multiline t) 665 669 (fontified t face org-code font-lock- 
>> multiline t) 669 670 (fontified t face org-code) 670 673 (fontified  
>> t face org-code font-lock-multiline t) 673 677 (fontified t face  
>> org-code font-lock-multiline t) 677 678 (fontified t face org-code)  
>> 678 680 (fontified t) 680 683 (fontified t face org-code) 683 687  
>> (fontified t face org-code font-lock-multiline t) 687 691  
>> (fontified t face org-code) 691 695 (fontified t face org-code font- 
>> lock-multiline t) 695 697 (fontified t face org-code) 697 699  
>> (fontified t face org-code font-lock-multiline t) 699 703  
>> (fontified t face org-code font-lock-multiline t) 703 704  
>> (fontified t face org-code) 704 728 (fontified t face org-code) 728  
>> 752 (fontified t face org-code) 752 761 (fontified t face org-code)  
>> 761 763 (fontified t face org-code font-lock-multiline t) 763 764  
>> (fontified t face org-code) 764 767 (fontified t face org-code font- 
>> lock-multiline t) 767 769 (fontified t face org-code) 769 771  
>> (fontified t face org-code font-lock-multiline t) 771 775  
>> (fontified t face org-code font-lock-multiline t) 775 776  
>> (fontified t face org-code) 776 778 (fontified t) 778 780  
>> (fontified t face org-code) 780 782 (fontified t face org-code font- 
>> lock-multiline t) 782 786 (fontified t face org-code font-lock- 
>> multiline t) 786 793 (fontified t face org-code) 793 796 (fontified  
>> t face org-code font-lock-multiline t) 796 797 (fontified t face  
>> org-code) 797 800 (fontified t face org-code font-lock-multiline t)  
>> 800 802 (fontified t face org-code) 802 818 (fontified t face org- 
>> code) 818 830 (fontified t face org-code) 830 833 (fontified t face  
>> org-code font-lock-multiline t) 833 836 (fontified t face org-code  
>> font-lock-multiline t) 836 839 (fontified t face org-code font-lock- 
>> multiline t) 839 840 (fontified t face org-code) 840 856 (fontified  
>> t face org-code) 856 858 (fontified t face org-code) 858 860  
>> (fontified t face org-code font-lock-multiline t) 860 864  
>> (fontified t face org-code font-lock-multiline t) 864 870  
>> (fontified t face org-code) 870 872 (fontified t face org-code font- 
>> lock-multiline t) 872 875 (fontified t face org-code) 875 877  
>> (fontified t) 877 894 (fontified t face org-code) 894 898  
>> (fontified t face org-code font-lock-multiline t) 898 899  
>> (fontified t face org-code) 899 921 (fontified t face org-code) 921  
>> 943 (fontified t face org-code) 943 965 (fontified t face org-code)  
>> 965 987 (fontified t face org-code) 987 1009 (fontified t face org- 
>> code) 1009 1031 (fontified t face org-code) 1031 1033 (fontified t  
>> face org-code) 1033 1035 (fontified t face org-code font-lock- 
>> multiline t) 1035 1048 (fontified t face org-code) 1048 1052  
>> (fontified t face org-code font-lock-multiline t) 1052 1053  
>> (fontified t face org-code)) (#("ditaa-all-examples.png" 0 22 (face  
>> font-lock-comment-face fontified t)) #("-o" 0 2 (face font-lock- 
>> comment-face fontified t)) #("-E" 0 2 (face font-lock-comment-face  
>> fontified t))))
>>  (if (memq type blocks) "" (apply func (match-string 3) (split- 
>> string ... " ")))
>>  (progn (if (memq type blocks) "" (apply func ... ...)))
>>  (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 blocks) "" (apply func ... ...)))
>>  (replace-match (save-match-data (if ... "" ...)) t t)
>>  (if (setf func (cadr ...)) (replace-match (save-match-data ...) t  
>> t))
>>  (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[. 
>> \n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data (setf  
>> type ...)) (unless (memq type types) (setf types ...)) (setf end  
>> (save-match-data ...)) (interblock start end type) (if (setf  
>> func ...) (replace-match ... t t)) (setf start (save-match- 
>> data ...)))
>>  (progn (fset (quote interblock) (function* ...)) (goto-char (point- 
>> min)) (setf start (point)) (while (re-search-forward "^#\\+begin_\\ 
>> (\\S-+\\)[ 	]*\\(.*\\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t)  
>> (save-match-data ...) (unless ... ...) (setf end ...) (interblock  
>> start end type) (if ... ...) (setf start ...)) (mapcar  
>> (lambda ... ...) types))
>>  (unwind-protect (progn (fset ... ...) (goto-char ...) (setf  
>> start ...) (while ... ... ... ... ... ... ...) (mapcar ... types))  
>> (if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
>>  (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind- 
>> protect (progn ... ... ... ... ...) (if --cl-letf-bound-- ... ...)))
>>  (letf ((... ...)) (goto-char (point-min)) (setf start (point))  
>> (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n] 
>> \\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data ...)  
>> (unless ... ...) (setf end ...) (interblock start end type)  
>> (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
>>  (letf* ((... ...)) (goto-char (point-min)) (setf start (point))  
>> (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[.\n] 
>> \\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match-data ...)  
>> (unless ... ...) (setf end ...) (interblock start end type)  
>> (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
>>  (flet ((interblock ... ...)) (goto-char (point-min)) (setf start  
>> (point)) (while (re-search-forward "^#\\+begin_\\(\\S-+\\)[ 	]*\\(.* 
>> \\)?[.\n]\\([^.]*?\\)#\\+end_\\S-*[.\n]" nil t) (save-match- 
>> data ...) (unless ... ...) (setf end ...) (interblock start end  
>> type) (if ... ...) (setf start ...)) (mapcar (lambda ... ...) types))
>>  (let ((count 0) (blocks org-export-blocks-witheld) (case-fold- 
>> search t) (types ...) type func start end) (flet (...) (goto- 
>> char ...) (setf start ...) (while ... ... ... ... ... ... ...)  
>> (mapcar ... types)))
>>  (save-window-excursion (let (... ... ... ... type func start end)  
>> (flet ... ... ... ... ...)))
>>  org-export-blocks-preprocess()
>>  run-hooks(org-export-preprocess-hook)
>>  (save-current-buffer (set-buffer (get-buffer-create " org-mode- 
>> tmp")) (erase-buffer) (insert string) (setq case-fold-search t)  
>> (run-hooks (quote org-export-preprocess-hook)) (org-export-kill- 
>> licensed-text) (let (...) (org-mode)) (setq case-fold-search t)  
>> (untabify (point-min) (point-max)) (org-export-handle-include- 
>> files) (org-export-handle-export-tags (plist-get parameters :select- 
>> tags) (plist-get parameters :exclude-tags)) (org-export-replace-src- 
>> segments) (setq target-alist (org-export-define-heading-targets  
>> target-alist)) (org-export-remove-or-extract-drawers drawers (plist- 
>> get parameters :drawers)) (when (plist-get parameters :skip- 
>> before-1st-heading) (goto-char ...) (when ... ... ... ...)) (when  
>> (plist-get parameters :add-text) (goto-char ...) (insert ... "\n"))  
>> (org-export-remove-archived-trees archived-trees) (org-export- 
>> remove-headline-metadata parameters) (setq target-alist (org-export- 
>> handle-invisible-targets target-alist)) (org-export-protect- 
>> examples (if asciip ... nil)) (org-export-select-backend-specific- 
>> text backend) (org-export-protect-quoted-subtrees) (org-export- 
>> protect-verbatim) (org-export-mark-blockquote-and-verse) (setq  
>> target-alist (org-export-attach-captions-and-attributes backend  
>> target-alist)) (org-export-remove-comment-blocks-and-subtrees) (org- 
>> export-mark-radio-links) (org-export-concatenate-multiline-links)  
>> (org-export-normalize-links) (org-export-target-internal-links  
>> target-alist) (when (plist-get parameters :emph-multiline) (org- 
>> export-concatenate-multiline-emphasis)) (when org-export-table- 
>> remove-special-lines (org-export-remove-special-table-lines)) (when  
>> latexp (require ... nil) (org-export-latex-preprocess)) (when  
>> asciip (org-export-ascii-preprocess)) (when htmlp (org-export-html- 
>> preprocess parameters)) (org-export-handle-comments (plist-get  
>> parameters :comments)) (setq rtn (buffer-string)))
>>  (with-current-buffer (get-buffer-create " org-mode-tmp") (erase- 
>> buffer) (insert string) (setq case-fold-search t) (run-hooks (quote  
>> org-export-preprocess-hook)) (org-export-kill-licensed-text) (let  
>> (...) (org-mode)) (setq case-fold-search t) (untabify (point-min)  
>> (point-max)) (org-export-handle-include-files) (org-export-handle- 
>> export-tags (plist-get parameters :select-tags) (plist-get  
>> parameters :exclude-tags)) (org-export-replace-src-segments) (setq  
>> target-alist (org-export-define-heading-targets target-alist)) (org- 
>> export-remove-or-extract-drawers drawers (plist-get  
>> parameters :drawers)) (when (plist-get parameters :skip-before-1st- 
>> heading) (goto-char ...) (when ... ... ... ...)) (when (plist-get  
>> parameters :add-text) (goto-char ...) (insert ... "\n")) (org- 
>> export-remove-archived-trees archived-trees) (org-export-remove- 
>> headline-metadata parameters) (setq target-alist (org-export-handle- 
>> invisible-targets target-alist)) (org-export-protect-examples (if  
>> asciip ... nil)) (org-export-select-backend-specific-text backend)  
>> (org-export-protect-quoted-subtrees) (org-export-protect-verbatim)  
>> (org-export-mark-blockquote-and-verse) (setq target-alist (org- 
>> export-attach-captions-and-attributes backend target-alist)) (org- 
>> export-remove-comment-blocks-and-subtrees) (org-export-mark-radio- 
>> links) (org-export-concatenate-multiline-links) (org-export- 
>> normalize-links) (org-export-target-internal-links target-alist)  
>> (when (plist-get parameters :emph-multiline) (org-export- 
>> concatenate-multiline-emphasis)) (when org-export-table-remove- 
>> special-lines (org-export-remove-special-table-lines)) (when latexp  
>> (require ... nil) (org-export-latex-preprocess)) (when asciip (org- 
>> export-ascii-preprocess)) (when htmlp (org-export-html-preprocess  
>> parameters)) (org-export-handle-comments (plist-get  
>> parameters :comments)) (setq rtn (buffer-string)))
>>  (let* ((htmlp ...) (asciip ...) (latexp ...) (backend ...)  
>> (archived-trees ...) (inhibit-read-only t) (drawers org-drawers)  
>> (outline-regexp "\\*+ ") target-alist rtn) (setq org-export-target- 
>> aliases nil) (with-current-buffer (get-buffer-create " org-mode- 
>> tmp") (erase-buffer) (insert string) (setq case-fold-search t) (run- 
>> hooks ...) (org-export-kill-licensed-text) (let ... ...) (setq case- 
>> fold-search t) (untabify ... ...) (org-export-handle-include-files)  
>> (org-export-handle-export-tags ... ...) (org-export-replace-src- 
>> segments) (setq target-alist ...) (org-export-remove-or-extract- 
>> drawers drawers ...) (when ... ... ...) (when ... ... ...) (org- 
>> export-remove-archived-trees archived-trees) (org-export-remove- 
>> headline-metadata parameters) (setq target-alist ...) (org-export- 
>> protect-examples ...) (org-export-select-backend-specific-text  
>> backend) (org-export-protect-quoted-subtrees) (org-export-protect- 
>> verbatim) (org-export-mark-blockquote-and-verse) (setq target- 
>> alist ...) (org-export-remove-comment-blocks-and-subtrees) (org- 
>> export-mark-radio-links) (org-export-concatenate-multiline-links)  
>> (org-export-normalize-links) (org-export-target-internal-links  
>> target-alist) (when ... ...) (when org-export-table-remove-special- 
>> lines ...) (when latexp ... ...) (when asciip ...) (when htmlp ...)  
>> (org-export-handle-comments ...) (setq rtn ...)) (kill-buffer " org- 
>> mode-tmp") rtn)
>>  org-export-preprocess-string(#("#+TITLE:     xy.org\n#+AUTHOR:     
>> Sebastian Rose\n#+EMAIL:     nomail@example.com\n\n* First example\n 
>> \n#+begin_ditaa ditaa-all-examples.png -o -E\n: /----\\ /----\ 
>> \ /----\\ /----\\\n: |c33F| |cC02| |c1FF| |c1AB|\n: |    | |    |  
>> |    | |    |\n: \\----/ \\----/ \\----/ \\----/\n:\n: Color codes: 
>> \n: /-------------+-------------\\\n: |cRED RED     |cBLU BLU     | 
>> \n: +-------------+-------------+\n: |cGRE GRE     |cPNK PNK     | 
>> \n: +-------------+-------------+\n: |cBLK BLK     |cYEL YEL     | 
>> \n: \\-------------+-------------/\n:\n: Die Optione -E verhindert  
>> die L\x00fc\ cke zwischen den Bl\x00f6\ cken.\n:\n: /--+\n: |  |\n:  
>> +--/\n:\n: +---------+\n: | cBLU    |\n: |         |\n: |    +----+ 
>> \n: |    |cPNK|\n: |    |    |\n: +----+----+\n:\n: +-----+ +-----+  
>> +-----+\n: |{d}  | |{s}  | |{io} |\n: |     | |     | |     |\n:  
>> |     | |     | |     |\n: +-----+ +-----+ +-----+\n:\n: ---- 
>> +  /----\\  +----+\n:     :  |    |  :    |\n:     |  |    |  |{s} | 
>> \n:     v  \\-=--+  +----+\n:\n: *----*      /--B1--B2\n: |     
>> |      |\n: *    *  -*--+--*--*\n: |    |      |\n: *----*      \\-- 
>> *\n:\n: /-----------------\\\n: | Things to do    |\n: |  
>> cGRE            |\n: | o Cut the grass |\n: | o Buy jam       |\n:  
>> | o Fix car       |\n: | o Make website  |\n: \\-----------------/ 
>> \n#+end_ditaa\n\n* Second example\n\n\n#+begin_ditaa Database.png - 
>> o -E\n: /---------------------\\    /-------------\ 
>> \    /-------------------\\\n: | region_2_zoom  cYEL |    | region  
>> cYEL |    | hotel_2_zoom cYEL |\n: +---------------------+     
>> +-------------+    +-------------------+\n: | id                   
>> |    | id          |    | id                |\n: |  
>> zoom_id             |    | name        |    | zoom_id           | 
>> \n: | region_id           |    \\-------------/    |  
>> hotel_id          |\n: | iX                  |            
>> ^           | hX                |\n: | iY                   
>> |           |           | hY                |\n: |  
>> X1                  |-----------/           \\---------+---------/ 
>> \n: | Y1                  |                                 |\n: |  
>> X2                  |                                 |\n: |  
>> Y2                  |                                 |\n: |  
>> path                |                                 |\n: |  
>> filename            |                                 |\n: \ 
>> \----------+----------/                                 | 
>> \n:            |                                            | 
>> \n:            |                                            | 
>> \n:            \\---------------------*----------------------/ 
>> \n:                                  | 
>> \n:                                  v\n: /------------\ 
>> \             /-----------\\            /-------------\\\n: | row    
>> cYEL |             | zoom cYEL |            | column cYEL |\n:  
>> +------------+             +-----------+            +-------------+ 
>> \n: | id         |             | zoom      |            |  
>> id          |\n: | zoom_id    +------------>| name      | 
>> <-----------+ zoom_id     |\n: | tY         |             \ 
>> \-----------/            | tX          |\n: | pY          
>> |                                      | pX          |\n: | 
>> visible     |                                      | visible     | 
>> \n: \\------------/                                      \ 
>> \-------------/\n:        
>> ^                                                     ^\n:        
>> |                                                     |\n:        
>> |                    /-----------\\                    |\n:        
>> |                    | tile cYEL |                    |\n:        
>> |                    +-----------+                    |\n:        
>> |                    | id        |                    |\n:       \ 
>> \--------------------+ row_id    |                    | 
>> \n:                            | column_id +--------------------/ 
>> \n:                            | filename  | 
>> \n:                            \\-----------/\n#+end_ditaa\n" 0 19  
>> (fontified t face font-lock-comment-face) 19 20 (fontified t) 20 47  
>> (fontified t face font-lock-comment-face) 47 48 (fontified t) 48 70  
>> (fontified t face font-lock-comment-face) 70 75 (fontified t face  
>> font-lock-comment-face font-lock-multiline t) 75 82 (fontified t  
>> face font-lock-comment-face) 82 83 (fontified t) 83 84 (fontified  
>> t) 84 86 (fontified t face org-level-1) 86 99 (fontified t face org- 
>> level-1) 99 100 (fontified t) 100 101 (fontified t) 101 108  
>> (fontified t face font-lock-comment-face) 108 114 (fontified t face  
>> font-lock-comment-face font-lock-multiline t) 114 143 (fontified t  
>> face font-lock-comment-face) 143 144 (fontified t) 144 148  
>> (fontified t face org-code) 148 152 (fontified t face org-code font- 
>> lock-multiline t) 152 155 (fontified t face org-code) 155 159  
>> (fontified t face org-code font-lock-multiline t) 159 162  
>> (fontified t face org-code) 162 166 (fontified t face org-code font- 
>> lock-multiline t) 166 169 (fontified t face org-code) 169 173  
>> (fontified t face org-code font-lock-multiline t) 173 174  
>> (fontified t face org-code) 174 204 (fontified t face org-code) 204  
>> 234 (fontified t face org-code) 234 236 (fontified t face org-code)  
>> 236 238 (fontified t face org-code font-lock-multiline t) 238 242  
>> (fontified t face org-code font-lock-multiline t) 242 243  
>> (fontified t face org-code) 243 245 (fontified t face org-code font- 
>> lock-multiline t) 245 249 (fontified t face org-code font-lock- 
>> multiline t) 249 250 (fontified t face org-code) 250 252 (fontified  
>> t face org-code font-lock-multiline t) 252 256 (fontified t face  
>> org-code font-lock-multiline t) 256 257 (fontified t face org-code)  
>> 257 259 (fontified t face org-code font-lock-multiline t) 259 263  
>> (fontified t face org-code font-lock-multiline t) 263 264  
>> (fontified t face org-code) 264 266 (fontified t) 266 281  
>> (fontified t face org-code) 281 294 (fontified t face org-code) 294  
>> 298 (fontified t face org-code font-lock-multiline t) 298 308  
>> (fontified t face org-code) 308 312 (fontified t face org-code font- 
>> lock-multiline t) 312 313 (fontified t face org-code) 313 345  
>> (fontified t face org-code) 345 347 (fontified t face org-code) 347  
>> 358 (fontified t face org-code font-lock-multiline t) 358 362  
>> (fontified t face org-code font-lock-multiline t) 362 372  
>> (fontified t face org-code) 372 376 (fontified t face org-code font- 
>> lock-multiline t) 376 377 (fontified t face org-code) 377 409  
>> (fontified t face org-code) 409 411 (fontified t face org-code) 411  
>> 422 (fontified t face org-code font-lock-multiline t) 422 426  
>> (fontified t face org-code font-lock-multiline t) 426 436  
>> (fontified t face org-code) 436 440 (fontified t face org-code font- 
>> lock-multiline t) 440 441 (fontified t face org-code) 441 473  
>> (fontified t face org-code) 473 475 (fontified t face org-code) 475  
>> 477 (fontified t face org-code font-lock-multiline t) 477 486  
>> (fontified t face org-code) 486 490 (fontified t face org-code font- 
>> lock-multiline t) 490 500 (fontified t face org-code) 500 504  
>> (fontified t face org-code font-lock-multiline t) 504 505  
>> (fontified t face org-code) 505 507 (fontified t) 507 567  
>> (fontified t face org-code) 567 569 (fontified t) 569 572  
>> (fontified t face org-code) 572 575 (fontified t face org-code font- 
>> lock-multiline t) 575 576 (fontified t face org-code) 576 583  
>> (fontified t face org-code) 583 586 (fontified t face org-code) 586  
>> 589 (fontified t face org-code font-lock-multiline t) 589 590  
>> (fontified t face org-code) 590 592 (fontified t) 592 594  
>> (fontified t face org-code) 594 601 (fontified t face org-code font- 
>> lock-multiline t) 601 605 (fontified t face org-code font-lock- 
>> multiline t) 605 606 (fontified t face org-code) 606 620 (fontified  
>> t face org-code) 620 634 (fontified t face org-code) 634 641  
>> (fontified t face org-code) 641 643 (fontified t face org-code font- 
>> lock-multiline t) 643 647 (fontified t face org-code font-lock- 
>> multiline t) 647 648 (fontified t face org-code) 648 662 (fontified  
>> t face org-code) 662 676 (fontified t face org-code) 676 678  
>> (fontified t face org-code) 678 680 (fontified t face org-code font- 
>> lock-multiline t) 680 684 (fontified t face org-code font-lock- 
>> multiline t) 684 685 (fontified t face org-code) 685 689 (fontified  
>> t face org-code font-lock-multiline t) 689 690 (fontified t face  
>> org-code) 690 692 (fontified t) 692 694 (fontified t face org-code)  
>> 694 697 (fontified t face org-code font-lock-multiline t) 697 701  
>> (fontified t face org-code font-lock-multiline t) 701 702  
>> (fontified t face org-code) 702 705 (fontified t face org-code font- 
>> lock-multiline t) 705 709 (fontified t face org-code font-lock- 
>> multiline t) 709 710 (fontified t face org-code) 710 713 (fontified  
>> t face org-code font-lock-multiline t) 713 717 (fontified t face  
>> org-code font-lock-multiline t) 717 718 (fontified t face org-code)  
>> 718 744 (fontified t face org-code) 744 770 (fontified t face org- 
>> code) 770 796 (fontified t face org-code) 796 798 (fontified t face  
>> org-code) 798 801 (fontified t face org-code font-lock-multiline t)  
>> 801 805 (fontified t face org-code font-lock-multiline t) 805 806  
>> (fontified t face org-code) 806 809 (fontified t face org-code font- 
>> lock-multiline t) 809 813 (fontified t face org-code font-lock- 
>> multiline t) 813 814 (fontified t face org-code) 814 817 (fontified  
>> t face org-code font-lock-multiline t) 817 821 (fontified t face  
>> org-code font-lock-multiline t) 821 822 (fontified t face org-code)  
>> 822 824 (fontified t) 824 827 (fontified t face org-code) 827 831  
>> (fontified t face org-code font-lock-multiline t) 831 835  
>> (fontified t face org-code) 835 839 (fontified t face org-code font- 
>> lock-multiline t) 839 841 (fontified t face org-code) 841 843  
>> (fontified t face org-code font-lock-multiline t) 843 847  
>> (fontified t face org-code font-lock-multiline t) 847 848  
>> (fontified t face org-code) 848 872 (fontified t face org-code) 872  
>> 896 (fontified t face org-code) 896 905 (fontified t face org-code)  
>> 905 907 (fontified t face org-code font-lock-multiline t) 907 908  
>> (fontified t face org-code) 908 911 (fontified t face org-code font- 
>> lock-multiline t) 911 913 (fontified t face org-code) 913 915  
>> (fontified t face org-code font-lock-multiline t) 915 919  
>> (fontified t face org-code font-lock-multiline t) 919 920  
>> (fontified t face org-code) 920 922 (fontified t) 922 924  
>> (fontified t face org-code) 924 926 (fontified t face org-code font- 
>> lock-multiline t) 926 930 (fontified t face org-code font-lock- 
>> multiline t) 930 937 (fontified t face org-code) 937 940 (fontified  
>> t face org-code font-lock-multiline t) 940 941 (fontified t face  
>> org-code) 941 944 (fontified t face org-code font-lock-multiline t)  
>> 944 946 (fontified t face org-code) 946 962 (fontified t face org- 
>> code) 962 974 (fontified t face org-code) 974 977 (fontified t face  
>> org-code font-lock-multiline t) 977 980 (fontified t face org-code  
>> font-lock-multiline t) 980 983 (fontified t face org-code font-lock- 
>> multiline t) 983 984 (fontified t face org-code) 984 1000  
>> (fontified t face org-code) 1000 1002 (fontified t face org-code)  
>> 1002 1004 (fontified t face org-code font-lock-multiline t) 1004  
>> 1008 (fontified t face org-code font-lock-multiline t) 1008 1014  
>> (fontified t face org-code) 1014 1016 (fontified t face org-code  
>> font-lock-multiline t) 1016 1019 (fontified t face org-code) 1019  
>> 1021 (fontified t) 1021 1038 (fontified t face org-code) 1038 1042  
>> (fontified t face org-code font-lock-multiline t) 1042 1043  
>> (fontified t face org-code) 1043 1065 (fontified t face org-code)  
>> 1065 1087 (fontified t face org-code) 1087 1109 (fontified t face  
>> org-code) 1109 1131 (fontified t face org-code) 1131 1153  
>> (fontified t face org-code) 1153 1175 (fontified t face org-code)  
>> 1175 1177 (fontified t face org-code) 1177 1179 (fontified t face  
>> org-code font-lock-multiline t) 1179 1192 (fontified t face org- 
>> code) 1192 1196 (fontified t face org-code font-lock-multiline t)  
>> 1196 1197 (fontified t face org-code) 1197 1202 (fontified t face  
>> font-lock-comment-face) 1202 1208 (fontified t face font-lock- 
>> comment-face font-lock-multiline t) 1208 1209 (fontified t) 1209  
>> 1210 (fontified t) 1210 1212 (fontified t face org-level-1) 1212  
>> 1226 (fontified t face org-level-1) 1226 1227 (fontified t) 1227  
>> 1228 (fontified t) 1228 1229 (fontified t) 1229 1236 (fontified t  
>> face font-lock-comment-face) 1236 1242 (fontified t face font-lock- 
>> comment-face font-lock-multiline t) 1242 1261 (fontified t face  
>> font-lock-comment-face) 1261 1262 (fontified t) 1262 1283  
>> (fontified t face org-code) 1283 1287 (fontified t face org-code  
>> font-lock-multiline t) 1287 1302 (fontified t face org-code) 1302  
>> 1306 (fontified t face org-code font-lock-multiline t) 1306 1327  
>> (fontified t face org-code) 1327 1331 (fontified t face org-code  
>> font-lock-multiline t) 1331 1332 (fontified t face org-code) 1332  
>> 1342 (fontified t face org-code) 1342 1344 (fontified t face org- 
>> code font-lock-multiline t) 1344 1387 (fontified t face org-code)  
>> 1387 1389 (fontified t face org-code font-lock-multiline t) 1389  
>> 1402 (fontified t face org-code) 1402 1404 (fontified t face org- 
>> code) 1404 1423 (fontified t face org-code font-lock-multiline t)  
>> 1423 1427 (fontified t face org-code font-lock-multiline t) 1427  
>> 1431 (fontified t face org-code) 1431 1442 (fontified t face org- 
>> code font-lock-multiline t) 1442 1446 (fontified t face org-code  
>> font-lock-multiline t) 1446 1450 (fontified t face org-code) 1450  
>> 1467 (fontified t face org-code font-lock-multiline t) 1467 1471  
>> (fontified t face org-code font-lock-multiline t) 1471 1472  
>> (fontified t face org-code) 1472 1542 (fontified t face org-code)  
>> 1542 1550 (fontified t face org-code) 1550 1553 (fontified t face  
>> org-code font-lock-multiline t) 1553 1596 (fontified t face org- 
>> code) 1596 1599 (fontified t face org-code font-lock-multiline t)  
>> 1599 1612 (fontified t face org-code) 1612 1622 (fontified t face  
>> org-code) 1622 1625 (fontified t face org-code font-lock-multiline  
>> t) 1625 1641 (fontified t face org-code) 1641 1643 (fontified t  
>> face org-code font-lock-multiline t) 1643 1652 (fontified t face  
>> org-code) 1652 1656 (fontified t face org-code font-lock-multiline  
>> t) 1656 1667 (fontified t face org-code) 1667 1670 (fontified t  
>> face org-code font-lock-multiline t) 1670 1682 (fontified t face  
>> org-code) 1682 1752 (fontified t face org-code) 1752 1822  
>> (fontified t face org-code) 1822 1855 (fontified t face org-code)  
>> 1855 1859 (fontified t face org-code font-lock-multiline t) 1859  
>> 1870 (fontified t face org-code) 1870 1872 (fontified t face org- 
>> code font-lock-multiline t) 1872 1877 (fontified t face org-code)  
>> 1877 1881 (fontified t face org-code font-lock-multiline t) 1881  
>> 1887 (fontified t face org-code) 1887 1891 (fontified t face org- 
>> code font-lock-multiline t) 1891 1892 (fontified t face org-code)  
>> 1892 1952 (fontified t face org-code) 1952 2012 (fontified t face  
>> org-code) 2012 2072 (fontified t face org-code) 2072 2132  
>> (fontified t face org-code) 2132 2192 (fontified t face org-code)  
>> 2192 2194 (fontified t face org-code) 2194 2196 (fontified t face  
>> org-code font-lock-multiline t) 2196 2202 (fontified t face org- 
>> code) 2202 2206 (fontified t face org-code font-lock-multiline t)  
>> 2206 2213 (fontified t face org-code) 2213 2217 (fontified t face  
>> org-code font-lock-multiline t) 2217 2252 (fontified t face org- 
>> code) 2252 2312 (fontified t face org-code) 2312 2372 (fontified t  
>> face org-code) 2372 2385 (fontified t face org-code) 2385 2387  
>> (fontified t face org-code font-lock-multiline t) 2387 2404  
>> (fontified t face org-code) 2404 2408 (fontified t face org-code  
>> font-lock-multiline t) 2408 2427 (fontified t face org-code) 2427  
>> 2431 (fontified t face org-code font-lock-multiline t) 2431 2432  
>> (fontified t face org-code) 2432 2469 (fontified t face org-code)  
>> 2469 2506 (fontified t face org-code) 2506 2518 (fontified t face  
>> org-code) 2518 2522 (fontified t face org-code font-lock-multiline  
>> t) 2522 2544 (fontified t face org-code) 2544 2548 (fontified t  
>> face org-code font-lock-multiline t) 2548 2571 (fontified t face  
>> org-code) 2571 2575 (fontified t face org-code font-lock-multiline  
>> t) 2575 2576 (fontified t face org-code) 2576 2646 (fontified t  
>> face org-code) 2646 2648 (fontified t face org-code) 2648 2658  
>> (fontified t face org-code font-lock-multiline t) 2658 2662  
>> (fontified t face org-code font-lock-multiline t) 2662 2675  
>> (fontified t face org-code) 2675 2684 (fontified t face org-code  
>> font-lock-multiline t) 2684 2688 (fontified t face org-code font- 
>> lock-multiline t) 2688 2700 (fontified t face org-code) 2700 2711  
>> (fontified t face org-code font-lock-multiline t) 2711 2715  
>> (fontified t face org-code font-lock-multiline t) 2715 2716  
>> (fontified t face org-code) 2716 2786 (fontified t face org-code)  
>> 2786 2794 (fontified t face org-code) 2794 2797 (fontified t face  
>> org-code font-lock-multiline t) 2797 2801 (fontified t face org- 
>> code) 2801 2811 (fontified t face org-code font-lock-multiline t)  
>> 2811 2815 (fontified t face org-code font-lock-multiline t) 2815  
>> 2837 (fontified t face org-code font-lock-multiline t) 2837 2841  
>> (fontified t face org-code font-lock-multiline t) 2841 2846  
>> (fontified t face org-code) 2846 2849 (fontified t face org-code  
>> font-lock-multiline t) 2849 2856 (fontified t face org-code) 2856  
>> 2885 (fontified t face org-code) 2885 2887 (fontified t face org- 
>> code font-lock-multiline t) 2887 2894 (fontified t face org-code)  
>> 2894 2898 (fontified t face org-code font-lock-multiline t) 2898  
>> 2926 (fontified t face org-code) 2926 2996 (fontified t face org- 
>> code) 2996 3066 (fontified t face org-code) 3066 3068 (fontified t  
>> face org-code) 3068 3070 (fontified t face org-code font-lock- 
>> multiline t) 3070 3078 (fontified t face org-code) 3078 3082  
>> (fontified t face org-code font-lock-multiline t) 3082 3120  
>> (fontified t face org-code) 3120 3122 (fontified t face org-code  
>> font-lock-multiline t) 3122 3131 (fontified t face org-code) 3131  
>> 3135 (fontified t face org-code font-lock-multiline t) 3135 3136  
>> (fontified t face org-code) 3136 3200 (fontified t face org-code)  
>> 3200 3264 (fontified t face org-code) 3264 3302 (fontified t face  
>> org-code) 3302 3306 (fontified t face org-code font-lock-multiline  
>> t) 3306 3328 (fontified t face org-code) 3328 3392 (fontified t  
>> face org-code) 3392 3421 (fontified t face org-code) 3421 3430  
>> (fontified t face org-code font-lock-multiline t) 3430 3434  
>> (fontified t face org-code font-lock-multiline t) 3434 3456  
>> (fontified t face org-code) 3456 3520 (fontified t face org-code)  
>> 3520 3528 (fontified t face org-code) 3528 3530 (fontified t face  
>> org-code font-lock-multiline t) 3530 3546 (fontified t face org- 
>> code) 3546 3550 (fontified t face org-code font-lock-multiline t)  
>> 3550 3554 (fontified t face org-code) 3554 3557 (fontified t face  
>> org-code font-lock-multiline t) 3557 3584 (fontified t face org- 
>> code) 3584 3621 (fontified t face org-code) 3621 3624 (fontified t  
>> face org-code font-lock-multiline t) 3624 3643 (fontified t face  
>> org-code) 3643 3647 (fontified t face org-code font-lock-multiline  
>> t) 3647 3648 (fontified t face org-code) 3648 3691 (fontified t  
>> face org-code) 3691 3720 (fontified t face org-code) 3720 3722  
>> (fontified t face org-code font-lock-multiline t) 3722 3729  
>> (fontified t face org-code) 3729 3733 (fontified t face org-code  
>> font-lock-multiline t) 3733 3734 (fontified t face org-code) 3734  
>> 3739 (fontified t face font-lock-comment-face) 3739 3744 (fontified  
>> t face font-lock-comment-face font-lock-multiline t) 3744 3745  
>> (rear-nonsticky t fontified t face font-lock-comment-face font-lock- 
>> multiline t) 3745 3746 (fontified t rear-nonsticky t)) :emph- 
>> multiline t :for-html t :skip-before-1st-heading nil :drawers  
>> t :todo-keywords t :tags not-in-toc :priority nil :archived-trees  
>> headline :select-tags ("export") :exclude-tags ("noexport") :add- 
>> text nil :LaTeX-fragments t)
>>  (org-split-string (org-export-preprocess-string region :emph- 
>> multiline t :for-html t :skip-before-1st-heading (plist-get opt- 
>> plist :skip-before-1st-heading) :drawers (plist-get opt- 
>> plist :drawers) :todo-keywords (plist-get opt-plist :todo- 
>> keywords) :tags (plist-get opt-plist :tags) :priority (plist-get  
>> opt-plist :priority) :archived-trees (plist-get opt-plist :archived- 
>> trees) :select-tags (plist-get opt-plist :select-tags) :exclude- 
>> tags (plist-get opt-plist :exclude-tags) :add-text (plist-get opt- 
>> plist :text) :LaTeX-fragments (plist-get opt-plist :LaTeX- 
>> fragments)) "[.\n]")
>>  (let* ((opt-plist ...) (style ...) (html-extension ...) (link- 
>> validate ...) valid thetoc have-headings first-heading-pos (odd org- 
>> odd-levels-only) (region-p ...) (rbeg ...) (rend ...) (subtree- 
>> p ...) (opt-plist ...) (org-current-export-dir ...) (org-current- 
>> export-file buffer-file-name) (level 0) (line "") (origline "") txt  
>> todo (umax nil) (umax-toc nil) (filename ...) (current-dir ...)  
>> (buffer ...) (org-levels-open ...) (date ...) (author ...)  
>> (title ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...)  
>> (inquote nil) (infixed nil) (inverse nil) (in-local-list nil)  
>> (local-list-type nil) (local-list-indent nil) (llt org-plain-list- 
>> ordered-item-terminator) (email ...) (language ...) (lang-words  
>> nil) (head-count 0) cnt (start 0) (coding-system ...) (coding- 
>> system-for-write ...) (save-buffer-coding-system ...)  
>> (charset ...) ...) (let (...) (org-unmodified ...)) (message  
>> "Exporting...") (setq org-min-level (org-get-min-level lines))  
>> (setq org-last-level org-min-level) (org-init-section-numbers)  
>> (cond (... ...) (date) (t ...)) (setq lang-words (or ... ...)) (set- 
>> buffer buffer) (let (...) (erase-buffer)) (fundamental-mode) (and  
>> (fboundp ...) (set-buffer-file-coding-system coding-system-for- 
>> write)) (let (... ...) (mapc ... org-export-plist-vars) (setq  
>> umax ...) (setq umax-toc ...) (unless body-only ... ... ...)  
>> (if ... ...) (setq head-count 0) (org-init-section-numbers) (org- 
>> open-par) (while ... ...) (when inquote ... ...) (when in-local- 
>> list ... ...) (org-html-level-start 1 nil umax ... head-count)  
>> (when ... ...) (save-excursion ... ...) (when footnotes ...)  
>> (unless body-only ... ... ... ...) (unless ... ... ...) (goto- 
>> char ...) (when thetoc ... ... ... ...) (goto-char ...)  
>> (while ... ...) (goto-char ...) (while ... ...) (goto-char ...)  
>> (while ... ...) (goto-char ...) (let ... ...) (or to-buffer ...)  
>> (goto-char ...) (message "Exporting... done") (if ... ... ...)))
>>  org-export-as-html(nil)
>>  call-interactively(org-export-as-html)
>>  (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set- 
>> process-sentinel p ...) (message "Background process \"%s\":  
>> started" p)) (call-interactively (nth 1 ass)))
>>  (let* ((bg ...) (help "[t]   insert the export option template 
>> \n[v]   limit export to visible part of outline tree\n\n[a] export  
>> as ASCII\n\n[h] export as HTML\n[H] export as HTML to temporary  
>> buffer\n[R] export region as HTML\n[b] export as HTML and browse  
>> immediately\n[x] export as XOXO\n\n[l] export as LaTeX\n[p] export  
>> as LaTeX and process to PDF\n[d] export as LaTeX, process to PDF,  
>> and open the resulting PDF document\n[L] export as LaTeX to  
>> temporary buffer\n\n[i] export current file as iCalendar file\n[I]  
>> export all agenda files as iCalendar files\n[c] export agenda files  
>> into combined iCalendar file\n\n[F] publish current file\n[P]  
>> publish current project\n[X] publish... (project will be prompted  
>> for)\n[A] publish all projects") (cmds ...) r1 r2 ass) (save-window- 
>> excursion (delete-other-windows) (with-output-to-temp-buffer "*Org  
>> Export/Publishing Help*" ...) (org-fit-window-to-buffer ...)  
>> (message "Select command: ") (setq r1 ...)) (setq r2 (if ... ...  
>> r1)) (unless (setq ass ...) (error "No command associated with key  
>> %c" r1)) (if (and bg ... ... ...) (let ... ... ...) (call- 
>> interactively ...)))
>>  org-export(nil)
>>  call-interactively(org-export nil nil)
>>
>>
>>
>>
>> Regards,
>>
>>
>> --
>> Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449  
>> Hannover
>> Tel.:  +49 (0)511 - 36 58 472
>> Fax:   +49 (0)1805 - 233633 - 11044
>> mobil: +49 (0)173 - 83 93 417
>> Http:  www.emma-stil.de
>>
>>
>> _______________________________________________
>> 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
>
>
> _______________________________________________
> 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


[-- Attachment #1.2: Type: text/html, Size: 78843 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2008-12-19  8:40 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-12-19  0:32 org-exp-blocks.el Sebastian Rose
2008-12-19  3:10 ` org-exp-blocks.el Eric Schulte
2008-12-19  8:39   ` org-exp-blocks.el Carsten Dominik

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).