[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] org-exp-blocks.el
From: |
Sebastian Rose |
Subject: |
[Orgmode] org-exp-blocks.el |
Date: |
Fri, 19 Dec 2008 01:32:39 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux) |
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: address@hidden 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
- [Orgmode] org-exp-blocks.el,
Sebastian Rose <=