From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Eric Schulte" Subject: Re: org-exp-blocks.el Date: Thu, 18 Dec 2008 22:10:01 -0500 Message-ID: <874p10x3li.fsf@gmail.com> References: <874p113syg.fsf@kassiopeya.MSHEIMNETZ> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LDVke-0005qI-T8 for emacs-orgmode@gnu.org; Thu, 18 Dec 2008 22:10:08 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LDVkd-0005pk-5S for emacs-orgmode@gnu.org; Thu, 18 Dec 2008 22:10:08 -0500 Received: from [199.232.76.173] (port=56424 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LDVkd-0005pg-32 for emacs-orgmode@gnu.org; Thu, 18 Dec 2008 22:10:07 -0500 Received: from mail-gx0-f16.google.com ([209.85.217.16]:54423) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1LDVkc-0008E8-5H for emacs-orgmode@gnu.org; Thu, 18 Dec 2008 22:10:06 -0500 Received: by gxk9 with SMTP id 9so149392gxk.18 for ; Thu, 18 Dec 2008 19:10:05 -0800 (PST) In-Reply-To: <874p113syg.fsf@kassiopeya.MSHEIMNETZ> (Sebastian Rose's message of "Fri, 19 Dec 2008 01:32:39 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Sebastian Rose Cc: emacs-orgmode Org-Mode Sebastian Rose 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 argumen= ts." > (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 >=20=20=20=20 > #+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=C3=BCcke zwischen den Bl=C3=B6cken. > #+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 >=20=20=20=20 > #+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=C3=BCcke zwischen den Bl=C3=B6cken. > #+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-multili= ne t face org-code fontified t) 15 18 (face org-code fontified t) 18 22 (fo= nt-lock-multiline t face org-code fontified t) 22 25 (face org-code fontifi= ed 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 fon= tified t) 18 22 (font-lock-multiline t face org-code fontified t) 22 23 (fa= ce org-code fontified t) 23 25 (font-lock-multiline t face org-code fontifi= ed t) 25 29 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (f= ontified t)) #(": Color codes:" 0 14 (face org-code fontified t)) #(": /---= ----------+-------------\\" 0 13 (face org-code fontified t) 13 17 (font-lo= ck-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 f= ace org-code fontified t) 13 17 (font-lock-multiline t face org-code fontif= ied 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-c= ode fontified t)) #(": +-------------+-------------+" 0 2 (face org-code fo= ntified t) 2 13 (font-lock-multiline t face org-code fontified t) 13 17 (fo= nt-lock-multiline t face org-code fontified t) 17 27 (face org-code fontifi= ed t) 27 31 (font-lock-multiline t face org-code fontified t)) #(": |cBLK B= LK |cYEL YEL |" 0 31 (face org-code fontified t)) #(": \\----------= ---+-------------/" 0 2 (face org-code fontified t) 2 4 (font-lock-multilin= e 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 (fon= tified 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 or= g-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 f= ontified 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 (fo= nt-lock-multiline t face org-code fontified t)) #(": | cBLU |" 0 13 (fac= e org-code fontified t)) #(": | |" 0 13 (face org-code fontified t)= ) #(": | +----+" 0 7 (face org-code fontified t) 7 9 (font-lock-multilin= e t face org-code fontified t) 9 13 (font-lock-multiline t face org-code fo= ntified t)) #(": | |cPNK|" 0 13 (face org-code fontified t)) #(": | |= |" 0 13 (face org-code fontified t)) #(": +----+----+" 0 2 (face org-co= de 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 fontifi= ed t) 9 13 (font-lock-multiline t face org-code fontified t)) #(":" 0 1 (fo= ntified t)) #(": +-----+ +-----+ +-----+" 0 2 (face org-code fontified t) 2= 5 (font-lock-multiline t face org-code fontified t) 5 9 (font-lock-multili= ne t face org-code fontified t) 9 10 (face org-code fontified t) 10 13 (fon= t-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-lo= ck-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 f= ontified 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-multili= ne t face org-code fontified t) 5 9 (font-lock-multiline t face org-code fo= ntified t) 9 10 (face org-code fontified t) 10 13 (font-lock-multiline t fa= ce org-code fontified t) 13 17 (font-lock-multiline t face org-code fontifi= ed t) 17 18 (face org-code fontified t) 18 21 (font-lock-multiline t face o= rg-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 (f= ace org-code fontified t) 11 15 (font-lock-multiline t face org-code fontif= ied 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 \\-=3D--+ = +----+" 0 9 (face org-code fontified t) 9 11 (font-lock-multiline t face o= rg-code fontified t) 11 12 (face org-code fontified t) 12 15 (font-lock-mul= tiline 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-multili= ne 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-cod= e 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 font= ified t) 15 18 (font-lock-multiline t face org-code fontified t) 18 21 (fon= t-lock-multiline t face org-code fontified t)) #(": | | |" 0 15 (fa= ce org-code fontified t)) #(": *----* \\--*" 0 2 (face org-code fontif= ied 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 (fac= e org-code fontified t) 17 21 (font-lock-multiline t face org-code fontifie= d t)) #(": | Things to do |" 0 21 (face org-code fontified t)) #(": | cG= RE |" 0 21 (face org-code fontified t)) #(": | o Cut the grass |= " 0 21 (face org-code fontified t)) #(": | o Buy jam |" 0 21 (face or= g-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 |cYE= L YEL |\n: \\-------------+-------------/\n:\n: Die Optione -E verhinde= rt die L\x00fc\ cke zwischen den Bl\x00f6\ cken.\n:\n: /--+\n: | |\n: +--/= \n:\n: +---------+\n: | cBLU |\n: | |\n: | +----+\n: | |cP= NK|\n: | | |\n: +----+----+\n:\n: +-----+ +-----+ +-----+\n: |{d} | = |{s} | |{io} |\n: | | | | | |\n: | | | | | |\n: +-= ----+ +-----+ +-----+\n:\n: ----+ /----\\ +----+\n: : | | : |= \n: | | | |{s} |\n: v \\-=3D--+ +----+\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 o= rg-code) 4 8 (fontified t face org-code font-lock-multiline t) 8 11 (fontif= ied 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-l= ock-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 (fo= ntified 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) 9= 4 98 (fontified t face org-code font-lock-multiline t) 98 99 (fontified t f= ace 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) 10= 8 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 (fontifie= d 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 fo= nt-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) 20= 3 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 (fontifie= d 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) 2= 78 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) 32= 9 331 (fontified t face org-code) 331 333 (fontified t face org-code font-l= ock-multiline t) 333 342 (fontified t face org-code) 342 346 (fontified t f= ace 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) 4= 23 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) 44= 2 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 (fontifie= d 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) 4= 90 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) 51= 8 532 (fontified t face org-code) 532 534 (fontified t face org-code) 534 5= 36 (fontified t face org-code font-lock-multiline t) 536 540 (fontified t f= ace 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) 5= 50 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 (fontifi= ed t face org-code font-lock-multiline t) 565 566 (fontified t face org-cod= e) 566 569 (fontified t face org-code font-lock-multiline t) 569 573 (fonti= fied t face org-code font-lock-multiline t) 573 574 (fontified t face org-c= ode) 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) 6= 54 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 (fontifi= ed t face org-code font-lock-multiline t) 669 670 (fontified t face org-cod= e) 670 673 (fontified t face org-code font-lock-multiline t) 673 677 (fonti= fied t face org-code font-lock-multiline t) 677 678 (fontified t face org-c= ode) 678 680 (fontified t) 680 683 (fontified t face org-code) 683 687 (fon= tified 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 (f= ontified t face org-code) 697 699 (fontified t face org-code font-lock-mult= iline 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 (fo= ntified t face org-code) 752 761 (fontified t face org-code) 761 763 (fonti= fied t face org-code font-lock-multiline t) 763 764 (fontified t face org-c= ode) 764 767 (fontified t face org-code font-lock-multiline t) 767 769 (fon= tified t face org-code) 769 771 (fontified t face org-code font-lock-multil= ine t) 771 775 (fontified t face org-code font-lock-multiline t) 775 776 (f= ontified t face org-code) 776 778 (fontified t) 778 780 (fontified t face o= rg-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 79= 7 (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-m= ultiline t) 836 839 (fontified t face org-code font-lock-multiline t) 839 8= 40 (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-mu= ltiline t) 860 864 (fontified t face org-code font-lock-multiline t) 864 87= 0 (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-loc= k-multiline t) 898 899 (fontified t face org-code) 899 921 (fontified t fac= e org-code) 921 943 (fontified t face org-code) 943 965 (fontified t face o= rg-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 or= g-code) 1033 1035 (fontified t face org-code font-lock-multiline t) 1035 10= 48 (fontified t face org-code) 1048 1052 (fontified t face org-code font-lo= ck-multiline t) 1052 1053 (fontified t face org-code)) #("ditaa-all-example= s.png" 0 22 (face font-lock-comment-face fontified t)) #("-o" 0 2 (face fon= t-lock-comment-face fontified t)) #("-E" 0 2 (face font-lock-comment-face f= ontified 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: |cG= RE GRE |cPNK PNK |\n: +-------------+-------------+\n: |cBLK BLK = |cYEL YEL |\n: \\-------------+-------------/\n:\n: Die Optione -E ve= rhindert 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 \\-=3D--+ +----+\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-multi= line 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 (fon= tified t face org-code) 92 94 (fontified t face org-code font-lock-multilin= e t) 94 98 (fontified t face org-code font-lock-multiline t) 98 99 (fontifi= ed 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 (fontif= ied 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 (font= ified t face org-code) 113 115 (fontified t face org-code font-lock-multili= ne t) 115 119 (fontified t face org-code font-lock-multiline t) 119 120 (fo= ntified t face org-code) 120 122 (fontified t) 122 137 (fontified t face or= g-code) 137 150 (fontified t face org-code) 150 154 (fontified t face org-c= ode font-lock-multiline t) 154 164 (fontified t face org-code) 164 168 (fon= tified 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-co= de) 203 214 (fontified t face org-code font-lock-multiline t) 214 218 (font= ified 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 (fo= ntified t face org-code) 233 265 (fontified t face org-code) 265 267 (fonti= fied t face org-code) 267 278 (fontified t face org-code font-lock-multilin= e t) 278 282 (fontified t face org-code font-lock-multiline t) 282 292 (fon= tified t face org-code) 292 296 (fontified t face org-code font-lock-multil= ine t) 296 297 (fontified t face org-code) 297 329 (fontified t face org-co= de) 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 (fontifi= ed t face org-code font-lock-multiline t) 346 356 (fontified t face org-cod= e) 356 360 (fontified t face org-code font-lock-multiline t) 360 361 (fonti= fied t face org-code) 361 363 (fontified t) 363 423 (fontified t face org-c= ode) 423 425 (fontified t) 425 428 (fontified t face org-code) 428 431 (fon= tified 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-co= de) 442 445 (fontified t face org-code font-lock-multiline t) 445 446 (font= ified 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 (fo= ntified t face org-code font-lock-multiline t) 461 462 (fontified t face or= g-code) 462 476 (fontified t face org-code) 476 490 (fontified t face org-c= ode) 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-multil= ine t) 503 504 (fontified t face org-code) 504 518 (fontified t face org-co= de) 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 (fontifi= ed t face org-code font-lock-multiline t) 540 541 (fontified t face org-cod= e) 541 545 (fontified t face org-code font-lock-multiline t) 545 546 (fonti= fied t face org-code) 546 548 (fontified t) 548 550 (fontified t face org-c= ode) 550 553 (fontified t face org-code font-lock-multiline t) 553 557 (fon= tified 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 (f= ontified t face org-code font-lock-multiline t) 565 566 (fontified t face o= rg-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 or= g-code) 626 652 (fontified t face org-code) 652 654 (fontified t face org-c= ode) 654 657 (fontified t face org-code font-lock-multiline t) 657 661 (fon= tified 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 (f= ontified t face org-code font-lock-multiline t) 669 670 (fontified t face o= rg-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 68= 7 (fontified t face org-code font-lock-multiline t) 687 691 (fontified t fa= ce 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-loc= k-multiline t) 699 703 (fontified t face org-code font-lock-multiline t) 70= 3 704 (fontified t face org-code) 704 728 (fontified t face org-code) 728 7= 52 (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 76= 9 (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) 78= 2 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 fa= ce 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) 85= 6 858 (fontified t face org-code) 858 860 (fontified t face org-code font-l= ock-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 fo= nt-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 fa= ce org-code) 1009 1031 (fontified t face org-code) 1031 1033 (fontified t f= ace org-code) 1033 1035 (fontified t face org-code font-lock-multiline t) 1= 035 1048 (fontified t face org-code) 1048 1052 (fontified t face org-code f= ont-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 (f= ace 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 ...)) (unle= ss (memq type types) (setf types ...)) (setf end (save-match-data ...)) (in= terblock 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 (lamb= da ... ...) 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 (lam= bda ... ...) 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 ...)) (m= apcar (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 o= rg-export-preprocess-hook)) (org-export-kill-licensed-text) (let (...) (org= -mode)) (setq case-fold-search t) (untabify (point-min) (point-max)) (org-e= xport-handle-include-files) (org-export-handle-export-tags (plist-get param= eters :select-tags) (plist-get parameters :exclude-tags)) (org-export-repla= ce-src-segments) (setq target-alist (org-export-define-heading-targets targ= et-alist)) (org-export-remove-or-extract-drawers drawers (plist-get paramet= ers :drawers)) (when (plist-get parameters :skip-before-1st-heading) (goto-= char ...) (when ... ... ... ...)) (when (plist-get parameters :add-text) (g= oto-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-ex= amples (if asciip ... nil)) (org-export-select-backend-specific-text backen= d) (org-export-protect-quoted-subtrees) (org-export-protect-verbatim) (org-= export-mark-blockquote-and-verse) (setq target-alist (org-export-attach-cap= tions-and-attributes backend target-alist)) (org-export-remove-comment-bloc= ks-and-subtrees) (org-export-mark-radio-links) (org-export-concatenate-mult= iline-links) (org-export-normalize-links) (org-export-target-internal-links= target-alist) (when (plist-get parameters :emph-multiline) (org-export-con= catenate-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)) (whe= n htmlp (org-export-html-preprocess parameters)) (org-export-handle-comment= s (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-pre= process-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-segmen= ts) (setq target-alist (org-export-define-heading-targets target-alist)) (o= rg-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)= ) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (wh= en ... ... ... ...)) (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 as= ciip ... nil)) (org-export-select-backend-specific-text backend) (org-expor= t-protect-quoted-subtrees) (org-export-protect-verbatim) (org-export-mark-b= lockquote-and-verse) (setq target-alist (org-export-attach-captions-and-att= ributes backend target-alist)) (org-export-remove-comment-blocks-and-subtre= es) (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-mult= iline-emphasis)) (when org-export-table-remove-special-lines (org-export-re= move-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-tr= ees ...) (inhibit-read-only t) (drawers org-drawers) (outline-regexp "\\*+ = ") target-alist rtn) (setq org-export-target-aliases nil) (with-current-buf= fer (get-buffer-create " org-mode-tmp") (erase-buffer) (insert string) (set= q case-fold-search t) (run-hooks ...) (org-export-kill-licensed-text) (let = ... ...) (setq case-fold-search t) (untabify ... ...) (org-export-handle-in= clude-files) (org-export-handle-export-tags ... ...) (org-export-replace-sr= c-segments) (setq target-alist ...) (org-export-remove-or-extract-drawers d= rawers ...) (when ... ... ...) (when ... ... ...) (org-export-remove-archiv= ed-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-e= xport-protect-verbatim) (org-export-mark-blockquote-and-verse) (setq target= -alist ...) (org-export-remove-comment-blocks-and-subtrees) (org-export-mar= k-radio-links) (org-export-concatenate-multiline-links) (org-export-normali= ze-links) (org-export-target-internal-links target-alist) (when ... ...) (w= hen 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: Sebas= tian Rose\n#+EMAIL: nomail@example.com\n\n* First example\n\n#+begin_di= taa ditaa-all-examples.png -o -E\n: /----\\ /----\\ /----\\ /----\\\n: |c33= F| |cC02| |c1FF| |c1AB|\n: | | | | | | | |\n: \\----/ \\----/ \= \----/ \\----/\n:\n: Color codes:\n: /-------------+-------------\\\n: |cRE= D RED |cBLU BLU |\n: +-------------+-------------+\n: |cGRE GRE = |cPNK PNK |\n: +-------------+-------------+\n: |cBLK BLK |cYEL YE= L |\n: \\-------------+-------------/\n:\n: Die Optione -E verhindert d= ie 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 \\-=3D--+ +----+\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 examp= le\n\n\n#+begin_ditaa Database.png -o -E\n: /---------------------\\ /--= -----------\\ /-------------------\\\n: | region_2_zoom cYEL | | reg= ion 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 cY= EL | | column cYEL |\n: +------------+ +-----------+= +-------------+\n: | id | | zoom | = | id |\n: | zoom_id +------------>| name |<-------= ----+ zoom_id |\n: | tY | \\-----------/ = | tX |\n: | pY | | p= X |\n: |visible | | visib= le |\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) 4= 7 48 (fontified t) 48 70 (fontified t face font-lock-comment-face) 70 75 (f= ontified t face font-lock-comment-face font-lock-multiline t) 75 82 (fontif= ied 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) 9= 9 100 (fontified t) 100 101 (fontified t) 101 108 (fontified t face font-lo= ck-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 (fo= ntified t) 144 148 (fontified t face org-code) 148 152 (fontified t face or= g-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-m= ultiline t) 173 174 (fontified t face org-code) 174 204 (fontified t face o= rg-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 (fo= ntified t face org-code font-lock-multiline t) 242 243 (fontified t face or= g-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 fac= e org-code) 257 259 (fontified t face org-code font-lock-multiline t) 259 2= 63 (fontified t face org-code font-lock-multiline t) 263 264 (fontified t f= ace 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-lo= ck-multiline t) 298 308 (fontified t face org-code) 308 312 (fontified t fa= ce 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 fac= e org-code font-lock-multiline t) 362 372 (fontified t face org-code) 372 3= 76 (fontified t face org-code font-lock-multiline t) 376 377 (fontified t f= ace 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 42= 6 (fontified t face org-code font-lock-multiline t) 426 436 (fontified t fa= ce 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-m= ultiline t) 477 486 (fontified t face org-code) 486 490 (fontified t face o= rg-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 56= 9 (fontified t) 569 572 (fontified t face org-code) 572 575 (fontified t fa= ce 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 fac= e org-code) 590 592 (fontified t) 592 594 (fontified t face org-code) 594 6= 01 (fontified t face org-code font-lock-multiline t) 601 605 (fontified t f= ace 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 64= 1 (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 (f= ontified t face org-code font-lock-multiline t) 680 684 (fontified t face o= rg-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 69= 7 (fontified t face org-code font-lock-multiline t) 697 701 (fontified t fa= ce 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) 71= 0 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 80= 1 (fontified t face org-code font-lock-multiline t) 801 805 (fontified t fa= ce 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) 81= 4 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 (fontifie= d 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 (fontif= ied 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 (font= ified t face org-code) 848 872 (fontified t face org-code) 872 896 (fontifi= ed 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 (fontifie= d 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 (fontif= ied t face org-code) 920 922 (fontified t) 922 924 (fontified t face org-co= de) 924 926 (fontified t face org-code font-lock-multiline t) 926 930 (font= ified 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 (fo= ntified t face org-code) 941 944 (fontified t face org-code font-lock-multi= line t) 944 946 (fontified t face org-code) 946 962 (fontified t face org-c= ode) 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-multil= ine t) 980 983 (fontified t face org-code font-lock-multiline t) 983 984 (f= ontified t face org-code) 984 1000 (fontified t face org-code) 1000 1002 (f= ontified t face org-code) 1002 1004 (fontified t face org-code font-lock-mu= ltiline 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 (fontifi= ed 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 106= 5 (fontified t face org-code) 1065 1087 (fontified t face org-code) 1087 11= 09 (fontified t face org-code) 1109 1131 (fontified t face org-code) 1131 1= 153 (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 (fontifie= d t face org-code font-lock-multiline t) 1196 1197 (fontified t face org-co= de) 1197 1202 (fontified t face font-lock-comment-face) 1202 1208 (fontifie= d 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 1= 226 (fontified t face org-level-1) 1226 1227 (fontified t) 1227 1228 (fonti= fied t) 1228 1229 (fontified t) 1229 1236 (fontified t face font-lock-comme= nt-face) 1236 1242 (fontified t face font-lock-comment-face font-lock-multi= line t) 1242 1261 (fontified t face font-lock-comment-face) 1261 1262 (font= ified 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-co= de) 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-m= ultiline t) 1389 1402 (fontified t face org-code) 1402 1404 (fontified t fa= ce org-code) 1404 1423 (fontified t face org-code font-lock-multiline t) 14= 23 1427 (fontified t face org-code font-lock-multiline t) 1427 1431 (fontif= ied t face org-code) 1431 1442 (fontified t face org-code font-lock-multili= ne 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) 1= 471 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 (fon= tified t face org-code font-lock-multiline t) 1599 1612 (fontified t face o= rg-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-co= de 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 f= ace org-code font-lock-multiline t) 1872 1877 (fontified t face org-code) 1= 877 1881 (fontified t face org-code font-lock-multiline t) 1881 1887 (fonti= fied t face org-code) 1887 1891 (fontified t face org-code font-lock-multil= ine t) 1891 1892 (fontified t face org-code) 1892 1952 (fontified t face or= g-code) 1952 2012 (fontified t face org-code) 2012 2072 (fontified t face o= rg-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 (fontifie= d 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-c= ode) 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 (fo= ntified 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-c= ode font-lock-multiline t) 2684 2688 (fontified t face org-code font-lock-m= ultiline t) 2688 2700 (fontified t face org-code) 2700 2711 (fontified t fa= ce org-code font-lock-multiline t) 2711 2715 (fontified t face org-code fon= t-lock-multiline t) 2715 2716 (fontified t face org-code) 2716 2786 (fontif= ied t face org-code) 2786 2794 (fontified t face org-code) 2794 2797 (fonti= fied 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 281= 5 (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 f= ont-lock-multiline t) 2841 2846 (fontified t face org-code) 2846 2849 (font= ified t face org-code font-lock-multiline t) 2849 2856 (fontified t face or= g-code) 2856 2885 (fontified t face org-code) 2885 2887 (fontified t face o= rg-code font-lock-multiline t) 2887 2894 (fontified t face org-code) 2894 2= 898 (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 (fontifie= d t face org-code font-lock-multiline t) 3070 3078 (fontified t face org-co= de) 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-m= ultiline t) 3122 3131 (fontified t face org-code) 3131 3135 (fontified t fa= ce org-code font-lock-multiline t) 3135 3136 (fontified t face org-code) 31= 36 3200 (fontified t face org-code) 3200 3264 (fontified t face org-code) 3= 264 3302 (fontified t face org-code) 3302 3306 (fontified t face org-code f= ont-lock-multiline t) 3306 3328 (fontified t face org-code) 3328 3392 (font= ified t face org-code) 3392 3421 (fontified t face org-code) 3421 3430 (fon= tified t face org-code font-lock-multiline t) 3430 3434 (fontified t face o= rg-code font-lock-multiline t) 3434 3456 (fontified t face org-code) 3456 3= 520 (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-co= de 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-m= ultiline t) 3624 3643 (fontified t face org-code) 3643 3647 (fontified t fa= ce org-code font-lock-multiline t) 3647 3648 (fontified t face org-code) 36= 48 3691 (fontified t face org-code) 3691 3720 (fontified t face org-code) 3= 720 3722 (fontified t face org-code font-lock-multiline t) 3722 3729 (fonti= fied t face org-code) 3729 3733 (fontified t face org-code font-lock-multil= ine t) 3733 3734 (fontified t face org-code) 3734 3739 (fontified t face fo= nt-lock-comment-face) 3739 3744 (fontified t face font-lock-comment-face fo= nt-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 :se= lect-tags ("export") :exclude-tags ("noexport") :add-text nil :LaTeX-fragme= nts 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-1s= t-heading) :drawers (plist-get opt-plist :drawers) :todo-keywords (plist-ge= t opt-plist :todo-keywords) :tags (plist-get opt-plist :tags) :priority (pl= ist-get opt-plist :priority) :archived-trees (plist-get opt-plist :archived= -trees) :select-tags (plist-get opt-plist :select-tags) :exclude-tags (plis= t-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) (emai= l ...) (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-m= in-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq = lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer)) (fu= ndamental-mode) (and (fboundp ...) (set-buffer-file-coding-system coding-sy= stem-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 ... ...) (w= hen inquote ... ...) (when in-local-list ... ...) (org-html-level-start 1 n= il umax ... head-count) (when ... ...) (save-excursion ... ...) (when footn= otes ...) (unless body-only ... ... ... ...) (unless ... ... ...) (goto-cha= r ...) (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-se= ntinel p ...) (message "Background process \"%s\": started" p)) (call-inter= actively (nth 1 ass))) > (let* ((bg ...) (help "[t] insert the export option template\n[v] l= imit export to visible part of outline tree\n\n[a] export as ASCII\n\n[h] e= xport 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 LaT= eX, process to PDF, and open the resulting PDF document\n[L] export as LaTe= X to temporary buffer\n\n[i] export current file as iCalendar file\n[I] exp= ort all agenda files as iCalendar files\n[c] export agenda files into combi= ned 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-t= o-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