| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 63 72 65 6f 6c 65 2d 32 30 31 34 30 39 32 34 2e 31 35 30 30 2f 00 00 00 00 00 00 00 00 00 00 00 | creole-20140924.1500/........... |
| 0020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0060 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0080 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 32 35 35 00 20 35 00 00 00 | 0000000.00000000000.012255..5... |
| 00a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0200 | 63 72 65 6f 6c 65 2d 32 30 31 34 30 39 32 34 2e 31 35 30 30 2f 63 72 65 6f 6c 65 2d 70 6b 67 2e | creole-20140924.1500/creole-pkg. |
| 0220 | 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | el.............................. |
| 0240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0280 | 30 30 30 30 37 32 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 36 33 32 00 20 30 00 00 00 | 0000724.00000000000.014632..0... |
| 02a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0400 | 3b 3b 20 2d 2a 2d 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 3b 20 6c 65 78 69 63 | ;;.-*-.no-byte-compile:.t;.lexic |
| 0420 | 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 6e 69 6c 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b | al-binding:.nil.-*-.(define-pack |
| 0440 | 61 67 65 20 22 63 72 65 6f 6c 65 22 20 22 32 30 31 34 30 39 32 34 2e 31 35 30 30 22 0a 20 20 22 | age."creole"."20140924.1500"..." |
| 0460 | 41 20 70 61 72 73 65 72 20 66 6f 72 20 74 68 65 20 43 72 65 6f 6c 65 20 57 69 6b 69 20 6c 61 6e | A.parser.for.the.Creole.Wiki.lan |
| 0480 | 67 75 61 67 65 2e 22 0a 20 20 27 28 28 6e 6f 66 6c 65 74 20 22 30 2e 30 2e 33 22 29 0a 20 20 20 | guage."...'((noflet."0.0.3").... |
| 04a0 | 20 28 6b 76 20 20 20 20 20 22 30 2e 30 2e 31 37 22 29 29 0a 20 20 3a 75 72 6c 20 22 68 74 74 70 | .(kv....."0.0.17"))...:url."http |
| 04c0 | 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6e 69 63 66 65 72 72 69 65 72 2f 65 6c 77 69 6b 69 | s://github.com/nicferrier/elwiki |
| 04e0 | 63 72 65 6f 6c 65 22 0a 20 20 3a 63 6f 6d 6d 69 74 20 22 37 64 35 63 66 66 65 39 33 38 35 37 66 | creole"...:commit."7d5cffe93857f |
| 0500 | 36 63 37 35 63 61 30 39 61 63 37 39 63 30 65 34 37 62 38 64 34 34 31 30 65 35 33 22 0a 20 20 3a | 6c75ca09ac79c0e47b8d4410e53"...: |
| 0520 | 72 65 76 64 65 73 63 20 22 37 64 35 63 66 66 65 39 33 38 35 37 22 0a 20 20 3a 6b 65 79 77 6f 72 | revdesc."7d5cffe93857"...:keywor |
| 0540 | 64 73 20 27 28 22 6c 69 73 70 22 20 22 63 72 65 6f 6c 65 22 20 22 77 69 6b 69 22 29 0a 20 20 3a | ds.'("lisp"."creole"."wiki")...: |
| 0560 | 61 75 74 68 6f 72 73 20 27 28 28 22 4e 69 63 20 46 65 72 72 69 65 72 22 20 2e 20 22 6e 66 65 72 | authors.'(("Nic.Ferrier"..."nfer |
| 0580 | 72 69 65 72 40 66 65 72 72 69 65 72 2e 6d 65 2e 75 6b 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 | rier@ferrier.me.uk"))...:maintai |
| 05a0 | 6e 65 72 73 20 27 28 28 22 4e 69 63 20 46 65 72 72 69 65 72 22 20 2e 20 22 6e 66 65 72 72 69 65 | ners.'(("Nic.Ferrier"..."nferrie |
| 05c0 | 72 40 66 65 72 72 69 65 72 2e 6d 65 2e 75 6b 22 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 | r@ferrier.me.uk")))............. |
| 05e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0600 | 63 72 65 6f 6c 65 2d 32 30 31 34 30 39 32 34 2e 31 35 30 30 2f 63 72 65 6f 6c 65 2e 65 6c 00 00 | creole-20140924.1500/creole.el.. |
| 0620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0680 | 30 32 30 32 36 37 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 30 36 31 00 20 30 00 00 00 | 0202672.00000000000.014061..0... |
| 06a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0800 | 3b 3b 3b 20 63 72 65 6f 6c 65 2e 65 6c 20 2d 2d 2d 20 41 20 70 61 72 73 65 72 20 66 6f 72 20 74 | ;;;.creole.el.---.A.parser.for.t |
| 0820 | 68 65 20 43 72 65 6f 6c 65 20 57 69 6b 69 20 6c 61 6e 67 75 61 67 65 0a 0a 3b 3b 3b 20 43 6f 70 | he.Creole.Wiki.language..;;;.Cop |
| 0840 | 79 72 69 67 68 74 20 28 43 29 20 32 30 31 31 2c 20 32 30 31 32 20 62 79 20 4e 69 63 20 46 65 72 | yright.(C).2011,.2012.by.Nic.Fer |
| 0860 | 72 69 65 72 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 4e 69 63 20 46 65 72 72 69 65 72 20 3c 6e 66 | rier..;;.Author:.Nic.Ferrier.<nf |
| 0880 | 65 72 72 69 65 72 40 66 65 72 72 69 65 72 2e 6d 65 2e 75 6b 3e 0a 3b 3b 20 4d 61 69 6e 74 61 69 | errier@ferrier.me.uk>.;;.Maintai |
| 08a0 | 6e 65 72 3a 20 4e 69 63 20 46 65 72 72 69 65 72 20 3c 6e 66 65 72 72 69 65 72 40 66 65 72 72 69 | ner:.Nic.Ferrier.<nferrier@ferri |
| 08c0 | 65 72 2e 6d 65 2e 75 6b 3e 0a 3b 3b 20 43 72 65 61 74 65 64 3a 20 32 37 74 68 20 4f 63 74 6f 62 | er.me.uk>.;;.Created:.27th.Octob |
| 08e0 | 65 72 20 32 30 31 31 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 56 65 72 73 69 6f 6e 3a 20 32 30 31 34 | er.2011.;;.Package-Version:.2014 |
| 0900 | 30 39 32 34 2e 31 35 30 30 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 76 69 73 69 6f 6e 3a 20 37 | 0924.1500.;;.Package-Revision:.7 |
| 0920 | 64 35 63 66 66 65 39 33 38 35 37 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 72 65 71 75 69 72 65 73 3a | d5cffe93857.;;.Package-requires: |
| 0940 | 20 28 28 6e 6f 66 6c 65 74 20 22 30 2e 30 2e 33 22 29 28 6b 76 20 22 30 2e 30 2e 31 37 22 29 29 | .((noflet."0.0.3")(kv."0.0.17")) |
| 0960 | 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 6c 69 73 70 2c 20 63 72 65 6f 6c 65 2c 20 77 69 6b 69 | .;;.Keywords:.lisp,.creole,.wiki |
| 0980 | 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e | ..;;.This.file.is.NOT.part.of.GN |
| 09a0 | 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 | U.Emacs...;;.This.program.is.fre |
| 09c0 | 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 | e.software;.you.can.redistribute |
| 09e0 | 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 | .it.and/or.modify.;;.it.under.th |
| 0a00 | 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 | e.terms.of.the.GNU.General.Publi |
| 0a20 | 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 | c.License.as.published.by.;;.the |
| 0a40 | 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 | .Free.Software.Foundation,.eithe |
| 0a60 | 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b | r.version.3.of.the.License,.or.; |
| 0a80 | 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 | ;.(at.your.option).any.later.ver |
| 0aa0 | 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 | sion...;;.This.program.is.distri |
| 0ac0 | 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 | buted.in.the.hope.that.it.will.b |
| 0ae0 | 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 | e.useful,.;;.but.WITHOUT.ANY.WAR |
| 0b00 | 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 | RANTY;.without.even.the.implied. |
| 0b20 | 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f | warranty.of.;;.MERCHANTABILITY.o |
| 0b40 | 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f | r.FITNESS.FOR.A.PARTICULAR.PURPO |
| 0b60 | 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c | SE...See.the.;;.GNU.General.Publ |
| 0b80 | 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b | ic.License.for.more.details...;; |
| 0ba0 | 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 | .You.should.have.received.a.copy |
| 0bc0 | 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e | .of.the.GNU.General.Public.Licen |
| 0be0 | 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 | se.;;.along.with.this.program... |
| 0c00 | 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f | If.not,.see.<http://www.gnu.org/ |
| 0c20 | 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b | licenses/>...;;;.Commentary:..;; |
| 0c40 | 20 54 68 69 73 20 69 73 20 61 20 57 69 6b 69 43 72 65 6f 6c 65 20 77 69 6b 69 20 70 61 72 73 65 | .This.is.a.WikiCreole.wiki.parse |
| 0c60 | 72 2e 20 57 69 6b 69 43 72 65 6f 6c 65 20 69 73 20 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b 65 20 | r..WikiCreole.is.something.like. |
| 0c80 | 74 68 65 0a 3b 3b 20 57 69 6b 69 20 6c 61 6e 67 75 61 67 65 20 75 73 65 64 20 62 79 20 4f 64 64 | the.;;.Wiki.language.used.by.Odd |
| 0ca0 | 4d 75 73 65 2c 20 77 68 69 63 68 20 69 73 20 74 68 65 20 45 6d 61 63 73 57 69 6b 69 20 77 69 6b | Muse,.which.is.the.EmacsWiki.wik |
| 0cc0 | 69 0a 3b 3b 20 6c 61 6e 67 75 61 67 65 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 61 72 73 65 72 20 6e | i.;;.language...;;.This.parser.n |
| 0ce0 | 6f 77 20 69 6e 63 6c 75 64 65 73 20 65 78 74 72 61 20 73 75 70 70 6f 72 74 20 74 6f 20 68 65 6c | ow.includes.extra.support.to.hel |
| 0d00 | 70 20 64 65 61 6c 20 77 69 74 68 20 4f 64 64 4d 75 73 65 0a 3b 3b 20 66 69 6c 65 73 2e 0a 0a 3b | p.deal.with.OddMuse.;;.files...; |
| 0d20 | 3b 20 54 68 69 73 20 63 6f 64 65 20 77 61 73 20 6f 72 69 67 69 6e 61 6c 6c 79 20 77 72 69 74 74 | ;.This.code.was.originally.writt |
| 0d40 | 65 6e 20 74 6f 20 6d 61 72 6b 20 74 68 65 20 64 65 61 74 68 20 6f 66 20 4a 6f 68 6e 20 4d 63 43 | en.to.mark.the.death.of.John.McC |
| 0d60 | 61 72 74 68 79 0a 3b 3b 20 2d 20 68 74 74 70 3a 2f 2f 6e 65 77 73 2e 79 63 6f 6d 62 69 6e 61 74 | arthy.;;.-.http://news.ycombinat |
| 0d80 | 6f 72 2e 63 6f 6d 2f 69 74 65 6d 3f 69 64 3d 33 31 35 31 39 38 38 0a 0a 3b 3b 20 57 69 6b 69 43 | or.com/item?id=3151988..;;.WikiC |
| 0da0 | 72 65 6f 6c 65 20 69 73 20 61 6e 20 65 6d 65 72 67 69 6e 67 20 73 74 61 6e 64 61 72 64 20 64 6f | reole.is.an.emerging.standard.do |
| 0dc0 | 63 75 6d 65 6e 74 65 64 20 61 74 3a 0a 3b 3b 20 68 74 74 70 3a 2f 2f 77 77 77 2e 77 69 6b 69 63 | cumented.at:.;;.http://www.wikic |
| 0de0 | 72 65 6f 6c 65 2e 6f 72 67 2f 77 69 6b 69 2f 43 72 65 6f 6c 65 31 2e 30 0a 0a 3b 3b 3b 20 43 6f | reole.org/wiki/Creole1.0..;;;.Co |
| 0e00 | 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 68 74 6d 6c 66 6f 6e 74 69 66 79 29 0a 28 72 65 71 | de:..(require.'htmlfontify).(req |
| 0e20 | 75 69 72 65 20 27 6f 72 67 2d 74 61 62 6c 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 63 29 | uire.'org-table).(require.'calc) |
| 0e40 | 0a 28 72 65 71 75 69 72 65 20 27 72 78 29 0a 28 72 65 71 75 69 72 65 20 27 6e 6f 66 6c 65 74 29 | .(require.'rx).(require.'noflet) |
| 0e60 | 0a 28 72 65 71 75 69 72 65 20 27 63 6c 29 0a 28 72 65 71 75 69 72 65 20 27 6b 76 29 0a 0a 28 64 | .(require.'cl).(require.'kv)..(d |
| 0e80 | 65 66 6d 61 63 72 6f 20 77 68 65 6e 31 20 28 65 78 70 72 20 26 72 65 73 74 20 62 6f 64 79 29 0a | efmacro.when1.(expr.&rest.body). |
| 0ea0 | 20 20 22 45 76 61 6c 75 61 74 65 20 42 4f 44 59 20 77 68 65 6e 20 45 58 50 52 20 62 75 74 20 72 | .."Evaluate.BODY.when.EXPR.but.r |
| 0ec0 | 65 74 75 72 6e 20 45 58 50 52 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 28 | eturn.EXPR."...(declare.(debug.( |
| 0ee0 | 66 6f 72 6d 20 26 72 65 73 74 20 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e | form.&rest.form))............(in |
| 0f00 | 64 65 6e 74 20 31 29 29 0a 20 20 28 6c 65 74 20 28 28 65 78 70 72 2d 76 61 6c 20 28 6d 61 6b 65 | dent.1))...(let.((expr-val.(make |
| 0f20 | 2d 73 79 6d 62 6f 6c 20 22 65 78 70 72 2d 76 61 6c 22 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 | -symbol."expr-val"))).....`(let. |
| 0f40 | 28 28 2c 65 78 70 72 2d 76 61 6c 20 2c 65 78 70 72 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e | ((,expr-val.,expr))........(when |
| 0f60 | 20 2c 65 78 70 72 2d 76 61 6c 0a 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 | .,expr-val..........,@body)..... |
| 0f80 | 20 20 20 2c 65 78 70 72 2d 76 61 6c 29 29 29 0a 0a 28 64 65 66 67 72 6f 75 70 20 63 72 65 6f 6c | ...,expr-val)))..(defgroup.creol |
| 0fa0 | 65 20 6e 69 6c 0a 20 20 22 41 20 57 69 6b 69 43 72 65 6f 6c 65 20 70 61 72 73 65 72 20 61 6e 64 | e.nil..."A.WikiCreole.parser.and |
| 0fc0 | 20 61 73 73 6f 63 69 61 74 65 64 20 74 6f 6f 6c 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 68 79 | .associated.tools."...:group.'hy |
| 0fe0 | 70 65 72 74 65 78 74 29 0a 0a 28 64 65 66 76 61 72 20 63 72 65 6f 6c 65 2d 6f 64 64 6d 75 73 65 | pertext)..(defvar.creole-oddmuse |
| 1000 | 2d 6f 6e 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 63 72 65 6f 6c 65 20 73 68 6f 75 6c 64 | -on.nil..."Whether.creole.should |
| 1020 | 20 69 6e 63 6c 75 64 65 20 4f 64 64 4d 75 73 65 20 63 6f 6d 70 61 74 61 62 69 6c 69 74 79 2e 0a | .include.OddMuse.compatability.. |
| 1040 | 0a 4f 64 64 4d 75 73 65 20 69 73 20 74 68 65 20 57 69 6b 69 20 6c 61 6e 67 75 61 67 65 20 75 73 | .OddMuse.is.the.Wiki.language.us |
| 1060 | 65 64 20 62 79 20 74 68 65 20 45 6d 61 63 73 57 69 6b 69 2e 20 20 49 74 20 69 73 20 76 65 72 79 | ed.by.the.EmacsWiki...It.is.very |
| 1080 | 0a 6e 65 61 72 6c 79 20 57 69 6b 69 43 72 65 6f 6c 65 20 62 75 74 20 6e 6f 74 20 71 75 69 74 65 | .nearly.WikiCreole.but.not.quite |
| 10a0 | 2e 20 20 48 65 6e 63 65 20 74 68 69 73 20 66 6c 61 67 20 77 68 69 63 68 20 74 75 72 6e 73 20 6f | ...Hence.this.flag.which.turns.o |
| 10c0 | 6e 0a 76 61 72 69 6f 75 73 20 73 6d 61 6c 6c 20 74 77 65 61 6b 73 20 69 6e 20 62 65 68 61 76 69 | n.various.small.tweaks.in.behavi |
| 10e0 | 6f 75 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 65 73 6f | our.")..(defvar.creole-link-reso |
| 1100 | 6c 76 65 72 2d 66 6e 20 6e 69 6c 0a 20 20 22 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 63 | lver-fn.nil..."The.function.whic |
| 1120 | 68 20 77 69 6c 6c 20 72 65 73 6f 6c 76 65 20 6c 69 6e 6b 73 2e 0a 0a 52 65 73 6f 6c 76 69 6e 67 | h.will.resolve.links...Resolving |
| 1140 | 20 61 20 6c 69 6e 6b 20 69 73 20 6e 65 63 65 73 73 61 72 79 20 66 6f 72 20 6c 69 6e 6b 73 20 77 | .a.link.is.necessary.for.links.w |
| 1160 | 69 74 68 6f 75 74 20 63 6f 6e 74 65 78 74 20 73 75 63 68 20 61 73 3a 0a 0a 20 20 5b 74 68 69 6e | ithout.context.such.as:....[thin |
| 1180 | 67 5d 0a 0a 6f 72 20 61 20 6c 69 6e 6b 20 66 6f 72 6d 65 64 20 62 79 20 43 61 6d 65 6c 43 61 70 | g]..or.a.link.formed.by.CamelCap |
| 11a0 | 73 2e 0a 0a 42 79 20 64 65 66 61 75 6c 74 20 74 68 65 72 65 20 69 73 20 6e 6f 20 6c 69 6e 6b 20 | s...By.default.there.is.no.link. |
| 11c0 | 72 65 73 6f 6c 76 65 72 20 61 6e 64 20 74 68 65 73 65 20 6c 69 6e 6b 73 20 61 72 65 20 6e 6f 74 | resolver.and.these.links.are.not |
| 11e0 | 0a 72 65 73 6f 6c 76 65 64 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 6c 69 6e 6b | .resolved.")..(defun.creole/link |
| 1200 | 2d 72 65 73 6f 6c 76 65 20 28 6e 61 6d 65 29 0a 20 20 22 41 20 73 69 6d 70 6c 65 20 63 72 65 6f | -resolve.(name)..."A.simple.creo |
| 1220 | 6c 65 20 6c 69 6e 6b 20 72 65 73 6f 6c 76 65 72 2e 0a 0a 52 65 73 6f 6c 76 65 20 74 68 65 20 6c | le.link.resolver...Resolve.the.l |
| 1240 | 69 6e 6b 20 62 79 20 6c 6f 6f 6b 69 6e 67 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 | ink.by.looking.in.the.current.di |
| 1260 | 72 65 63 74 6f 72 79 20 66 6f 72 20 61 0a 2e 63 72 65 6f 6c 65 20 66 69 6c 65 20 74 68 61 74 20 | rectory.for.a..creole.file.that. |
| 1280 | 6d 61 74 63 68 65 73 20 74 68 65 20 6e 61 6d 65 2e 0a 0a 41 20 6e 6f 74 65 20 66 6f 72 20 57 69 | matches.the.name...A.note.for.Wi |
| 12a0 | 6b 69 20 69 6d 70 6c 65 6d 65 6e 74 6f 72 73 3a 20 54 68 69 73 20 69 73 20 6e 6f 74 20 61 20 67 | ki.implementors:.This.is.not.a.g |
| 12c0 | 6f 6f 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 66 6f 72 20 61 20 77 65 62 20 61 70 70 | ood.implementation.for.a.web.app |
| 12e0 | 20 73 69 6e 63 65 20 69 74 20 65 78 70 6f 73 65 73 20 74 68 65 20 65 78 74 65 6e 73 69 6f 6e 73 | .since.it.exposes.the.extensions |
| 1300 | 20 61 6e 64 20 64 6f 65 73 20 6e 6f 74 0a 70 72 65 70 65 6e 64 20 61 20 55 52 4c 2e 20 20 49 66 | .and.does.not.prepend.a.URL...If |
| 1320 | 20 79 6f 75 20 75 73 65 20 61 20 72 65 73 6f 6c 76 65 72 20 74 6f 20 70 72 65 70 65 6e 64 20 74 | .you.use.a.resolver.to.prepend.t |
| 1340 | 68 65 20 75 72 6c 20 74 68 65 6e 20 79 6f 75 0a 6d 61 79 20 61 73 20 77 65 6c 6c 20 72 65 73 6f | he.url.then.you.may.as.well.reso |
| 1360 | 6c 76 65 20 74 68 65 20 65 78 74 65 6e 73 69 6f 6e 20 69 6e 20 74 68 65 20 77 65 62 61 70 70 2e | lve.the.extension.in.the.webapp. |
| 1380 | 22 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 28 | "...(let.((candidates..........( |
| 13a0 | 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c | directory-files...........defaul |
| 13c0 | 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 28 63 6f 6e 63 61 | t-directory...........nil.(conca |
| 13e0 | 74 20 6e 61 6d 65 20 22 2e 63 72 65 6f 6c 65 22 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e | t.name.".creole")))).....(if.(an |
| 1400 | 64 20 28 6c 69 73 74 70 20 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | d.(listp.candidates)............ |
| 1420 | 20 20 28 63 61 72 2d 73 61 66 65 20 63 61 6e 64 69 64 61 74 65 73 29 29 0a 20 20 20 20 20 20 20 | ..(car-safe.candidates))........ |
| 1440 | 20 28 63 61 72 20 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 | .(car.candidates).........name)) |
| 1460 | 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 6c 69 6e 6b 2d 72 65 70 6c 61 63 65 72 20 28 | )..(defun.creole/link-replacer.( |
| 1480 | 6d 29 0a 20 20 22 52 65 70 6c 61 63 65 20 72 65 67 65 78 70 20 72 65 70 6c 61 63 65 72 20 66 6f | m)..."Replace.regexp.replacer.fo |
| 14a0 | 72 20 60 63 72 65 6f 6c 65 2d 6c 69 6e 6b 27 2e 22 0a 20 20 28 61 70 70 6c 79 0a 20 20 20 27 66 | r.`creole-link'."...(apply....'f |
| 14c0 | 6f 72 6d 61 74 0a 20 20 20 22 3c 61 20 68 72 65 66 3d 27 25 73 27 3e 25 73 3c 2f 61 3e 22 0a 20 | ormat...."<a.href='%s'>%s</a>".. |
| 14e0 | 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 3b 3b 20 57 65 20 68 61 76 65 20 62 6f 74 68 20 61 20 75 | ..(cond......;;.We.have.both.a.u |
| 1500 | 72 6c 20 61 6e 64 20 61 20 6c 69 6e 6b 0a 20 20 20 20 20 28 28 6d 61 74 63 68 2d 73 74 72 69 6e | rl.and.a.link......((match-strin |
| 1520 | 67 20 34 20 6d 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 6e 6b 20 28 6d 61 74 63 68 2d | g.4.m).......(let.((link.(match- |
| 1540 | 73 74 72 69 6e 67 20 31 20 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 65 78 74 20 28 | string.1.m)).............(text.( |
| 1560 | 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 35 20 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 69 73 | match-string.5.m))).........(lis |
| 1580 | 74 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 | t..........(if.(and.(not.(string |
| 15a0 | 2d 6d 61 74 63 68 2d 70 20 28 72 78 20 28 6f 72 20 22 66 74 70 22 20 22 68 74 74 70 22 20 22 6d | -match-p.(rx.(or."ftp"."http"."m |
| 15c0 | 61 69 6c 74 6f 22 29 20 22 3a 22 29 20 6c 69 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ailto").":").link))............. |
| 15e0 | 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 70 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 65 73 | ......(functionp.creole-link-res |
| 1600 | 6f 6c 76 65 72 2d 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c | olver-fn))..............(funcall |
| 1620 | 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 20 6c 69 6e 6b 29 20 6c | .creole-link-resolver-fn.link).l |
| 1640 | 69 6e 6b 29 20 74 65 78 74 29 29 29 0a 20 20 20 20 20 3b 3b 20 57 65 20 6f 6e 6c 79 20 68 61 76 | ink).text)))......;;.We.only.hav |
| 1660 | 65 20 61 20 75 72 6c 0a 20 20 20 20 20 28 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6d 29 | e.a.url......((match-string.1.m) |
| 1680 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 6e 6b 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 | .......(let.((link.(match-string |
| 16a0 | 20 31 20 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 28 | .1.m))).........(list..........( |
| 16c0 | 69 66 20 28 61 6e 64 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 72 78 | if.(and.(not.(string-match-p.(rx |
| 16e0 | 20 28 6f 72 20 22 66 74 70 22 20 22 68 74 74 70 22 20 22 6d 61 69 6c 74 6f 22 29 20 22 3a 22 29 | .(or."ftp"."http"."mailto").":") |
| 1700 | 20 6c 69 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 | .link))...................(funct |
| 1720 | 69 6f 6e 70 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 29 29 0a 20 | ionp.creole-link-resolver-fn)).. |
| 1740 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b | ............(funcall.creole-link |
| 1760 | 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 20 6c 69 6e 6b 29 20 6c 69 6e 6b 29 0a 20 20 20 20 20 20 20 | -resolver-fn.link).link)........ |
| 1780 | 20 20 6c 69 6e 6b 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b | ..link))))))..(defun.creole-link |
| 17a0 | 2d 70 61 72 73 65 20 28 74 65 78 74 29 0a 20 20 22 50 61 72 73 65 20 54 45 58 54 20 66 6f 72 20 | -parse.(text)..."Parse.TEXT.for. |
| 17c0 | 63 72 65 6f 6c 65 20 6c 69 6e 6b 73 2e 0a 0a 49 66 20 60 63 72 65 6f 6c 65 2d 6f 64 64 6d 75 73 | creole.links...If.`creole-oddmus |
| 17e0 | 65 2d 6f 6e 27 20 69 73 20 74 20 74 68 65 6e 20 4f 64 64 4d 75 73 65 20 6c 69 6e 6b 73 20 28 74 | e-on'.is.t.then.OddMuse.links.(t |
| 1800 | 68 61 74 20 64 6f 20 6e 6f 74 20 73 74 61 72 74 0a 77 69 74 68 20 27 21 27 29 20 77 69 6c 6c 20 | hat.do.not.start.with.'!').will. |
| 1820 | 62 65 20 70 61 72 73 65 64 20 61 73 20 77 65 6c 6c 2e 20 4f 64 64 4d 75 73 65 20 6c 69 6e 6b 73 | be.parsed.as.well..OddMuse.links |
| 1840 | 20 61 72 65 20 73 69 6e 67 6c 65 0a 62 72 61 63 6b 65 74 20 6c 69 6e 6b 73 2c 20 6c 69 6b 65 3a | .are.single.bracket.links,.like: |
| 1860 | 0a 0a 20 5b 54 68 69 73 49 73 4f 64 64 4d 75 73 65 5d 0a 0a 49 66 20 60 63 72 65 6f 6c 65 2d 6c | ...[ThisIsOddMuse]..If.`creole-l |
| 1880 | 69 6e 6b 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 27 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 61 6e 64 20 | ink-resolver-fn'.is.non-nil.and. |
| 18a0 | 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 65 6e 20 61 6c 6c 0a 73 69 6e 67 6c 65 20 65 6c 65 6d 65 | a.function.then.all.single.eleme |
| 18c0 | 6e 74 20 6c 69 6e 6b 73 20 61 72 65 20 70 61 73 73 65 64 20 74 68 72 6f 75 67 68 20 69 74 2e 20 | nt.links.are.passed.through.it.. |
| 18e0 | 20 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 61 6c 73 6f 0a 74 75 72 6e 73 20 6f 6e 20 43 61 6d | .This.variable.also.turns.on.Cam |
| 1900 | 65 6c 43 61 73 65 20 6c 69 6e 6b 69 6e 67 2e 22 0a 20 20 28 69 66 20 28 61 6e 64 20 63 72 65 6f | elCase.linking."...(if.(and.creo |
| 1920 | 6c 65 2d 6f 64 64 6d 75 73 65 2d 6f 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 72 | le-oddmuse-on.(string-match-p.(r |
| 1940 | 78 20 62 6f 6c 20 22 21 22 29 20 74 65 78 74 29 29 0a 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 | x.bol."!").text)).......(replace |
| 1960 | 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 28 72 78 20 62 6f 6c 20 22 21 22 29 20 22 | -regexp-in-string.(rx.bol."!")." |
| 1980 | 22 20 74 65 78 74 20 74 29 0a 20 20 20 20 20 20 3b 3b 20 45 6c 73 65 20 69 74 27 73 20 6e 6f 74 | ".text.t).......;;.Else.it's.not |
| 19a0 | 20 61 6e 20 65 73 63 61 70 65 64 20 6c 69 6e 6b 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 72 | .an.escaped.link.......(let*.((r |
| 19c0 | 65 73 6f 6c 76 61 62 6c 65 2d 6c 69 6e 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 | esolvable-link...............(if |
| 19e0 | 20 28 66 75 6e 63 74 69 6f 6e 70 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 65 73 6f 6c 76 65 72 | .(functionp.creole-link-resolver |
| 1a00 | 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 | -fn)...................(let*.((c |
| 1a20 | 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 29 29 20 3b 20 64 6f 20 43 61 6d 65 6c | ase-fold-search.nil)).;.do.Camel |
| 1a40 | 43 61 70 73 20 6c 69 6e 6b 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | Caps.links.....................( |
| 1a60 | 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 | replace-regexp-in-string........ |
| 1a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..............(rx............... |
| 1aa0 | 20 20 20 20 20 20 20 20 28 6f 72 20 62 75 66 66 65 72 2d 73 74 61 72 74 20 62 6f 6c 20 62 6f 73 | ........(or.buffer-start.bol.bos |
| 1ac0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 0a 20 | ).......................(group.. |
| 1ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3f 20 28 6e 6f 74 20 28 61 | ......................(?.(not.(a |
| 1b00 | 6e 79 20 22 5b 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ny."[")))....................... |
| 1b20 | 20 28 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(group......................... |
| 1b40 | 28 3e 3d 20 32 20 28 61 6e 64 20 28 61 6e 79 20 75 70 70 65 72 29 0a 20 20 20 20 20 20 20 20 20 | (>=.2.(and.(any.upper).......... |
| 1b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 6e 65 2d 6f | ..........................(one-o |
| 1b80 | 72 2d 6d 6f 72 65 20 28 61 6e 79 20 6c 6f 77 65 72 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 | r-more.(any.lower)))))))........ |
| 1ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6d 29 0a 20 20 20 20 20 20 | ..............(lambda.(m)....... |
| 1bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 6e 6b 20 28 6d 61 | .................(let.((link.(ma |
| 1be0 | 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tch-string.1.m)))............... |
| 1c00 | 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........(format.............. |
| 1c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 61 20 68 72 65 66 3d 27 25 73 27 3e 25 73 3c 2f 61 | ............."<a.href='%s'>%s</a |
| 1c40 | 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 | >"...........................(fu |
| 1c60 | 6e 63 61 6c 6c 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 20 6c 69 | ncall.creole-link-resolver-fn.li |
| 1c80 | 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 | nk)...........................li |
| 1ca0 | 6e 6b 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 20 | nk)))......................text. |
| 1cc0 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 45 6c 73 65 20 6a 75 | t))...................;;.Else.ju |
| 1ce0 | 73 74 20 75 73 65 20 74 68 65 20 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st.use.the.text................. |
| 1d00 | 20 20 74 65 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 6c 2d 63 72 65 6f | ..text))..............(real-creo |
| 1d20 | 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 | le...............(replace-regexp |
| 1d40 | 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 78 20 22 5b | -in-string................(rx."[ |
| 1d60 | 5b 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 0a 20 20 20 | ["....................(group.... |
| 1d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 28 67 72 6f 75 70 20 28 6f 72 20 22 | .................(*.(group.(or." |
| 1da0 | 66 74 70 22 20 22 68 74 74 70 22 20 22 6d 61 69 6c 74 6f 22 29 20 22 3a 22 29 29 0a 20 20 20 20 | ftp"."http"."mailto").":"))..... |
| 1dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 28 6e 6f 74 20 28 61 6e 79 20 22 5d 7c | ................(+.(not.(any."]| |
| 1de0 | 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 0a 20 20 20 20 | "))))....................(*..... |
| 1e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 20 20 | ..............(group............ |
| 1e20 | 20 20 20 20 20 20 20 20 22 7c 22 20 28 67 72 6f 75 70 20 28 67 72 6f 75 70 20 28 2b 20 28 6e 6f | ........"|".(group.(group.(+.(no |
| 1e40 | 74 20 28 61 6e 79 20 22 5d 22 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.(any."]")))))))............... |
| 1e60 | 20 20 20 20 20 22 5d 5d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 72 65 6f 6c | ....."]]")................'creol |
| 1e80 | 65 2f 6c 69 6e 6b 2d 72 65 70 6c 61 63 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 | e/link-replacer................r |
| 1ea0 | 65 73 6f 6c 76 61 62 6c 65 2d 6c 69 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f | esolvable-link))..............(o |
| 1ec0 | 64 64 6d 75 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 72 65 6f 6c | ddmuse...............(when.creol |
| 1ee0 | 65 2d 6f 64 64 6d 75 73 65 2d 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 | e-oddmuse-on.................(re |
| 1f00 | 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 | place-regexp-in-string.......... |
| 1f20 | 20 20 20 20 20 20 20 20 28 72 78 20 22 5b 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(rx."["................. |
| 1f40 | 20 20 20 20 20 28 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(group..................... |
| 1f60 | 20 20 28 2a 20 28 67 72 6f 75 70 20 28 61 6e 64 20 28 2b 20 28 69 6e 20 61 6c 70 68 61 29 29 29 | ..(*.(group.(and.(+.(in.alpha))) |
| 1f80 | 20 22 3a 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 | .":")).......................(+. |
| 1fa0 | 28 6e 6f 74 20 28 61 6e 79 20 22 5d 7c 20 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (not.(any."]|."))))............. |
| 1fc0 | 20 20 20 20 20 20 20 20 20 28 2a 20 28 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(*.(group.............. |
| 1fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 79 20 22 7c 20 22 29 0a 20 20 20 20 20 20 20 20 20 | ............(any."|.").......... |
| 2000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 67 72 6f 75 70 20 28 2b | ................(group.(group.(+ |
| 2020 | 20 28 6e 6f 74 20 28 61 6e 79 20 3f 5c 5d 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .(not.(any.?\])))))))........... |
| 2040 | 20 20 20 20 20 20 20 20 20 20 20 22 5d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........."]")................. |
| 2060 | 20 27 63 72 65 6f 6c 65 2f 6c 69 6e 6b 2d 72 65 70 6c 61 63 65 72 0a 20 20 20 20 20 20 20 20 20 | .'creole/link-replacer.......... |
| 2080 | 20 20 20 20 20 20 20 20 72 65 61 6c 2d 63 72 65 6f 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ........real-creole))).......... |
| 20a0 | 20 20 20 20 28 62 72 61 63 6b 65 74 2d 72 65 73 6f 6c 76 65 64 20 28 69 66 20 6f 64 64 6d 75 73 | ....(bracket-resolved.(if.oddmus |
| 20c0 | 65 20 6f 64 64 6d 75 73 65 20 72 65 61 6c 2d 63 72 65 6f 6c 65 29 29 29 0a 20 20 20 20 20 20 20 | e.oddmuse.real-creole)))........ |
| 20e0 | 20 62 72 61 63 6b 65 74 2d 72 65 73 6f 6c 76 65 64 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 72 | .bracket-resolved)))..(defvar.cr |
| 2100 | 65 6f 6c 65 2d 69 6d 61 67 65 2d 63 6c 61 73 73 20 6e 69 6c 0a 20 20 22 41 20 64 65 66 61 75 6c | eole-image-class.nil..."A.defaul |
| 2120 | 74 20 63 6c 61 73 73 20 74 6f 20 62 65 20 61 70 70 6c 69 65 64 20 74 6f 20 77 69 6b 69 20 6c 69 | t.class.to.be.applied.to.wiki.li |
| 2140 | 6e 6b 65 64 20 69 6d 61 67 65 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 69 6d | nked.images.")..(defun.creole/im |
| 2160 | 61 67 65 2d 3e 68 74 6d 6c 20 28 6d 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 69 6d 61 67 65 20 75 | age->html.(m)..."Convert.image.u |
| 2180 | 72 6c 73 20 74 6f 20 48 54 4d 4c 2e 22 0a 20 20 28 6c 65 74 20 28 74 69 74 6c 65 29 0a 20 20 20 | rls.to.HTML."...(let.(title).... |
| 21a0 | 20 28 61 70 70 6c 79 0a 20 20 20 20 20 27 66 6f 72 6d 61 74 0a 20 20 20 20 20 28 61 70 70 65 6e | .(apply......'format......(appen |
| 21c0 | 64 0a 20 20 20 20 20 20 27 28 22 3c 69 6d 67 20 25 73 73 72 63 3d 5c 22 25 73 5c 22 20 61 6c 74 | d.......'("<img.%ssrc=\"%s\".alt |
| 21e0 | 3d 5c 22 25 73 5c 22 20 25 73 25 73 3e 3c 2f 69 6d 67 3e 22 29 0a 20 20 20 20 20 20 28 6c 69 73 | =\"%s\".%s%s></img>").......(lis |
| 2200 | 74 0a 20 20 20 20 20 20 20 3b 3b 20 57 68 65 74 68 65 72 20 77 65 20 68 61 76 65 20 61 20 63 6c | t........;;.Whether.we.have.a.cl |
| 2220 | 61 73 73 20 74 6f 20 61 70 70 6c 79 20 6f 72 20 6e 6f 74 0a 20 20 20 20 20 20 20 28 69 66 20 63 | ass.to.apply.or.not........(if.c |
| 2240 | 72 65 6f 6c 65 2d 69 6d 61 67 65 2d 63 6c 61 73 73 20 28 66 6f 72 6d 61 74 20 22 63 6c 61 73 73 | reole-image-class.(format."class |
| 2260 | 3d 5c 22 25 73 5c 22 20 22 20 63 72 65 6f 6c 65 2d 69 6d 61 67 65 2d 63 6c 61 73 73 29 20 22 22 | =\"%s\".".creole-image-class)."" |
| 2280 | 29 0a 20 20 20 20 20 20 20 3b 3b 20 55 52 4c 20 6f 66 20 74 68 65 20 69 6d 61 67 65 0a 20 20 20 | )........;;.URL.of.the.image.... |
| 22a0 | 20 20 20 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 | ....(if.(functionp.creole-link-r |
| 22c0 | 65 73 6f 6c 76 65 72 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 | esolver-fn)............(funcall. |
| 22e0 | 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 20 28 6d 61 74 63 68 2d 73 | creole-link-resolver-fn.(match-s |
| 2300 | 74 72 69 6e 67 20 31 20 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 45 6c 73 65 0a 20 | tring.1.m))............;;.Else.. |
| 2320 | 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6d 29 29 0a 20 20 | ..........(match-string.1.m))... |
| 2340 | 20 20 20 20 20 3b 3b 20 69 66 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 61 6e 20 61 6c 74 65 | .....;;.if.we.don't.have.an.alte |
| 2360 | 72 6e 61 74 65 2c 20 75 73 65 20 74 68 65 20 55 52 4c 0a 20 20 20 20 20 20 20 28 69 66 20 28 6d | rnate,.use.the.URL........(if.(m |
| 2380 | 61 74 63 68 2d 73 74 72 69 6e 67 20 34 20 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | atch-string.4.m)............(set |
| 23a0 | 71 20 74 69 74 6c 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 35 20 6d 29 29 0a 20 20 20 20 | q.title.(match-string.5.m))..... |
| 23c0 | 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6d 29 29 0a 20 20 20 20 20 | .......(match-string.1.m))...... |
| 23e0 | 20 20 3b 3b 20 74 69 74 6c 65 0a 20 20 20 20 20 20 20 28 69 66 20 74 69 74 6c 65 20 28 66 6f 72 | ..;;.title........(if.title.(for |
| 2400 | 6d 61 74 20 22 74 69 74 6c 65 3d 5c 22 25 73 5c 22 20 22 20 74 69 74 6c 65 29 20 22 22 29 0a 20 | mat."title=\"%s\".".title)."").. |
| 2420 | 20 20 20 20 20 20 3b 3b 20 4d 61 74 63 68 20 6f 6e 6c 79 20 74 68 65 20 73 69 7a 65 20 70 61 72 | ......;;.Match.only.the.size.par |
| 2440 | 74 20 66 6f 72 20 6e 6f 77 0a 20 20 20 20 20 20 20 28 69 66 20 28 6d 61 74 63 68 2d 73 74 72 69 | t.for.now........(if.(match-stri |
| 2460 | 6e 67 20 32 20 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 70 74 69 6f 6e | ng.2.m)............(let.((option |
| 2480 | 73 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 33 20 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 | s.(match-string.3.m))).......... |
| 24a0 | 20 20 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 | ....(save-match-data............ |
| 24c0 | 20 20 20 20 3b 3b 20 27 73 69 7a 65 3d 27 20 69 73 20 6f 70 74 69 6f 6e 61 6c 20 61 6e 64 20 69 | ....;;.'size='.is.optional.and.i |
| 24e0 | 73 20 74 68 65 20 6f 6e 6c 79 20 70 61 72 61 6d 65 74 65 72 20 72 69 67 68 74 20 6e 6f 77 0a 20 | s.the.only.parameter.right.now.. |
| 2500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 0a 20 20 20 20 | ..............(string-match..... |
| 2520 | 20 20 20 20 20 20 20 20 20 20 20 20 28 72 78 20 28 67 72 6f 75 70 20 28 2b 20 64 69 67 69 74 29 | ............(rx.(group.(+.digit) |
| 2540 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3f 20 28 67 72 6f 75 70 20 | ).....................(?.(group. |
| 2560 | 28 61 6e 64 20 3f 78 20 28 67 72 6f 75 70 20 28 2b 20 64 69 67 69 74 29 29 29 29 29 29 0a 20 20 | (and.?x.(group.(+.digit))))))... |
| 2580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 | ..............options).......... |
| 25a0 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6f 70 74 69 | ......(when.(match-string.1.opti |
| 25c0 | 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 | ons)..................(concat... |
| 25e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 | ................(format......... |
| 2600 | 20 20 20 20 20 20 20 20 20 20 20 22 77 69 64 74 68 3d 5c 22 25 73 5c 22 20 22 20 28 6d 61 74 63 | ..........."width=\"%s\".".(matc |
| 2620 | 68 2d 73 74 72 69 6e 67 20 31 20 6f 70 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | h-string.1.options))............ |
| 2640 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 32 20 6f 70 74 | .......(when.(match-string.2.opt |
| 2660 | 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 | ions).....................(forma |
| 2680 | 74 20 22 68 65 69 67 68 74 3d 5c 22 25 73 5c 22 20 22 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 | t."height=\"%s\".".(match-string |
| 26a0 | 20 33 20 6f 70 74 69 6f 6e 73 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 22 22 29 | .3.options)))))))............"") |
| 26c0 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 69 6e 63 6c 75 64 65 2d 68 61 6e | )))))..(defun.creole-include-han |
| 26e0 | 64 6c 65 72 20 28 6d 61 74 63 68 2d 64 61 74 61 20 73 63 68 65 6d 65 20 70 61 74 68 29 0a 20 20 | dler.(match-data.scheme.path)... |
| 2700 | 22 45 6d 62 65 64 20 68 61 6e 64 6c 65 72 20 74 6f 20 68 61 6e 64 6c 65 20 5c 22 69 6e 63 6c 75 | "Embed.handler.to.handle.\"inclu |
| 2720 | 64 65 3a 66 69 6c 65 5c 22 20 65 6d 62 65 64 73 2e 0a 0a 41 64 64 20 74 68 69 73 20 74 6f 20 60 | de:file\".embeds...Add.this.to.` |
| 2740 | 63 72 65 6f 6c 65 2d 65 6d 62 65 64 2d 68 61 6e 6e 64 6c 65 72 73 27 20 28 66 6f 72 20 65 78 61 | creole-embed-hanndlers'.(for.exa |
| 2760 | 6d 70 6c 65 2c 20 66 6f 72 20 73 63 68 65 6d 65 0a 5c 22 69 6e 63 6c 75 64 65 5c 22 29 20 74 6f | mple,.for.scheme.\"include\").to |
| 2780 | 20 73 75 70 70 6f 72 74 20 63 72 65 6f 6c 65 20 69 6e 63 6c 75 64 65 73 2c 20 66 6f 72 20 65 78 | .support.creole.includes,.for.ex |
| 27a0 | 61 6d 70 6c 65 3a 0a 0a 20 20 3d 20 41 20 64 6f 63 75 6d 65 6e 74 20 3d 0a 20 20 7b 7b 69 6e 63 | ample:....=.A.document.=...{{inc |
| 27c0 | 6c 75 64 65 3a 73 6f 6d 65 63 72 65 6f 6c 65 66 69 6c 65 7d 7d 0a 0a 61 6c 6c 6f 77 73 20 5c 22 | lude:somecreolefile}}..allows.\" |
| 27e0 | 73 6f 6d 65 63 72 65 6f 6c 65 66 69 6c 65 5c 22 20 74 6f 20 62 65 20 48 54 4d 4c 20 72 65 6e 64 | somecreolefile\".to.be.HTML.rend |
| 2800 | 65 72 65 64 20 61 6e 64 20 65 6d 62 65 64 64 65 64 20 69 6e 20 74 68 65 0a 6f 75 74 70 75 74 20 | ered.and.embedded.in.the.output. |
| 2820 | 6f 66 20 74 68 65 20 6d 61 69 6e 20 64 6f 63 75 6d 65 6e 74 2e 0a 0a 49 66 20 60 63 72 65 6f 6c | of.the.main.document...If.`creol |
| 2840 | 65 2d 6c 69 6e 6b 2d 72 65 73 6f 6c 76 65 72 27 20 69 73 20 64 65 66 69 6e 65 64 20 74 68 65 6e | e-link-resolver'.is.defined.then |
| 2860 | 20 6c 69 6e 6b 20 72 65 73 6f 6c 75 74 69 6f 6e 20 69 73 0a 70 65 72 66 6f 72 6d 65 64 20 6f 6e | .link.resolution.is.performed.on |
| 2880 | 20 50 41 54 48 20 62 65 66 6f 72 65 20 6c 6f 61 64 69 6e 67 2e 0a 0a 60 63 72 65 6f 6c 65 2d 68 | .PATH.before.loading...`creole-h |
| 28a0 | 74 6d 6c 27 20 69 73 20 75 73 65 64 20 74 6f 20 72 65 6e 64 65 72 20 74 68 65 20 48 54 4d 4c 20 | tml'.is.used.to.render.the.HTML. |
| 28c0 | 66 6f 72 20 74 68 65 20 69 6e 63 6c 75 64 65 64 20 66 69 6c 65 2e 22 0a 20 20 28 6c 65 74 2a 20 | for.the.included.file."...(let*. |
| 28e0 | 28 28 66 69 6c 65 2d 70 61 74 68 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 63 72 65 6f 6c | ((file-path.(if.(functionp.creol |
| 2900 | 65 2d 6c 69 6e 6b 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e-link-resolver-fn)............. |
| 2920 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b | ............(funcall.creole-link |
| 2940 | 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -resolver-fn.path).............. |
| 2960 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 45 6c 73 65 20 6a 75 73 74 20 74 68 65 20 70 61 74 68 | ...........;;.Else.just.the.path |
| 2980 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 29 29 29 | .........................path))) |
| 29a0 | 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 69 6e | .....(with-temp-buffer.......(in |
| 29c0 | 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 2d 6c 69 74 65 72 61 6c 6c 79 20 66 69 6c | sert-file-contents-literally.fil |
| 29e0 | 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 72 65 6f 6c 65 2d 62 75 66 66 | e-path).......(let.((creole-buff |
| 2a00 | 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 | er.(current-buffer))).........(w |
| 2a20 | 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c | ith-temp-buffer...........(creol |
| 2a40 | 65 2d 68 74 6d 6c 20 63 72 65 6f 6c 65 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 | e-html.creole-buffer.(current-bu |
| 2a60 | 66 66 65 72 29 20 3a 65 72 61 73 65 2d 65 78 69 73 74 69 6e 67 20 74 29 0a 20 20 20 20 20 20 20 | ffer).:erase-existing.t)........ |
| 2a80 | 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 | ...(buffer-string))))))..(defvar |
| 2aa0 | 20 63 72 65 6f 6c 65 2d 79 6f 75 74 75 62 65 2d 68 61 6e 64 6c 65 72 2d 77 69 64 74 68 20 34 32 | .creole-youtube-handler-width.42 |
| 2ac0 | 30 0a 20 20 22 54 68 65 20 77 69 64 74 68 20 74 68 61 74 20 77 69 6c 6c 20 62 65 20 75 73 65 64 | 0..."The.width.that.will.be.used |
| 2ae0 | 20 66 6f 72 20 79 6f 75 74 75 62 65 20 76 69 64 65 6f 73 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 | .for.youtube.videos...Note.that. |
| 2b00 | 6e 6f 74 20 61 6c 6c 20 77 69 64 74 68 73 20 61 72 65 20 70 6f 73 73 69 62 6c 65 2e 22 29 0a 0a | not.all.widths.are.possible.").. |
| 2b20 | 28 64 65 66 76 61 72 20 63 72 65 6f 6c 65 2d 79 6f 75 74 75 62 65 2d 68 61 6e 64 6c 65 72 2d 68 | (defvar.creole-youtube-handler-h |
| 2b40 | 65 69 67 68 74 20 33 31 35 0a 20 20 22 54 68 65 20 68 65 69 67 68 74 20 74 68 61 74 20 77 69 6c | eight.315..."The.height.that.wil |
| 2b60 | 6c 20 62 65 20 75 73 65 64 20 66 6f 72 20 79 6f 75 74 75 62 65 20 76 69 64 65 6f 73 2e 0a 0a 4e | l.be.used.for.youtube.videos...N |
| 2b80 | 6f 74 65 20 74 68 61 74 20 6e 6f 74 20 61 6c 6c 20 68 65 69 67 68 74 73 20 61 72 65 20 70 6f 73 | ote.that.not.all.heights.are.pos |
| 2ba0 | 73 69 62 6c 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 79 6f 75 74 75 62 65 2d | sible.")..(defun.creole-youtube- |
| 2bc0 | 68 61 6e 64 6c 65 72 20 28 6d 20 73 63 68 65 6d 65 20 70 61 74 68 29 0a 20 20 22 48 61 6e 64 6c | handler.(m.scheme.path)..."Handl |
| 2be0 | 65 20 5c 22 79 6f 75 74 75 62 65 5c 22 20 73 63 68 65 6d 65 2c 20 74 75 72 6e 69 6e 67 20 69 74 | e.\"youtube\".scheme,.turning.it |
| 2c00 | 20 69 6e 74 6f 20 61 6e 20 48 54 4d 4c 20 65 6d 62 65 64 2e 0a 0a 54 68 69 73 20 63 72 65 6f 6c | .into.an.HTML.embed...This.creol |
| 2c20 | 65 3a 0a 0a 20 20 7b 7b 79 6f 75 74 75 62 65 3a 57 63 55 77 43 73 41 68 57 4d 6b 7c 61 20 6e 69 | e:....{{youtube:WcUwCsAhWMk|a.ni |
| 2c40 | 63 65 20 76 69 64 65 6f 20 6f 6e 20 65 6d 61 63 73 2d 6c 69 73 70 7d 7d 0a 0a 77 69 6c 6c 20 70 | ce.video.on.emacs-lisp}}..will.p |
| 2c60 | 72 6f 64 75 63 65 20 74 68 69 73 20 48 54 4d 4c 3a 0a 0a 20 3c 73 70 61 6e 20 63 6c 61 73 73 3d | roduce.this.HTML:...<span.class= |
| 2c80 | 5c 22 79 6f 75 74 75 62 65 5c 22 3e 0a 20 20 20 3c 69 66 72 61 6d 65 20 73 72 63 3d 5c 22 2f 2f | \"youtube\">....<iframe.src=\"// |
| 2ca0 | 77 77 77 2e 79 6f 75 74 75 62 65 2e 63 6f 6d 2f 65 6d 62 65 64 2f 57 63 55 77 43 73 41 68 57 4d | www.youtube.com/embed/WcUwCsAhWM |
| 2cc0 | 6b 5c 22 0a 20 20 20 20 20 20 20 20 20 77 69 64 74 68 3d 5c 22 34 32 30 5c 22 20 68 65 69 67 68 | k\"..........width=\"420\".heigh |
| 2ce0 | 74 3d 5c 22 33 31 35 5c 22 0a 20 20 20 20 20 20 20 20 20 66 72 61 6d 65 62 6f 72 64 65 72 3d 5c | t=\"315\"..........frameborder=\ |
| 2d00 | 22 30 5c 22 20 61 6c 6c 6f 77 66 75 6c 6c 73 63 72 65 65 6e 3e 3c 2f 69 66 72 61 6d 65 3e 0a 20 | "0\".allowfullscreen></iframe>.. |
| 2d20 | 20 20 3c 65 6d 3e 61 20 6e 69 63 65 20 76 69 64 65 6f 20 6f 6e 20 65 6d 61 63 73 2d 6c 69 73 70 | ..<em>a.nice.video.on.emacs-lisp |
| 2d40 | 3c 2f 65 6d 3e 0a 20 3c 2f 73 70 61 6e 3e 0a 0a 54 68 65 20 6c 69 6e 6b 20 72 65 73 6f 6c 76 65 | </em>..</span>..The.link.resolve |
| 2d60 | 72 20 69 73 20 6e 6f 74 20 63 6f 6e 73 75 6c 74 65 64 20 74 6f 20 72 65 73 6f 6c 76 65 20 74 68 | r.is.not.consulted.to.resolve.th |
| 2d80 | 65 20 6c 69 6e 6b 2e 22 0a 20 20 3b 3b 20 4a 75 73 74 20 74 68 65 20 79 6f 75 74 75 62 65 20 69 | e.link."...;;.Just.the.youtube.i |
| 2da0 | 66 72 61 6d 65 20 74 68 69 6e 67 0a 20 20 28 66 6f 72 6d 61 74 20 22 3c 73 70 61 6e 20 63 6c 61 | frame.thing...(format."<span.cla |
| 2dc0 | 73 73 3d 5c 22 79 6f 75 74 75 62 65 5c 22 3e 3c 69 66 72 61 6d 65 20 73 72 63 3d 5c 22 2f 2f 77 | ss=\"youtube\"><iframe.src=\"//w |
| 2de0 | 77 77 2e 79 6f 75 74 75 62 65 2e 63 6f 6d 2f 65 6d 62 65 64 2f 25 73 5c 22 0a 77 69 64 74 68 3d | ww.youtube.com/embed/%s\".width= |
| 2e00 | 5c 22 25 73 5c 22 20 68 65 69 67 68 74 3d 5c 22 25 73 5c 22 0a 66 72 61 6d 65 62 6f 72 64 65 72 | \"%s\".height=\"%s\".frameborder |
| 2e20 | 3d 5c 22 30 5c 22 20 61 6c 6c 6f 77 66 75 6c 6c 73 63 72 65 65 6e 3e 3c 2f 69 66 72 61 6d 65 3e | =\"0\".allowfullscreen></iframe> |
| 2e40 | 0a 25 73 0a 3c 2f 73 70 61 6e 3e 22 20 70 61 74 68 20 63 72 65 6f 6c 65 2d 79 6f 75 74 75 62 65 | .%s.</span>".path.creole-youtube |
| 2e60 | 2d 68 61 6e 64 6c 65 72 2d 77 69 64 74 68 20 63 72 65 6f 6c 65 2d 79 6f 75 74 75 62 65 2d 68 61 | -handler-width.creole-youtube-ha |
| 2e80 | 6e 64 6c 65 72 2d 68 65 69 67 68 74 0a 28 69 66 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 34 | ndler-height.(if.(match-string.4 |
| 2ea0 | 20 6d 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 3c 65 6d 3e 25 73 3c 2f 65 6d 3e 22 20 28 6d | .m).....(format."<em>%s</em>".(m |
| 2ec0 | 61 74 63 68 2d 73 74 72 69 6e 67 20 35 20 6d 29 29 0a 20 20 20 20 22 22 29 29 29 0a 0a 28 64 65 | atch-string.5.m))....."")))..(de |
| 2ee0 | 66 76 61 72 20 63 72 65 6f 6c 65 2d 73 75 6d 6d 61 72 79 2d 72 65 73 6f 6c 76 65 72 20 6e 69 6c | fvar.creole-summary-resolver.nil |
| 2f00 | 0a 20 20 22 4f 70 74 69 6f 6e 61 6c 20 72 65 73 6f 6c 76 65 72 20 66 75 6e 63 74 69 6f 6e 20 66 | ..."Optional.resolver.function.f |
| 2f20 | 6f 72 20 61 72 74 69 63 6c 65 20 6c 69 6e 6b 73 20 66 72 6f 6d 20 73 75 6d 6d 61 72 69 65 73 2e | or.article.links.from.summaries. |
| 2f40 | 0a 0a 49 66 20 73 65 74 20 74 6f 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6f 6e 65 20 61 72 | ..If.set.to.a.function.of.one.ar |
| 2f60 | 67 75 6d 65 6e 74 2c 20 74 68 69 73 20 69 73 20 75 73 65 64 20 62 79 0a 60 63 72 65 6f 6c 65 2d | gument,.this.is.used.by.`creole- |
| 2f80 | 73 75 6d 6d 61 72 79 2d 68 61 6e 64 6c 65 72 27 20 74 6f 20 72 65 73 6f 6c 76 65 20 74 68 65 20 | summary-handler'.to.resolve.the. |
| 2fa0 | 70 61 74 68 20 74 6f 20 74 68 65 20 73 75 6d 6d 61 72 79 0a 61 72 74 69 63 6c 65 20 69 6e 74 6f | path.to.the.summary.article.into |
| 2fc0 | 20 61 6e 20 61 72 74 69 63 6c 65 20 70 61 74 68 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f | .an.article.path.")..(defun.creo |
| 2fe0 | 6c 65 2d 73 75 6d 6d 61 72 79 2d 68 61 6e 64 6c 65 72 20 28 6d 20 73 63 68 65 6d 65 20 70 61 74 | le-summary-handler.(m.scheme.pat |
| 3000 | 68 29 0a 20 20 22 45 6d 62 65 64 20 68 61 6e 64 6c 65 72 20 74 6f 20 68 61 6e 64 6c 65 20 5c 22 | h)..."Embed.handler.to.handle.\" |
| 3020 | 73 75 6d 6d 61 72 79 3a 66 69 6c 65 5c 22 20 65 6d 62 65 64 73 2e 0a 0a 55 73 69 6e 67 20 74 68 | summary:file\".embeds...Using.th |
| 3040 | 69 73 20 77 69 6c 6c 20 6c 65 74 20 79 6f 75 20 70 75 6c 6c 20 69 6e 20 74 68 65 20 66 69 72 73 | is.will.let.you.pull.in.the.firs |
| 3060 | 74 20 70 61 72 61 20 6f 66 20 61 6e 20 61 72 74 69 63 6c 65 2e 22 0a 20 20 3b 3b 20 54 68 69 73 | t.para.of.an.article."...;;.This |
| 3080 | 20 69 73 20 6e 6f 74 20 61 20 76 65 72 79 20 67 6f 6f 64 20 73 75 6d 6d 61 72 79 20 68 61 6e 64 | .is.not.a.very.good.summary.hand |
| 30a0 | 6c 65 72 0a 20 20 3b 3b 0a 20 20 3b 3b 20 77 68 61 74 20 69 73 20 53 48 4f 55 4c 44 20 64 6f 20 | ler...;;...;;.what.is.SHOULD.do. |
| 30c0 | 69 73 20 74 6f 20 74 61 6b 65 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 75 70 20 74 6f 20 61 6e | is.to.take.the.elements.up.to.an |
| 30e0 | 64 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 0a 20 20 3b 3b 20 66 69 72 73 74 20 70 61 72 61 20 | d.including.the...;;.first.para. |
| 3100 | 61 6e 64 20 74 68 65 6e 20 74 68 72 6f 77 20 65 76 65 72 79 74 68 69 6e 67 20 65 6c 73 65 20 61 | and.then.throw.everything.else.a |
| 3120 | 77 61 79 2e 0a 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 65 2d 70 61 74 68 20 28 69 66 20 28 66 75 | way....(let*.((file-path.(if.(fu |
| 3140 | 6e 63 74 69 6f 6e 70 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 29 | nctionp.creole-link-resolver-fn) |
| 3160 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c | .........................(funcal |
| 3180 | 6c 20 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 20 70 61 74 68 29 0a | l.creole-link-resolver-fn.path). |
| 31a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 45 6c 73 65 20 | ........................;;.Else. |
| 31c0 | 6a 75 73 74 20 74 68 65 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | just.the.path................... |
| 31e0 | 20 20 20 20 20 20 70 61 74 68 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 | ......path))).....(with-temp-buf |
| 3200 | 66 65 72 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 2d | fer.......(insert-file-contents- |
| 3220 | 6c 69 74 65 72 61 6c 6c 79 20 66 69 6c 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 28 6c 65 74 2a | literally.file-path).......(let* |
| 3240 | 20 28 28 63 72 65 6f 6c 65 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | .((creole-buffer.(current-buffer |
| 3260 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 63 6f 75 6c 64 20 63 61 63 68 | ))..............;;.We.could.cach |
| 3280 | 65 20 74 68 65 20 63 72 65 6f 6c 65 2d 73 74 72 75 63 74 75 72 65 3f 0a 20 20 20 20 20 20 20 20 | e.the.creole-structure?......... |
| 32a0 | 20 20 20 20 20 28 73 74 72 75 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f | .....(struct...............(creo |
| 32c0 | 6c 65 2d 73 74 72 75 63 74 75 72 65 20 28 63 72 65 6f 6c 65 2d 74 6f 6b 65 6e 69 7a 65 20 63 72 | le-structure.(creole-tokenize.cr |
| 32e0 | 65 6f 6c 65 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 | eole-buffer)))..............;;.c |
| 3300 | 64 61 72 20 65 78 70 65 63 74 73 20 61 20 70 61 72 61 2e 2e 2e 6e 65 65 64 20 74 6f 20 63 68 61 | dar.expects.a.para...need.to.cha |
| 3320 | 6e 67 65 20 74 68 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 6d 6d 61 72 79 20 28 | nge.that..............(summary.( |
| 3340 | 63 64 61 72 20 73 74 72 75 63 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6f | cdar.struct))..............(deco |
| 3360 | 72 61 74 65 64 20 28 66 6f 72 6d 61 74 20 22 25 73 20 5b 5b 25 73 7c 2e 2e 2e 20 72 65 61 64 20 | rated.(format."%s.[[%s|....read. |
| 3380 | 6d 6f 72 65 5d 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | more]]"......................... |
| 33a0 | 20 20 20 20 20 20 20 20 73 75 6d 6d 61 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........summary................. |
| 33c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 | ................path)))......... |
| 33e0 | 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 | (with-temp-buffer...........(ins |
| 3400 | 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 72 65 6f 6c 65 2d 6c 69 6e | ert............(let.((creole-lin |
| 3420 | 6b 2d 72 65 73 6f 6c 76 65 72 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | k-resolver-fn................... |
| 3440 | 28 6c 61 6d 62 64 61 20 28 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (lambda.(path).................. |
| 3460 | 20 20 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 63 72 65 6f 6c 65 2d 73 75 6d 6d 61 72 79 | ...(if.(functionp.creole-summary |
| 3480 | 2d 72 65 73 6f 6c 76 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -resolver)...................... |
| 34a0 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 72 65 6f 6c 65 2d 73 75 6d 6d 61 72 79 2d 72 65 73 6f 6c | ...(funcall.creole-summary-resol |
| 34c0 | 76 65 72 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ver.path)....................... |
| 34e0 | 20 20 70 61 74 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2d | ..path))))..............(creole- |
| 3500 | 62 6c 6f 63 6b 2d 70 61 72 73 65 20 64 65 63 6f 72 61 74 65 64 29 29 29 0a 20 20 20 20 20 20 20 | block-parse.decorated)))........ |
| 3520 | 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 29 29 0a 0a 0a 28 64 65 66 76 61 | ...(buffer-string))))))...(defva |
| 3540 | 72 20 63 72 65 6f 6c 65 2d 65 6d 62 65 64 2d 68 61 6e 64 6c 65 72 73 20 6e 69 6c 0a 20 20 22 41 | r.creole-embed-handlers.nil..."A |
| 3560 | 6e 20 61 2d 6c 69 73 74 20 6f 66 20 73 63 68 65 6d 65 20 2e 20 68 61 6e 64 6c 65 72 2d 66 75 6e | n.a-list.of.scheme...handler-fun |
| 3580 | 63 74 69 6f 6e 20 70 61 69 72 73 20 66 6f 72 20 68 61 6e 64 6c 69 6e 67 20 65 6d 62 65 64 73 2e | ction.pairs.for.handling.embeds. |
| 35a0 | 0a 0a 54 68 65 20 69 6d 61 67 65 20 73 79 6e 74 61 78 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 | ..The.image.syntax.can.be.used.t |
| 35c0 | 6f 20 68 61 6e 64 6c 65 20 67 65 6e 65 72 69 63 20 65 6d 62 65 64 64 69 6e 67 2c 20 74 75 72 6e | o.handle.generic.embedding,.turn |
| 35e0 | 69 6e 67 0a 61 20 55 52 4c 20 69 6e 74 6f 20 73 6f 6d 65 20 67 65 6e 65 72 69 63 20 6f 75 74 70 | ing.a.URL.into.some.generic.outp |
| 3600 | 75 74 20 63 6f 64 65 2e 20 20 45 61 63 68 20 75 72 6c 20 73 63 68 65 6d 65 20 74 68 61 74 20 63 | ut.code...Each.url.scheme.that.c |
| 3620 | 61 6e 20 62 65 0a 75 73 65 64 20 74 6f 20 64 6f 20 74 68 61 74 20 6d 75 73 74 20 62 65 20 72 65 | an.be.used.to.do.that.must.be.re |
| 3640 | 67 69 73 74 65 72 65 64 20 68 65 72 65 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 3a 20 79 6f 75 | gistered.here...For.example:.you |
| 3660 | 74 75 62 65 3a 54 52 37 44 50 76 45 69 37 4a 67 20 63 6f 75 6c 64 20 62 65 20 72 65 74 75 72 6e | tube:TR7DPvEi7Jg.could.be.return |
| 3680 | 65 64 20 61 73 20 74 68 65 20 65 6d 62 65 64 0a 48 54 4d 4c 20 66 6f 72 20 74 68 61 74 20 73 70 | ed.as.the.embed.HTML.for.that.sp |
| 36a0 | 65 63 69 66 69 63 20 79 6f 75 74 75 62 65 20 76 69 64 65 6f 2e 0a 0a 48 61 6e 64 6c 65 72 73 20 | ecific.youtube.video...Handlers. |
| 36c0 | 73 68 6f 75 6c 64 20 65 78 70 65 63 74 20 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 3a 20 74 | should.expect.three.arguments:.t |
| 36e0 | 68 65 20 6d 61 74 63 68 20 64 61 74 61 20 28 61 73 20 70 61 73 73 65 64 0a 74 6f 20 60 63 72 65 | he.match.data.(as.passed.to.`cre |
| 3700 | 6f 6c 65 2d 69 6d 61 67 65 2d 72 65 73 6f 6c 76 65 27 29 20 61 6e 64 20 74 68 65 6e 20 74 68 65 | ole-image-resolve').and.then.the |
| 3720 | 20 73 63 68 65 6d 65 20 61 6e 64 20 74 68 65 20 70 61 74 68 20 28 74 68 65 0a 6e 6f 6e 2d 73 63 | .scheme.and.the.path.(the.non-sc |
| 3740 | 68 65 6d 65 20 70 61 72 74 20 6f 66 20 74 68 65 20 75 72 6c 29 2e 22 29 0a 0a 28 64 65 66 75 6e | heme.part.of.the.url).")..(defun |
| 3760 | 20 63 72 65 6f 6c 65 2d 69 6d 61 67 65 2d 72 65 73 6f 6c 76 65 20 28 6d 29 0a 20 20 22 52 65 73 | .creole-image-resolve.(m)..."Res |
| 3780 | 6f 6c 76 65 20 4d 2c 20 61 20 6d 61 74 63 68 20 6f 62 6a 65 63 74 2c 20 69 6e 74 6f 20 48 54 4d | olve.M,.a.match.object,.into.HTM |
| 37a0 | 4c 2e 0a 0a 4d 20 63 6f 6d 65 73 20 66 72 6f 6d 20 60 63 72 65 6f 6c 65 2d 69 6d 61 67 65 2d 70 | L...M.comes.from.`creole-image-p |
| 37c0 | 61 72 73 65 27 20 61 6e 64 20 68 61 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 67 72 6f 75 | arse'.and.has.the.following.grou |
| 37e0 | 70 73 3a 0a 0a 20 31 20 74 68 65 20 75 72 6c 20 70 61 72 74 0a 20 32 20 74 68 65 20 71 75 65 72 | ps:...1.the.url.part..2.the.quer |
| 3800 | 79 20 70 61 72 74 20 77 69 74 68 20 74 68 65 20 6c 65 61 64 69 6e 67 20 5c 22 3f 5c 22 0a 20 33 | y.part.with.the.leading.\"?\"..3 |
| 3820 | 20 74 68 65 20 71 75 65 72 79 20 70 61 72 74 20 77 69 74 68 6f 75 74 20 74 68 65 20 5c 22 3f 5c | .the.query.part.without.the.\"?\ |
| 3840 | 22 0a 20 34 20 74 68 65 20 64 65 73 63 72 69 70 74 69 6f 6e 20 70 61 72 74 20 77 69 74 68 20 74 | "..4.the.description.part.with.t |
| 3860 | 68 65 20 6c 65 61 64 69 6e 67 20 5c 22 7c 5c 22 0a 20 35 20 74 68 65 20 64 65 73 63 72 69 70 74 | he.leading.\"|\"..5.the.descript |
| 3880 | 69 6f 6e 20 70 61 72 74 20 77 69 74 68 6f 75 74 20 74 68 65 20 6c 65 61 64 69 6e 67 20 5c 22 7c | ion.part.without.the.leading.\"| |
| 38a0 | 5c 22 0a 0a 54 68 65 20 72 65 73 6f 6c 75 74 69 6f 6e 20 75 73 65 73 20 60 63 72 65 6f 6c 65 2d | \"..The.resolution.uses.`creole- |
| 38c0 | 65 6d 62 65 64 2d 68 61 6e 64 6c 65 72 73 27 20 74 6f 20 61 74 74 61 63 68 20 68 61 6e 64 6c 69 | embed-handlers'.to.attach.handli |
| 38e0 | 6e 67 0a 6c 6f 67 69 63 20 74 6f 20 75 72 6c 73 20 76 69 61 20 75 72 6c 20 73 63 68 65 6d 65 73 | ng.logic.to.urls.via.url.schemes |
| 3900 | 2e 0a 0a 49 66 20 6e 6f 20 68 61 6e 64 6c 65 72 20 69 73 20 66 6f 75 6e 64 20 74 68 65 20 65 6d | ...If.no.handler.is.found.the.em |
| 3920 | 62 65 64 20 69 73 20 70 72 65 73 75 6d 65 64 20 74 6f 20 62 65 20 61 6e 20 69 6d 61 67 65 20 61 | bed.is.presumed.to.be.an.image.a |
| 3940 | 6e 64 0a 70 61 73 73 65 64 20 74 6f 20 60 63 72 65 6f 6c 65 2f 69 6d 61 67 65 2d 3e 68 74 6d 6c | nd.passed.to.`creole/image->html |
| 3960 | 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 64 20 28 6d 61 74 63 68 2d 64 61 74 61 29 29 29 0a 20 | '."...(let.((md.(match-data))).. |
| 3980 | 20 20 20 3b 3b 20 4d 61 74 63 68 20 74 68 65 20 75 72 6c 20 70 61 72 74 20 66 6f 72 20 61 20 73 | ...;;.Match.the.url.part.for.a.s |
| 39a0 | 63 68 65 6d 65 0a 20 20 20 20 28 6e 6f 66 6c 65 74 20 28 28 6d 61 74 63 68 65 73 20 28 72 65 67 | cheme.....(noflet.((matches.(reg |
| 39c0 | 65 78 20 74 6f 2d 6d 61 74 63 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 | ex.to-match)................(sav |
| 39e0 | 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 | e-match-data..................(w |
| 3a00 | 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 67 65 78 20 74 6f 2d 6d 61 74 63 68 | hen.(string-match.regex.to-match |
| 3a20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 | )....................(loop.for.i |
| 3a40 | 20 66 72 6f 6d 20 30 20 74 6f 20 28 2d 20 28 2f 20 28 6c 65 6e 67 74 68 20 28 6d 61 74 63 68 2d | .from.0.to.(-.(/.(length.(match- |
| 3a60 | 64 61 74 61 29 29 20 32 29 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | data)).2).1).................... |
| 3a80 | 20 20 20 63 6f 6c 6c 65 63 74 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 69 20 74 6f 2d 6d 61 | ...collect.(match-string.i.to-ma |
| 3aa0 | 74 63 68 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 75 72 6c 20 28 6d 61 74 63 | tch)))))).......(let.((url.(matc |
| 3ac0 | 68 2d 73 74 72 69 6e 67 20 31 20 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 | h-string.1.m))).........(destruc |
| 3ae0 | 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 75 72 6c 20 73 63 68 65 6d | turing-bind.(&optional.url.schem |
| 3b00 | 65 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 65 73 0a 20 20 20 | e.path).............(matches.... |
| 3b20 | 20 20 20 20 20 20 20 20 20 20 28 72 78 20 28 67 72 6f 75 70 20 28 2b 20 28 61 6e 79 20 22 41 2d | ..........(rx.(group.(+.(any."A- |
| 3b40 | 5a 61 2d 7a 22 29 29 29 20 22 3a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 | Za-z"))).":"..................(g |
| 3b60 | 72 6f 75 70 20 28 2b 20 61 6e 79 74 68 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | roup.(+.anything)))............. |
| 3b80 | 20 75 72 6c 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 20 64 6f 20 74 68 69 73 20 62 65 63 | .url)...........;;.I.do.this.bec |
| 3ba0 | 61 75 73 65 20 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 20 64 6f 65 73 6e 27 74 20 73 65 65 | ause.save-match-data.doesn't.see |
| 3bc0 | 6d 20 74 6f 20 77 6f 72 6b 2e 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 74 63 68 2d | m.to.work............(set-match- |
| 3be0 | 64 61 74 61 20 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 69 6e 64 20 77 68 65 74 68 | data.md)...........;;.Find.wheth |
| 3c00 | 65 72 20 77 65 20 68 61 76 65 20 61 20 73 70 65 63 69 66 69 63 20 68 61 6e 64 6c 65 72 20 66 6f | er.we.have.a.specific.handler.fo |
| 3c20 | 72 20 73 63 68 65 6d 65 20 61 6e 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 | r.scheme.and.then...........;;.p |
| 3c40 | 61 73 73 20 69 74 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 68 61 6e | ass.it.path...........(let.((han |
| 3c60 | 64 6c 65 72 2d 66 6e 20 28 6b 76 61 20 73 63 68 65 6d 65 20 63 72 65 6f 6c 65 2d 65 6d 62 65 64 | dler-fn.(kva.scheme.creole-embed |
| 3c80 | 2d 68 61 6e 64 6c 65 72 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 75 | -handlers))).............(if.(fu |
| 3ca0 | 6e 63 74 69 6f 6e 70 20 68 61 6e 64 6c 65 72 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nctionp.handler-fn)............. |
| 3cc0 | 20 20 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 | ....(save-match-data............ |
| 3ce0 | 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 68 61 6e 64 6c 65 72 2d 66 6e 20 6d 20 73 63 68 | .......(funcall.handler-fn.m.sch |
| 3d00 | 65 6d 65 20 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 45 6c | eme.path)).................;;.El |
| 3d20 | 73 65 20 6a 75 73 74 20 63 61 6c 6c 20 74 68 65 20 69 6d 61 67 65 20 68 61 6e 64 6c 65 72 0a 20 | se.just.call.the.image.handler.. |
| 3d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2f 69 6d 61 67 65 2d 3e 68 74 | ...............(creole/image->ht |
| 3d60 | 6d 6c 20 6d 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 69 6d 61 67 | ml.m))))))))..(defun.creole-imag |
| 3d80 | 65 2d 70 61 72 73 65 20 28 74 65 78 74 29 0a 20 20 22 50 61 72 73 65 20 54 45 58 54 20 66 6f 72 | e-parse.(text)..."Parse.TEXT.for |
| 3da0 | 20 63 72 65 6f 6c 65 20 69 6d 61 67 65 73 2e 0a 0a 49 6d 61 67 65 73 20 73 68 6f 75 6c 64 20 68 | .creole.images...Images.should.h |
| 3dc0 | 61 76 65 20 74 68 69 73 20 66 6f 72 6d 61 74 3a 0a 0a 7b 7b 69 6d 61 67 65 2e 6a 70 67 3f 73 69 | ave.this.format:..{{image.jpg?si |
| 3de0 | 7a 65 3d 35 30 78 31 30 30 7c 64 65 73 63 72 69 70 74 69 6f 6e 7d 7d 0a 0a 77 68 65 72 65 20 74 | ze=50x100|description}}..where.t |
| 3e00 | 68 65 20 73 69 7a 65 20 61 6e 64 20 64 65 73 63 72 69 70 74 69 6f 6e 20 69 73 20 6f 70 74 69 6f | he.size.and.description.is.optio |
| 3e20 | 6e 61 6c 2c 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 0a 64 69 6d 65 6e 73 69 6f 6e 20 69 6e | nal,.and.the.second.dimension.in |
| 3e40 | 20 73 69 7a 65 20 63 61 6e 20 62 65 20 6f 6d 69 74 74 65 64 2e 0a 0a 54 68 65 20 27 73 69 7a 65 | .size.can.be.omitted...The.'size |
| 3e60 | 3d 27 20 69 73 20 6f 70 74 69 6f 6e 61 6c 2c 20 61 6e 64 20 49 20 6b 65 65 70 20 74 68 65 72 65 | ='.is.optional,.and.I.keep.there |
| 3e80 | 20 62 65 63 61 75 73 65 20 74 68 69 73 20 77 61 79 20 79 6f 75 0a 63 6f 75 6c 64 20 61 64 64 20 | .because.this.way.you.could.add. |
| 3ea0 | 6d 6f 72 65 20 70 61 72 61 6d 65 74 65 72 73 20 74 6f 20 74 68 65 20 69 6d 61 67 65 20 69 66 20 | more.parameters.to.the.image.if. |
| 3ec0 | 79 6f 75 20 6e 65 65 64 65 64 20 74 68 65 6d 2e 20 42 79 0a 6e 6f 77 2c 20 61 20 73 69 7a 65 20 | you.needed.them..By.now,.a.size. |
| 3ee0 | 69 73 20 73 75 70 70 6f 73 65 64 2c 20 61 6e 64 20 74 68 65 20 76 61 6c 75 65 73 20 61 72 65 20 | is.supposed,.and.the.values.are. |
| 3f00 | 61 73 73 75 6d 65 64 20 74 6f 20 62 65 20 65 69 74 68 65 72 0a 61 20 57 69 64 74 68 2c 20 6f 72 | assumed.to.be.either.a.Width,.or |
| 3f20 | 20 61 20 57 69 64 74 68 78 48 65 69 67 68 74 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 2e 0a 0a | .a.WidthxHeight.specification... |
| 3f40 | 49 66 20 64 65 66 69 6e 65 64 20 74 68 65 6e 20 60 63 72 65 6f 6c 65 2d 6c 69 6e 6b 2d 72 65 73 | If.defined.then.`creole-link-res |
| 3f60 | 6f 6c 76 65 72 2d 66 6e 27 20 69 73 20 75 73 65 64 20 66 6f 72 20 6c 69 6e 6b 73 2e 22 0a 20 20 | olver-fn'.is.used.for.links."... |
| 3f80 | 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 28 72 78 | (replace-regexp-in-string....(rx |
| 3fa0 | 20 22 7b 7b 22 0a 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2b 20 28 6e 6f 74 20 28 61 6e 79 | ."{{"........(group.(+.(not.(any |
| 3fc0 | 20 22 3f 7c 7d 22 29 29 29 29 0a 20 20 20 20 20 20 20 28 2a 20 28 67 72 6f 75 70 20 22 3f 22 20 | ."?|}"))))........(*.(group."?". |
| 3fe0 | 28 67 72 6f 75 70 20 28 2b 20 28 6e 6f 74 20 28 61 6e 79 20 22 3f 7c 7d 22 29 29 29 29 29 29 0a | (group.(+.(not.(any."?|}")))))). |
| 4000 | 20 20 20 20 20 20 20 28 3f 20 28 67 72 6f 75 70 20 22 7c 22 20 28 67 72 6f 75 70 20 28 2b 20 28 | .......(?.(group."|".(group.(+.( |
| 4020 | 6e 6f 74 20 28 61 6e 79 20 22 7d 22 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 22 7d 7d 22 29 0a | not.(any."}"))))))........"}}"). |
| 4040 | 20 20 20 27 63 72 65 6f 6c 65 2d 69 6d 61 67 65 2d 72 65 73 6f 6c 76 65 0a 20 20 20 74 65 78 74 | ...'creole-image-resolve....text |
| 4060 | 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 62 6c 6f 63 6b 2d 70 61 72 73 65 20 28 74 | ))..(defun.creole-block-parse.(t |
| 4080 | 65 78 74 29 0a 20 20 22 50 61 72 73 65 73 20 54 45 58 54 20 61 73 20 61 20 63 72 65 6f 6c 65 20 | ext)..."Parses.TEXT.as.a.creole. |
| 40a0 | 62 6c 6f 63 6b 2e 0a 0a 41 20 63 72 65 6f 6c 65 20 62 6c 6f 63 6b 20 69 73 20 61 20 70 61 72 61 | block...A.creole.block.is.a.para |
| 40c0 | 67 72 61 70 68 20 6f 72 20 6c 69 73 74 20 69 74 65 6d 20 74 68 61 74 20 63 61 6e 20 69 6e 63 6c | graph.or.list.item.that.can.incl |
| 40e0 | 75 64 65 0a 6c 69 6e 6b 73 2c 20 69 74 61 6c 69 63 2c 20 62 6f 6c 64 2c 20 6c 69 6e 65 20 62 72 | ude.links,.italic,.bold,.line.br |
| 4100 | 65 61 6b 20 6f 72 20 69 6e 6c 69 6e 65 20 70 72 65 66 6f 72 6d 61 74 74 65 64 20 6d 61 72 6b 75 | eak.or.inline.preformatted.marku |
| 4120 | 70 2e 0a 0a 52 65 74 75 72 6e 73 20 61 20 63 6f 70 79 20 6f 66 20 54 45 58 54 20 77 69 74 68 20 | p...Returns.a.copy.of.TEXT.with. |
| 4140 | 74 68 65 20 57 69 6b 69 43 72 65 6f 6c 65 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 0a 61 70 70 | the.WikiCreole.replaced.with.app |
| 4160 | 72 6f 70 72 69 61 74 65 20 48 54 4d 4c 2e 22 0a 20 20 28 6c 65 74 20 28 28 74 72 61 6e 73 66 6f | ropriate.HTML."...(let.((transfo |
| 4180 | 72 6d 65 64 0a 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e | rmed..........(replace-regexp-in |
| 41a0 | 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 28 72 78 20 22 2a 2a 22 0a 20 20 20 20 20 | -string...........(rx."**"...... |
| 41c0 | 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2a 3f 20 61 6e 79 74 68 69 6e 67 29 29 0a 20 | .........(group.(*?.anything)).. |
| 41e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2a 2a 22 29 0a 20 20 20 20 20 20 20 20 20 20 22 3c 73 | ............."**")..........."<s |
| 4200 | 74 72 6f 6e 67 3e 5c 5c 31 3c 2f 73 74 72 6f 6e 67 3e 22 0a 20 20 20 20 20 20 20 20 20 20 28 72 | trong>\\1</strong>"...........(r |
| 4220 | 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 | eplace-regexp-in-string......... |
| 4240 | 20 20 20 28 72 78 20 28 67 72 6f 75 70 20 28 6e 6f 74 20 28 61 6e 79 20 22 3a 22 29 29 29 0a 20 | ...(rx.(group.(not.(any.":"))).. |
| 4260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2f 2f 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............."//".............. |
| 4280 | 20 20 28 67 72 6f 75 70 20 28 2a 3f 20 61 6e 79 74 68 69 6e 67 29 20 28 6e 6f 74 20 28 61 6e 79 | ..(group.(*?.anything).(not.(any |
| 42a0 | 20 22 3a 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2f 2f 22 29 0a 20 20 20 | .":")))................"//").... |
| 42c0 | 20 20 20 20 20 20 20 20 22 5c 5c 31 3c 65 6d 3e 5c 5c 32 3c 2f 65 6d 3e 22 0a 20 20 20 20 20 20 | ........"\\1<em>\\2</em>"....... |
| 42e0 | 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 | .....(replace-regexp-in-string.. |
| 4300 | 20 20 20 20 20 20 20 20 20 20 20 28 72 78 20 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........(rx.bol.............. |
| 4320 | 20 20 20 22 2f 2f 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 | ..."//".................(group.( |
| 4340 | 2a 3f 20 61 6e 79 74 68 69 6e 67 29 20 28 6e 6f 74 20 28 61 6e 79 20 22 3a 22 29 29 29 0a 20 20 | *?.anything).(not.(any.":")))... |
| 4360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2f 2f 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .............."//")............. |
| 4380 | 22 3c 65 6d 3e 5c 5c 31 3c 2f 65 6d 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c | "<em>\\1</em>".............(repl |
| 43a0 | 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 | ace-regexp-in-string............ |
| 43c0 | 20 20 28 72 78 20 22 7b 7b 7b 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 | ..(rx."{{{"..................(gr |
| 43e0 | 6f 75 70 20 28 2a 3f 20 61 6e 79 74 68 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | oup.(*?.anything)).............. |
| 4400 | 20 20 20 20 22 7d 7d 7d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 63 6f 64 65 3e 5c | ...."}}}").............."<code>\ |
| 4420 | 5c 31 3c 2f 63 6f 64 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 | \1</code>"..............(replace |
| 4440 | 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -regexp-in-string............... |
| 4460 | 28 72 78 20 3f 5c 5c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 62 72 2f 3e 22 0a 20 | (rx.?\\)..............."<br/>".. |
| 4480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 29 29 29 29 29 29 29 0a 20 20 20 20 28 69 66 | .............text))))))).....(if |
| 44a0 | 20 63 72 65 6f 6c 65 2d 6f 64 64 6d 75 73 65 2d 6f 6e 0a 20 20 20 20 20 20 20 20 28 63 72 65 6f | .creole-oddmuse-on.........(creo |
| 44c0 | 6c 65 2d 69 6d 61 67 65 2d 70 61 72 73 65 0a 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2d | le-image-parse..........(creole- |
| 44e0 | 6c 69 6e 6b 2d 70 61 72 73 65 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 | link-parse...........(replace-re |
| 4500 | 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 78 20 22 27 | gexp-in-string............(rx."' |
| 4520 | 27 27 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2a 3f 20 6e 6f | ''"................(group.(*?.no |
| 4540 | 74 2d 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 27 27 27 22 | t-newline))................"'''" |
| 4560 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 22 3c 65 6d 3e 5c 5c 31 3c 2f 65 6d 3e 22 0a 20 20 20 20 | )............"<em>\\1</em>"..... |
| 4580 | 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 | .......(replace-regexp-in-string |
| 45a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 78 20 22 23 23 22 0a 20 20 20 20 20 20 20 20 20 20 | .............(rx."##"........... |
| 45c0 | 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2a 3f 20 6e 6f 74 2d 6e 65 77 6c 69 6e 65 29 29 0a 20 | ......(group.(*?.not-newline)).. |
| 45e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 23 23 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..............."##")............ |
| 4600 | 20 22 3c 63 6f 64 65 3e 5c 5c 31 3c 2f 63 6f 64 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ."<code>\\1</code>"............. |
| 4620 | 74 72 61 6e 73 66 6f 72 6d 65 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 45 6c 73 65 0a | transformed)))).........;;.Else. |
| 4640 | 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2d 69 6d 61 67 65 2d 70 61 72 73 65 20 28 63 72 65 | ........(creole-image-parse.(cre |
| 4660 | 6f 6c 65 2d 6c 69 6e 6b 2d 70 61 72 73 65 20 74 72 61 6e 73 66 6f 72 6d 65 64 29 29 29 29 29 0a | ole-link-parse.transformed))))). |
| 4680 | 0a 28 64 65 66 76 61 72 20 63 72 65 6f 6c 65 2d 72 65 63 61 6c 63 75 6c 61 74 65 2d 6f 72 67 2d | .(defvar.creole-recalculate-org- |
| 46a0 | 74 61 62 6c 65 73 20 74 0a 20 20 22 49 6e 64 69 63 61 74 65 73 20 74 68 61 74 20 4f 72 67 20 74 | tables.t..."Indicates.that.Org.t |
| 46c0 | 61 62 6c 65 73 20 73 68 6f 75 6c 64 20 62 65 20 72 65 63 61 6c 63 75 6c 61 74 65 64 20 69 6e 70 | ables.should.be.recalculated.inp |
| 46e0 | 6c 61 63 65 2e 0a 0a 54 61 62 6c 65 20 63 61 6c 63 75 6c 61 74 69 6f 6e 20 69 73 20 70 65 72 66 | lace...Table.calculation.is.perf |
| 4700 | 6f 72 6d 65 64 20 63 61 6c 6c 69 6e 67 0a 60 6f 72 67 2d 74 61 62 6c 65 2d 72 65 63 61 6c 63 75 | ormed.calling.`org-table-recalcu |
| 4720 | 6c 61 74 65 27 2e 20 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 69 73 20 74 6f 20 72 | late'..The.default.value.is.to.r |
| 4740 | 65 63 61 6c 63 75 6c 61 74 65 20 74 68 65 0a 74 61 62 6c 65 73 2e 20 48 6f 77 65 76 65 72 2c 20 | ecalculate.the.tables..However,. |
| 4760 | 74 68 69 73 20 6c 65 61 76 65 73 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 62 75 66 66 65 72 20 | this.leaves.the.original.buffer. |
| 4780 | 6d 6f 64 69 66 69 65 64 2e 20 49 66 20 79 6f 75 0a 64 6f 6e 27 74 20 77 61 6e 74 20 74 68 65 20 | modified..If.you.don't.want.the. |
| 47a0 | 6f 72 69 67 69 6e 61 6c 20 62 75 66 66 65 72 20 6d 6f 64 69 66 69 65 64 2c 20 6f 72 20 79 6f 75 | original.buffer.modified,.or.you |
| 47c0 | 20 64 6f 6e 27 74 20 68 61 76 65 0a 66 6f 72 6d 75 6c 61 73 20 69 6e 20 79 6f 75 72 20 74 61 62 | .don't.have.formulas.in.your.tab |
| 47e0 | 6c 65 73 20 28 73 6f 20 72 65 63 61 6c 63 75 6c 61 74 69 6f 6e 20 69 73 20 6e 6f 74 20 6e 65 63 | les.(so.recalculation.is.not.nec |
| 4800 | 65 73 73 61 72 79 29 2c 20 79 6f 75 0a 63 61 6e 20 63 68 61 6e 67 65 20 74 68 69 73 20 76 61 6c | essary),.you.can.change.this.val |
| 4820 | 75 65 20 74 6f 20 6e 69 6c 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 6f 72 67 2d | ue.to.nil.")..(defun.creole/org- |
| 4840 | 74 61 62 6c 65 2d 72 6f 77 2d 70 61 72 73 65 72 20 28 72 6f 77 2d 74 65 78 74 29 0a 20 20 22 53 | table-row-parser.(row-text)..."S |
| 4860 | 70 6c 69 74 20 61 6e 20 6f 72 67 2d 74 61 62 6c 65 20 72 6f 77 20 69 6e 74 6f 20 61 20 6c 69 73 | plit.an.org-table.row.into.a.lis |
| 4880 | 74 20 6f 66 20 63 65 6c 6c 73 2e 22 0a 20 20 28 6e 6f 66 6c 65 74 20 28 28 6c 61 73 74 2d 70 6f | t.of.cells."...(noflet.((last-po |
| 48a0 | 73 20 28 74 65 78 74 29 20 3b 3b 20 66 69 6e 64 20 74 68 65 20 6c 61 73 74 20 7c 0a 20 20 20 20 | s.(text).;;.find.the.last.|..... |
| 48c0 | 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 7c 5b 20 5c 6e 5d 2a 24 | .........(string-match."|[.\n]*$ |
| 48e0 | 22 20 74 65 78 74 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 69 72 73 20 28 6c 69 73 | ".text))).....(let*.((pairs.(lis |
| 4900 | 74 20 28 63 6f 6e 73 20 22 2f 2f 22 20 22 2f 2f 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.(cons."//"."//").............. |
| 4920 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 22 7b 7b 22 20 22 7d 7d 22 29 0a 20 20 20 20 | ...........(cons."{{"."}}")..... |
| 4940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 22 5b 5b 22 20 22 | ....................(cons."[["." |
| 4960 | 5d 5d 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 65 6c 6c 73 74 61 72 74 20 31 29 0a | ]]")))............(cellstart.1). |
| 4980 | 20 20 20 20 20 20 20 20 20 20 20 28 70 74 20 63 65 6c 6c 73 74 61 72 74 29 0a 20 20 20 20 20 20 | ...........(pt.cellstart)....... |
| 49a0 | 20 20 20 20 20 6c 73 74 29 0a 20 20 20 20 20 20 28 63 61 74 63 68 20 3a 65 73 63 61 70 65 0a 20 | .....lst).......(catch.:escape.. |
| 49c0 | 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 74 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3c | .......(while.t...........(if.(< |
| 49e0 | 20 70 74 20 28 6c 61 73 74 2d 70 6f 73 20 72 6f 77 2d 74 65 78 74 29 29 0a 20 20 20 20 20 20 20 | .pt.(last-pos.row-text))........ |
| 4a00 | 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 65 6c 6c 20 28 73 75 62 73 74 72 69 6e 67 20 72 | .......(let*.((cell.(substring.r |
| 4a20 | 6f 77 2d 74 65 78 74 20 70 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ow-text.pt)).................... |
| 4a40 | 20 20 28 64 65 6c 69 6d 2d 70 6f 73 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 0a 20 20 20 20 20 | ..(delim-pos.(string-match...... |
| 4a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 78 20 | ............................(rx. |
| 4a80 | 28 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (group.......................... |
| 4aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 22 2f 2f 22 20 22 7b 7b 22 20 22 5b 5b 22 20 | .............(or."//"."{{"."[[". |
| 4ac0 | 22 7c 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "|"))).......................... |
| 4ae0 | 20 20 20 20 20 20 20 20 63 65 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........cell)).................. |
| 4b00 | 20 20 20 20 28 64 65 6c 69 6d 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 63 65 6c 6c 29 | ....(delim.(match-string.1.cell) |
| 4b20 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 64 65 | )).................(if.(equal.de |
| 4b40 | 6c 69 6d 20 22 7c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 | lim."|").....................(pr |
| 4b60 | 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 0a | ogn.......................(push. |
| 4b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e | .......................(substrin |
| 4ba0 | 67 20 72 6f 77 2d 74 65 78 74 20 63 65 6c 6c 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 | g.row-text.cellstart............ |
| 4bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 70 74 20 64 65 6c | .......................(+.pt.del |
| 4be0 | 69 6d 2d 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | im-pos))........................ |
| 4c00 | 6c 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | lst).......................(setq |
| 4c20 | 20 70 74 20 28 73 65 74 71 20 63 65 6c 6c 73 74 61 72 74 20 28 2b 20 70 74 20 64 65 6c 69 6d 2d | .pt.(setq.cellstart.(+.pt.delim- |
| 4c40 | 70 6f 73 20 31 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | pos.1)))).....................;; |
| 4c60 | 20 65 6c 73 65 20 69 74 27 73 20 67 6f 74 20 73 6f 6d 65 20 66 6f 72 6d 61 74 74 69 6e 67 20 73 | .else.it's.got.some.formatting.s |
| 4c80 | 6f 20 73 6b 69 70 20 69 74 20 77 68 61 74 65 76 65 72 20 69 74 20 69 73 0a 20 20 20 20 20 20 20 | o.skip.it.whatever.it.is........ |
| 4ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 61 72 74 20 28 2b 20 64 65 | .............(let*.((start.(+.de |
| 4cc0 | 6c 69 6d 2d 70 6f 73 20 28 6c 65 6e 67 74 68 20 64 65 6c 69 6d 29 29 29 0a 20 20 20 20 20 20 20 | lim-pos.(length.delim)))........ |
| 4ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 69 6d 2d 65 6e 64 20 28 | ....................(delim-end.( |
| 4d00 | 6b 76 61 20 64 65 6c 69 6d 20 70 61 69 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kva.delim.pairs))............... |
| 4d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 0a | .............(end.(string-match. |
| 4d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4d60 | 20 28 72 78 2d 74 6f 2d 73 74 72 69 6e 67 20 60 28 61 6e 64 20 2c 64 65 6c 69 6d 2d 65 6e 64 29 | .(rx-to-string.`(and.,delim-end) |
| 4d80 | 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .t)............................. |
| 4da0 | 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 63 65 6c 6c 20 73 74 61 72 74 29 29 29 29 0a 20 | .....(substring.cell.start)))).. |
| 4dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 6e 64 20 61 64 64 20 | .....................;;.and.add. |
| 4de0 | 69 74 20 74 6f 20 6c 20 74 6f 20 66 69 6e 64 20 65 6e 64 20 70 6f 69 6e 74 0a 20 20 20 20 20 20 | it.to.l.to.find.end.point....... |
| 4e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 6e 64 20 74 68 65 6e 20 73 65 61 72 | ................;;.and.then.sear |
| 4e20 | 63 68 20 61 67 61 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ch.again.......................( |
| 4e40 | 73 65 74 71 20 70 74 20 28 2b 20 70 74 20 28 2b 20 73 74 61 72 74 20 65 6e 64 20 28 6c 65 6e 67 | setq.pt.(+.pt.(+.start.end.(leng |
| 4e60 | 74 68 20 64 65 6c 69 6d 2d 65 6e 64 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | th.delim-end)))))))............. |
| 4e80 | 20 20 3b 3b 20 45 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 | ..;;.Else...............(unless. |
| 4ea0 | 28 65 71 75 61 6c 20 63 65 6c 6c 73 74 61 72 74 20 70 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (equal.cellstart.pt)............ |
| 4ec0 | 20 20 20 20 20 28 70 75 73 68 20 28 73 75 62 73 74 72 69 6e 67 20 72 6f 77 2d 74 65 78 74 20 63 | .....(push.(substring.row-text.c |
| 4ee0 | 65 6c 6c 73 74 61 72 74 20 70 74 29 20 6c 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ellstart.pt).lst)).............. |
| 4f00 | 20 28 74 68 72 6f 77 20 3a 65 73 63 61 70 65 20 28 72 65 76 65 72 73 65 20 6c 73 74 29 29 29 29 | .(throw.:escape.(reverse.lst)))) |
| 4f20 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 6f 72 67 2d 74 61 62 6c 65 2d 74 6f | ))))..(defun.creole/org-table-to |
| 4f40 | 2d 6c 69 73 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 74 78 74 29 0a 20 20 22 43 6f 6e 76 65 72 74 | -lisp.(&optional.txt)..."Convert |
| 4f60 | 20 74 68 65 20 74 61 62 6c 65 20 61 74 20 70 6f 69 6e 74 20 74 6f 20 61 20 4c 69 73 70 20 73 74 | .the.table.at.point.to.a.Lisp.st |
| 4f80 | 72 75 63 74 75 72 65 2e 0a 0a 52 65 70 6c 61 63 65 73 20 60 6f 72 67 2d 74 61 62 6c 65 2d 74 6f | ructure...Replaces.`org-table-to |
| 4fa0 | 2d 6c 69 73 70 27 20 77 69 74 68 20 73 6f 6d 65 74 68 69 6e 67 20 74 68 61 74 20 68 61 6e 64 6c | -lisp'.with.something.that.handl |
| 4fc0 | 65 73 20 63 65 6c 6c 73 0a 66 6f 72 20 63 72 65 6f 6c 65 20 62 65 74 74 65 72 20 73 69 6e 63 65 | es.cells.for.creole.better.since |
| 4fe0 | 20 61 20 63 65 6c 6c 20 77 69 74 68 20 61 20 6c 69 6e 6b 20 69 6e 20 69 74 20 77 6f 75 6c 64 20 | .a.cell.with.a.link.in.it.would. |
| 5000 | 66 61 69 6c 0a 6f 74 68 65 72 77 69 73 65 20 62 65 63 61 75 73 65 20 63 72 65 6f 6c 65 20 75 73 | fail.otherwise.because.creole.us |
| 5020 | 65 73 20 74 68 65 20 7c 20 61 73 20 61 20 6c 69 6e 6b 20 73 65 70 61 72 61 74 6f 72 2e 22 0a 20 | es.the.|.as.a.link.separator.".. |
| 5040 | 20 28 75 6e 6c 65 73 73 20 74 78 74 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 67 2d 61 74 | .(unless.txt.....(unless.(org-at |
| 5060 | 2d 74 61 62 6c 65 2d 70 29 0a 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 | -table-p).......(user-error."No. |
| 5080 | 74 61 62 6c 65 20 61 74 20 70 6f 69 6e 74 22 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 78 74 | table.at.point")))...(let*.((txt |
| 50a0 | 20 28 6f 72 20 74 78 74 0a 09 09 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e | .(or.txt.....(buffer-substring-n |
| 50c0 | 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o-properties.................... |
| 50e0 | 28 6f 72 67 2d 74 61 62 6c 65 2d 62 65 67 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (org-table-begin)............... |
| 5100 | 20 20 20 20 20 28 6f 72 67 2d 74 61 62 6c 65 2d 65 6e 64 29 29 29 29 0a 09 20 28 6c 69 6e 65 73 | .....(org-table-end))))...(lines |
| 5120 | 20 28 6f 72 67 2d 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 74 78 74 20 22 5b 20 5c 74 5d 2a 5c 6e | .(org-split-string.txt."[.\t]*\n |
| 5140 | 5b 20 5c 74 5d 2a 22 29 29 29 0a 20 20 20 20 28 6d 61 70 63 61 72 0a 20 20 20 20 20 28 6c 61 6d | [.\t]*"))).....(mapcar......(lam |
| 5160 | 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 | bda.(x)........(if.(string-match |
| 5180 | 20 6f 72 67 2d 74 61 62 6c 65 2d 68 6c 69 6e 65 2d 72 65 67 65 78 70 20 78 29 0a 09 20 20 20 27 | .org-table-hline-regexp.x).....' |
| 51a0 | 68 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2f 6f 72 67 2d 74 61 62 | hline............(creole/org-tab |
| 51c0 | 6c 65 2d 72 6f 77 2d 70 61 72 73 65 72 20 78 29 29 29 0a 20 20 20 20 20 6c 69 6e 65 73 29 29 29 | le-row-parser.x)))......lines))) |
| 51e0 | 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 74 6f 6b 65 6e 69 7a 65 20 28 64 6f 63 62 75 66 | ..(defun.creole-tokenize.(docbuf |
| 5200 | 29 0a 20 20 22 50 61 72 73 65 20 44 4f 43 42 55 46 20 77 68 69 63 68 20 69 73 20 66 75 6c 6c 20 | )..."Parse.DOCBUF.which.is.full. |
| 5220 | 6f 66 20 63 72 65 6f 6c 65 20 77 69 6b 69 20 74 65 78 74 2e 0a 0a 53 65 65 20 68 74 74 70 3a 2f | of.creole.wiki.text...See.http:/ |
| 5240 | 2f 77 77 77 2e 77 69 6b 69 63 72 65 6f 6c 65 2e 6f 72 67 2f 77 69 6b 69 2f 43 72 65 6f 6c 65 31 | /www.wikicreole.org/wiki/Creole1 |
| 5260 | 2e 30 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 6f 6e 20 57 69 6b 69 43 | .0.for.more.information.on.WikiC |
| 5280 | 72 65 6f 6c 65 2e 0a 0a 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 70 61 72 73 65 64 | reole...Returns.a.list.of.parsed |
| 52a0 | 20 65 6c 65 6d 65 6e 74 73 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 | .elements."...(with-current-buff |
| 52c0 | 65 72 20 64 6f 63 62 75 66 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 | er.docbuf.....(save-excursion... |
| 52e0 | 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 | ....(goto-char.(point-min))..... |
| 5300 | 20 20 28 6c 65 74 20 28 28 72 65 73 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c | ..(let.((res.'())).........(whil |
| 5320 | 65 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 | e.(not.(eobp))...........(cond.. |
| 5340 | 20 20 20 20 20 20 20 20 20 20 28 3b 3b 20 48 65 61 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 | ..........(;;.Heading........... |
| 5360 | 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 28 72 78 20 62 6f 6c 20 28 67 72 6f 75 70 20 28 2b 20 | ..(looking-at.(rx.bol.(group.(+. |
| 5380 | 22 3d 22 29 29 20 28 69 6e 20 62 6c 61 6e 6b 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | "=")).(in.blank))).............. |
| 53a0 | 28 6c 65 74 20 28 28 6c 65 76 65 6c 20 28 6c 65 6e 67 74 68 20 28 6d 61 74 63 68 2d 73 74 72 69 | (let.((level.(length.(match-stri |
| 53c0 | 6e 67 20 31 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 63 74 75 61 | ng.1))))................;;.Actua |
| 53e0 | 6c 6c 79 2c 20 74 68 65 20 65 6e 64 20 3d 20 69 73 20 6f 70 74 69 6f 6e 61 6c 2e 2e 2e 20 6e 6f | lly,.the.end.=.is.optional....no |
| 5400 | 74 20 73 75 72 65 20 69 66 2c 20 77 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | t.sure.if,.when................; |
| 5420 | 3b 20 74 68 65 72 65 20 69 73 20 61 6e 20 65 6e 64 20 3d 20 69 74 20 68 61 73 20 74 6f 20 62 65 | ;.there.is.an.end.=.it.has.to.be |
| 5440 | 20 74 68 65 20 73 61 6d 65 20 6e 75 6d 62 65 72 20 61 73 20 74 68 65 0a 20 20 20 20 20 20 20 20 | .the.same.number.as.the......... |
| 5460 | 20 20 20 20 20 20 20 3b 3b 20 66 69 72 73 74 20 6f 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .......;;.first.one............. |
| 5480 | 20 20 20 28 69 66 20 28 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(if.(not..................... |
| 54a0 | 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (re-search-forward.............. |
| 54c0 | 20 20 20 20 20 20 20 20 28 72 78 20 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(rx.bol................. |
| 54e0 | 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2b 20 22 3d 22 29 29 0a 20 20 20 20 20 20 20 | .........(group.(+."="))........ |
| 5500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 62 6c 61 6e 6b 29 0a 20 20 20 20 | ..................(+.blank)..... |
| 5520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2a 20 61 | .....................(group.(*.a |
| 5540 | 6e 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b | ny))..........................(+ |
| 5560 | 20 62 6c 61 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .blank)......................... |
| 5580 | 20 28 67 72 6f 75 70 20 28 2b 20 22 3d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(group.(+."="))................ |
| 55a0 | 20 20 20 20 20 20 20 20 20 20 65 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........eol).................. |
| 55c0 | 20 20 20 20 6e 69 6c 20 27 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....nil.'t)).................... |
| 55e0 | 28 65 72 72 6f 72 20 22 43 72 65 6f 6c 65 3a 20 62 61 64 6c 79 20 66 6f 72 6d 61 74 74 65 64 20 | (error."Creole:.badly.formatted. |
| 5600 | 68 65 61 64 69 6e 67 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | heading"))................(when. |
| 5620 | 28 65 71 75 61 6c 20 28 6c 65 6e 67 74 68 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 33 29 29 | (equal.(length.(match-string.3)) |
| 5640 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 76 | .............................lev |
| 5660 | 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 20 28 | el)..................(setq.res.( |
| 5680 | 61 70 70 65 6e 64 20 72 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | append.res...................... |
| 56a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..............(list............. |
| 56c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 | ........................(cons... |
| 56e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5700 | 20 20 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 68 65 61 64 69 6e 67 25 73 22 20 6c | ...(intern.(format."heading%s".l |
| 5720 | 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | evel)).......................... |
| 5740 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 73 74 72 69 6e 67 20 74 68 61 74 20 69 | ............;;.The.string.that.i |
| 5760 | 73 20 74 68 65 20 68 65 61 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.the.heading................... |
| 5780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 2d 20 61 6e 79 20 69 6e 74 65 | ...................;;.-.any.inte |
| 57a0 | 72 6e 61 6c 20 72 75 6c 65 73 20 77 65 20 73 68 6f 75 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 | rnal.rules.we.should............ |
| 57c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 65 61 | ..........................;;.dea |
| 57e0 | 6c 20 77 69 74 68 20 68 65 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l.with.here..................... |
| 5800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 32 | .................(match-string.2 |
| 5820 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d | )))))..................(forward- |
| 5840 | 6c 69 6e 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3b 3b 20 4f 64 64 4d 75 73 65 | line)))).............(;;.OddMuse |
| 5860 | 20 70 6f 72 74 72 61 69 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 63 72 65 | .portraits..............(and.cre |
| 5880 | 6f 6c 65 2d 6f 64 64 6d 75 73 65 2d 6f 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 0a 20 20 20 20 20 | ole-oddmuse-on.(looking-at...... |
| 58a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 58c0 | 28 72 78 20 62 6f 6c 20 22 70 6f 72 74 72 61 69 74 3a 22 20 28 67 72 6f 75 70 20 28 2a 20 61 6e | (rx.bol."portrait:".(group.(*.an |
| 58e0 | 79 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 20 28 61 | y)))))..............(setq.res.(a |
| 5900 | 70 70 65 6e 64 20 72 65 73 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 27 70 6f 72 74 72 61 69 74 20 | ppend.res.(list.(cons.'portrait. |
| 5920 | 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (match-string.1)))))............ |
| 5940 | 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3b | ..(forward-line)).............(; |
| 5960 | 3b 20 54 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 | ;.Table..............(looking-at |
| 5980 | 20 22 5e 7c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 65 63 61 6c 63 75 6c 61 | ."^|")..............;;.Recalcula |
| 59a0 | 74 65 20 74 61 62 6c 65 73 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 72 | te.tables?..............(when.cr |
| 59c0 | 65 6f 6c 65 2d 72 65 63 61 6c 63 75 6c 61 74 65 2d 6f 72 67 2d 74 61 62 6c 65 73 0a 20 20 20 20 | eole-recalculate-org-tables..... |
| 59e0 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 65 71 75 69 72 65 73 20 74 68 61 74 20 77 65 27 72 | ...........;;.Requires.that.we'r |
| 5a00 | 65 20 62 61 63 6b 20 69 6e 20 74 68 65 20 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e.back.in.the.table............. |
| 5a20 | 20 20 20 28 6f 72 67 2d 74 61 62 6c 65 2d 72 65 63 61 6c 63 75 6c 61 74 65 20 74 29 29 0a 20 20 | ...(org-table-recalculate.t))... |
| 5a40 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 62 6c 20 28 63 72 65 6f 6c 65 2f 6f | ...........(let*.((tbl.(creole/o |
| 5a60 | 72 67 2d 74 61 62 6c 65 2d 74 6f 2d 6c 69 73 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | rg-table-to-lisp)).............. |
| 5a80 | 20 20 20 20 20 20 20 28 70 74 20 28 6f 72 67 2d 74 61 62 6c 65 2d 65 6e 64 29 29 29 0a 20 20 20 | .......(pt.(org-table-end))).... |
| 5aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 20 28 61 70 70 65 6e 64 0a 20 20 | ............(setq.res.(append... |
| 5ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 0a 20 20 20 20 | ........................res..... |
| 5ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 | ......................(list..... |
| 5b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 27 74 61 | .......................(cons.'ta |
| 5b20 | 62 6c 65 20 74 62 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f | ble.tbl))))................(goto |
| 5b40 | 2d 63 68 61 72 20 70 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 6b 69 70 | -char.pt)................;;.Skip |
| 5b60 | 20 66 6f 72 77 61 72 64 20 6f 76 65 72 20 61 6e 79 20 6f 72 67 2d 74 62 6c 20 63 6f 6d 6d 65 6e | .forward.over.any.org-tbl.commen |
| 5b80 | 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 72 65 2d 73 65 | ts................(unless.(re-se |
| 5ba0 | 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 5b 5e 23 5d 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 | arch-forward."^[^#]".nil.t)..... |
| 5bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d | .............(goto-char.(point-m |
| 5be0 | 61 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d | ax)))................(beginning- |
| 5c00 | 6f 66 2d 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3b 3b 20 55 6e 6f 72 64 | of-line))).............(;;.Unord |
| 5c20 | 65 72 65 64 20 6c 69 73 74 20 69 74 65 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f | ered.list.item..............(loo |
| 5c40 | 6b 69 6e 67 2d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 78 20 62 6f 6c 0a 20 20 | king-at...............(rx.bol... |
| 5c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2b 20 22 2a 22 29 29 0a | ................(group.(+."*")). |
| 5c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 20 62 6c 61 6e 6b 29 0a 20 20 20 | ..................(in.blank).... |
| 5ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2a 20 61 6e 79 29 29 29 29 | ...............(group.(*.any)))) |
| 5cc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 65 76 65 6c 20 28 6c 65 6e 67 | ..............(let.((level.(leng |
| 5ce0 | 74 68 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | th.(match-string.1)))).......... |
| 5d00 | 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 20 28 61 70 70 65 6e 64 20 72 65 73 0a 20 20 20 20 | ......(setq.res.(append.res..... |
| 5d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | .............................(li |
| 5d40 | 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st.............................. |
| 5d60 | 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(cons...................... |
| 5d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 75 | ..............(intern.(format."u |
| 5da0 | 6c 25 73 22 20 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l%s".level)).................... |
| 5dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 73 74 72 69 6e 67 20 74 68 | ................;;.The.string.th |
| 5de0 | 61 74 20 69 73 20 74 68 65 20 68 65 61 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | at.is.the.heading............... |
| 5e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 2d 20 61 6e 79 20 69 6e | .....................;;.-.any.in |
| 5e20 | 74 65 72 6e 61 6c 20 72 75 6c 65 73 20 77 65 20 73 68 6f 75 6c 64 0a 20 20 20 20 20 20 20 20 20 | ternal.rules.we.should.......... |
| 5e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 65 61 | ..........................;;.dea |
| 5e60 | 6c 20 77 69 74 68 20 68 65 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l.with.here..................... |
| 5e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 32 29 29 | ...............(match-string.2)) |
| 5ea0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 | )))................(forward-line |
| 5ec0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3b 3b 20 4f 72 64 65 72 65 64 20 6c 69 73 74 | ))).............(;;.Ordered.list |
| 5ee0 | 20 69 74 65 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 28 | .item..............(looking-at.( |
| 5f00 | 72 78 20 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rx.bol.......................... |
| 5f20 | 20 20 20 20 28 67 72 6f 75 70 20 28 2b 20 22 23 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ....(group.(+."#"))............. |
| 5f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 20 62 6c 61 6e 6b 29 0a 20 20 20 20 | .................(in.blank)..... |
| 5f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 | .........................(group. |
| 5f80 | 28 2a 20 61 6e 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c | (*.any))))..............(let.((l |
| 5fa0 | 65 76 65 6c 20 28 6c 65 6e 67 74 68 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 29 29 29 29 | evel.(length.(match-string.1)))) |
| 5fc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 20 28 61 70 70 65 6e | ................(setq.res.(appen |
| 5fe0 | 64 20 72 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.res........................... |
| 6000 | 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(list.................... |
| 6020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 | ...............(cons............ |
| 6040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 | ........................(intern. |
| 6060 | 28 66 6f 72 6d 61 74 20 22 6f 6c 25 73 22 20 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 | (format."ol%s".level)).......... |
| 6080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 | ..........................;;.The |
| 60a0 | 20 73 74 72 69 6e 67 20 74 68 61 74 20 69 73 20 74 68 65 20 68 65 61 64 69 6e 67 0a 20 20 20 20 | .string.that.is.the.heading..... |
| 60c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | ...............................; |
| 60e0 | 3b 20 2d 20 61 6e 79 20 69 6e 74 65 72 6e 61 6c 20 72 75 6c 65 73 20 77 65 20 73 68 6f 75 6c 64 | ;.-.any.internal.rules.we.should |
| 6100 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6120 | 20 20 20 20 3b 3b 20 64 65 61 6c 20 77 69 74 68 20 68 65 72 65 0a 20 20 20 20 20 20 20 20 20 20 | ....;;.deal.with.here........... |
| 6140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d | .........................(match- |
| 6160 | 73 74 72 69 6e 67 20 32 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f | string.2)))))................(fo |
| 6180 | 72 77 61 72 64 2d 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3b 3b 20 48 6f | rward-line))).............(;;.Ho |
| 61a0 | 72 69 7a 6f 6e 74 61 6c 20 72 75 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b | rizontal.rule..............(look |
| 61c0 | 69 6e 67 2d 61 74 20 28 72 78 20 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing-at.(rx.bol.................. |
| 61e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 28 69 6e 20 62 6c 61 6e 6b 29 29 0a 20 20 20 20 20 | ............(*.(in.blank))...... |
| 6200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 22 0a 20 | ........................"----".. |
| 6220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 28 | ............................(*.( |
| 6240 | 69 6e 20 62 6c 61 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | in.blank))...................... |
| 6260 | 20 20 20 20 20 20 20 20 65 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | ........eol))..............(setq |
| 6280 | 20 72 65 73 20 28 61 70 70 65 6e 64 20 72 65 73 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 27 68 72 | .res.(append.res.(list.(cons.'hr |
| 62a0 | 20 22 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 | .""))))..............(forward-li |
| 62c0 | 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3b 3b 20 50 72 65 2d 66 6f 72 6d 61 74 74 | ne)).............(;;.Pre-formatt |
| 62e0 | 65 64 20 62 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 | ed.block..............(looking-a |
| 6300 | 74 20 28 72 78 20 62 6f 6c 20 22 5c 6e 7b 7b 7b 22 20 65 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 | t.(rx.bol."\n{{{".eol))......... |
| 6320 | 20 20 20 20 20 28 69 66 20 28 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(if.(not................... |
| 6340 | 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (re-search-forward.............. |
| 6360 | 20 20 20 20 20 20 28 72 78 20 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(rx.bol................... |
| 6380 | 20 20 20 20 20 22 5c 6e 7b 7b 7b 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....."\n{{{\n".................. |
| 63a0 | 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2a 3f 20 61 6e 79 74 68 69 6e 67 29 29 0a 20 20 20 20 | ......(group.(*?.anything))..... |
| 63c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 7d 7d 7d 22 20 28 2a 20 73 70 | ..................."\n}}}".(*.sp |
| 63e0 | 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6f 6c 29 | ace)........................eol) |
| 6400 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 | ....................nil.t))..... |
| 6420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 72 65 6f 6c 65 3a 20 62 61 64 | .............(error."Creole:.bad |
| 6440 | 20 70 72 65 66 6f 72 6d 61 74 74 65 64 20 62 6c 6f 63 6b 22 29 29 0a 20 20 20 20 20 20 20 20 20 | .preformatted.block")).......... |
| 6460 | 20 20 20 20 28 73 65 74 71 20 72 65 73 20 28 61 70 70 65 6e 64 20 72 65 73 0a 20 20 20 20 20 20 | ....(setq.res.(append.res....... |
| 6480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 | .........................(list.. |
| 64a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 64c0 | 63 6f 6e 73 20 27 70 72 65 66 6f 72 6d 61 74 74 65 64 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 | cons.'preformatted.(match-string |
| 64e0 | 20 31 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 | .1)))))..............(forward-li |
| 6500 | 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4f 64 64 6d 75 73 65 20 61 6c 6c 6f | ne)).............;;.Oddmuse.allo |
| 6520 | 77 73 20 73 70 61 63 65 20 64 65 66 69 6e 65 64 20 70 72 65 2d 62 6c 6f 63 6b 73 0a 20 20 20 20 | ws.space.defined.pre-blocks..... |
| 6540 | 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 63 72 65 6f 6c 65 2d 6f 64 64 6d 75 73 65 2d 6f 6e 20 | ........((and.creole-oddmuse-on. |
| 6560 | 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 5c 6e 20 2b 5b 5e 2d 5d 22 29 29 0a 20 20 20 20 20 20 | (looking-at."^\n.+[^-]"))....... |
| 6580 | 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 | .......(let*.((start.(point))... |
| 65a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 70 72 6f 67 6e 20 28 6e | ..................(end.(progn.(n |
| 65c0 | 65 78 74 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ext-line)....................... |
| 65e0 | 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 24 | ..........(re-search-forward."^$ |
| 6600 | 22 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ".nil.t))).....................( |
| 6620 | 73 74 72 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 29 | str.(buffer-substring.start.end) |
| 6640 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 20 28 61 70 70 | ))................(setq.res.(app |
| 6660 | 65 6e 64 20 72 65 73 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 27 70 72 65 66 6f 72 6d 61 74 74 65 | end.res.(list.(cons.'preformatte |
| 6680 | 64 20 73 74 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | d.str))))................(goto-c |
| 66a0 | 68 61 72 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3b 3b 20 4c 69 73 70 2d | har.end))).............(;;.Lisp- |
| 66c0 | 70 6c 75 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 6c 6f 6f 6b 69 6e 67 | plugin..............(or.(looking |
| 66e0 | 2d 61 74 20 28 72 78 20 62 6f 6c 20 22 5c 6e 22 20 22 3c 3c 28 22 20 65 6f 6c 29 29 0a 20 20 20 | -at.(rx.bol."\n"."<<(".eol)).... |
| 6700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 | ..............(and.(looking-at." |
| 6720 | 5e 3c 3c 28 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | ^<<(").......................(wh |
| 6740 | 65 6e 31 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | en1.(save-excursion............. |
| 6760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 65 76 69 6f 75 73 2d 6c 69 6e | ...................(previous-lin |
| 6780 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e).............................. |
| 67a0 | 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 28 72 78 20 62 6f 6c 20 22 5c 6e 22 20 22 3c 3c 28 22 | ..(looking-at.(rx.bol."\n"."<<(" |
| 67c0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 65 | ))).........................(pre |
| 67e0 | 76 69 6f 75 73 2d 6c 69 6e 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | vious-line))))..............(if. |
| 6800 | 28 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 | (not...................(re-searc |
| 6820 | 68 2d 66 6f 72 77 61 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 78 | h-forward....................(rx |
| 6840 | 20 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 | .bol........................"\n" |
| 6860 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 3c 28 22 0a 20 20 | ........................"<<("... |
| 6880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 0a 20 20 20 20 20 20 | ....................."\n"....... |
| 68a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2a 3f 20 61 6e 79 74 | .................(group.(*?.anyt |
| 68c0 | 68 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c | hing))........................"\ |
| 68e0 | 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 29 3e 3e 22 0a | n"........................")>>". |
| 6900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 73 70 61 63 65 29 | .......................(*.space) |
| 6920 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6f 6c 29 0a 20 20 20 | ........................eol).... |
| 6940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 | ................nil.t))......... |
| 6960 | 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 72 65 6f 6c 65 3a 20 62 61 64 20 4c 69 73 | .........(error."Creole:.bad.Lis |
| 6980 | 70 20 70 6c 75 67 69 6e 20 62 6c 6f 63 6b 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | p.plugin.block"))..............( |
| 69a0 | 6c 65 74 2a 20 28 28 70 6c 75 67 69 6e 2d 6c 69 73 70 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 | let*.((plugin-lisp.(match-string |
| 69c0 | 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 20 | .1)).....................(value. |
| 69e0 | 28 65 76 61 6c 20 28 63 61 72 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 70 6c 75 | (eval.(car.(read-from-string.plu |
| 6a00 | 67 69 6e 2d 6c 69 73 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gin-lisp)))).................... |
| 6a20 | 20 28 70 6c 75 67 69 6e 2d 66 72 61 67 6d 65 6e 74 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 | .(plugin-fragment.(with-temp-buf |
| 6a40 | 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fer............................. |
| 6a60 | 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 | ...........(insert.value)....... |
| 6a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6aa0 | 20 28 63 72 65 6f 6c 65 2d 74 6f 6b 65 6e 69 7a 65 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | .(creole-tokenize.(current-buffe |
| 6ac0 | 72 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 20 | r)))))................(setq.res. |
| 6ae0 | 28 61 70 70 65 6e 64 20 72 65 73 20 70 6c 75 67 69 6e 2d 66 72 61 67 6d 65 6e 74 29 29 29 0a 20 | (append.res.plugin-fragment))).. |
| 6b00 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 29 0a 20 20 20 20 | ............(forward-line))..... |
| 6b20 | 20 20 20 20 20 20 20 20 28 3b 3b 20 48 54 4d 4c 2d 70 6c 75 67 69 6e 0a 20 20 20 20 20 20 20 20 | ........(;;.HTML-plugin......... |
| 6b40 | 20 20 20 20 20 28 6f 72 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 5c 6e 3c 3c 68 74 6d 6c 5c | .....(or.(looking-at."^\n<<html\ |
| 6b60 | 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 0a 20 20 20 20 20 20 | n")..................(and....... |
| 6b80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3c 3c 68 74 6d 6c 5c | ............(looking-at."<<html\ |
| 6ba0 | 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 31 0a 20 20 20 | n")...................(when1.... |
| 6bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 | ...................(save-excursi |
| 6be0 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 65 76 | on.........................(prev |
| 6c00 | 69 6f 75 73 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ious-line)...................... |
| 6c20 | 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 6e 3c 3c 68 74 6d 6c 5c 6e 22 29 29 0a 20 20 | ...(looking-at."\n<<html\n"))... |
| 6c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 | ..................(previous-line |
| 6c60 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 0a 20 20 20 20 20 | ))))..............(if.(not...... |
| 6c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a | .............(re-search-forward. |
| 6ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 78 20 62 6f 6c 0a 20 20 20 20 20 | ...................(rx.bol...... |
| 6cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 | .................."\n".......... |
| 6ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 3c 68 74 6d 6c 22 0a 20 20 20 20 20 20 20 20 20 | .............."<<html".......... |
| 6d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............."\n".............. |
| 6d20 | 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 2d 6e 20 31 20 28 2a 3f 20 61 6e 79 74 68 69 6e | ..........(group-n.1.(*?.anythin |
| 6d40 | 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 0a | g))........................"\n". |
| 6d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 68 74 6d 6c 3e 3e 22 0a | ......................."html>>". |
| 6d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6f 6c 29 20 6e 69 6c 20 | .......................eol).nil. |
| 6da0 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 72 65 | t))..................(error."Cre |
| 6dc0 | 6f 6c 65 3a 20 62 61 64 20 48 54 4d 4c 20 70 6c 75 67 69 6e 20 62 6c 6f 63 6b 22 29 29 0a 20 20 | ole:.bad.HTML.plugin.block"))... |
| 6de0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 20 28 61 70 70 65 6e 64 20 72 65 73 | ...........(setq.res.(append.res |
| 6e00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6e20 | 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (list........................... |
| 6e40 | 20 20 20 20 20 20 28 63 6f 6e 73 20 27 70 6c 75 67 69 6e 2d 68 74 6d 6c 20 28 6d 61 74 63 68 2d | ......(cons.'plugin-html.(match- |
| 6e60 | 73 74 72 69 6e 67 20 31 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 | string.1)))))..............(forw |
| 6e80 | 61 72 64 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3b 3b 20 50 61 72 61 67 | ard-line)).............(;;.Parag |
| 6ea0 | 72 61 70 68 20 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6c 6f 6f | raph.line..............(and.(loo |
| 6ec0 | 6b 69 6e 67 2d 61 74 20 28 72 78 20 62 6f 6c 20 28 6e 6f 74 20 28 61 6e 79 20 22 3d 2a 22 29 29 | king-at.(rx.bol.(not.(any."=*")) |
| 6ee0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6c 6f 6f 6b 69 | ))...................(not.(looki |
| 6f00 | 6e 67 2d 61 74 20 28 72 78 20 62 6f 6c 20 22 3c 3c 68 74 6d 6c 22 29 29 29 0a 20 20 20 20 20 20 | ng-at.(rx.bol."<<html")))....... |
| 6f20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 28 72 78 | ............(not.(looking-at.(rx |
| 6f40 | 20 62 6f 6c 20 65 6f 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 | .bol.eol))))..............(let*. |
| 6f60 | 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ((start.(point))................ |
| 6f80 | 20 20 20 20 20 28 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .....(end......................( |
| 6fa0 | 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | save-match-data................. |
| 6fc0 | 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 61 74 63 68 65 64 2d 65 6e 64 0a 20 20 20 20 20 | .......(let*.((matched-end...... |
| 6fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 69 6e | ..........................;;.Fin |
| 7000 | 64 20 74 68 65 20 65 6e 64 20 2d 20 74 68 65 20 65 6e 64 20 69 73 20 61 63 74 75 61 6c 6c 79 20 | d.the.end.-.the.end.is.actually. |
| 7020 | 42 45 46 4f 52 45 20 74 68 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | BEFORE.this..................... |
| 7040 | 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a 20 20 | ...........(re-search-forward... |
| 7060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 | ..............................(r |
| 7080 | 78 20 28 6f 72 20 28 67 72 6f 75 70 20 62 6f 6c 20 65 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | x.(or.(group.bol.eol)........... |
| 70a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 | ..............................(g |
| 70c0 | 72 6f 75 70 20 62 6f 6c 20 28 69 6e 20 22 3d 2a 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | roup.bol.(in."=*"))............. |
| 70e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f | ............................(gro |
| 7100 | 75 70 20 65 6f 6c 20 22 5c 6e 68 74 6d 6c 3e 3e 5c 6e 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 | up.eol."\nhtml>>\n"))).......... |
| 7120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 27 74 29 29 0a | .......................nil.'t)). |
| 7140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | ..............................(m |
| 7160 | 61 74 63 68 65 64 20 28 69 66 20 6d 61 74 63 68 65 64 2d 65 6e 64 20 28 6d 61 74 63 68 2d 73 74 | atched.(if.matched-end.(match-st |
| 7180 | 72 69 6e 67 20 30 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ring.0))))...................... |
| 71a0 | 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(cond....................... |
| 71c0 | 20 20 20 20 20 28 28 65 71 75 61 6c 20 6d 61 74 63 68 65 64 20 22 22 29 20 28 2d 20 6d 61 74 63 | .....((equal.matched."").(-.matc |
| 71e0 | 68 65 64 2d 65 6e 64 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hed-end.1))..................... |
| 7200 | 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 6d 61 74 63 68 65 64 20 22 2a 22 29 20 28 2d 20 6d | .......((equal.matched."*").(-.m |
| 7220 | 61 74 63 68 65 64 2d 65 6e 64 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | atched-end.2)).................. |
| 7240 | 20 20 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 6d 61 74 63 68 65 64 20 22 3d 22 29 20 28 | ..........((equal.matched."=").( |
| 7260 | 2d 20 6d 61 74 63 68 65 64 2d 65 6e 64 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -.matched-end.2))............... |
| 7280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 6d 61 74 63 68 65 64 20 22 5c 6e | .............((equal.matched."\n |
| 72a0 | 3c 3c 68 74 6d 6c 22 29 20 28 2d 20 6d 61 74 63 68 65 64 2d 65 6e 64 20 38 29 29 0a 20 20 20 20 | <<html").(-.matched-end.8))..... |
| 72c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | .......................(t....... |
| 72e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 | ......................(point-max |
| 7300 | 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 | )))))))................(setq.res |
| 7320 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 | ......................(append... |
| 7340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 0a 20 20 20 20 20 20 20 20 | ....................res......... |
| 7360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..............(list............. |
| 7380 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 27 70 61 72 61 20 28 62 75 66 66 65 72 2d 73 | ...........(cons.'para.(buffer-s |
| 73a0 | 75 62 73 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 | ubstring.start.end)))))......... |
| 73c0 | 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 20 | .......(goto-char.end)))........ |
| 73e0 | 20 20 20 20 20 28 27 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c | .....('t..............(forward-l |
| 7400 | 69 6e 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 72 65 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ine)))).........res))))..(defun. |
| 7420 | 63 72 65 6f 6c 65 2f 74 65 73 74 2d 64 6f 63 20 28 62 75 66 66 65 72 29 0a 20 20 22 49 6e 73 65 | creole/test-doc.(buffer)..."Inse |
| 7440 | 72 74 20 61 20 74 65 73 74 20 64 6f 63 75 6d 65 6e 74 20 6f 66 20 63 72 65 6f 6c 65 20 74 65 78 | rt.a.test.document.of.creole.tex |
| 7460 | 74 20 69 6e 74 6f 20 42 55 46 46 45 52 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d | t.into.BUFFER."...(with-current- |
| 7480 | 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 3d 20 48 65 61 | buffer.buffer.....(insert."=.Hea |
| 74a0 | 64 69 6e 67 21 20 3d 5c 6e 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a 20 20 | ding!.=\n").....(insert."\n")... |
| 74c0 | 20 20 28 69 6e 73 65 72 74 20 22 3d 3d 20 48 65 61 64 69 6e 67 32 21 20 3d 3d 5c 6e 22 29 0a 20 | ..(insert."==.Heading2!.==\n").. |
| 74e0 | 20 20 20 28 69 6e 73 65 72 74 20 22 23 20 61 6e 20 6f 72 64 65 72 65 64 20 6c 69 73 74 20 69 74 | ...(insert."#.an.ordered.list.it |
| 7500 | 65 6d 5c 6e 23 23 20 61 20 32 6e 64 20 6f 72 64 65 72 65 64 20 6c 69 73 74 20 69 74 65 6d 5c 6e | em\n##.a.2nd.ordered.list.item\n |
| 7520 | 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 3d 3d 20 48 65 61 64 69 6e 67 33 20 69 73 20 61 | ").....(insert."==.Heading3.is.a |
| 7540 | 20 6d 75 6c 74 69 20 77 6f 72 64 20 68 65 61 64 69 6e 67 20 3d 3d 5c 6e 22 29 0a 20 20 20 20 28 | .multi.word.heading.==\n").....( |
| 7560 | 69 6e 73 65 72 74 20 22 5c 6e 7b 7b 7b 5c 6e 3d 3d 20 74 68 69 73 20 69 73 20 70 72 65 66 6f 72 | insert."\n{{{\n==.this.is.prefor |
| 7580 | 6d 61 74 74 65 64 20 3d 3d 5c 6e 7b 7b 5c 6e 49 74 20 6c 6f 6f 6b 73 20 67 72 65 61 74 5c 6e 7d | matted.==\n{{\nIt.looks.great\n} |
| 75a0 | 7d 5c 6e 7d 7d 7d 5c 6e 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 2a 20 6c 69 73 74 20 69 | }\n}}}\n").....(insert."*.list.i |
| 75c0 | 74 65 6d 5c 6e 2a 2a 20 32 6e 64 20 6c 69 73 74 20 69 74 65 6d 5c 6e 2a 2a 2a 20 33 72 64 20 6c | tem\n**.2nd.list.item\n***.3rd.l |
| 75e0 | 69 73 74 20 69 74 65 6d 5c 6e 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 2a 2a 20 61 6e 6f | ist.item\n").....(insert."**.ano |
| 7600 | 74 68 65 72 20 32 6e 64 20 6c 69 73 74 20 69 74 65 6d 5c 6e 2a 2a 2a 20 61 6e 6f 74 68 65 72 20 | ther.2nd.list.item\n***.another. |
| 7620 | 33 72 64 20 6c 69 73 74 20 69 74 65 6d 5c 6e 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 | 3rd.list.item\n").....(insert.". |
| 7640 | 2d 2d 2d 2d 5c 6e 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 54 68 69 73 20 69 73 20 61 20 | ----\n").....(insert."This.is.a. |
| 7660 | 70 61 72 61 67 72 61 70 68 0a 74 68 61 74 20 72 75 6e 73 20 6f 76 65 72 20 73 65 76 65 72 61 6c | paragraph.that.runs.over.several |
| 7680 | 20 6c 69 6e 65 73 0a 2a 20 61 6e 64 20 61 20 6c 69 73 74 20 69 74 65 6d 20 73 74 6f 70 73 20 69 | .lines.*.and.a.list.item.stops.i |
| 76a0 | 74 0a 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 54 68 69 73 20 69 73 20 61 20 70 61 72 61 | t.").....(insert."This.is.a.para |
| 76c0 | 67 72 61 70 68 20 7b 7b 7b 77 69 74 68 20 63 6f 64 65 7d 7d 7d 20 61 6e 64 20 5b 5b 6c 69 6e 6b | graph.{{{with.code}}}.and.[[link |
| 76e0 | 73 5d 5d 0a 61 6e 64 20 2a 2a 62 6f 6c 64 2a 2a 20 61 6e 64 20 2f 2f 69 74 61 6c 69 63 73 2f 2f | s]].and.**bold**.and.//italics// |
| 7700 | 2e 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 6c 69 73 74 2d 69 74 65 6d 20 28 | .")))..(defun.creole/list-item.( |
| 7720 | 6c 69 73 74 2d 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 74 79 70 65 20 | list-symbol)..."Return.the.type. |
| 7740 | 61 6e 64 20 74 68 65 20 6c 65 76 65 6c 20 6f 66 20 74 68 65 20 4c 49 53 54 2d 53 59 4d 42 4f 4c | and.the.level.of.the.LIST-SYMBOL |
| 7760 | 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 3a 0a 0a 20 28 63 72 65 6f 6c 65 2f 6c 69 73 74 2d 69 | ...For.example:...(creole/list-i |
| 7780 | 74 65 6d 20 27 6f 6c 31 29 0a 20 20 3d 3e 20 28 6f 72 64 65 72 65 64 20 2e 20 31 29 0a 0a 20 28 | tem.'ol1)...=>.(ordered...1)...( |
| 77a0 | 63 72 65 6f 6c 65 2f 6c 69 73 74 2d 69 74 65 6d 20 27 75 6c 31 30 29 0a 20 20 3d 3e 20 28 75 6e | creole/list-item.'ul10)...=>.(un |
| 77c0 | 6f 72 64 65 72 65 64 20 2e 20 31 30 29 22 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 | ordered...10)"...(save-match-dat |
| 77e0 | 61 0a 20 20 20 20 28 6c 65 74 20 28 28 73 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6c 69 73 74 | a.....(let.((s.(symbol-name.list |
| 7800 | 2d 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d | -symbol))).......(when.(string-m |
| 7820 | 61 74 63 68 20 28 72 78 20 28 67 72 6f 75 70 20 28 69 6e 20 22 75 6f 22 29 20 22 6c 22 29 0a 20 | atch.(rx.(group.(in."uo")."l").. |
| 7840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 | .............................(gr |
| 7860 | 6f 75 70 20 28 2b 20 64 69 67 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oup.(+.digit)))................. |
| 7880 | 20 20 20 20 20 20 20 20 20 20 73 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 | ..........s).........(cons...... |
| 78a0 | 20 20 20 20 28 69 6e 74 65 72 6e 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 73 29 29 0a | ....(intern.(match-string.1.s)). |
| 78c0 | 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 6d 61 74 63 | .........(string-to-number.(matc |
| 78e0 | 68 2d 73 74 72 69 6e 67 20 32 20 73 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f | h-string.2.s)))))))..(defun.creo |
| 7900 | 6c 65 2d 73 74 72 75 63 74 75 72 65 20 28 6c 73 74 29 0a 20 20 22 4d 61 6b 65 20 61 20 70 61 72 | le-structure.(lst)..."Make.a.par |
| 7920 | 73 65 64 20 73 74 72 75 63 74 75 72 65 20 66 72 6f 6d 20 61 20 6c 69 73 74 2e 0a 0a 54 68 69 73 | sed.structure.from.a.list...This |
| 7940 | 20 69 73 20 61 20 70 61 72 73 65 72 2c 20 6f 66 20 73 6f 72 74 73 2c 20 69 6e 20 74 68 61 74 20 | .is.a.parser,.of.sorts,.in.that. |
| 7960 | 69 74 20 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 74 6f 6b 65 6e 73 0a 69 6e 74 6f 20 6d | it.turns.a.list.of.tokens.into.m |
| 7980 | 6f 72 65 20 6f 66 20 61 20 74 72 65 65 20 73 74 72 75 63 74 75 72 65 2e 20 20 49 6e 20 57 69 6b | ore.of.a.tree.structure...In.Wik |
| 79a0 | 69 43 72 65 6f 6c 65 20 74 68 6f 75 67 68 2c 20 74 68 65 20 6f 6e 6c 79 0a 74 68 69 6e 67 20 74 | iCreole.though,.the.only.thing.t |
| 79c0 | 68 61 74 20 72 65 61 6c 6c 79 20 6e 65 65 64 73 20 61 20 74 72 65 65 20 72 65 70 72 65 73 65 6e | hat.really.needs.a.tree.represen |
| 79e0 | 74 61 74 69 6f 6e 20 69 73 20 6f 72 64 65 72 65 64 20 61 6e 64 0a 75 6e 6f 72 64 65 72 65 64 20 | tation.is.ordered.and.unordered. |
| 7a00 | 6c 69 73 74 73 2c 20 73 6f 20 61 6c 6c 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 | lists,.so.all.this.function.does |
| 7a20 | 20 69 73 20 61 64 64 20 73 74 72 75 63 74 75 72 65 20 74 6f 20 61 0a 73 74 72 65 61 6d 20 6f 66 | .is.add.structure.to.a.stream.of |
| 7a40 | 20 6c 69 73 74 20 74 6f 6b 65 6e 73 2e 20 20 41 6c 6c 20 6f 74 68 65 72 20 74 6f 6b 65 6e 73 20 | .list.tokens...All.other.tokens. |
| 7a60 | 61 72 65 20 70 61 73 73 65 64 20 74 68 72 6f 75 67 68 0a 64 69 72 65 63 74 6c 79 2e 0a 0a 54 68 | are.passed.through.directly...Th |
| 7a80 | 69 73 20 69 73 20 6e 6f 74 20 6d 61 72 6b 65 64 20 70 72 69 76 61 74 65 20 62 65 63 61 75 73 65 | is.is.not.marked.private.because |
| 7aa0 | 20 69 74 20 64 6f 65 73 20 66 6f 72 6d 20 70 61 72 74 20 6f 66 20 77 68 61 74 0a 6d 69 67 68 74 | .it.does.form.part.of.what.might |
| 7ac0 | 20 62 65 20 63 61 6c 6c 65 64 20 74 68 65 20 70 61 72 73 69 6e 67 20 41 50 49 20 6f 66 20 74 68 | .be.called.the.parsing.API.of.th |
| 7ae0 | 69 73 20 63 72 65 6f 6c 65 20 6c 69 62 72 61 72 79 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 64 6f | is.creole.library."...(let*.((do |
| 7b00 | 63 70 74 72 20 6c 73 74 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 61 74 65 20 27 28 29 29 20 3b | cptr.lst)..........(state.'()).; |
| 7b20 | 20 75 73 65 64 20 61 73 20 61 20 73 74 61 63 6b 0a 20 20 20 20 20 20 20 20 20 28 72 65 73 75 6c | .used.as.a.stack..........(resul |
| 7b40 | 74 20 27 28 29 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 64 6f 63 70 74 72 0a 20 20 20 20 20 20 | t.'())).....(while.docptr....... |
| 7b60 | 28 6c 65 74 2a 20 28 28 74 6f 6b 65 6e 20 28 63 61 72 20 64 6f 63 70 74 72 29 29 0a 20 20 20 20 | (let*.((token.(car.docptr))..... |
| 7b80 | 20 20 20 20 20 20 20 20 20 28 6c 73 74 2d 69 74 65 6d 20 28 63 72 65 6f 6c 65 2f 6c 69 73 74 2d | .........(lst-item.(creole/list- |
| 7ba0 | 69 74 65 6d 20 28 63 61 72 20 74 6f 6b 65 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 73 | item.(car.token)))).........(cas |
| 7bc0 | 65 20 28 69 66 20 6c 73 74 2d 69 74 65 6d 20 27 6c 69 73 74 69 74 65 6d 20 28 63 61 72 20 74 6f | e.(if.lst-item.'listitem.(car.to |
| 7be0 | 6b 65 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 69 74 65 6d 0a 20 20 20 20 20 20 | ken))...........(listitem....... |
| 7c00 | 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 61 73 74 20 28 69 66 20 28 63 61 72 20 73 74 61 74 65 | .....(let*.((last.(if.(car.state |
| 7c20 | 29 20 28 63 64 61 72 20 73 74 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).(cdar.state)))................ |
| 7c40 | 20 20 20 28 6c 61 73 74 2d 6c 65 76 65 6c 20 28 69 66 20 28 63 61 72 20 73 74 61 74 65 29 20 28 | ...(last-level.(if.(car.state).( |
| 7c60 | 63 61 61 72 20 73 74 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | caar.state)))................... |
| 7c80 | 28 6e 65 77 20 28 6c 69 73 74 20 28 63 61 72 20 6c 73 74 2d 69 74 65 6d 29 20 28 63 64 72 20 74 | (new.(list.(car.lst-item).(cdr.t |
| 7ca0 | 6f 6b 65 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 | oken))))..............(cond..... |
| 7cc0 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 75 72 72 65 6e 74 20 6c 65 76 65 6c 20 69 73 20 68 69 | ..........;;.Current.level.is.hi |
| 7ce0 | 67 68 65 72 20 74 68 61 6e 20 74 68 65 20 6c 61 73 74 2c 20 65 6d 62 65 64 20 61 20 6e 65 77 20 | gher.than.the.last,.embed.a.new. |
| 7d00 | 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 6c 61 73 74 0a 20 20 | list...............((and.last... |
| 7d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 20 28 63 64 72 20 6c 73 74 2d 69 74 | ..................(>.(cdr.lst-it |
| 7d40 | 65 6d 29 20 6c 61 73 74 2d 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | em).last-level))................ |
| 7d60 | 28 73 65 74 63 64 72 20 6c 61 73 74 20 28 61 70 70 65 6e 64 20 28 63 64 72 20 6c 61 73 74 29 20 | (setcdr.last.(append.(cdr.last). |
| 7d80 | 28 6c 69 73 74 20 6e 65 77 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 55 | (list.new)))................;;.U |
| 7da0 | 70 64 61 74 65 20 74 68 65 20 73 74 61 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | pdate.the.stack................( |
| 7dc0 | 70 75 73 68 20 28 63 6f 6e 73 20 28 63 64 72 20 6c 73 74 2d 69 74 65 6d 29 20 6e 65 77 29 20 73 | push.(cons.(cdr.lst-item).new).s |
| 7de0 | 74 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 75 72 72 65 6e 74 20 | tate))...............;;.Current. |
| 7e00 | 6c 65 76 65 6c 20 69 73 20 73 61 6d 65 20 61 73 20 74 68 65 20 6c 61 73 74 2c 20 65 78 74 65 6e | level.is.same.as.the.last,.exten |
| 7e20 | 64 20 74 68 65 20 6c 61 73 74 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 | d.the.last.list...............(( |
| 7e40 | 61 6e 64 20 6c 61 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 | and.last.....................(=. |
| 7e60 | 28 63 64 72 20 6c 73 74 2d 69 74 65 6d 29 20 6c 61 73 74 2d 6c 65 76 65 6c 29 29 0a 20 20 20 20 | (cdr.lst-item).last-level))..... |
| 7e80 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 65 77 20 28 6c 69 73 74 20 28 63 64 72 20 | ...........(setq.new.(list.(cdr. |
| 7ea0 | 74 6f 6b 65 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 63 64 72 20 | token)))................(setcdr. |
| 7ec0 | 6c 61 73 74 20 28 61 70 70 65 6e 64 20 28 63 64 72 20 6c 61 73 74 29 20 6e 65 77 29 29 0a 20 20 | last.(append.(cdr.last).new))... |
| 7ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 65 73 65 74 20 74 68 65 20 74 6f 70 20 6f 66 | .............;;.Reset.the.top.of |
| 7f00 | 20 74 68 65 20 73 74 61 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 20 73 | .the.stack................(pop.s |
| 7f20 | 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 | tate)................(push.(cons |
| 7f40 | 20 28 63 64 72 20 6c 73 74 2d 69 74 65 6d 29 20 6e 65 77 29 20 73 74 61 74 65 29 29 0a 20 20 20 | .(cdr.lst-item).new).state)).... |
| 7f60 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 75 72 72 65 6e 74 20 6c 65 76 65 6c 20 69 73 20 73 | ...........;;.Current.level.is.s |
| 7f80 | 61 6d 65 20 61 73 20 74 68 65 20 6c 61 73 74 2c 20 65 78 74 65 6e 64 20 74 68 65 20 6c 61 73 74 | ame.as.the.last,.extend.the.last |
| 7fa0 | 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 6c 61 73 74 0a 20 | .list...............((and.last.. |
| 7fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 28 63 64 72 20 6c 73 74 2d 69 | ...................(<.(cdr.lst-i |
| 7fe0 | 74 65 6d 29 20 6c 61 73 74 2d 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tem).last-level))............... |
| 8000 | 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 31 20 74 6f 20 28 2d 20 6c 61 73 74 2d 6c | .(loop.for.i.from.1.to.(-.last-l |
| 8020 | 65 76 65 6c 20 28 63 64 72 20 6c 73 74 2d 69 74 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | evel.(cdr.lst-item))............ |
| 8040 | 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 70 6f 70 20 73 74 61 74 65 29 29 0a 20 20 20 20 20 20 | ..........do.(pop.state))....... |
| 8060 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 61 73 74 20 28 69 66 20 28 63 61 72 20 73 | .........(let*.((last.(if.(car.s |
| 8080 | 74 61 74 65 29 20 28 63 64 61 72 20 73 74 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | tate).(cdar.state)))............ |
| 80a0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 73 74 2d 6c 65 76 65 6c 20 28 69 66 20 28 63 61 72 20 | ...........(last-level.(if.(car. |
| 80c0 | 73 74 61 74 65 29 20 28 63 61 61 72 20 73 74 61 74 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | state).(caar.state)))).......... |
| 80e0 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 65 77 20 28 6c 69 73 74 20 28 63 64 72 20 74 6f 6b | ........(setq.new.(list.(cdr.tok |
| 8100 | 65 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 63 64 72 20 6c | en)))..................(setcdr.l |
| 8120 | 61 73 74 20 28 61 70 70 65 6e 64 20 28 63 64 72 20 6c 61 73 74 29 20 6e 65 77 29 29 29 29 0a 20 | ast.(append.(cdr.last).new)))).. |
| 8140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 64 65 66 61 75 6c 74 20 61 63 74 69 | .............;;.The.default.acti |
| 8160 | 6f 6e 20 77 68 65 6e 20 77 65 27 72 65 20 64 65 61 6c 69 6e 67 20 77 69 74 68 20 6c 69 73 74 73 | on.when.we're.dealing.with.lists |
| 8180 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............(t............... |
| 81a0 | 20 28 73 65 74 71 20 72 65 73 75 6c 74 20 28 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 28 6c 69 | .(setq.result.(append.result.(li |
| 81c0 | 73 74 20 6e 65 77 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 55 70 64 61 | st.new)))................;;.Upda |
| 81e0 | 74 65 20 74 68 65 20 73 74 61 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 | te.the.stack................(pus |
| 8200 | 68 20 28 63 6f 6e 73 20 28 63 64 72 20 6c 73 74 2d 69 74 65 6d 29 20 6e 65 77 29 20 73 74 61 74 | h.(cons.(cdr.lst-item).new).stat |
| 8220 | 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 74 20 61 20 6c 69 73 74 20 69 | e)))))...........;;.Not.a.list.i |
| 8240 | 74 65 6d 20 2d 20 6a 75 73 74 20 70 75 73 68 20 69 74 20 6f 6e 74 6f 20 74 68 65 20 72 65 73 75 | tem.-.just.push.it.onto.the.resu |
| 8260 | 6c 74 2c 20 61 6c 77 61 79 73 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 65 6d 70 74 79 20 74 68 | lt,.always...........;;.empty.th |
| 8280 | 65 20 6c 69 73 74 20 73 74 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | e.list.state...........(t....... |
| 82a0 | 20 20 20 20 20 28 73 65 74 71 20 73 74 61 74 65 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .....(setq.state.'())........... |
| 82c0 | 20 28 73 65 74 71 20 72 65 73 75 6c 74 20 28 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 28 6c 69 | .(setq.result.(append.result.(li |
| 82e0 | 73 74 20 74 6f 6b 65 6e 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 6f 63 70 74 | st.token)))))).......(setq.docpt |
| 8300 | 72 20 28 63 64 72 20 64 6f 63 70 74 72 29 29 29 0a 20 20 20 20 72 65 73 75 6c 74 29 29 0a 0a 3b | r.(cdr.docptr))).....result))..; |
| 8320 | 3b 20 45 78 70 6f 72 74 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 0a 0a 28 64 65 66 75 6e 20 63 72 | ;.Exporting.functions..(defun.cr |
| 8340 | 65 6f 6c 65 2f 68 74 6d 6c 2d 6c 69 73 74 20 28 74 79 70 65 20 6c 73 74 29 0a 20 20 22 45 78 70 | eole/html-list.(type.lst)..."Exp |
| 8360 | 6f 72 74 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 4c 53 54 20 69 6e 20 48 54 4d 4c 2e 0a 0a | ort.the.specified.LST.in.HTML... |
| 8380 | 54 68 65 20 65 78 70 6f 72 74 65 64 20 48 54 4d 4c 20 69 73 20 77 72 69 74 74 65 6e 20 69 6e 74 | The.exported.HTML.is.written.int |
| 83a0 | 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 0a 54 68 69 73 20 69 73 20 4e | o.the.current.buffer...This.is.N |
| 83c0 | 4f 54 20 69 6e 74 65 6e 64 65 64 20 74 6f 20 62 65 20 75 73 65 64 20 62 79 20 61 6e 79 74 68 69 | OT.intended.to.be.used.by.anythi |
| 83e0 | 6e 67 20 62 75 74 0a 60 63 72 65 6f 6c 65 2d 65 78 70 6f 72 74 2d 68 74 6d 6c 27 2e 22 0a 20 20 | ng.but.`creole-export-html'."... |
| 8400 | 28 6c 65 74 20 28 28 66 69 72 73 74 20 74 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 3c 22 | (let.((first.t)).....(insert."<" |
| 8420 | 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 74 79 70 65 29 20 22 3e 5c 6e 22 29 0a 20 20 20 20 28 | .(symbol-name.type).">\n").....( |
| 8440 | 6c 6f 6f 70 20 66 6f 72 20 69 74 65 6d 20 69 6e 20 6c 73 74 0a 20 20 20 20 20 20 20 20 20 20 64 | loop.for.item.in.lst...........d |
| 8460 | 6f 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 6c | o...........(cond............((l |
| 8480 | 69 73 74 70 20 69 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2f 68 | istp.item).............(creole/h |
| 84a0 | 74 6d 6c 2d 6c 69 73 74 20 28 63 61 72 20 69 74 65 6d 29 20 28 63 64 72 20 69 74 65 6d 29 29 0a | tml-list.(car.item).(cdr.item)). |
| 84c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 69 72 73 74 20 6e 69 6c 29 29 0a 20 20 | ............(setq.first.nil))... |
| 84e0 | 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e | .........(t.............(when.(n |
| 8500 | 6f 74 20 66 69 72 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 | ot.first)...............(insert. |
| 8520 | 22 3c 2f 6c 69 3e 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 69 | "</li>\n")).............(setq.fi |
| 8540 | 72 73 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 3c 6c | rst.nil).............(insert."<l |
| 8560 | 69 3e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 72 65 6f 6c 65 | i>").............(insert.(creole |
| 8580 | 2d 62 6c 6f 63 6b 2d 70 61 72 73 65 20 69 74 65 6d 29 29 29 29 29 0a 20 20 20 20 28 69 6e 73 65 | -block-parse.item))))).....(inse |
| 85a0 | 72 74 20 22 3c 2f 6c 69 3e 5c 6e 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 3c 2f 22 20 28 | rt."</li>\n").....(insert."</".( |
| 85c0 | 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 74 79 70 65 29 20 22 3e 5c 6e 22 29 29 29 0a 0a 28 64 65 66 | symbol-name.type).">\n")))..(def |
| 85e0 | 75 6e 20 63 72 65 6f 6c 65 2f 68 74 6d 6c 2d 74 61 62 6c 65 20 28 74 61 62 6c 65 2d 6c 69 73 74 | un.creole/html-table.(table-list |
| 8600 | 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 74 68 65 20 6f 72 67 2d 74 61 62 6c 65 20 73 74 72 75 63 | )..."Convert.the.org-table.struc |
| 8620 | 74 75 72 65 20 54 41 42 4c 45 2d 4c 49 53 54 20 74 6f 20 48 54 4d 4c 2e 0a 0a 57 65 20 75 73 65 | ture.TABLE-LIST.to.HTML...We.use |
| 8640 | 20 60 6f 72 67 74 62 6c 2d 74 6f 2d 67 65 6e 65 72 69 63 27 20 74 6f 20 64 6f 20 74 68 69 73 2e | .`orgtbl-to-generic'.to.do.this. |
| 8660 | 22 0a 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 74 62 | "...(let.((value..........(orgtb |
| 8680 | 6c 2d 74 6f 2d 67 65 6e 65 72 69 63 0a 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 65 2d 6c 69 73 | l-to-generic...........table-lis |
| 86a0 | 74 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 3a 74 73 | t...........(list............:ts |
| 86c0 | 74 61 72 74 20 22 3c 74 61 62 6c 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 6e 64 20 | tart."<table>"............:tend. |
| 86e0 | 22 3c 2f 74 61 62 6c 65 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 3a 68 6c 73 74 61 72 74 | "</table>\n"............:hlstart |
| 8700 | 20 22 3c 74 68 65 61 64 3e 3c 74 72 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 3a 68 6c 65 | ."<thead><tr>\n"............:hle |
| 8720 | 6e 64 20 22 3c 2f 74 72 3e 3c 2f 74 68 65 61 64 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 3a 68 | nd."</tr></thead>"............:h |
| 8740 | 6c 6c 73 74 61 72 74 20 22 3c 74 68 65 61 64 3e 3c 74 72 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 | llstart."<thead><tr>\n"......... |
| 8760 | 20 20 20 3a 68 6c 6c 65 6e 64 20 22 3c 2f 74 72 3e 3c 2f 74 68 65 61 64 3e 22 0a 20 20 20 20 20 | ...:hllend."</tr></thead>"...... |
| 8780 | 20 20 20 20 20 20 3a 6c 73 74 61 72 74 20 22 3c 74 72 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 | ......:lstart."<tr>\n".......... |
| 87a0 | 20 20 3a 6c 65 6e 64 20 22 3c 2f 74 72 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 3a 68 6c 69 6e | ..:lend."</tr>"............:hlin |
| 87c0 | 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 3a 68 66 6d 74 20 28 6c 61 6d 62 64 61 20 28 | e.nil............:hfmt.(lambda.( |
| 87e0 | 66 69 65 6c 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 68 65 72 | field)...................;;.Wher |
| 8800 | 65 20 77 65 20 64 6f 20 62 6c 6f 63 6b 20 66 6f 72 6d 61 74 74 69 6e 67 0a 20 20 20 20 20 20 20 | e.we.do.block.formatting........ |
| 8820 | 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........(format.............. |
| 8840 | 20 20 20 20 20 20 22 3c 74 68 3e 25 73 3c 2f 74 68 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 | ......"<th>%s</th>\n"........... |
| 8860 | 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2d 62 6c 6f 63 6b 2d 70 61 72 73 65 20 66 69 65 | .........(creole-block-parse.fie |
| 8880 | 6c 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 66 6d 74 20 28 6c 61 6d 62 64 61 20 28 66 | ld)))............:fmt.(lambda.(f |
| 88a0 | 69 65 6c 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 68 65 72 65 | ield)...................;;.Where |
| 88c0 | 20 77 65 20 64 6f 20 62 6c 6f 63 6b 20 66 6f 72 6d 61 74 74 69 6e 67 0a 20 20 20 20 20 20 20 20 | .we.do.block.formatting......... |
| 88e0 | 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(format............... |
| 8900 | 20 20 20 20 20 22 3c 74 64 3e 25 73 3c 2f 74 64 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 | ....."<td>%s</td>\n"............ |
| 8920 | 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2d 62 6c 6f 63 6b 2d 70 61 72 73 65 20 66 69 65 6c | ........(creole-block-parse.fiel |
| 8940 | 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 29 29 29 29 0a 20 20 20 20 76 61 6c 75 65 29 29 | d)))............)))).....value)) |
| 8960 | 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 68 74 6d 6c 69 7a 65 2f 6d 6f 64 65 2d 66 75 6e | ..(defun.creole-htmlize/mode-fun |
| 8980 | 63 20 28 74 65 78 74 29 0a 20 20 22 57 6f 72 6b 20 6f 75 74 20 74 68 65 20 6d 6f 64 65 20 66 75 | c.(text)..."Work.out.the.mode.fu |
| 89a0 | 6e 63 74 69 6f 6e 20 66 6f 72 20 54 45 58 54 2e 0a 0a 41 20 6c 69 73 74 20 69 73 20 72 65 74 75 | nction.for.TEXT...A.list.is.retu |
| 89c0 | 72 6e 65 64 2e 20 20 54 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 73 20 77 68 65 74 | rned...The.first.element.is.whet |
| 89e0 | 68 65 72 20 74 68 65 20 66 69 72 73 74 20 6c 69 6e 65 0a 6f 66 20 74 68 65 20 74 65 78 74 20 73 | her.the.first.line.of.the.text.s |
| 8a00 | 68 6f 75 6c 64 20 62 65 20 73 74 72 69 70 70 65 64 20 6f 72 20 6e 6f 74 20 28 69 66 20 66 6f 72 | hould.be.stripped.or.not.(if.for |
| 8a20 | 63 69 6e 67 20 6d 61 72 6b 65 72 20 74 65 78 74 20 69 73 0a 75 73 65 64 20 74 68 61 74 20 73 68 | cing.marker.text.is.used.that.sh |
| 8a40 | 6f 75 6c 64 20 62 65 20 74 68 65 20 63 61 73 65 29 2e 20 20 54 68 65 20 60 63 64 72 27 20 6f 66 | ould.be.the.case)...The.`cdr'.of |
| 8a60 | 20 74 68 65 20 63 6f 6e 73 20 69 73 20 74 68 65 0a 45 6d 61 63 73 20 6d 6f 64 65 20 66 75 6e 63 | .the.cons.is.the.Emacs.mode.func |
| 8a80 | 74 69 6f 6e 20 74 6f 20 75 73 65 20 74 6f 20 63 6f 6c 6f 72 20 74 68 65 20 74 65 78 74 2e 20 20 | tion.to.use.to.color.the.text... |
| 8aa0 | 54 68 69 73 20 65 69 74 68 65 72 20 75 73 65 73 0a 73 6f 6d 65 20 68 65 75 72 69 73 74 69 63 73 | This.either.uses.some.heuristics |
| 8ac0 | 20 6f 72 20 61 20 73 70 65 63 69 66 69 63 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 61 74 20 74 68 | .or.a.specific.instruction.at.th |
| 8ae0 | 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 0a 74 65 78 74 3a 0a 0a 20 23 23 21 20 43 0a 20 69 6e | e.start.of.the.text:...##!.C..in |
| 8b00 | 74 20 6d 61 69 6e 28 63 68 61 72 2a 2a 20 61 72 67 76 2c 20 69 6e 74 20 61 72 67 63 29 0a 20 7b | t.main(char**.argv,.int.argc)..{ |
| 8b20 | 0a 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 7d 0a 0a 53 68 6f 77 73 20 68 6f 77 20 74 6f 20 69 | ....return.0;..}..Shows.how.to.i |
| 8b40 | 6e 64 69 63 61 74 65 20 73 6f 6d 65 20 43 2e 0a 0a 54 68 65 20 68 65 75 72 69 73 74 69 63 73 20 | ndicate.some.C...The.heuristics. |
| 8b60 | 61 72 65 20 76 65 72 79 20 73 69 6d 70 6c 65 20 72 69 67 68 74 20 6e 6f 77 2e 20 20 54 68 65 79 | are.very.simple.right.now...They |
| 8b80 | 20 77 69 6c 6c 20 70 72 6f 62 61 62 6c 79 0a 63 68 61 6e 67 65 20 74 6f 20 73 6f 6d 65 74 68 69 | .will.probably.change.to.somethi |
| 8ba0 | 6e 67 20 68 65 61 76 69 6c 79 20 62 61 73 65 64 20 6f 6e 20 65 78 69 73 74 69 6e 67 20 6d 6f 64 | ng.heavily.based.on.existing.mod |
| 8bc0 | 65 20 63 68 6f 6f 73 69 6e 67 0a 6c 6f 67 69 63 2e 22 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 | e.choosing.logic."...(save-match |
| 8be0 | 2d 64 61 74 61 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 6d | -data.....(cond.......((string-m |
| 8c00 | 61 74 63 68 0a 20 20 20 20 20 20 20 20 28 72 78 20 62 6f 6c 20 22 23 23 21 20 22 20 28 67 72 6f | atch.........(rx.bol."##!.".(gro |
| 8c20 | 75 70 20 28 2a 20 61 6e 79 29 29 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 74 65 78 74 29 0a | up.(*.any))."\n").........text). |
| 8c40 | 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 74 0a 20 20 20 20 20 20 20 20 28 | .......(list.........t.........( |
| 8c60 | 69 6e 74 65 72 6e 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 | intern..........(concat......... |
| 8c80 | 20 20 28 6f 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 74 65 78 74 29 0a 20 20 20 20 | ..(or.(match-string.1.text)..... |
| 8ca0 | 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 63 61 73 65 20 6d 6f 64 65 2d 6e 61 6d 65 29 29 0a | ..........(downcase.mode-name)). |
| 8cc0 | 20 20 20 20 20 20 20 20 20 20 22 2d 6d 6f 64 65 22 29 29 29 29 0a 20 20 20 20 20 20 28 28 73 74 | .........."-mode")))).......((st |
| 8ce0 | 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 72 78 20 62 6f 6c 20 28 6f 72 20 28 67 72 6f 75 70 20 | ring-match-p.(rx.bol.(or.(group. |
| 8d00 | 22 3b 3b 22 20 28 2a 20 22 3b 22 29 20 22 20 22 20 28 2a 20 61 6e 79 29 29 20 22 28 22 29 29 20 | ";;".(*.";").".".(*.any))."(")). |
| 8d20 | 74 65 78 74 29 0a 20 20 20 20 20 20 20 3b 3b 20 49 74 27 73 20 6c 69 73 70 0a 20 20 20 20 20 20 | text)........;;.It's.lisp....... |
| 8d40 | 20 28 6c 69 73 74 20 6e 69 6c 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 | .(list.nil.(if.(string-match-p.( |
| 8d60 | 72 78 20 62 6f 6c 20 28 2a 20 61 6e 79 29 20 22 20 2d 2a 2d 20 22 20 28 2a 20 61 6e 79 29 29 20 | rx.bol.(*.any).".-*-.".(*.any)). |
| 8d80 | 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 65 6d 61 63 | text)......................'emac |
| 8da0 | 73 2d 6c 69 73 70 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | s-lisp-mode....................' |
| 8dc0 | 6c 69 73 70 2d 6d 6f 64 65 29 29 29 0a 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 | lisp-mode))).......((string-matc |
| 8de0 | 68 2d 70 20 28 72 78 20 62 6f 6c 20 22 23 21 2f 62 69 6e 2f 22 20 28 2b 20 6c 6f 77 65 72 29 20 | h-p.(rx.bol."#!/bin/".(+.lower). |
| 8e00 | 22 73 68 22 20 65 6f 6c 29 20 74 65 78 74 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 6e 69 6c | "sh".eol).text)........(list.nil |
| 8e20 | 20 27 73 68 65 6c 6c 2d 73 63 72 69 70 74 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 28 28 73 74 | .'shell-script-mode)).......((st |
| 8e40 | 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 72 78 20 62 6f 6c 20 22 2d 6d 6f 64 75 6c 65 28 22 29 | ring-match-p.(rx.bol."-module(") |
| 8e60 | 20 74 65 78 74 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 6e 69 6c 20 27 65 72 6c 61 6e 67 2d | .text)........(list.nil.'erlang- |
| 8e80 | 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 28 74 20 28 6c 69 73 74 20 6e 69 6c 20 74 65 78 74 29 29 | mode)).......(t.(list.nil.text)) |
| 8ea0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 68 74 6d 6c 69 7a 65 2d 73 74 72 69 6e | )))..(defun.creole-htmlize-strin |
| 8ec0 | 67 20 28 74 65 78 74 29 0a 20 20 22 4d 61 6b 65 20 54 45 58 54 20 73 79 6e 74 61 78 20 63 6f 6c | g.(text)..."Make.TEXT.syntax.col |
| 8ee0 | 6f 75 72 65 64 20 48 54 4d 4c 20 75 73 69 6e 67 20 45 6d 61 63 73 20 66 6f 6e 74 2d 6c 6f 63 6b | oured.HTML.using.Emacs.font-lock |
| 8f00 | 2e 0a 0a 54 68 65 20 73 79 6e 74 61 78 20 63 6f 6c 6f 72 69 6e 67 20 74 6f 20 75 73 65 20 69 73 | ...The.syntax.coloring.to.use.is |
| 8f20 | 20 64 65 63 69 64 65 64 20 62 79 20 60 63 72 65 6f 6c 65 2d 68 74 6d 6c 69 7a 65 2f 6d 6f 64 65 | .decided.by.`creole-htmlize/mode |
| 8f40 | 2d 66 75 6e 63 27 2e 0a 0a 41 20 73 74 72 69 6e 67 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 | -func'...A.string.containing.the |
| 8f60 | 20 48 54 4d 4c 20 73 79 6e 74 61 78 20 63 6f 6c 6f 75 72 65 64 20 77 69 74 68 0a 60 66 6f 6e 74 | .HTML.syntax.coloured.with.`font |
| 8f80 | 2d 6c 6f 63 6b 2d 66 6f 6e 74 69 66 79 2d 62 75 66 66 65 72 27 20 61 6e 64 20 60 68 74 6d 6c 66 | -lock-fontify-buffer'.and.`htmlf |
| 8fa0 | 6f 6e 74 69 66 79 27 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 0a 49 66 20 63 61 6c 6c 65 64 20 | ontify'.is.returned...If.called. |
| 8fc0 | 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 65 67 69 6f 6e | interactively.the.current.region |
| 8fe0 | 20 69 73 20 75 73 65 64 20 61 73 20 74 68 65 20 73 74 72 69 6e 67 0a 61 6e 64 20 74 68 65 20 72 | .is.used.as.the.string.and.the.r |
| 9000 | 65 73 75 6c 74 20 62 75 66 66 65 72 20 69 73 20 6c 65 66 74 20 6f 70 65 6e 20 61 6e 64 20 73 77 | esult.buffer.is.left.open.and.sw |
| 9020 | 69 74 63 68 65 64 20 74 6f 2e 0a 0a 41 20 70 72 6f 70 65 72 74 79 20 60 3a 63 73 73 2d 6c 69 73 | itched.to...A.property.`:css-lis |
| 9040 | 74 27 20 61 74 74 61 63 68 65 64 20 74 6f 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 73 74 72 69 | t'.attached.to.the.returned.stri |
| 9060 | 6e 67 20 63 6f 6e 74 61 69 6e 73 0a 74 68 65 20 6c 69 73 74 20 6f 66 20 43 53 53 20 64 65 63 6c | ng.contains.the.list.of.CSS.decl |
| 9080 | 61 72 61 74 69 6f 6e 73 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 60 68 74 6d 6c 66 6f 6e 74 69 | arations.generated.by.`htmlfonti |
| 90a0 | 66 79 27 2e 20 20 54 68 65 0a 6c 69 73 74 20 63 61 6e 20 62 65 20 74 75 72 6e 65 64 20 69 6e 74 | fy'...The.list.can.be.turned.int |
| 90c0 | 6f 20 43 53 53 20 62 79 20 60 63 72 65 6f 6c 65 2d 63 73 73 2d 6c 69 73 74 2d 74 6f 2d 73 74 79 | o.CSS.by.`creole-css-list-to-sty |
| 90e0 | 6c 65 2d 64 65 63 6c 27 2e 0a 0a 55 6e 66 6f 72 74 75 6e 61 74 65 6c 79 2c 20 77 68 65 6e 20 72 | le-decl'...Unfortunately,.when.r |
| 9100 | 75 6e 20 69 6e 20 62 61 74 63 68 20 6d 6f 64 65 20 45 6d 61 63 73 20 64 6f 65 73 6e 27 74 20 61 | un.in.batch.mode.Emacs.doesn't.a |
| 9120 | 74 74 61 63 68 20 63 6f 6c 6f 72 73 0a 74 6f 20 66 61 63 65 73 20 61 6e 64 20 73 6f 20 77 65 20 | ttach.colors.to.faces.and.so.we. |
| 9140 | 64 6f 6e 27 74 20 67 65 74 20 63 6f 6c 6f 75 72 65 64 20 73 74 79 6c 65 73 2e 20 20 49 74 20 73 | don't.get.coloured.styles...It.s |
| 9160 | 68 6f 75 6c 64 20 62 65 0a 70 6f 73 73 69 62 6c 65 20 74 6f 20 75 73 65 20 74 68 65 20 60 63 61 | hould.be.possible.to.use.the.`ca |
| 9180 | 64 72 27 20 6f 66 20 74 68 65 20 73 74 79 6c 65 20 74 6f 20 61 64 64 20 63 6f 6c 6f 72 73 2e 22 | dr'.of.the.style.to.add.colors." |
| 91a0 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 0a 20 20 20 20 28 69 66 | ...(interactive....(list.....(if |
| 91c0 | 20 28 6d 61 72 6b 29 0a 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e | .(mark).........(buffer-substrin |
| 91e0 | 67 0a 20 20 20 20 20 20 20 20 20 28 72 65 67 69 6f 6e 2d 62 65 67 69 6e 6e 69 6e 67 29 0a 20 20 | g..........(region-beginning)... |
| 9200 | 20 20 20 20 20 20 20 28 72 65 67 69 6f 6e 2d 65 6e 64 29 29 0a 20 20 20 20 20 20 28 62 75 66 66 | .......(region-end)).......(buff |
| 9220 | 65 72 2d 73 75 62 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a | er-substring........(point-min). |
| 9240 | 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a 20 20 28 64 65 73 74 72 75 | .......(point-max)))))...(destru |
| 9260 | 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 73 74 72 69 70 2d 6c 69 6e 65 20 6d 6f 64 65 2d 66 75 | cturing-bind.(strip-line.mode-fu |
| 9280 | 6e 63 29 20 28 63 72 65 6f 6c 65 2d 68 74 6d 6c 69 7a 65 2f 6d 6f 64 65 2d 66 75 6e 63 20 74 65 | nc).(creole-htmlize/mode-func.te |
| 92a0 | 78 74 29 0a 20 20 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 28 | xt).....(save-match-data.......( |
| 92c0 | 69 66 20 28 6e 6f 74 20 28 66 75 6e 63 74 69 6f 6e 70 20 6d 6f 64 65 2d 66 75 6e 63 29 29 0a 20 | if.(not.(functionp.mode-func)).. |
| 92e0 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 3c 70 72 65 3e 5c 6e 22 20 74 65 78 74 20 | .........(concat."<pre>\n".text. |
| 9300 | 22 5c 6e 3c 2f 70 72 65 3e 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 | "\n</pre>")...........(with-temp |
| 9320 | 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 47 65 74 20 66 6f 6e 74 2d | -buffer.............;;.Get.font- |
| 9340 | 6c 6f 63 6b 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 74 65 78 74 20 22 | lock?.............(insert.text." |
| 9360 | 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 74 72 69 70 2d 6c 69 6e | \n").............(when.strip-lin |
| 9380 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4b 69 6c 6c 20 74 68 65 20 6d 6f 64 65 | e...............;;.Kill.the.mode |
| 93a0 | 20 76 61 72 69 61 62 6c 65 20 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f | .variable.line...............(go |
| 93c0 | 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | to-char.(point-min))............ |
| 93e0 | 20 20 20 28 6b 69 6c 6c 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e | ...(kill-line)).............;;.N |
| 9400 | 6f 77 20 73 77 69 74 63 68 20 74 68 61 74 20 6d 6f 64 65 20 69 6e 74 6f 20 74 68 65 20 6e 65 77 | ow.switch.that.mode.into.the.new |
| 9420 | 20 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6d 6f 64 65 2d | .mode.............(funcall.mode- |
| 9440 | 66 75 6e 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 74 65 73 70 61 63 65 2d 6d 6f | func).............(whitespace-mo |
| 9460 | 64 65 20 2d 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 6f | de.-1).............(font-lock-fo |
| 9480 | 6e 74 69 66 79 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 44 6f 20 | ntify-buffer).............;;.Do. |
| 94a0 | 73 6f 6d 65 20 64 79 6e 61 6d 69 63 20 62 69 6e 64 69 6e 67 20 6d 61 67 69 63 20 74 6f 20 61 6c | some.dynamic.binding.magic.to.al |
| 94c0 | 74 65 72 20 68 74 6d 6c 66 6f 6e 74 69 66 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 | ter.htmlfontify.............;;.b |
| 94e0 | 65 68 61 76 69 6f 75 72 20 2d 20 6e 6f 20 68 65 61 64 65 72 2c 20 6e 6f 20 66 6f 6f 74 65 72 20 | ehaviour.-.no.header,.no.footer. |
| 9500 | 61 6e 64 20 74 68 65 20 73 74 79 6c 65 73 20 6c 69 73 74 20 69 73 0a 20 20 20 20 20 20 20 20 20 | and.the.styles.list.is.......... |
| 9520 | 20 20 20 3b 3b 20 63 61 70 74 75 72 65 64 20 72 61 74 68 65 72 20 74 68 61 6e 20 77 72 69 74 74 | ...;;.captured.rather.than.writt |
| 9540 | 65 6e 20 6f 75 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 63 73 73 2d 6c 69 | en.out..............(let.(css-li |
| 9560 | 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 66 6c 65 74 20 28 28 68 66 79 2d | st)...............(noflet.((hfy- |
| 9580 | 73 70 72 69 6e 74 66 2d 73 74 79 6c 65 73 68 65 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | sprintf-stylesheet.............. |
| 95a0 | 20 20 20 20 20 20 20 20 20 20 20 28 63 73 73 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ...........(css.file)........... |
| 95c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 73 73 2d 6c 69 73 74 20 63 73 73 | ..............(setq.css-list.css |
| 95e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 29 29 0a 20 | )........................."")).. |
| 9600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 68 66 79 2d 64 69 73 70 6c 61 | ...............(let.((hfy-displa |
| 9620 | 79 2d 63 6c 61 73 73 20 27 28 28 74 79 70 65 20 78 2d 74 6f 6f 6c 6b 69 74 29 29 29 0a 20 20 20 | y-class.'((type.x-toolkit))).... |
| 9640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 66 79 2d 70 61 67 65 2d 66 6f 6f | ...................(hfy-page-foo |
| 9660 | 74 65 72 20 28 6c 61 6d 62 64 61 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 65 2d 6e 61 6d 65 | ter.(lambda.(&optional.file-name |
| 9680 | 29 20 22 22 20 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | ).""."")))...................(le |
| 96a0 | 74 20 28 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.(result....................... |
| 96c0 | 20 20 28 68 74 6d 6c 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(htmlbuf...................... |
| 96e0 | 20 20 20 20 28 6e 6f 66 6c 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(noflet..................... |
| 9700 | 20 20 20 20 20 20 20 20 20 28 28 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 74 2d 73 74 72 20 26 | .........((message.(format-str.& |
| 9720 | 72 65 73 74 20 61 72 67 73 29 20 74 29 29 20 3b 20 68 74 6d 6c 66 6f 6e 74 69 66 79 20 68 61 73 | rest.args).t)).;.htmlfontify.has |
| 9740 | 20 61 6e 6e 6f 79 69 6e 67 20 6d 65 73 73 61 67 65 73 20 69 6e 20 69 74 2e 0a 20 20 20 20 20 20 | .annoying.messages.in.it........ |
| 9760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 74 6d 6c 66 6f 6e 74 | .......................(htmlfont |
| 9780 | 69 66 79 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ify-buffer)))).................. |
| 97a0 | 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 68 74 6d 6c 62 75 66 0a | ...(with-current-buffer.htmlbuf. |
| 97c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 49 58 4d 45 20 77 | ......................;;.FIXME.w |
| 97e0 | 65 20 73 68 6f 75 6c 64 20 61 64 64 20 61 6e 6f 74 68 65 72 20 70 72 6f 70 65 72 74 79 0a 20 20 | e.should.add.another.property... |
| 9800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 65 74 61 69 6c 69 6e 67 | ....................;;.detailing |
| 9820 | 20 77 68 69 63 68 20 6d 6f 64 65 20 77 65 27 72 65 20 64 65 61 6c 69 6e 67 20 77 69 74 68 2d 0a | .which.mode.we're.dealing.with-. |
| 9840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 | ......................;;........ |
| 9860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 4d 41 59 20 77 61 6e 74 20 74 6f | ...............;;.We.MAY.want.to |
| 9880 | 20 64 69 73 61 6d 62 69 67 75 61 74 65 20 73 74 79 6c 65 73 2c 20 6c 69 6b 65 0a 20 20 20 20 20 | .disambiguate.styles,.like...... |
| 98a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 22 6b 65 79 77 6f 72 64 22 20 69 6e | .................;;."keyword".in |
| 98c0 | 74 6f 20 22 70 72 65 2e 65 6d 61 63 73 2d 6c 69 73 70 20 73 70 61 6e 2e 6b 65 79 77 6f 72 64 22 | to."pre.emacs-lisp.span.keyword" |
| 98e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 | .......................(put-text |
| 9900 | 2d 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -property....................... |
| 9920 | 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 0a 20 20 20 20 20 20 20 | .(point-min).(point-max)........ |
| 9940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 73 73 2d 6c 69 73 74 20 63 73 73 2d 6c 69 | ................:css-list.css-li |
| 9960 | 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 0a | st).......................(setq. |
| 9980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 0a 20 20 | .......................result... |
| 99a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 | .....................(buffer-sub |
| 99c0 | 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | string.........................( |
| 99e0 | 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | point-min)...................... |
| 9a00 | 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(point-max))))............... |
| 9a20 | 20 20 20 20 20 20 28 69 66 20 28 63 61 6c 6c 65 64 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d | ......(if.(called-interactively- |
| 9a40 | 70 20 27 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p.'interactive)................. |
| 9a60 | 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 68 74 6d 6c 62 75 | ........(switch-to-buffer.htmlbu |
| 9a80 | 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 | f).........................(with |
| 9aa0 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 68 74 6d 6c 62 75 66 0a 20 20 20 20 20 20 20 20 | -current-buffer.htmlbuf......... |
| 9ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f | ..................(set-buffer-mo |
| 9ae0 | 64 69 66 69 65 64 2d 70 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dified-p.nil)).................. |
| 9b00 | 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 68 74 6d 6c 62 75 66 29 29 0a 20 20 | .......(kill-buffer.htmlbuf))... |
| 9b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 29 29 29 29 29 29 29 29 | ..................result)))))))) |
| 9b40 | 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 63 6f 6e 74 65 6e 74 2d 6c 69 73 74 20 28 73 | )..(defun.creole-content-list.(s |
| 9b60 | 74 72 75 63 74 75 72 65 29 0a 20 20 22 41 64 64 20 61 20 74 61 62 6c 65 20 6f 66 20 63 6f 6e 74 | tructure)..."Add.a.table.of.cont |
| 9b80 | 65 6e 74 73 20 6c 69 73 74 20 74 6f 20 74 68 65 20 53 54 52 55 43 54 55 52 45 2e 0a 0a 54 68 65 | ents.list.to.the.STRUCTURE...The |
| 9ba0 | 20 6c 69 73 74 20 69 73 20 6f 6e 6c 79 20 61 64 64 65 64 20 69 66 20 74 68 65 20 53 54 52 55 43 | .list.is.only.added.if.the.STRUC |
| 9bc0 | 54 55 52 45 20 68 61 73 20 61 74 20 6c 65 61 73 74 20 32 20 68 65 61 64 69 6e 67 73 2e 22 0a 20 | TURE.has.at.least.2.headings.".. |
| 9be0 | 20 28 6c 65 74 2a 20 28 28 68 65 61 64 73 20 27 28 68 65 61 64 69 6e 67 31 20 68 65 61 64 69 6e | .(let*.((heads.'(heading1.headin |
| 9c00 | 67 32 20 68 65 61 64 69 6e 67 33 20 68 65 61 64 69 6e 67 34 29 29 0a 20 20 20 20 20 20 20 20 20 | g2.heading3.heading4)).......... |
| 9c20 | 28 68 65 61 64 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 65 6c | (headings...........(loop.for.el |
| 9c40 | 20 69 6e 20 73 74 72 75 63 74 75 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6d | .in.structure..............if.(m |
| 9c60 | 65 6d 71 20 28 63 61 72 20 65 6c 29 20 68 65 61 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | emq.(car.el).heads)............. |
| 9c80 | 20 63 6f 6c 6c 65 63 74 20 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 61 64 69 6e 67 2d | .collect.el))..........(heading- |
| 9ca0 | 74 65 78 74 73 0a 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 65 6c 20 69 6e 20 | texts...........(loop.for.el.in. |
| 9cc0 | 68 65 61 64 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c | headings..............collect.(l |
| 9ce0 | 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 65 | ist.......................(car.e |
| 9d00 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | l).......................(format |
| 9d20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 61 20 68 72 65 66 | ........................"<a.href |
| 9d40 | 3d 27 23 25 73 27 3e 25 73 3c 2f 61 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ='#%s'>%s</a>".................. |
| 9d60 | 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2f 68 65 61 64 69 6e 67 2d 74 65 78 74 2d 3e 69 64 20 28 | ......(creole/heading-text->id.( |
| 9d80 | 63 64 72 20 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cdr.el))........................ |
| 9da0 | 28 63 64 72 20 65 6c 29 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 3c 20 28 6c 65 6e 67 74 68 | (cdr.el)))))).....(if.(<.(length |
| 9dc0 | 20 68 65 61 64 69 6e 67 73 29 20 32 29 0a 20 20 20 20 20 20 20 20 73 74 72 75 63 74 75 72 65 0a | .headings).2).........structure. |
| 9de0 | 20 20 20 20 20 20 20 20 3b 3b 20 45 6c 73 65 20 61 64 64 20 74 68 65 20 69 6e 64 65 78 20 62 65 | ........;;.Else.add.the.index.be |
| 9e00 | 66 6f 72 65 20 74 68 65 20 32 6e 64 20 69 6e 64 65 78 0a 20 20 20 20 20 20 20 20 28 6c 65 74 2a | fore.the.2nd.index.........(let* |
| 9e20 | 20 28 28 74 6f 63 20 60 28 75 6c 20 2c 40 28 6c 6f 6f 70 20 66 6f 72 20 28 68 65 61 64 20 2e 20 | .((toc.`(ul.,@(loop.for.(head... |
| 9e40 | 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | data)........................... |
| 9e60 | 20 20 20 20 69 6e 20 28 63 64 72 20 68 65 61 64 69 6e 67 2d 74 65 78 74 73 29 0a 20 20 20 20 20 | ....in.(cdr.heading-texts)...... |
| 9e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 | .........................collect |
| 9ea0 | 20 28 63 61 72 20 64 61 74 61 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 | .(car.data)))))...........(loop. |
| 9ec0 | 66 6f 72 20 65 6c 20 69 6e 20 73 74 72 75 63 74 75 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | for.el.in.structure............. |
| 9ee0 | 20 69 66 20 28 65 71 75 61 6c 20 65 6c 20 28 65 6c 74 20 68 65 61 64 69 6e 67 73 20 30 29 29 0a | .if.(equal.el.(elt.headings.0)). |
| 9f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 60 28 28 68 65 61 64 69 6e 67 32 20 | .............append.`((heading2. |
| 9f20 | 2e 20 22 54 61 62 6c 65 20 6f 66 20 63 6f 6e 74 65 6e 74 22 29 20 2c 74 6f 63 29 0a 20 20 20 20 | .."Table.of.content").,toc)..... |
| 9f40 | 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 65 6c 29 29 29 29 29 0a 0a 28 64 65 66 76 61 | .........collect.el)))))..(defva |
| 9f60 | 72 20 63 72 65 6f 6c 65 2d 73 74 72 75 63 74 75 72 65 64 20 27 28 29 0a 20 20 22 41 20 62 75 66 | r.creole-structured.'()..."A.buf |
| 9f80 | 66 65 72 20 6c 6f 63 61 6c 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 70 61 72 73 65 64 20 | fer.local.containing.the.parsed. |
| 9fa0 | 63 72 65 6f 6c 65 20 66 6f 72 20 74 68 65 20 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 75 6e | creole.for.the.buffer.")..(defun |
| 9fc0 | 20 63 72 65 6f 6c 65 2f 73 74 72 75 63 74 75 72 65 2d 70 69 70 65 6c 69 6e 65 20 28 70 69 70 65 | .creole/structure-pipeline.(pipe |
| 9fe0 | 6c 69 6e 65 20 73 74 72 75 63 74 75 72 65 29 0a 20 20 22 43 61 6c 6c 73 20 65 61 63 68 20 66 75 | line.structure)..."Calls.each.fu |
| a000 | 6e 63 74 69 6f 6e 20 69 6e 20 50 49 50 45 4c 49 4e 45 20 74 72 61 6e 73 66 6f 72 6d 69 6e 67 20 | nction.in.PIPELINE.transforming. |
| a020 | 53 54 52 55 43 54 55 52 45 2e 22 0a 20 20 28 61 73 73 65 72 74 20 28 6c 69 73 74 70 20 70 69 70 | STRUCTURE."...(assert.(listp.pip |
| a040 | 65 6c 69 6e 65 29 20 22 63 72 65 6f 6c 65 2f 73 74 72 75 63 74 75 72 65 2d 70 69 70 65 6c 69 6e | eline)."creole/structure-pipelin |
| a060 | 65 20 6e 65 65 64 73 20 61 20 6c 69 73 74 22 29 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 77 69 | e.needs.a.list")...(loop......wi |
| a080 | 74 68 20 72 65 73 75 6c 74 20 3d 20 73 74 72 75 63 74 75 72 65 0a 20 20 20 20 20 66 6f 72 20 73 | th.result.=.structure......for.s |
| a0a0 | 74 61 67 65 20 69 6e 20 70 69 70 65 6c 69 6e 65 0a 20 20 20 20 20 20 20 64 6f 20 28 73 65 74 71 | tage.in.pipeline........do.(setq |
| a0c0 | 20 72 65 73 75 6c 74 20 28 66 75 6e 63 61 6c 6c 20 73 74 61 67 65 20 72 65 73 75 6c 74 29 29 0a | .result.(funcall.stage.result)). |
| a0e0 | 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 29 29 0a 0a | .......finally.return.result)).. |
| a100 | 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 68 65 61 64 69 6e 67 2d 74 65 78 74 2d 3e 69 64 20 28 | (defun.creole/heading-text->id.( |
| a120 | 68 65 61 64 69 6e 67 2d 74 65 78 74 29 0a 20 20 22 4d 61 6b 65 20 48 45 41 44 49 4e 47 2d 54 45 | heading-text)..."Make.HEADING-TE |
| a140 | 58 54 20 69 6e 74 6f 20 61 6e 20 48 54 4d 4c 20 49 44 2e 22 0a 20 20 28 72 65 70 6c 61 63 65 2d | XT.into.an.HTML.ID."...(replace- |
| a160 | 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 20 22 20 22 2d 22 20 68 65 61 64 69 6e 67 | regexp-in-string."."."-".heading |
| a180 | 2d 74 65 78 74 29 29 0a 0a 28 64 65 66 76 61 72 20 63 72 65 6f 6c 65 2d 64 6f 2d 61 6e 63 68 6f | -text))..(defvar.creole-do-ancho |
| a1a0 | 72 2d 68 65 61 64 69 6e 67 73 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 67 69 76 65 20 | r-headings.t..."Whether.to.give. |
| a1c0 | 65 61 63 68 20 68 65 61 64 69 6e 67 20 69 74 27 73 20 6f 77 6e 20 61 6e 63 68 6f 72 2e 0a 0a 54 | each.heading.it's.own.anchor...T |
| a1e0 | 68 69 73 20 62 65 68 61 76 69 6f 75 72 20 69 73 20 61 6c 73 6f 20 63 6f 6e 74 72 6f 6c 6c 65 64 | his.behaviour.is.also.controlled |
| a200 | 20 62 79 20 60 63 72 65 6f 6c 65 2d 6f 64 64 6d 75 73 65 2d 6f 6e 27 2e 22 29 0a 0a 28 64 65 66 | .by.`creole-oddmuse-on'.")..(def |
| a220 | 75 6e 20 63 72 65 6f 6c 65 2f 68 65 61 64 69 6e 67 2d 3e 68 74 6d 6c 20 28 68 65 61 64 69 6e 67 | un.creole/heading->html.(heading |
| a240 | 2d 63 6f 6e 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 61 20 68 65 61 64 69 6e 67 20 74 6f 20 48 | -cons)..."Convert.a.heading.to.H |
| a260 | 54 4d 4c 2e 0a 0a 49 66 20 60 63 72 65 6f 6c 65 2d 6f 64 64 6d 75 73 65 2d 6f 6e 27 20 6f 72 20 | TML...If.`creole-oddmuse-on'.or. |
| a280 | 60 63 72 65 6f 6c 65 2d 64 6f 2d 61 6e 63 68 6f 72 2d 68 65 61 64 69 6e 67 73 27 20 69 73 20 60 | `creole-do-anchor-headings'.is.` |
| a2a0 | 74 27 20 74 68 65 6e 0a 61 6e 20 61 6e 63 68 6f 72 20 69 73 20 61 64 64 65 64 20 61 75 74 6f 6d | t'.then.an.anchor.is.added.autom |
| a2c0 | 61 74 69 63 61 6c 6c 79 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 68 2d 73 74 72 20 28 73 79 6d 62 | atically."...(let*.((h-str.(symb |
| a2e0 | 6f 6c 2d 6e 61 6d 65 20 28 63 61 72 20 68 65 61 64 69 6e 67 2d 63 6f 6e 73 29 29 29 0a 20 20 20 | ol-name.(car.heading-cons))).... |
| a300 | 20 20 20 20 20 20 28 6c 65 76 65 6c 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 | ......(level.(save-match-data... |
| a320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 0a 20 20 | ................(string-match... |
| a340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 78 20 22 68 65 61 64 69 6e 67 22 20 28 | .................(rx."heading".( |
| a360 | 67 72 6f 75 70 20 28 2b 20 64 69 67 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | group.(+.digit)))............... |
| a380 | 20 20 20 20 20 68 2d 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | .....h-str)...................(m |
| a3a0 | 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 68 2d 73 74 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 | atch-string.1.h-str))).......... |
| a3c0 | 28 68 2d 74 65 78 74 20 28 69 66 20 28 6c 69 73 74 70 20 28 63 64 72 20 68 65 61 64 69 6e 67 2d | (h-text.(if.(listp.(cdr.heading- |
| a3e0 | 63 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 | cons))......................(cad |
| a400 | 72 20 68 65 61 64 69 6e 67 2d 63 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.heading-cons)................. |
| a420 | 20 20 20 20 20 28 63 64 72 20 68 65 61 64 69 6e 67 2d 63 6f 6e 73 29 29 29 29 0a 20 20 20 20 28 | .....(cdr.heading-cons)))).....( |
| a440 | 66 6f 72 6d 61 74 0a 20 20 20 20 20 22 25 73 3c 68 25 73 3e 25 73 3c 2f 68 25 73 3e 5c 6e 22 0a | format......"%s<h%s>%s</h%s>\n". |
| a460 | 20 20 20 20 20 28 69 66 20 28 6f 72 20 63 72 65 6f 6c 65 2d 6f 64 64 6d 75 73 65 2d 6f 6e 0a 20 | .....(if.(or.creole-oddmuse-on.. |
| a480 | 20 20 20 20 20 20 20 20 20 20 20 20 63 72 65 6f 6c 65 2d 64 6f 2d 61 6e 63 68 6f 72 2d 68 65 61 | ............creole-do-anchor-hea |
| a4a0 | 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 | dings)..........(format......... |
| a4c0 | 20 20 22 3c 61 20 69 64 3d 27 25 73 27 3e 3c 2f 61 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 | .."<a.id='%s'></a>\n"........... |
| a4e0 | 28 63 72 65 6f 6c 65 2f 68 65 61 64 69 6e 67 2d 74 65 78 74 2d 3e 69 64 20 68 2d 74 65 78 74 29 | (creole/heading-text->id.h-text) |
| a500 | 29 20 22 22 29 20 3b 20 65 6c 73 65 0a 20 20 20 20 20 6c 65 76 65 6c 20 68 2d 74 65 78 74 20 6c | )."").;.else......level.h-text.l |
| a520 | 65 76 65 6c 29 29 29 0a 0a 28 64 65 66 75 6e 2a 20 63 72 65 6f 6c 65 2d 68 74 6d 6c 20 28 64 6f | evel)))..(defun*.creole-html.(do |
| a540 | 63 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6f 70 74 69 6f | cbuf......................&optio |
| a560 | 6e 61 6c 20 68 74 6d 6c 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nal.html-buffer................. |
| a580 | 20 20 20 20 20 26 6b 65 79 20 72 65 73 75 6c 74 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 | .....&key.result-mode........... |
| a5a0 | 20 20 20 20 20 20 20 20 20 20 20 28 65 72 61 73 65 2d 65 78 69 73 74 69 6e 67 20 74 29 0a 20 20 | ...........(erase-existing.t)... |
| a5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 66 6f 6e 74 2d 6c 6f 63 6b | ...................(do-font-lock |
| a5e0 | 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 69 74 63 68 2d | .t)......................switch- |
| a600 | 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 75 63 74 75 72 | to......................structur |
| a620 | 65 2d 74 72 61 6e 73 66 6f 72 6d 2d 66 6e 29 0a 20 20 22 45 78 70 6f 72 74 20 44 4f 43 42 55 46 | e-transform-fn)..."Export.DOCBUF |
| a640 | 20 61 73 20 48 54 4d 4c 20 74 6f 20 48 54 4d 4c 2d 42 55 46 46 45 52 2e 0a 0a 49 66 20 48 54 4d | .as.HTML.to.HTML-BUFFER...If.HTM |
| a660 | 4c 2d 42 55 46 46 45 52 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20 74 68 65 6e 20 61 20 62 | L-BUFFER.does.not.exist.then.a.b |
| a680 | 75 66 66 65 72 20 69 73 20 63 72 65 61 74 65 64 20 62 61 73 65 64 20 6f 6e 0a 74 68 65 20 6e 61 | uffer.is.created.based.on.the.na |
| a6a0 | 6d 65 20 6f 66 20 44 4f 43 42 55 46 2e 20 49 66 20 44 4f 43 42 55 46 20 64 6f 65 73 6e 27 74 20 | me.of.DOCBUF..If.DOCBUF.doesn't. |
| a6c0 | 68 61 76 65 20 61 20 6e 61 6d 65 20 74 68 65 6e 20 74 68 65 0a 64 65 73 74 69 6e 61 74 69 6f 6e | have.a.name.then.the.destination |
| a6e0 | 20 62 75 66 66 65 72 20 69 73 20 63 61 6c 6c 65 64 3a 0a 0a 20 2a 63 72 65 6f 6c 65 68 74 6d 6c | .buffer.is.called:...*creolehtml |
| a700 | 2e 68 74 6d 6c 0a 0a 49 66 20 52 45 53 55 4c 54 2d 4d 4f 44 45 20 69 73 20 73 70 65 63 69 66 69 | .html..If.RESULT-MODE.is.specifi |
| a720 | 65 64 20 74 68 65 6e 20 74 68 65 20 48 54 4d 4c 2d 42 55 46 46 45 52 20 69 73 20 70 6c 61 63 65 | ed.then.the.HTML-BUFFER.is.place |
| a740 | 64 20 69 6e 0a 74 68 61 74 20 6d 6f 64 65 2e 0a 0a 49 66 20 45 52 41 53 45 2d 45 58 49 53 54 49 | d.in.that.mode...If.ERASE-EXISTI |
| a760 | 4e 47 20 69 73 20 6e 6f 74 20 6e 69 6c 20 74 68 65 6e 20 61 6e 79 20 65 78 69 73 74 69 6e 67 20 | NG.is.not.nil.then.any.existing. |
| a780 | 63 6f 6e 74 65 6e 74 20 69 6e 20 74 68 65 0a 48 54 4d 4c 2d 42 55 46 46 45 52 20 69 73 20 65 72 | content.in.the.HTML-BUFFER.is.er |
| a7a0 | 61 73 65 64 20 62 65 66 6f 72 65 20 72 65 6e 64 65 72 69 6e 67 2e 20 20 42 79 20 64 65 66 61 75 | ased.before.rendering...By.defau |
| a7c0 | 6c 74 20 74 68 69 73 20 69 73 20 74 72 75 65 2e 0a 0a 49 66 20 44 4f 2d 46 4f 4e 54 2d 4c 4f 43 | lt.this.is.true...If.DO-FONT-LOC |
| a7e0 | 4b 20 69 73 20 6e 6f 74 20 6e 69 6c 20 74 68 65 6e 20 61 6e 79 20 70 72 65 2d 66 6f 72 6d 61 74 | K.is.not.nil.then.any.pre-format |
| a800 | 74 65 64 20 61 72 65 61 73 20 74 65 73 74 65 64 0a 66 6f 72 20 66 6f 6e 74 69 66 69 63 61 74 69 | ted.areas.tested.for.fontificati |
| a820 | 6f 6e 20 77 69 74 68 20 60 63 72 65 6f 6c 65 2d 68 74 6d 6c 69 7a 65 2f 6d 6f 64 65 2d 66 75 6e | on.with.`creole-htmlize/mode-fun |
| a840 | 63 27 2e 20 20 49 74 20 69 73 20 60 74 27 20 62 79 0a 64 65 66 61 75 6c 74 2e 0a 0a 49 66 20 53 | c'...It.is.`t'.by.default...If.S |
| a860 | 57 49 54 43 48 2d 54 4f 20 69 73 20 6e 6f 74 20 6e 69 6c 20 74 68 65 6e 20 74 68 65 20 48 54 4d | WITCH-TO.is.not.nil.then.the.HTM |
| a880 | 4c 2d 42 55 46 46 45 52 20 69 73 20 73 77 69 74 63 68 65 64 20 74 6f 20 77 68 65 6e 0a 74 68 65 | L-BUFFER.is.switched.to.when.the |
| a8a0 | 20 65 78 70 6f 72 74 20 69 73 20 64 6f 6e 65 2e 0a 0a 57 68 65 6e 20 63 61 6c 6c 65 64 20 69 6e | .export.is.done...When.called.in |
| a8c0 | 74 65 72 61 63 74 69 76 65 6c 79 20 52 45 53 55 4c 54 2d 4d 4f 44 45 20 69 73 20 73 65 74 20 74 | teractively.RESULT-MODE.is.set.t |
| a8e0 | 6f 20 27 68 74 6d 6c 2d 6d 6f 64 65 27 2c 0a 45 52 41 53 45 2d 45 58 49 53 54 49 4e 47 20 69 73 | o.'html-mode',.ERASE-EXISTING.is |
| a900 | 20 73 65 74 20 74 6f 20 74 72 75 65 20 61 6e 64 20 53 57 49 54 43 48 2d 54 4f 20 69 73 20 73 65 | .set.to.true.and.SWITCH-TO.is.se |
| a920 | 74 20 74 6f 20 74 72 75 65 2e 0a 0a 53 54 52 55 43 54 55 52 45 2d 54 52 41 4e 53 46 4f 52 4d 2d | t.to.true...STRUCTURE-TRANSFORM- |
| a940 | 46 4e 20 6d 61 79 20 62 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 61 20 6c 69 73 74 20 6f | FN.may.be.a.function.or.a.list.o |
| a960 | 66 20 66 75 6e 63 74 69 6f 6e 73 0a 74 6f 20 74 72 61 6e 73 66 6f 72 6d 20 74 68 65 20 70 61 72 | f.functions.to.transform.the.par |
| a980 | 73 65 64 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65 20 63 72 65 6f 6c 65 20 73 6f 75 72 | sed.structure.of.the.creole.sour |
| a9a0 | 63 65 2e 20 20 41 0a 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 6d | ce...A.transformation.function.m |
| a9c0 | 75 73 74 20 72 65 73 75 6c 74 20 69 6e 20 61 20 6c 65 67 61 6c 20 63 72 65 6f 6c 65 0a 73 74 72 | ust.result.in.a.legal.creole.str |
| a9e0 | 75 63 74 75 72 65 2e 20 20 49 66 20 61 20 6c 69 73 74 20 69 73 20 75 73 65 64 20 74 68 65 20 72 | ucture...If.a.list.is.used.the.r |
| aa00 | 65 73 75 6c 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 66 75 6e 63 74 69 6f 6e 20 69 6e 0a 74 | esult.of.the.first.function.in.t |
| aa20 | 68 65 20 6c 69 73 74 20 69 73 20 70 61 73 73 65 64 20 74 6f 20 74 68 65 20 6e 65 78 74 20 75 6e | he.list.is.passed.to.the.next.un |
| aa40 | 74 69 6c 20 74 68 65 20 6c 69 73 74 20 69 73 20 65 78 68 61 75 73 74 65 64 2e 0a 0a 54 68 65 20 | til.the.list.is.exhausted...The. |
| aa60 | 62 75 66 66 65 72 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 60 63 72 65 6f 6c 65 2d 73 74 | buffer.local.variable.`creole-st |
| aa80 | 72 75 63 74 75 72 65 64 27 20 69 73 20 73 65 74 20 6f 6e 20 74 68 65 0a 48 54 4d 4c 2d 42 55 46 | ructured'.is.set.on.the.HTML-BUF |
| aaa0 | 46 45 52 20 77 69 74 68 20 74 68 65 20 70 61 72 73 65 64 20 63 72 65 6f 6c 65 20 69 6e 20 69 74 | FER.with.the.parsed.creole.in.it |
| aac0 | 2e 20 20 53 65 65 20 60 63 72 65 6f 6c 65 2d 73 74 72 75 63 74 75 72 65 27 0a 66 6f 72 20 74 68 | ...See.`creole-structure'.for.th |
| aae0 | 65 20 64 65 74 61 69 6c 73 20 6f 66 20 74 68 61 74 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 | e.details.of.that.data.structure |
| ab00 | 2e 0a 0a 52 65 74 75 72 6e 73 20 74 68 65 20 48 54 4d 4c 2d 42 55 46 46 45 52 2e 22 0a 20 20 28 | ...Returns.the.HTML-BUFFER."...( |
| ab20 | 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 0a 20 20 20 20 28 72 65 61 64 2d 62 | interactive....(list.....(read-b |
| ab40 | 75 66 66 65 72 20 22 43 72 65 6f 6c 65 20 62 75 66 66 65 72 3a 20 22 20 28 63 75 72 72 65 6e 74 | uffer."Creole.buffer:.".(current |
| ab60 | 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 6e 69 6c 0a 20 20 20 20 3a 72 65 73 75 6c 74 2d 6d 6f | -buffer)).....nil.....:result-mo |
| ab80 | 64 65 20 27 68 74 6d 6c 2d 6d 6f 64 65 0a 20 20 20 20 3a 73 77 69 74 63 68 2d 74 6f 20 27 74 29 | de.'html-mode.....:switch-to.'t) |
| aba0 | 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 2d 62 75 66 66 65 72 20 3b 20 6d 61 6b 65 20 | )...(let.((result-buffer.;.make. |
| abc0 | 75 70 20 74 68 65 20 72 65 73 75 6c 74 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 28 6f | up.the.result.buffer..........(o |
| abe0 | 72 20 68 74 6d 6c 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d | r.html-buffer..............(get- |
| ac00 | 62 75 66 66 65 72 2d 63 72 65 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 | buffer-create...............(rep |
| ac20 | 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 | lace-regexp-in-string........... |
| ac40 | 20 20 20 20 20 28 72 78 20 28 67 72 6f 75 70 20 28 2a 20 22 2a 22 29 29 0a 20 20 20 20 20 20 20 | .....(rx.(group.(*."*"))........ |
| ac60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2a 20 61 6e 79 29 29 0a 20 20 20 20 | ............(group.(*.any))..... |
| ac80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2a 20 22 2a 22 29 29 29 0a | ...............(group.(*."*"))). |
| aca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2a 63 72 65 6f 6c 65 68 74 6d 6c 5c 5c 32 2e 68 | ..............."*creolehtml\\2.h |
| acc0 | 74 6d 6c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 | tml"................(buffer-name |
| ace0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 62 75 66 66 65 72 70 20 64 6f | .................(if.(bufferp.do |
| ad00 | 63 62 75 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 62 75 66 | cbuf).....................docbuf |
| ad20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 20 64 | ...................(get-buffer.d |
| ad40 | 6f 63 62 75 66 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 | ocbuf)))))))).....(make-local-va |
| ad60 | 72 69 61 62 6c 65 20 27 63 72 65 6f 6c 65 2d 73 74 72 75 63 74 75 72 65 64 29 0a 20 20 20 20 28 | riable.'creole-structured).....( |
| ad80 | 6c 65 74 20 28 28 63 72 65 6f 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2f | let.((creole............(creole/ |
| ada0 | 73 74 72 75 63 74 75 72 65 2d 70 69 70 65 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | structure-pipeline.............( |
| adc0 | 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 73 74 72 75 63 74 75 72 65 2d 74 72 61 6e 73 66 6f 72 | if.(functionp.structure-transfor |
| ade0 | 6d 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 73 74 72 75 | m-fn).................(list.stru |
| ae00 | 63 74 75 72 65 2d 74 72 61 6e 73 66 6f 72 6d 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | cture-transform-fn)............. |
| ae20 | 20 20 20 20 73 74 72 75 63 74 75 72 65 2d 74 72 61 6e 73 66 6f 72 6d 2d 66 6e 29 0a 20 20 20 20 | ....structure-transform-fn)..... |
| ae40 | 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2d 73 74 72 75 63 74 75 72 65 0a 20 20 20 20 20 20 | ........(creole-structure....... |
| ae60 | 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2d 74 6f 6b 65 6e 69 7a 65 20 64 6f 63 62 75 66 29 29 | .......(creole-tokenize.docbuf)) |
| ae80 | 29 29 29 20 20 3b 20 47 65 74 20 74 68 65 20 70 61 72 73 65 64 20 63 72 65 6f 6c 65 20 64 6f 63 | )))..;.Get.the.parsed.creole.doc |
| aea0 | 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 72 65 73 75 | .......(with-current-buffer.resu |
| aec0 | 6c 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 69 66 20 65 72 61 73 65 2d 65 78 69 73 | lt-buffer.........(if.erase-exis |
| aee0 | 74 69 6e 67 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 29 20 3b 20 45 72 61 73 65 20 69 66 20 | ting.(erase-buffer)).;.Erase.if. |
| af00 | 77 65 20 77 65 72 65 20 61 73 6b 65 64 20 74 6f 0a 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 | we.were.asked.to.........(loop.f |
| af20 | 6f 72 20 65 6c 65 6d 65 6e 74 20 69 6e 20 63 72 65 6f 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 | or.element.in.creole............ |
| af40 | 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 79 6e 74 61 | ...do...............(let.((synta |
| af60 | 78 20 28 63 61 72 20 65 6c 65 6d 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | x.(car.element)))............... |
| af80 | 20 20 28 63 61 73 65 20 73 79 6e 74 61 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(case.syntax.................. |
| afa0 | 20 3b 3b 20 54 68 65 20 6c 69 73 74 20 65 6c 65 6d 65 6e 74 73 20 63 61 6e 20 66 6f 6c 6c 6f 77 | .;;.The.list.elements.can.follow |
| afc0 | 20 6f 6e 20 66 72 6f 6d 20 65 61 63 68 20 6f 74 68 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .on.from.each.other............. |
| afe0 | 20 20 20 20 20 20 3b 3b 20 61 6e 64 20 72 65 71 75 69 72 65 20 73 70 65 63 69 61 6c 20 68 61 6e | ......;;.and.require.special.han |
| b000 | 64 6c 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6c 20 6f 6c 29 | dling...................((ul.ol) |
| b020 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 49 58 4d 45 20 6c 69 73 | ....................;;.FIXME.lis |
| b040 | 74 73 20 64 6f 6e 27 74 20 64 6f 20 62 6c 6f 63 6b 20 6c 65 76 65 6c 20 72 65 70 6c 61 63 65 6d | ts.don't.do.block.level.replacem |
| b060 | 65 6e 74 20 79 65 74 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 | ent.yet!....................(cre |
| b080 | 6f 6c 65 2f 68 74 6d 6c 2d 6c 69 73 74 20 73 79 6e 74 61 78 20 28 63 64 72 20 65 6c 65 6d 65 6e | ole/html-list.syntax.(cdr.elemen |
| b0a0 | 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 65 61 64 69 6e | t)))...................;;.Headin |
| b0c0 | 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 68 65 61 64 69 6e 67 31 20 | gs...................((heading1. |
| b0e0 | 68 65 61 64 69 6e 67 32 20 68 65 61 64 69 6e 67 33 20 68 65 61 64 69 6e 67 34 20 68 65 61 64 69 | heading2.heading3.heading4.headi |
| b100 | 6e 67 35 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 | ng5)....................(insert. |
| b120 | 28 63 72 65 6f 6c 65 2f 68 65 61 64 69 6e 67 2d 3e 68 74 6d 6c 20 65 6c 65 6d 65 6e 74 29 29 29 | (creole/heading->html.element))) |
| b140 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 72 74 72 61 69 74 20 3b 20 74 | ...................(portrait.;.t |
| b160 | 68 69 73 20 69 73 20 6f 64 64 6d 75 73 65 2f 65 6d 61 63 73 77 69 6b 69 20 73 74 75 66 66 0a 20 | his.is.oddmuse/emacswiki.stuff.. |
| b180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 | ..................(insert.(forma |
| b1a0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c | t............................."< |
| b1c0 | 69 6d 67 20 63 6c 61 73 73 3d 27 70 6f 72 74 72 61 69 74 27 20 73 72 63 3d 27 25 73 27 3e 3c 69 | img.class='portrait'.src='%s'><i |
| b1e0 | 6d 67 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mg>"............................ |
| b200 | 20 28 63 64 72 20 65 6c 65 6d 65 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(cdr.element))))............... |
| b220 | 20 20 20 20 3b 3b 20 54 61 62 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....;;.Tables................... |
| b240 | 28 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 | (table....................(inser |
| b260 | 74 20 28 63 72 65 6f 6c 65 2f 68 74 6d 6c 2d 74 61 62 6c 65 20 28 63 64 72 20 65 6c 65 6d 65 6e | t.(creole/html-table.(cdr.elemen |
| b280 | 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 73 75 | t))))...................;;.We.su |
| b2a0 | 70 70 6f 72 74 20 68 74 6d 66 6f 6e 74 69 66 79 20 66 6f 72 20 50 52 45 20 62 6c 6f 63 6b 73 0a | pport.htmfontify.for.PRE.blocks. |
| b2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 65 66 6f 72 6d 61 74 74 65 64 0a | ..................(preformatted. |
| b2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 79 6c 65 64 | ...................(let.((styled |
| b300 | 20 28 61 6e 64 20 64 6f 2d 66 6f 6e 74 2d 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(and.do-font-lock.............. |
| b320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 | .........................(creole |
| b340 | 2d 68 74 6d 6c 69 7a 65 2d 73 74 72 69 6e 67 20 28 63 64 72 20 65 6c 65 6d 65 6e 74 29 29 29 29 | -htmlize-string.(cdr.element)))) |
| b360 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 | )......................(if.(not. |
| b380 | 73 74 79 6c 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | styled)......................... |
| b3a0 | 20 28 69 6e 73 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(insert........................ |
| b3c0 | 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(format...................... |
| b3e0 | 20 20 20 20 20 20 22 3c 70 72 65 3e 5c 6e 25 73 5c 6e 3c 2f 70 72 65 3e 5c 6e 22 0a 20 20 20 20 | ......"<pre>\n%s\n</pre>\n"..... |
| b400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 65 6c 65 6d | .......................(cdr.elem |
| b420 | 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | ent)))........................(i |
| b440 | 6e 73 65 72 74 20 73 74 79 6c 65 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nsert.styled))))................ |
| b460 | 20 20 20 3b 3b 20 4a 75 73 74 20 65 6d 62 65 64 20 61 6e 79 20 48 54 4d 4c 0a 20 20 20 20 20 20 | ...;;.Just.embed.any.HTML....... |
| b480 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6c 75 67 69 6e 2d 68 74 6d 6c 0a 20 20 20 20 20 20 20 | ............(plugin-html........ |
| b4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 64 72 20 65 6c 65 6d 65 6e 74 | ............(insert.(cdr.element |
| b4c0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 72 0a 20 20 20 20 20 20 | )))...................(hr....... |
| b4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 3c 68 72 2f 3e 5c 6e 22 29 29 | .............(insert."<hr/>\n")) |
| b500 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 61 0a 20 20 20 20 20 20 20 | ...................(para........ |
| b520 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 | ............(insert.(format..... |
| b540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 70 3e 25 73 3c 2f | ........................"<p>%s</ |
| b560 | 70 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p>\n"........................... |
| b580 | 20 20 28 63 72 65 6f 6c 65 2d 62 6c 6f 63 6b 2d 70 61 72 73 65 20 28 63 64 72 20 65 6c 65 6d 65 | ..(creole-block-parse.(cdr.eleme |
| b5a0 | 6e 74 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 72 65 73 75 6c 74 2d 6d 6f | nt)))))))).........(if.result-mo |
| b5c0 | 64 65 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 72 65 73 75 6c 74 2d 6d 6f | de.(call-interactively.result-mo |
| b5e0 | 64 65 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 72 65 6f 6c 65 2d 73 74 72 75 63 74 | de)).........(setq.creole-struct |
| b600 | 75 72 65 64 20 63 72 65 6f 6c 65 29 29 0a 20 20 20 20 20 20 28 69 66 20 73 77 69 74 63 68 2d 74 | ured.creole)).......(if.switch-t |
| b620 | 6f 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 72 65 73 75 6c 74 2d 62 75 66 66 65 | o.(switch-to-buffer.result-buffe |
| b640 | 72 29 29 0a 20 20 20 20 20 20 72 65 73 75 6c 74 2d 62 75 66 66 65 72 29 29 29 0a 0a 0a 28 64 65 | r)).......result-buffer)))...(de |
| b660 | 66 75 6e 20 63 72 65 6f 6c 65 2f 66 69 6c 65 2d 75 6e 64 65 72 2d 72 6f 6f 74 2d 70 20 28 66 69 | fun.creole/file-under-root-p.(fi |
| b680 | 6c 65 2d 6e 61 6d 65 20 72 6f 6f 74 29 0a 20 20 22 49 73 20 46 49 4c 45 2d 4e 41 4d 45 20 75 6e | le-name.root)..."Is.FILE-NAME.un |
| b6a0 | 64 65 72 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 52 4f 4f 54 3f 0a 0a 52 65 74 75 72 6e 20 | der.the.directory.ROOT?..Return. |
| b6c0 | 6e 69 6c 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 6d 61 74 63 68 20 6f 72 20 74 68 65 20 | nil.if.there.is.no.match.or.the. |
| b6e0 | 70 61 72 74 20 6f 66 20 74 68 65 20 66 69 6c 65 2d 6e 61 6d 65 0a 77 68 69 63 68 20 77 61 73 20 | part.of.the.file-name.which.was. |
| b700 | 6e 6f 74 20 75 6e 64 65 72 20 74 68 65 20 64 6f 63 72 6f 6f 74 2e 22 0a 20 20 28 61 6e 64 20 72 | not.under.the.docroot."...(and.r |
| b720 | 6f 6f 74 0a 20 20 20 20 20 20 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 72 6f 6f | oot........(file-directory-p.roo |
| b740 | 74 29 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 72 75 65 2d 6e 61 6d 65 0a 20 20 20 20 | t)........(let*.((true-name..... |
| b760 | 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 0a 20 20 20 20 20 20 | ...........(file-truename....... |
| b780 | 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 | ..........(expand-file-name.file |
| b7a0 | 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 6f 6f 74 2d 64 69 72 | -name)))...............(root-dir |
| b7c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d | ................(directory-file- |
| b7e0 | 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c | name.................(expand-fil |
| b800 | 65 2d 6e 61 6d 65 20 72 6f 6f 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | e-name.root))))..........(let.(( |
| b820 | 64 6f 63 72 6f 6f 74 2d 6d 61 74 63 68 2d 69 6e 64 65 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 | docroot-match-index............. |
| b840 | 20 20 20 20 28 63 6f 6d 70 61 72 65 2d 73 74 72 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 | ....(compare-strings............ |
| b860 | 20 20 20 20 20 20 72 6f 6f 74 2d 64 69 72 20 30 20 28 6c 65 6e 67 74 68 20 72 6f 6f 74 2d 64 69 | ......root-dir.0.(length.root-di |
| b880 | 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 75 65 2d 6e 61 6d 65 20 30 20 | r)..................true-name.0. |
| b8a0 | 28 6c 65 6e 67 74 68 20 74 72 75 65 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | (length.true-name))))........... |
| b8c0 | 20 3b 3b 20 49 66 20 74 68 65 20 63 6f 6d 70 61 72 65 2d 76 61 6c 75 65 20 69 73 20 6c 65 73 73 | .;;.If.the.compare-value.is.less |
| b8e0 | 20 74 68 61 6e 20 30 20 77 65 20 6d 61 74 63 68 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b | .than.0.we.matched............;; |
| b900 | 20 61 6e 64 20 77 65 20 68 61 76 65 20 65 78 74 72 61 20 63 68 61 72 61 63 74 65 72 73 20 69 6e | .and.we.have.extra.characters.in |
| b920 | 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 72 75 65 2d 6e 61 6d 65 2e 2e 2e 20 | .the............;;.true-name.... |
| b940 | 20 77 65 20 2a 73 68 6f 75 6c 64 2a 20 68 61 76 65 20 65 78 74 72 61 0a 20 20 20 20 20 20 20 20 | .we.*should*.have.extra......... |
| b960 | 20 20 20 3b 3b 20 63 68 61 72 61 63 74 65 72 73 20 62 65 63 61 75 73 65 20 6f 74 68 65 72 77 69 | ...;;.characters.because.otherwi |
| b980 | 73 65 20 77 65 27 64 20 62 65 20 72 65 66 65 72 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 | se.we'd.be.referring............ |
| b9a0 | 3b 3b 20 74 6f 20 74 68 65 20 64 6f 63 72 6f 6f 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 | ;;.to.the.docroot.............(w |
| b9c0 | 68 65 6e 20 28 3c 20 64 6f 63 72 6f 6f 74 2d 6d 61 74 63 68 2d 69 6e 64 65 78 20 30 29 0a 20 20 | hen.(<.docroot-match-index.0)... |
| b9e0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 | ...........(substring........... |
| ba00 | 20 20 20 20 74 72 75 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 2d | ....true-name...............;;.- |
| ba20 | 32 20 68 65 72 65 20 62 65 63 61 75 73 65 20 6f 66 20 69 6e 64 65 78 20 30 20 2a 61 6e 64 2a 20 | 2.here.because.of.index.0.*and*. |
| ba40 | 6e 65 65 64 69 6e 67 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 2d 6c 65 | needing.the...............;;.-le |
| ba60 | 61 64 69 6e 67 20 73 6c 61 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 61 62 | ading.slash...............(-.(ab |
| ba80 | 73 20 64 6f 63 72 6f 6f 74 2d 6d 61 74 63 68 2d 69 6e 64 65 78 29 20 31 29 0a 20 20 20 20 20 20 | s.docroot-match-index).1)....... |
| baa0 | 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 74 72 75 65 2d 6e 61 6d 65 29 29 29 29 29 29 29 | ........(length.true-name))))))) |
| bac0 | 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 67 65 74 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 | ..(defun.creole/get-file.(filena |
| bae0 | 6d 65 29 0a 20 20 22 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 62 61 73 65 64 20 46 49 4c 45 4e 41 | me)..."An.exception.based.FILENA |
| bb00 | 4d 45 20 6c 6f 6f 6b 75 70 2e 0a 0a 45 69 74 68 65 72 20 6c 6f 61 64 73 20 74 68 65 20 46 49 4c | ME.lookup...Either.loads.the.FIL |
| bb20 | 45 4e 41 4d 45 20 69 6e 20 61 20 62 75 66 66 65 72 20 28 62 75 74 20 64 6f 65 73 20 6e 6f 74 20 | ENAME.in.a.buffer.(but.does.not. |
| bb40 | 73 65 6c 65 63 74 20 69 74 29 20 6f 72 0a 65 72 72 6f 72 73 20 27 66 69 6c 65 2d 65 72 72 6f 72 | select.it).or.errors.'file-error |
| bb60 | 2e 0a 0a 54 68 65 20 46 49 4c 45 4e 41 4d 45 20 69 73 20 65 78 70 61 6e 64 65 64 20 61 6e 64 20 | ...The.FILENAME.is.expanded.and. |
| bb80 | 60 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 27 64 20 66 69 72 73 74 2e 22 0a 20 20 28 6c 65 74 20 | `file-truename'd.first."...(let. |
| bba0 | 28 28 66 69 6c 65 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 | ((file-path..........(ignore-err |
| bbc0 | 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 20 28 65 | ors............(file-truename.(e |
| bbe0 | 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 0a 20 20 | xpand-file-name.filename)))))... |
| bc00 | 20 20 28 69 66 20 28 6e 6f 74 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6c 65 2d 70 | ..(if.(not.(file-exists-p.file-p |
| bc20 | 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 27 66 69 6c 65 2d 65 72 72 6f | ath)).........(signal.'file-erro |
| bc40 | 72 20 28 66 6f 72 6d 61 74 20 22 4e 6f 20 73 75 63 68 20 66 69 6c 65 20 25 73 22 20 66 69 6c 65 | r.(format."No.such.file.%s".file |
| bc60 | 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 | -path)).......(find-file-noselec |
| bc80 | 74 20 66 69 6c 65 2d 70 61 74 68 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 65 | t.file-path))))..(defun.creole/e |
| bca0 | 78 70 61 6e 64 2d 69 74 65 6d 2d 76 61 6c 75 65 20 28 69 74 65 6d 20 26 6f 70 74 69 6f 6e 61 6c | xpand-item-value.(item.&optional |
| bcc0 | 20 64 6f 63 72 6f 6f 74 29 0a 20 20 22 45 78 70 61 6e 64 20 49 54 45 4d 20 74 6f 20 62 65 20 61 | .docroot)..."Expand.ITEM.to.be.a |
| bce0 | 20 76 61 6c 75 65 2e 0a 0a 49 66 20 49 54 45 4d 20 62 65 67 69 6e 73 20 77 69 74 68 20 61 20 66 | .value...If.ITEM.begins.with.a.f |
| bd00 | 69 6c 65 2d 6e 61 6d 65 20 69 64 65 6e 74 69 66 79 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 74 | ile-name.identifying.character.t |
| bd20 | 68 65 6e 20 74 72 79 0a 61 6e 64 20 72 65 73 6f 6c 76 65 20 74 68 65 20 49 54 45 4d 20 61 73 20 | hen.try.and.resolve.the.ITEM.as. |
| bd40 | 61 20 66 69 6c 65 2d 6e 61 6d 65 2c 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 75 6e 64 65 72 20 74 68 | a.file-name,.optionally.under.th |
| bd60 | 65 0a 44 4f 43 52 4f 4f 54 2e 0a 0a 52 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 77 | e.DOCROOT...Return.a.cons.cell.w |
| bd80 | 69 74 68 20 74 68 65 20 60 63 61 72 27 20 69 64 65 6e 74 69 66 79 69 6e 67 20 74 68 65 20 74 79 | ith.the.`car'.identifying.the.ty |
| bda0 | 70 65 2c 20 6f 6e 65 20 6f 66 3a 0a 0a 20 3a 6c 69 6e 6b 20 20 20 20 20 74 6f 20 69 6e 64 69 63 | pe,.one.of:...:link.....to.indic |
| bdc0 | 61 74 65 20 61 20 6c 69 6e 6b 61 62 6c 65 20 66 69 6c 65 2d 6e 61 6d 65 0a 20 3a 73 74 72 69 6e | ate.a.linkable.file-name..:strin |
| bde0 | 67 20 20 20 74 6f 20 69 6e 64 69 63 61 74 65 20 74 68 65 20 72 61 77 20 64 61 74 61 0a 0a 61 6e | g...to.indicate.the.raw.data..an |
| be00 | 64 20 74 68 65 20 60 63 64 72 27 20 62 65 69 6e 67 20 74 68 65 20 65 78 70 61 6e 64 65 64 20 73 | d.the.`cdr'.being.the.expanded.s |
| be20 | 74 72 69 6e 67 2e 22 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 28 | tring."...(save-match-data.....( |
| be40 | 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 28 72 78 20 62 6f | if.(string-match..........(rx.bo |
| be60 | 6c 20 28 6f 72 20 22 2e 2f 22 20 22 2f 22 20 22 7e 22 29 20 28 2a 20 61 6e 79 29 29 0a 20 20 20 | l.(or."./"."/"."~").(*.any)).... |
| be80 | 20 20 20 20 20 20 69 74 65 6d 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 66 69 6c 65 2d 6e 61 6d 65 | ......item).........;;.file-name |
| bea0 | 20 74 65 6d 70 6c 61 74 69 6e 67 20 68 61 73 20 62 65 65 6e 20 72 65 71 75 65 73 74 65 64 0a 20 | .templating.has.been.requested.. |
| bec0 | 20 20 20 20 20 20 20 3b 3b 20 43 68 65 63 6b 20 69 66 20 77 65 20 68 61 76 65 20 61 20 64 6f 63 | .......;;.Check.if.we.have.a.doc |
| bee0 | 72 6f 6f 74 20 74 68 61 74 20 77 6f 72 6b 73 0a 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 | root.that.works.........(let*.(( |
| bf00 | 70 61 74 68 2d 69 6e 66 6f 20 28 63 72 65 6f 6c 65 2f 66 69 6c 65 2d 75 6e 64 65 72 2d 72 6f 6f | path-info.(creole/file-under-roo |
| bf20 | 74 2d 70 20 69 74 65 6d 20 64 6f 63 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 | t-p.item.docroot)))...........(i |
| bf40 | 66 20 70 61 74 68 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 | f.path-info...............;;.The |
| bf60 | 20 66 69 6c 65 20 69 73 20 6c 69 6e 6b 61 62 6c 65 20 73 6f 20 72 65 74 75 72 6e 20 74 68 65 20 | .file.is.linkable.so.return.the. |
| bf80 | 74 65 6d 70 6c 61 74 65 20 77 69 74 68 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | template.with.the............... |
| bfa0 | 3b 3b 20 64 6f 63 72 6f 6f 74 2d 65 64 20 74 72 75 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 | ;;.docroot-ed.true-name......... |
| bfc0 | 20 20 20 20 20 20 28 63 6f 6e 73 20 3a 6c 69 6e 6b 20 70 61 74 68 2d 69 6e 66 6f 29 0a 20 20 20 | ......(cons.:link.path-info).... |
| bfe0 | 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 20 77 6f 72 6b 61 62 6c 65 20 64 6f 63 72 6f 6f 74 20 | .........;;.No.workable.docroot. |
| c000 | 73 6f 20 72 65 74 75 72 6e 20 65 69 74 68 65 72 20 74 68 65 20 74 65 78 74 20 6f 66 20 74 68 65 | so.return.either.the.text.of.the |
| c020 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 66 69 6c 65 20 28 69 66 20 69 74 20 65 78 69 73 | .............;;.file.(if.it.exis |
| c040 | 74 73 29 20 6f 72 20 6a 75 73 74 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 | ts).or.just.the.filename........ |
| c060 | 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 0a 20 20 20 20 20 20 20 | .....(condition-case.err........ |
| c080 | 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 63 | .........(with-current-buffer.(c |
| c0a0 | 72 65 6f 6c 65 2f 67 65 74 2d 66 69 6c 65 20 69 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 | reole/get-file.item)............ |
| c0c0 | 20 20 20 20 20 20 20 28 63 6f 6e 73 20 3a 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 | .......(cons.:string............ |
| c0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 0a 20 | .............(buffer-substring.. |
| c100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d | ........................(point-m |
| c120 | 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f | in)..........................(po |
| c140 | 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 49 58 | int-max))))...............;;.FIX |
| c160 | 4d 45 20 2d 20 49 27 64 20 6c 69 6b 65 20 74 68 69 73 20 74 6f 20 62 65 20 66 69 6c 65 2d 65 72 | ME.-.I'd.like.this.to.be.file-er |
| c180 | 72 6f 72 20 2d 20 77 68 79 20 64 6f 65 73 6e 27 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ror.-.why.doesn't............... |
| c1a0 | 3b 3b 20 74 68 61 74 20 77 6f 72 6b 3f 3f 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 | ;;.that.work???...............(e |
| c1c0 | 72 72 6f 72 20 28 63 6f 6e 73 20 3a 6c 69 6e 6b 20 69 74 65 6d 29 29 29 29 29 0a 20 20 20 20 20 | rror.(cons.:link.item)))))...... |
| c1e0 | 20 3b 3b 20 54 68 65 20 69 74 65 6d 20 77 61 73 20 6e 6f 74 20 61 20 66 69 6c 65 2d 6e 61 6d 65 | .;;.The.item.was.not.a.file-name |
| c200 | 20 73 6f 20 6a 75 73 74 20 72 65 74 75 72 6e 20 69 74 0a 20 20 20 20 20 20 28 63 6f 6e 73 20 3a | .so.just.return.it.......(cons.: |
| c220 | 73 74 72 69 6e 67 20 69 74 65 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 77 | string.item))))..(defun.creole/w |
| c240 | 72 61 70 2d 62 75 66 66 65 72 2d 74 65 78 74 20 28 73 74 61 72 74 20 65 6e 64 20 26 6f 70 74 69 | rap-buffer-text.(start.end.&opti |
| c260 | 6f 6e 61 6c 20 62 75 66 66 65 72 29 0a 20 20 22 53 69 6d 70 6c 79 20 77 72 61 70 20 74 68 65 20 | onal.buffer)..."Simply.wrap.the. |
| c280 | 74 65 78 74 20 6f 66 20 42 55 46 46 45 52 20 28 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 | text.of.BUFFER.(or.the.current.b |
| c2a0 | 75 66 66 65 72 29 2e 0a 0a 53 54 41 52 54 20 69 73 20 70 6c 61 63 65 64 20 61 74 20 74 68 65 20 | uffer)...START.is.placed.at.the. |
| c2c0 | 73 74 61 72 74 20 6f 66 20 74 68 65 20 42 55 46 46 45 52 20 61 6e 64 20 45 4e 44 20 69 73 20 70 | start.of.the.BUFFER.and.END.is.p |
| c2e0 | 6c 61 63 65 64 20 61 74 0a 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 42 55 46 46 45 52 2e 22 | laced.at.the.end.of.the.BUFFER." |
| c300 | 0a 20 20 28 6c 65 74 20 28 28 62 75 66 20 28 6f 72 20 62 75 66 66 65 72 20 28 63 75 72 72 65 6e | ...(let.((buf.(or.buffer.(curren |
| c320 | 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 | t-buffer)))).....(with-current-b |
| c340 | 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a | uffer.buf.......(save-excursion. |
| c360 | 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a | ........(goto-char.(point-min)). |
| c380 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 28 | ........(insert.start).........( |
| c3a0 | 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 28 | goto-char.(point-max)).........( |
| c3c0 | 69 6e 73 65 72 74 20 65 6e 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2f 69 | insert.end)))))..(defun.creole/i |
| c3e0 | 6e 73 65 72 74 2d 74 65 6d 70 6c 61 74 65 20 28 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nsert-template.(key............. |
| c400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 0a 20 20 20 | ....................position.... |
| c420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 | .............................doc |
| c440 | 72 6f 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | root............................ |
| c460 | 20 20 20 20 20 6c 69 6e 6b 2d 74 65 6d 70 6c 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....link-template.............. |
| c480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6d 62 65 64 2d 74 65 6d 70 6c 61 74 | ...................embed-templat |
| c4a0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e............................... |
| c4c0 | 20 20 26 6f 70 74 69 6f 6e 61 6c 20 64 6f 63 72 6f 6f 74 2d 61 6c 69 61 73 29 0a 20 20 22 49 6e | ..&optional.docroot-alias)..."In |
| c4e0 | 73 65 72 74 20 65 69 74 68 65 72 20 74 68 65 20 4c 49 4e 4b 2d 54 45 4d 50 4c 41 54 45 20 6f 72 | sert.either.the.LINK-TEMPLATE.or |
| c500 | 20 74 68 65 20 45 4d 42 45 44 2d 54 45 4d 50 4c 41 54 45 2e 0a 0a 4b 45 59 20 73 70 65 63 69 66 | .the.EMBED-TEMPLATE...KEY.specif |
| c520 | 69 65 73 20 61 20 76 61 6c 75 65 20 74 68 61 74 20 69 73 20 65 78 70 61 6e 64 65 64 20 77 69 74 | ies.a.value.that.is.expanded.wit |
| c540 | 68 0a 60 63 72 65 6f 6c 65 2f 65 78 70 61 6e 64 2d 69 74 65 6d 2d 76 61 6c 75 65 27 2c 20 70 6f | h.`creole/expand-item-value',.po |
| c560 | 73 73 69 62 6c 79 20 77 69 74 68 20 44 4f 43 52 4f 4f 54 2e 0a 0a 57 68 65 74 68 65 72 20 77 65 | ssibly.with.DOCROOT...Whether.we |
| c580 | 27 72 65 20 61 20 3a 6c 69 6e 6b 20 6f 72 20 61 20 3a 73 74 72 69 6e 67 20 77 69 6c 6c 20 63 61 | 're.a.:link.or.a.:string.will.ca |
| c5a0 | 75 73 65 20 65 69 74 68 65 72 20 74 68 65 0a 4c 49 4e 4b 2d 54 45 4d 50 4c 41 54 45 20 6f 72 20 | use.either.the.LINK-TEMPLATE.or. |
| c5c0 | 74 68 65 20 45 4d 42 45 44 2d 54 45 4d 50 4c 41 54 45 20 74 6f 20 62 65 20 69 6e 73 65 72 74 65 | the.EMBED-TEMPLATE.to.be.inserte |
| c5e0 | 64 20 61 74 20 74 68 65 20 6d 61 72 6b 65 72 0a 50 4f 53 49 54 49 4f 4e 2e 0a 0a 49 66 20 44 4f | d.at.the.marker.POSITION...If.DO |
| c600 | 43 52 4f 4f 54 2d 41 4c 49 41 53 20 69 73 20 73 70 65 63 69 66 69 65 64 20 61 6e 64 20 74 68 65 | CROOT-ALIAS.is.specified.and.the |
| c620 | 20 3a 6c 69 6e 6b 20 74 65 6d 70 6c 61 74 65 20 69 73 20 75 73 65 64 20 74 68 65 6e 0a 74 68 65 | .:link.template.is.used.then.the |
| c640 | 20 66 69 6c 65 6e 61 6d 65 20 69 73 20 63 6f 6e 63 61 74 65 6e 61 74 65 64 20 77 69 74 68 20 74 | .filename.is.concatenated.with.t |
| c660 | 68 61 74 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 77 68 65 | hat."...(save-excursion.....(whe |
| c680 | 6e 20 6b 65 79 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 69 74 69 6f 6e 29 | n.key.......(goto-char.position) |
| c6a0 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 20 28 63 72 65 6f 6c 65 2f 65 78 70 61 | .......(let.((value.(creole/expa |
| c6c0 | 6e 64 2d 69 74 65 6d 2d 76 61 6c 75 65 20 6b 65 79 20 64 6f 63 72 6f 6f 74 29 29 29 0a 20 20 20 | nd-item-value.key.docroot))).... |
| c6e0 | 20 20 20 20 20 28 63 61 73 65 20 28 63 61 72 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 | .....(case.(car.value).......... |
| c700 | 20 28 3a 6c 69 6e 6b 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 0a 20 20 20 20 20 | .(:link............(insert...... |
| c720 | 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b | .......(format..............link |
| c740 | 2d 74 65 6d 70 6c 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 6f 63 72 6f | -template..............(if.docro |
| c760 | 6f 74 2d 61 6c 69 61 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 | ot-alias..................(conca |
| c780 | 74 20 64 6f 63 72 6f 6f 74 2d 61 6c 69 61 73 20 28 63 64 72 20 76 61 6c 75 65 29 29 0a 20 20 20 | t.docroot-alias.(cdr.value)).... |
| c7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 76 61 6c 75 65 29 29 29 29 29 0a 20 20 | ..............(cdr.value)))))... |
| c7c0 | 20 20 20 20 20 20 20 20 28 3a 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 | ........(:string............(ins |
| c7e0 | 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 65 6d 62 65 64 2d 74 65 | ert.............(format.embed-te |
| c800 | 6d 70 6c 61 74 65 20 28 63 64 72 20 76 61 6c 75 65 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 | mplate.(cdr.value)))))))))..(def |
| c820 | 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 2d 74 79 70 65 20 22 23 30 | custom.creole-css-color-type."#0 |
| c840 | 30 30 30 30 30 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 | 00000"..."A.custom.color.to.be.u |
| c860 | 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 | sed.for.CSS.style.rendering."... |
| c880 | 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 | :group.'creole...:type.'(string) |
| c8a0 | 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 2d 64 | )..(defcustom.creole-css-color-d |
| c8c0 | 65 66 61 75 6c 74 20 22 23 30 30 30 30 30 30 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c | efault."#000000"..."A.custom.col |
| c8e0 | 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 | or.to.be.used.for.CSS.style.rend |
| c900 | 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 | ering."...:group.'creole...:type |
| c920 | 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 | .'(string))..(defcustom.creole-c |
| c940 | 73 73 2d 63 6f 6c 6f 72 2d 77 68 69 74 65 73 70 61 63 65 2d 65 6d 70 74 79 20 22 23 62 32 32 32 | ss-color-whitespace-empty."#b222 |
| c960 | 32 32 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 | 22"..."A.custom.color.to.be.used |
| c980 | 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 | .for.CSS.style.rendering."...:gr |
| c9a0 | 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a | oup.'creole...:type.'(string)).. |
| c9c0 | 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 2d 72 65 67 65 | (defcustom.creole-css-color-rege |
| c9e0 | 78 70 2d 67 72 6f 75 70 69 6e 67 2d 63 6f 6e 73 74 72 75 63 74 20 22 23 30 30 30 30 30 30 22 0a | xp-grouping-construct."#000000". |
| ca00 | 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 | .."A.custom.color.to.be.used.for |
| ca20 | 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 | .CSS.style.rendering."...:group. |
| ca40 | 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 | 'creole...:type.'(string))..(def |
| ca60 | 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 2d 62 75 69 6c 74 69 6e 20 | custom.creole-css-color-builtin. |
| ca80 | 22 23 34 38 33 64 38 62 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 | "#483d8b"..."A.custom.color.to.b |
| caa0 | 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 | e.used.for.CSS.style.rendering." |
| cac0 | 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 | ...:group.'creole...:type.'(stri |
| cae0 | 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f | ng))..(defcustom.creole-css-colo |
| cb00 | 72 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 22 23 30 30 30 30 66 66 22 0a 20 20 22 41 20 63 | r-function-name."#0000ff"..."A.c |
| cb20 | 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 | ustom.color.to.be.used.for.CSS.s |
| cb40 | 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c | tyle.rendering."...:group.'creol |
| cb60 | 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d | e...:type.'(string))..(defcustom |
| cb80 | 20 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 2d 64 6f 63 20 22 23 38 62 32 32 35 32 22 0a | .creole-css-color-doc."#8b2252". |
| cba0 | 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 | .."A.custom.color.to.be.used.for |
| cbc0 | 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 | .CSS.style.rendering."...:group. |
| cbe0 | 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 | 'creole...:type.'(string))..(def |
| cc00 | 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 2d 73 74 72 69 6e 67 20 22 | custom.creole-css-color-string." |
| cc20 | 23 38 62 32 32 35 32 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 | #8b2252"..."A.custom.color.to.be |
| cc40 | 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a | .used.for.CSS.style.rendering.". |
| cc60 | 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e | ..:group.'creole...:type.'(strin |
| cc80 | 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 | g))..(defcustom.creole-css-color |
| cca0 | 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 20 22 23 61 30 35 32 32 64 22 0a 20 20 22 41 20 63 75 | -variable-name."#a0522d"..."A.cu |
| ccc0 | 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 | stom.color.to.be.used.for.CSS.st |
| cce0 | 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 | yle.rendering."...:group.'creole |
| cd00 | 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | ...:type.'(string))..(defcustom. |
| cd20 | 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 2d 63 6f 6e 73 74 61 6e 74 20 22 23 30 30 38 62 | creole-css-color-constant."#008b |
| cd40 | 38 62 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 | 8b"..."A.custom.color.to.be.used |
| cd60 | 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 | .for.CSS.style.rendering."...:gr |
| cd80 | 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a | oup.'creole...:type.'(string)).. |
| cda0 | 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 2d 6b 65 79 77 | (defcustom.creole-css-color-keyw |
| cdc0 | 6f 72 64 20 22 23 61 30 32 30 66 30 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 | ord."#a020f0"..."A.custom.color. |
| cde0 | 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 | to.be.used.for.CSS.style.renderi |
| ce00 | 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 | ng."...:group.'creole...:type.'( |
| ce20 | 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d | string))..(defcustom.creole-css- |
| ce40 | 63 6f 6c 6f 72 2d 63 6f 6d 6d 65 6e 74 20 22 23 62 32 32 32 32 32 22 0a 20 20 22 41 20 63 75 73 | color-comment."#b22222"..."A.cus |
| ce60 | 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 | tom.color.to.be.used.for.CSS.sty |
| ce80 | 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a | le.rendering."...:group.'creole. |
| cea0 | 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 | ..:type.'(string))..(defcustom.c |
| cec0 | 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 2d 77 68 69 74 65 73 70 61 63 65 2d 73 70 61 63 65 | reole-css-color-whitespace-space |
| cee0 | 20 22 23 64 33 64 33 64 33 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 | ."#d3d3d3"..."A.custom.color.to. |
| cf00 | 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e | be.used.for.CSS.style.rendering. |
| cf20 | 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 | "...:group.'creole...:type.'(str |
| cf40 | 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c | ing))..(defcustom.creole-css-col |
| cf60 | 6f 72 2d 63 6f 6d 6d 65 6e 74 2d 64 65 6c 69 6d 69 74 65 72 20 22 23 62 32 32 32 32 32 22 0a 20 | or-comment-delimiter."#b22222".. |
| cf80 | 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 | ."A.custom.color.to.be.used.for. |
| cfa0 | 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 | CSS.style.rendering."...:group.' |
| cfc0 | 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 | creole...:type.'(string))..(defc |
| cfe0 | 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 64 65 66 61 | ustom.creole-css-background-defa |
| d000 | 75 6c 74 20 22 23 66 66 66 66 66 66 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 | ult."#ffffff"..."A.custom.color. |
| d020 | 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 | to.be.used.for.CSS.style.renderi |
| d040 | 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 | ng."...:group.'creole...:type.'( |
| d060 | 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d | string))..(defcustom.creole-css- |
| d080 | 62 61 63 6b 67 72 6f 75 6e 64 2d 77 68 69 74 65 73 70 61 63 65 2d 65 6d 70 74 79 20 22 23 66 66 | background-whitespace-empty."#ff |
| d0a0 | 66 66 30 30 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 | ff00"..."A.custom.color.to.be.us |
| d0c0 | 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a | ed.for.CSS.style.rendering."...: |
| d0e0 | 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 | group.'creole...:type.'(string)) |
| d100 | 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 6f 75 | ..(defcustom.creole-css-backgrou |
| d120 | 6e 64 2d 72 65 67 65 78 70 2d 67 72 6f 75 70 69 6e 67 2d 63 6f 6e 73 74 72 75 63 74 20 22 23 66 | nd-regexp-grouping-construct."#f |
| d140 | 66 66 66 66 66 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 | fffff"..."A.custom.color.to.be.u |
| d160 | 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 | sed.for.CSS.style.rendering."... |
| d180 | 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 | :group.'creole...:type.'(string) |
| d1a0 | 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 6f | )..(defcustom.creole-css-backgro |
| d1c0 | 75 6e 64 2d 72 65 67 65 78 70 2d 67 72 6f 75 70 69 6e 67 2d 62 61 63 6b 73 6c 61 73 68 20 22 23 | und-regexp-grouping-backslash."# |
| d1e0 | 66 66 66 66 66 66 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 | ffffff"..."A.custom.color.to.be. |
| d200 | 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 | used.for.CSS.style.rendering.".. |
| d220 | 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 | .:group.'creole...:type.'(string |
| d240 | 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 | ))..(defcustom.creole-css-backgr |
| d260 | 6f 75 6e 64 2d 62 75 69 6c 74 69 6e 20 22 23 66 66 66 66 66 66 22 0a 20 20 22 41 20 63 75 73 74 | ound-builtin."#ffffff"..."A.cust |
| d280 | 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c | om.color.to.be.used.for.CSS.styl |
| d2a0 | 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 | e.rendering."...:group.'creole.. |
| d2c0 | 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 | .:type.'(string))..(defcustom.cr |
| d2e0 | 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d | eole-css-background-function-nam |
| d300 | 65 20 22 23 66 66 66 66 66 66 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f | e."#ffffff"..."A.custom.color.to |
| d320 | 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 | .be.used.for.CSS.style.rendering |
| d340 | 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 | ."...:group.'creole...:type.'(st |
| d360 | 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 | ring))..(defcustom.creole-css-ba |
| d380 | 63 6b 67 72 6f 75 6e 64 2d 64 6f 63 20 22 23 66 66 66 66 66 66 22 0a 20 20 22 41 20 63 75 73 74 | ckground-doc."#ffffff"..."A.cust |
| d3a0 | 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c | om.color.to.be.used.for.CSS.styl |
| d3c0 | 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 | e.rendering."...:group.'creole.. |
| d3e0 | 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 | .:type.'(string))..(defcustom.cr |
| d400 | 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 73 74 72 69 6e 67 20 22 23 66 66 66 | eole-css-background-string."#fff |
| d420 | 66 66 66 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 | fff"..."A.custom.color.to.be.use |
| d440 | 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 | d.for.CSS.style.rendering."...:g |
| d460 | 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a | roup.'creole...:type.'(string)). |
| d480 | 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 6f 75 6e | .(defcustom.creole-css-backgroun |
| d4a0 | 64 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 20 22 23 66 66 66 66 66 66 22 0a 20 20 22 41 20 63 | d-variable-name."#ffffff"..."A.c |
| d4c0 | 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 | ustom.color.to.be.used.for.CSS.s |
| d4e0 | 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c | tyle.rendering."...:group.'creol |
| d500 | 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d | e...:type.'(string))..(defcustom |
| d520 | 20 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6e 73 74 61 6e 74 20 | .creole-css-background-constant. |
| d540 | 22 23 66 66 66 66 66 66 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 | "#ffffff"..."A.custom.color.to.b |
| d560 | 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 | e.used.for.CSS.style.rendering." |
| d580 | 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 | ...:group.'creole...:type.'(stri |
| d5a0 | 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b | ng))..(defcustom.creole-css-back |
| d5c0 | 67 72 6f 75 6e 64 2d 6b 65 79 77 6f 72 64 20 22 23 66 66 66 66 66 66 22 0a 20 20 22 41 20 63 75 | ground-keyword."#ffffff"..."A.cu |
| d5e0 | 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 | stom.color.to.be.used.for.CSS.st |
| d600 | 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 | yle.rendering."...:group.'creole |
| d620 | 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | ...:type.'(string))..(defcustom. |
| d640 | 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6d 6d 65 6e 74 20 22 23 | creole-css-background-comment."# |
| d660 | 66 66 66 66 66 66 22 0a 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 | ffffff"..."A.custom.color.to.be. |
| d680 | 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 | used.for.CSS.style.rendering.".. |
| d6a0 | 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 | .:group.'creole...:type.'(string |
| d6c0 | 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 | ))..(defcustom.creole-css-backgr |
| d6e0 | 6f 75 6e 64 2d 77 68 69 74 65 73 70 61 63 65 2d 73 70 61 63 65 20 22 23 66 66 66 66 65 30 22 0a | ound-whitespace-space."#ffffe0". |
| d700 | 20 20 22 41 20 63 75 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 | .."A.custom.color.to.be.used.for |
| d720 | 20 43 53 53 20 73 74 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 | .CSS.style.rendering."...:group. |
| d740 | 27 63 72 65 6f 6c 65 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 | 'creole...:type.'(string))..(def |
| d760 | 63 75 73 74 6f 6d 20 63 72 65 6f 6c 65 2d 63 73 73 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6d | custom.creole-css-background-com |
| d780 | 6d 65 6e 74 2d 64 65 6c 69 6d 69 74 65 72 20 22 23 66 66 66 66 66 66 22 0a 20 20 22 41 20 63 75 | ment-delimiter."#ffffff"..."A.cu |
| d7a0 | 73 74 6f 6d 20 63 6f 6c 6f 72 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 43 53 53 20 73 74 | stom.color.to.be.used.for.CSS.st |
| d7c0 | 79 6c 65 20 72 65 6e 64 65 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 72 65 6f 6c 65 | yle.rendering."...:group.'creole |
| d7e0 | 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f | ...:type.'(string))..(defun.creo |
| d800 | 6c 65 2d 63 73 73 2d 6c 69 73 74 2d 74 6f 2d 73 74 79 6c 65 2d 64 65 63 6c 20 28 63 73 73 2d 6c | le-css-list-to-style-decl.(css-l |
| d820 | 69 73 74 29 0a 20 20 22 4d 61 6b 65 20 74 68 65 20 43 53 53 2d 4c 49 53 54 20 69 6e 74 6f 20 61 | ist)..."Make.the.CSS-LIST.into.a |
| d840 | 6e 20 48 54 4d 4c 20 53 54 59 4c 45 20 64 65 63 6c 2e 0a 0a 41 20 43 53 53 2d 4c 49 53 54 20 73 | n.HTML.STYLE.decl...A.CSS-LIST.s |
| d860 | 68 6f 75 6c 64 20 6c 6f 6f 6b 20 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b 65 20 74 68 69 73 3a 0a | hould.look.something.like.this:. |
| d880 | 0a 20 28 28 64 65 66 61 75 6c 74 20 5c 22 64 65 66 61 75 6c 74 5c 22 20 2e 20 5c 22 7b 20 2e 2e | ..((default.\"default\"...\"{... |
| d8a0 | 2e 20 43 53 53 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 2e 2e 2e 20 7d 5c 22 29 0a 20 20 28 66 | ..CSS.declarations.....}\")...(f |
| d8c0 | 6f 6e 74 2d 6c 6f 63 6b 2d 73 74 72 69 6e 67 2d 66 61 63 65 20 5c 22 73 74 72 69 6e 67 5c 22 20 | ont-lock-string-face.\"string\". |
| d8e0 | 2e 20 5c 22 7b 20 2e 2e 2e 20 43 53 53 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 2e 2e 2e 20 7d | ..\"{.....CSS.declarations.....} |
| d900 | 5c 22 29 0a 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 74 79 70 65 2d 66 61 63 65 20 5c 22 74 79 70 | \")...(font-lock-type-face.\"typ |
| d920 | 65 5c 22 20 2e 20 5c 22 7b 20 2e 2e 2e 20 43 53 53 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 2e | e\"...\"{.....CSS.declarations.. |
| d940 | 2e 2e 20 7d 5c 22 29 0a 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 | ...}\")...(font-lock-function-na |
| d960 | 6d 65 2d 66 61 63 65 20 5c 22 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 5c 22 20 2e 20 5c 22 7b 20 | me-face.\"function-name\"...\"{. |
| d980 | 2e 2e 2e 20 43 53 53 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 2e 2e 2e 20 7d 5c 22 29 0a 20 20 | ....CSS.declarations.....}\")... |
| d9a0 | 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 20 5c 22 6b 65 79 77 6f 72 | (font-lock-keyword-face.\"keywor |
| d9c0 | 64 5c 22 20 2e 20 5c 22 7b 20 2e 2e 2e 20 43 53 53 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 2e | d\"...\"{.....CSS.declarations.. |
| d9e0 | 2e 2e 20 7d 5c 22 29 0a 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 | ...}\")...(font-lock-comment-fac |
| da00 | 65 20 5c 22 63 6f 6d 6d 65 6e 74 5c 22 20 2e 20 5c 22 7b 20 2e 2e 2e 20 43 53 53 20 64 65 63 6c | e.\"comment\"...\"{.....CSS.decl |
| da20 | 61 72 61 74 69 6f 6e 73 20 2e 2e 2e 20 7d 5c 22 29 0a 20 20 28 77 68 69 74 65 73 70 61 63 65 2d | arations.....}\")...(whitespace- |
| da40 | 73 70 61 63 65 20 5c 22 77 68 69 74 65 73 70 61 63 65 2d 73 70 61 63 65 5c 22 20 2e 20 5c 22 7b | space.\"whitespace-space\"...\"{ |
| da60 | 20 2e 2e 2e 20 43 53 53 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 2e 2e 2e 20 7d 5c 22 29 0a 20 | .....CSS.declarations.....}\").. |
| da80 | 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 64 65 6c 69 6d 69 74 65 72 2d 66 61 | .(font-lock-comment-delimiter-fa |
| daa0 | 63 65 20 5c 22 63 6f 6d 6d 65 6e 74 2d 64 65 6c 69 6d 69 74 65 72 5c 22 20 2e 20 5c 22 7b 20 2e | ce.\"comment-delimiter\"...\"{.. |
| dac0 | 2e 2e 20 43 53 53 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 2e 2e 2e 20 7d 5c 22 29 29 0a 0a 45 | ...CSS.declarations.....}\"))..E |
| dae0 | 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 73 | ach.element.of.the.list.contains |
| db00 | 20 74 68 65 20 64 65 73 63 72 69 70 74 69 76 65 20 70 61 72 74 20 6f 66 20 61 20 43 53 53 0a 63 | .the.descriptive.part.of.a.CSS.c |
| db20 | 6c 61 73 73 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 0a 0a 54 68 69 73 20 69 73 20 66 72 6f 6d 20 | lass.declaration...This.is.from. |
| db40 | 60 68 66 79 2d 73 70 72 69 6e 74 66 2d 73 74 79 6c 65 73 68 65 65 74 27 20 77 68 69 63 68 20 69 | `hfy-sprintf-stylesheet'.which.i |
| db60 | 73 20 70 61 72 74 20 6f 66 0a 60 68 74 6d 6c 66 6f 6e 74 69 66 79 27 2e 22 0a 20 20 28 6d 61 70 | s.part.of.`htmlfontify'."...(map |
| db80 | 63 6f 6e 63 61 74 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 73 74 79 6c 65 29 0a 20 20 20 20 20 28 | concat....(lambda.(style)......( |
| dba0 | 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 22 73 70 61 6e 2e 25 73 20 20 20 25 73 5c 6e 73 70 61 6e | format......."span.%s...%s\nspan |
| dbc0 | 2e 25 73 20 61 20 25 73 5c 6e 25 73 5c 6e 22 0a 20 20 20 20 20 20 28 63 61 64 72 20 73 74 79 6c | .%s.a.%s\n%s\n".......(cadr.styl |
| dbe0 | 65 29 20 28 63 64 64 72 20 73 74 79 6c 65 29 0a 20 20 20 20 20 20 28 63 61 64 72 20 73 74 79 6c | e).(cddr.style).......(cadr.styl |
| dc00 | 65 29 20 28 68 66 79 2d 6c 69 6e 6b 2d 73 74 79 6c 65 20 28 63 64 64 72 20 73 74 79 6c 65 29 29 | e).(hfy-link-style.(cddr.style)) |
| dc20 | 0a 20 20 20 20 20 20 3b 3b 20 41 64 64 20 69 6e 20 6f 75 72 20 6f 77 6e 20 63 6f 6c 6f 72 73 20 | .......;;.Add.in.our.own.colors. |
| dc40 | 2d 20 6a 75 73 74 20 61 64 64 20 6e 6f 74 68 69 6e 67 0a 20 20 20 20 20 20 3b 3b 20 69 66 20 77 | -.just.add.nothing.......;;.if.w |
| dc60 | 65 20 64 6f 6e 27 74 20 68 61 76 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 66 6f 72 20 69 | e.don't.have.customization.for.i |
| dc80 | 74 0a 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 0a 20 20 20 20 | t.......(condition-case.err..... |
| dca0 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 73 73 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 | ......(let.((css-value.......... |
| dcc0 | 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 | ........(symbol-value........... |
| dce0 | 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(intern................. |
| dd00 | 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | ...(concat....................." |
| dd20 | 63 72 65 6f 6c 65 2d 63 73 73 2d 63 6f 6c 6f 72 2d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | creole-css-color-".............. |
| dd40 | 20 20 20 20 20 20 20 28 63 61 64 72 20 73 74 79 6c 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 | .......(cadr.style))))))........ |
| dd60 | 20 20 20 20 20 28 69 66 20 63 73 73 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(if.css-value.............. |
| dd80 | 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 73 70 61 | ...(format.................."spa |
| dda0 | 6e 2e 25 73 20 7b 20 63 6f 6c 6f 72 3a 20 25 73 3b 20 7d 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 | n.%s.{.color:.%s;.}\n".......... |
| ddc0 | 20 20 20 20 20 20 20 20 28 63 61 64 72 20 73 74 79 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ........(cadr.style)............ |
| dde0 | 20 20 20 20 20 20 63 73 73 2d 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 76 6f 69 64 | ......css-value))).........(void |
| de00 | 2d 76 61 72 69 61 62 6c 65 20 22 22 29 29 29 29 0a 20 20 20 63 73 73 2d 6c 69 73 74 0a 20 20 20 | -variable.""))))....css-list.... |
| de20 | 22 5c 6e 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 6d 6f 75 73 74 61 63 68 65 20 | "\n"))..(defun.creole-moustache. |
| de40 | 28 74 65 6d 70 6c 61 74 65 20 76 61 72 69 61 62 6c 65 73 29 0a 20 20 22 4d 6f 75 73 74 61 63 68 | (template.variables)..."Moustach |
| de60 | 65 20 72 65 70 6c 61 63 65 20 69 6e 20 54 45 4d 50 4c 41 54 45 20 77 69 74 68 20 56 41 52 49 41 | e.replace.in.TEMPLATE.with.VARIA |
| de80 | 42 4c 45 53 2e 0a 0a 45 67 3a 0a 0a 20 20 28 63 72 65 6f 6c 65 2d 6d 6f 75 73 74 61 63 68 65 0a | BLES...Eg:....(creole-moustache. |
| dea0 | 20 20 20 20 5c 22 3c 74 65 78 74 61 72 65 61 3e 7b 7b 74 65 78 74 7d 7d 3c 2f 74 65 78 74 61 72 | ....\"<textarea>{{text}}</textar |
| dec0 | 65 61 3e 5c 22 0a 20 20 20 20 27 28 28 74 65 78 74 20 2e 20 5c 22 74 68 69 73 20 69 73 20 6d 79 | ea>\".....'((text...\"this.is.my |
| dee0 | 20 74 65 78 74 5c 22 29 29 29 0a 0a 20 20 3d 3e 20 20 5c 22 3c 74 65 78 74 61 72 65 61 3e 74 68 | .text\")))....=>..\"<textarea>th |
| df00 | 69 73 20 69 73 20 6d 79 20 74 65 78 74 3c 2f 74 65 78 74 61 72 65 61 3e 5c 22 22 0a 20 20 28 72 | is.is.my.text</textarea>\""...(r |
| df20 | 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 28 72 78 20 22 | eplace-regexp-in-string....(rx." |
| df40 | 7b 7b 22 0a 20 20 20 20 20 20 20 28 67 72 6f 75 70 20 28 2b 20 28 69 6e 20 61 6c 70 68 61 6e 75 | {{"........(group.(+.(in.alphanu |
| df60 | 6d 65 72 69 63 20 22 5f 2d 22 29 29 29 0a 20 20 20 20 20 20 20 22 7d 7d 22 29 0a 20 20 20 28 6c | meric."_-")))........"}}")....(l |
| df80 | 61 6d 62 64 61 20 28 6d 29 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 65 78 70 61 6e 73 69 6f 6e | ambda.(m)......(let*.((expansion |
| dfa0 | 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(match-string.1.m))............ |
| dfc0 | 20 28 76 61 72 20 28 69 6e 74 65 72 6e 20 65 78 70 61 6e 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 | .(var.(intern.expansion))....... |
| dfe0 | 20 20 20 20 20 20 28 70 61 69 72 20 28 61 73 73 6f 63 20 76 61 72 20 76 61 72 69 61 62 6c 65 73 | ......(pair.(assoc.var.variables |
| e000 | 29 29 29 0a 20 20 20 20 20 20 20 28 69 66 20 70 61 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 | )))........(if.pair............( |
| e020 | 63 64 72 20 70 61 69 72 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 7b 7b 22 20 | cdr.pair)..........(concat."{{". |
| e040 | 65 78 70 61 6e 73 69 6f 6e 20 22 7d 7d 22 29 29 29 29 0a 20 20 20 74 65 6d 70 6c 61 74 65 0a 20 | expansion."}}"))))....template.. |
| e060 | 20 20 6e 69 6c 0a 20 20 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 6c 69 73 74 | ..nil....t))..(defun.creole-list |
| e080 | 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 62 75 66 66 65 72 20 70 72 6f 70 65 72 74 | -text-properties.(buffer.propert |
| e0a0 | 79 20 70 72 65 64 69 63 61 74 65 29 0a 20 20 22 4c 69 73 74 20 61 6c 6c 20 74 68 65 20 76 61 6c | y.predicate)..."List.all.the.val |
| e0c0 | 75 65 73 20 66 6f 72 20 50 52 4f 50 45 52 54 59 20 69 6e 20 42 55 46 46 45 52 2e 0a 0a 50 52 45 | ues.for.PROPERTY.in.BUFFER...PRE |
| e0e0 | 44 49 43 41 54 45 20 69 73 20 75 73 65 64 20 74 6f 20 6d 65 72 67 65 20 74 68 65 20 70 72 6f 70 | DICATE.is.used.to.merge.the.prop |
| e100 | 65 72 74 69 65 73 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 | erties."...(with-current-buffer. |
| e120 | 62 75 66 66 65 72 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 | buffer.....(save-excursion...... |
| e140 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 | .(goto-char.(point-min)).......( |
| e160 | 6c 65 74 2a 20 28 28 6c 73 74 20 28 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | let*.((lst.(list)).............. |
| e180 | 28 70 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a | (p.(next-single-property-change. |
| e1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 | .................(point-min).... |
| e1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 73 73 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 | ..............:css-list......... |
| e1e0 | 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 | .........(current-buffer)....... |
| e200 | 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 | ...........(point-max))))....... |
| e220 | 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 70 20 28 70 6f 69 6e 74 2d 6d 61 | ..(while.(not.(equal.p.(point-ma |
| e240 | 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 70 20 28 67 65 74 2d | x)))...........(let.((prop.(get- |
| e260 | 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 20 70 72 6f 70 65 72 74 79 29 29 29 0a 20 20 20 20 | text-property.p.property)))..... |
| e280 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 72 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(when.prop.............. |
| e2a0 | 20 28 73 65 74 71 20 6c 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .(setq.lst.....................( |
| e2c0 | 6d 65 72 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6c 69 73 74 | merge......................'list |
| e2e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 73 74 20 70 72 6f 70 0a 20 | ......................lst.prop.. |
| e300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 64 69 63 61 74 65 29 29 29 | ....................predicate))) |
| e320 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 2b 20 31 20 70 29 | ).............(goto-char.(+.1.p) |
| e340 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 20 28 6e 65 78 74 2d 73 69 6e 67 | ).............(setq.p.(next-sing |
| e360 | 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-property-change.............. |
| e380 | 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(point)................. |
| e3a0 | 20 20 20 20 20 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....property................... |
| e3c0 | 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...(current-buffer)............. |
| e3e0 | 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 | .........(point-max))))......... |
| e400 | 20 20 6c 73 74 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e | ..lst))))..;;;###autoload.(defun |
| e420 | 2a 20 63 72 65 6f 6c 65 2d 77 69 6b 69 20 28 73 6f 75 72 63 65 0a 20 20 20 20 20 20 20 20 20 20 | *.creole-wiki.(source........... |
| e440 | 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........&key................. |
| e460 | 20 20 20 20 20 64 65 73 74 69 6e 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....destination................ |
| e480 | 20 20 20 20 20 20 73 74 72 75 63 74 75 72 65 2d 74 72 61 6e 73 66 6f 72 6d 2d 66 6e 0a 20 20 20 | ......structure-transform-fn.... |
| e4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 74 6d 6c 66 6f 6e 74 69 66 79 20 74 | ..................(htmlfontify.t |
| e4c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 74 6d 6c 66 6f 6e 74 | )......................(htmlfont |
| e4e0 | 69 66 79 2d 73 74 79 6c 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ify-style.t).................... |
| e500 | 20 20 62 6f 64 79 2d 68 65 61 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..body-header................... |
| e520 | 20 20 20 62 6f 64 79 2d 66 6f 6f 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...body-footer.................. |
| e540 | 20 20 20 20 76 61 72 69 61 62 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....variables................... |
| e560 | 20 20 20 64 6f 63 72 6f 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...docroot...................... |
| e580 | 64 6f 63 72 6f 6f 74 2d 61 6c 69 61 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | docroot-alias................... |
| e5a0 | 20 20 20 63 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 61 76 61 | ...css......................java |
| e5c0 | 73 63 72 69 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 74 61 | script......................meta |
| e5e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 74 68 65 72 2d 6c 69 6e 6b | ......................other-link |
| e600 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 74 79 70 65 29 0a 20 | ......................doctype).. |
| e620 | 20 22 45 78 70 6f 72 74 20 57 69 6b 69 43 72 65 6f 6c 65 20 53 4f 55 52 43 45 20 69 6e 74 6f 20 | ."Export.WikiCreole.SOURCE.into. |
| e640 | 48 54 4d 4c 2e 0a 0a 52 65 74 75 72 6e 73 20 74 68 65 20 62 75 66 66 65 72 20 77 68 65 72 65 20 | HTML...Returns.the.buffer.where. |
| e660 | 74 68 65 20 48 54 4d 4c 20 77 61 73 20 65 78 70 6f 72 74 65 64 2e 20 54 68 69 73 20 63 6f 75 6c | the.HTML.was.exported..This.coul |
| e680 | 64 20 62 65 20 61 0a 75 73 65 72 20 73 75 70 70 6c 69 65 64 20 62 75 66 66 65 72 20 28 73 65 65 | d.be.a.user.supplied.buffer.(see |
| e6a0 | 20 44 45 53 54 49 4e 41 54 49 4f 4e 29 20 6f 72 20 61 20 62 75 66 66 65 72 20 63 72 65 61 74 65 | .DESTINATION).or.a.buffer.create |
| e6c0 | 64 20 62 61 73 65 64 0a 6f 6e 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 6f 66 20 74 68 65 20 73 | d.based.on.the.filename.of.the.s |
| e6e0 | 6f 75 72 63 65 20 28 6f 72 20 6a 75 73 74 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 72 65 | ource.(or.just.automatically.cre |
| e700 | 61 74 65 64 29 2e 0a 0a 53 4f 55 52 43 45 20 63 61 6e 20 62 65 20 61 20 62 75 66 66 65 72 20 6f | ated)...SOURCE.can.be.a.buffer.o |
| e720 | 72 20 70 6c 61 69 6e 20 74 65 78 74 20 6f 72 20 73 6f 6d 65 74 68 69 6e 67 20 77 65 20 6d 69 67 | r.plain.text.or.something.we.mig |
| e740 | 68 74 0a 72 65 63 6f 67 6e 69 7a 65 20 61 73 20 61 20 66 69 6c 65 2e 20 20 41 20 66 69 6c 65 2d | ht.recognize.as.a.file...A.file- |
| e760 | 6e 61 6d 65 20 69 73 20 64 65 74 65 63 74 65 64 20 62 79 20 61 20 6c 65 61 64 69 6e 67 0a 27 7e | name.is.detected.by.a.leading.'~ |
| e780 | 27 20 28 6d 65 61 6e 69 6e 67 20 65 78 70 61 6e 64 20 66 72 6f 6d 20 74 68 65 20 75 73 65 72 20 | '.(meaning.expand.from.the.user. |
| e7a0 | 72 6f 6f 74 29 20 6f 72 20 27 2f 27 20 28 6d 65 61 6e 69 6e 67 20 72 6f 6f 74 65 64 29 0a 6f 72 | root).or.'/'.(meaning.rooted).or |
| e7c0 | 20 27 2e 2f 27 20 28 6d 65 61 6e 69 6e 67 20 65 78 70 61 6e 64 20 66 72 6f 6d 20 74 68 65 20 72 | .'./'.(meaning.expand.from.the.r |
| e7e0 | 6f 6f 74 20 6f 66 20 74 68 65 20 73 6f 75 72 63 65 20 63 72 65 6f 6c 65 20 66 69 6c 65 29 2e 0a | oot.of.the.source.creole.file).. |
| e800 | 0a 49 66 20 53 4f 55 52 43 45 20 69 73 20 61 20 66 69 6c 65 6e 61 6d 65 20 69 74 20 69 73 20 6c | .If.SOURCE.is.a.filename.it.is.l |
| e820 | 6f 61 64 65 64 20 77 69 74 68 20 60 63 72 65 6f 6c 65 2f 67 65 74 2d 66 69 6c 65 27 2e 0a 0a 0a | oaded.with.`creole/get-file'.... |
| e840 | 4b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 73 75 70 70 6f 72 74 65 64 20 | Keyword.arguments.are.supported. |
| e860 | 74 6f 20 63 68 61 6e 67 65 20 74 68 65 20 77 61 79 20 74 68 65 20 48 54 4d 4c 20 69 73 0a 70 72 | to.change.the.way.the.HTML.is.pr |
| e880 | 6f 64 75 63 65 64 2e 0a 0a 44 45 53 54 49 4e 41 54 49 4f 4e 20 63 61 6e 20 62 65 20 61 20 62 75 | oduced...DESTINATION.can.be.a.bu |
| e8a0 | 66 66 65 72 20 6f 72 20 61 20 62 75 66 66 65 72 20 6e 61 6d 65 20 74 6f 20 77 72 69 74 65 20 74 | ffer.or.a.buffer.name.to.write.t |
| e8c0 | 68 65 20 48 54 4d 4c 0a 69 6e 74 6f 20 6f 72 20 69 74 20 63 61 6e 20 62 65 20 27 74 27 20 74 6f | he.HTML.into.or.it.can.be.'t'.to |
| e8e0 | 20 69 6e 64 69 63 61 74 65 20 74 68 65 20 64 65 66 61 75 6c 74 20 6f 75 74 70 75 74 20 73 74 72 | .indicate.the.default.output.str |
| e900 | 65 61 6d 2e 20 20 49 6e 0a 74 68 65 20 6c 61 74 74 65 72 20 63 61 73 65 20 61 6e 20 61 75 74 6f | eam...In.the.latter.case.an.auto |
| e920 | 6d 61 74 69 63 20 62 75 66 66 65 72 20 69 73 20 73 74 69 6c 6c 20 63 72 65 61 74 65 64 20 61 6e | matic.buffer.is.still.created.an |
| e940 | 64 20 74 68 65 20 48 54 4d 4c 0a 69 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 64 65 66 61 75 6c | d.the.HTML.is.sent.to.the.defaul |
| e960 | 74 20 6f 75 74 70 75 74 20 73 74 72 65 61 6d 20 77 68 65 6e 20 74 68 65 20 65 78 70 6f 72 74 20 | t.output.stream.when.the.export. |
| e980 | 69 73 20 64 6f 6e 65 2e 0a 0a 54 68 65 20 44 45 53 54 49 4e 41 54 49 4f 4e 20 62 75 66 66 65 72 | is.done...The.DESTINATION.buffer |
| e9a0 | 20 69 73 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 65 64 2e 0a 0a 53 54 52 55 43 54 55 52 45 2d | .is.always.returned...STRUCTURE- |
| e9c0 | 54 52 41 4e 53 46 4f 52 4d 2d 46 4e 20 69 73 20 61 20 73 74 72 75 63 74 75 72 65 20 74 72 61 6e | TRANSFORM-FN.is.a.structure.tran |
| e9e0 | 73 66 6f 72 6d 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 72 0a 6c 69 73 74 20 6f 66 20 66 | sformation.function.or.list.of.f |
| ea00 | 75 6e 63 74 69 6f 6e 73 2c 20 73 65 65 20 60 63 72 65 6f 6c 65 2d 68 74 6d 6c 27 20 66 6f 72 20 | unctions,.see.`creole-html'.for. |
| ea20 | 64 65 74 61 69 6c 73 2e 0a 0a 48 54 4d 4c 46 4f 4e 54 49 46 59 20 2d 20 75 73 65 20 27 68 74 6d | details...HTMLFONTIFY.-.use.'htm |
| ea40 | 6c 66 6f 6e 74 69 66 79 27 20 74 6f 20 66 6f 6e 74 69 66 79 20 61 6e 79 20 63 6f 64 65 20 62 6c | lfontify'.to.fontify.any.code.bl |
| ea60 | 6f 63 6b 73 3b 20 74 68 69 73 0a 69 73 20 74 72 75 65 20 62 79 20 64 65 66 61 75 6c 74 2e 0a 0a | ocks;.this.is.true.by.default... |
| ea80 | 43 6f 64 65 20 62 6c 6f 63 6b 73 20 61 72 65 20 6d 61 72 6b 65 64 20 75 70 20 6c 69 6b 65 20 70 | Code.blocks.are.marked.up.like.p |
| eaa0 | 72 65 2d 66 6f 72 6d 61 74 74 65 64 20 61 72 65 61 73 20 62 75 74 20 6d 75 73 74 20 62 65 67 69 | re-formatted.areas.but.must.begi |
| eac0 | 6e 0a 77 69 74 68 20 61 20 6c 69 6e 65 20 73 74 61 74 69 6e 67 20 74 68 65 20 45 6d 61 63 73 20 | n.with.a.line.stating.the.Emacs. |
| eae0 | 6d 6f 64 65 20 74 6f 20 66 6f 6e 74 69 66 79 20 74 68 65 20 74 65 78 74 20 61 73 3b 20 66 6f 72 | mode.to.fontify.the.text.as;.for |
| eb00 | 0a 65 78 61 6d 70 6c 65 3a 0a 0a 20 7b 7b 7b 0a 20 23 23 21 20 65 6d 61 63 73 2d 6c 69 73 70 0a | .example:...{{{..##!.emacs-lisp. |
| eb20 | 20 28 6c 65 74 20 28 28 78 20 31 29 29 20 78 29 0a 20 7d 7d 7d 0a 0a 77 6f 75 6c 64 20 63 61 75 | .(let.((x.1)).x)..}}}..would.cau |
| eb40 | 73 65 20 45 6d 61 63 73 20 4c 69 73 70 20 74 6f 20 62 65 20 66 6f 6e 74 69 66 69 65 64 2e 0a 0a | se.Emacs.Lisp.to.be.fontified... |
| eb60 | 48 54 4d 4c 46 4f 4e 54 49 46 59 2d 53 54 59 4c 45 20 2d 20 61 64 64 20 61 6e 20 48 54 4d 4c 2d | HTMLFONTIFY-STYLE.-.add.an.HTML- |
| eb80 | 53 54 59 4c 45 20 62 6c 6f 63 6b 20 66 6f 72 20 27 68 74 6d 6c 66 6f 6e 74 69 66 79 27 0a 63 6f | STYLE.block.for.'htmlfontify'.co |
| eba0 | 64 65 20 62 6c 6f 63 6b 73 2e 20 49 66 20 74 68 69 73 20 69 73 20 6e 69 6c 20 61 6e 20 48 54 4d | de.blocks..If.this.is.nil.an.HTM |
| ebc0 | 4c 2d 53 54 59 4c 45 20 62 6c 6f 63 6b 20 69 73 20 4e 4f 54 20 61 64 64 65 64 2e 0a 0a 42 4f 44 | L-STYLE.block.is.NOT.added...BOD |
| ebe0 | 59 2d 48 45 41 44 45 52 20 2d 20 61 20 73 74 72 69 6e 67 20 6f 72 20 61 20 66 69 6c 65 2d 6e 61 | Y-HEADER.-.a.string.or.a.file-na |
| ec00 | 6d 65 20 77 69 74 68 20 48 54 4d 4c 20 63 6f 64 65 20 74 6f 20 62 65 0a 69 6e 73 65 72 74 65 64 | me.with.HTML.code.to.be.inserted |
| ec20 | 20 69 6e 20 74 68 65 20 42 4f 44 59 20 6f 66 20 74 68 65 20 48 54 4d 4c 20 64 6f 63 75 6d 65 6e | .in.the.BODY.of.the.HTML.documen |
| ec40 | 74 20 62 65 66 6f 72 65 20 74 68 65 20 43 72 65 6f 6c 65 0a 6d 61 72 6b 75 70 20 65 78 70 6f 72 | t.before.the.Creole.markup.expor |
| ec60 | 74 2e 20 20 41 20 66 69 6c 65 2d 6e 61 6d 65 20 69 73 20 64 65 74 65 63 74 65 64 20 69 6e 20 74 | t...A.file-name.is.detected.in.t |
| ec80 | 68 65 20 73 61 6d 65 20 77 61 79 20 61 73 20 66 6f 72 0a 53 4f 55 52 43 45 2e 0a 0a 42 4f 44 59 | he.same.way.as.for.SOURCE...BODY |
| eca0 | 2d 46 4f 4f 54 45 52 20 2d 20 61 20 73 74 72 69 6e 67 20 6f 72 20 61 20 66 69 6c 65 2d 6e 61 6d | -FOOTER.-.a.string.or.a.file-nam |
| ecc0 | 65 20 77 69 74 68 20 48 54 4d 4c 20 63 6f 64 65 20 74 6f 20 62 65 0a 69 6e 73 65 72 74 65 64 20 | e.with.HTML.code.to.be.inserted. |
| ece0 | 69 6e 20 74 68 65 20 42 4f 44 59 20 6f 66 20 74 68 65 20 48 54 4d 4c 20 64 6f 63 75 6d 65 6e 74 | in.the.BODY.of.the.HTML.document |
| ed00 | 20 61 66 74 65 72 20 74 68 65 20 43 72 65 6f 6c 65 20 6d 61 72 6b 75 70 0a 65 78 70 6f 72 74 2e | .after.the.Creole.markup.export. |
| ed20 | 20 20 41 20 66 69 6c 65 2d 6e 61 6d 65 20 69 73 20 64 65 74 65 63 74 65 64 20 69 6e 20 74 68 65 | ..A.file-name.is.detected.in.the |
| ed40 | 20 73 61 6d 65 20 77 61 79 20 61 73 20 66 6f 72 20 53 4f 55 52 43 45 2e 0a 0a 54 68 65 20 42 4f | .same.way.as.for.SOURCE...The.BO |
| ed60 | 44 59 2d 48 45 41 44 45 52 20 61 6e 64 20 74 68 65 20 42 4f 44 59 2d 46 4f 4f 54 45 52 20 61 72 | DY-HEADER.and.the.BODY-FOOTER.ar |
| ed80 | 65 20 74 72 65 61 74 65 64 20 61 73 20 6d 6f 75 73 74 61 63 68 65 0a 74 65 6d 70 6c 61 74 65 73 | e.treated.as.moustache.templates |
| eda0 | 20 61 6e 64 20 65 78 70 61 6e 64 65 64 20 62 65 66 6f 72 65 20 62 65 69 6e 67 20 69 6e 73 65 72 | .and.expanded.before.being.inser |
| edc0 | 74 65 64 2e 20 20 53 65 65 0a 27 63 72 65 6f 6c 65 2d 6d 6f 75 73 74 61 63 68 65 27 20 66 6f 72 | ted...See.'creole-moustache'.for |
| ede0 | 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 2e 20 20 56 61 72 69 61 62 6c 65 73 20 70 61 73 73 65 | .a.description...Variables.passe |
| ee00 | 64 20 74 6f 0a 27 63 72 65 6f 6c 65 2d 6d 6f 75 73 74 61 63 68 65 27 20 77 69 74 68 20 74 68 65 | d.to.'creole-moustache'.with.the |
| ee20 | 20 74 65 6d 70 6c 61 74 65 20 61 72 65 3a 0a 0a 20 20 74 65 78 74 20 2d 20 74 68 65 20 63 72 65 | .template.are:....text.-.the.cre |
| ee40 | 6f 6c 65 20 73 6f 75 72 63 65 20 74 65 78 74 20 6f 66 20 74 68 65 20 70 61 67 65 0a 0a 6f 72 20 | ole.source.text.of.the.page..or. |
| ee60 | 61 6e 79 20 76 61 72 69 61 62 6c 65 20 69 6e 20 56 41 52 49 41 42 4c 45 53 2c 20 77 68 69 63 68 | any.variable.in.VARIABLES,.which |
| ee80 | 20 69 73 20 61 6e 20 61 6c 69 73 74 20 6f 66 0a 73 79 6d 62 6f 6c 73 20 2d 3e 20 76 61 6c 75 65 | .is.an.alist.of.symbols.->.value |
| eea0 | 73 2e 0a 0a 44 4f 43 52 4f 4f 54 20 2d 20 62 61 73 65 20 61 6e 79 20 66 69 6c 65 73 20 74 6f 20 | s...DOCROOT.-.base.any.files.to. |
| eec0 | 62 65 20 73 65 72 76 65 64 2e 20 20 41 6e 79 20 66 69 6c 65 2d 6e 61 6d 65 20 72 65 66 65 72 65 | be.served...Any.file-name.refere |
| eee0 | 6e 63 65 0a 66 6f 72 20 43 53 53 20 6f 72 20 4a 61 76 61 53 63 72 69 70 74 2c 20 69 66 20 72 65 | nce.for.CSS.or.JavaScript,.if.re |
| ef00 | 73 69 64 69 6e 67 20 75 6e 64 65 72 20 74 68 69 73 20 64 6f 63 72 6f 6f 74 2c 20 77 69 6c 6c 20 | siding.under.this.docroot,.will. |
| ef20 | 62 65 0a 6c 69 6e 6b 65 64 20 74 6f 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 72 61 74 68 65 72 | be.linked.to.the.document.rather |
| ef40 | 20 74 68 61 6e 20 65 6d 62 65 64 64 65 64 2e 0a 0a 44 4f 43 52 4f 4f 54 2d 41 4c 49 41 53 20 2d | .than.embedded...DOCROOT-ALIAS.- |
| ef60 | 20 69 73 20 74 68 65 20 64 6f 63 72 6f 6f 74 20 70 61 74 68 20 74 6f 20 75 73 65 20 69 6e 20 61 | .is.the.docroot.path.to.use.in.a |
| ef80 | 6e 79 20 6c 69 6e 6b 73 20 61 73 20 61 6e 0a 61 6c 69 61 73 20 66 6f 72 20 74 68 65 20 64 6f 63 | ny.links.as.an.alias.for.the.doc |
| efa0 | 72 6f 6f 74 2e 0a 0a 43 53 53 20 2d 20 61 20 6c 69 73 74 20 6f 66 20 63 61 73 63 61 64 69 6e 67 | root...CSS.-.a.list.of.cascading |
| efc0 | 20 73 74 79 6c 65 20 73 68 65 65 74 73 2c 20 65 61 63 68 20 65 6e 74 72 79 20 63 61 6e 20 65 69 | .style.sheets,.each.entry.can.ei |
| efe0 | 74 68 65 72 20 62 65 0a 61 20 66 69 6c 65 2d 6e 61 6d 65 20 28 61 20 66 69 6c 65 2d 6e 61 6d 65 | ther.be.a.file-name.(a.file-name |
| f000 | 20 69 73 20 64 65 74 65 63 74 65 64 20 69 6e 20 74 68 65 20 73 61 6d 65 20 77 61 79 20 61 73 0a | .is.detected.in.the.same.way.as. |
| f020 | 66 6f 72 20 53 4f 55 52 43 45 29 20 6f 72 20 61 20 73 74 72 69 6e 67 20 77 69 74 68 20 57 33 43 | for.SOURCE).or.a.string.with.W3C |
| f040 | 2d 43 53 53 20 73 74 61 74 65 6d 65 6e 74 73 20 69 6e 20 69 74 2e 0a 0a 49 66 20 61 20 44 4f 43 | -CSS.statements.in.it...If.a.DOC |
| f060 | 52 4f 4f 54 20 69 73 20 73 70 65 63 69 66 69 65 64 20 74 68 65 6e 20 61 6e 79 20 63 61 73 63 61 | ROOT.is.specified.then.any.casca |
| f080 | 64 69 6e 67 20 73 74 79 6c 65 20 73 68 65 65 74 73 0a 66 69 6c 65 2d 6e 61 6d 65 20 69 73 20 4c | ding.style.sheets.file-name.is.L |
| f0a0 | 49 4e 4b 65 64 20 69 6e 74 6f 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 64 6f 63 75 6d 65 6e | INKed.into.the.resulting.documen |
| f0c0 | 74 2c 20 69 66 20 6e 6f 74 20 74 68 65 6e 20 74 68 65 0a 73 74 61 74 65 6d 65 6e 74 73 20 61 72 | t,.if.not.then.the.statements.ar |
| f0e0 | 65 20 65 6d 62 65 64 64 65 64 20 64 69 72 65 63 74 6c 79 2e 0a 0a 4a 41 56 41 53 43 52 49 50 54 | e.embedded.directly...JAVASCRIPT |
| f100 | 20 2d 20 61 20 6c 69 73 74 20 6f 66 20 4a 61 76 61 53 63 72 69 70 74 2c 20 61 73 20 66 6f 72 20 | .-.a.list.of.JavaScript,.as.for. |
| f120 | 43 53 53 2c 20 65 61 63 68 20 65 6e 74 72 79 20 63 61 6e 0a 62 65 20 65 69 74 68 65 72 20 61 20 | CSS,.each.entry.can.be.either.a. |
| f140 | 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20 4a 61 76 61 53 63 72 69 70 74 20 74 6f 20 62 65 20 64 | string.of.the.JavaScript.to.be.d |
| f160 | 69 72 65 63 74 6c 79 20 65 6d 62 65 64 64 65 64 20 6f 72 20 61 0a 66 69 6c 65 2d 6e 61 6d 65 20 | irectly.embedded.or.a.file-name. |
| f180 | 72 65 66 65 72 65 6e 63 65 20 28 61 73 20 69 6e 20 53 4f 55 52 43 45 29 2e 20 20 41 73 20 66 6f | reference.(as.in.SOURCE)...As.fo |
| f1a0 | 72 20 3a 43 53 53 20 69 66 0a 61 20 3a 44 4f 43 52 4f 4f 54 20 69 73 20 73 70 65 63 69 66 69 65 | r.:CSS.if.a.:DOCROOT.is.specifie |
| f1c0 | 64 20 74 68 65 6e 20 74 68 65 20 73 63 72 69 70 74 73 20 77 69 6c 6c 20 62 65 20 6c 6f 61 64 65 | d.then.the.scripts.will.be.loade |
| f1e0 | 64 20 61 73 20 6c 69 6e 6b 73 0a 62 75 74 20 6f 74 68 65 72 77 69 73 65 20 77 69 6c 6c 20 62 65 | d.as.links.but.otherwise.will.be |
| f200 | 20 65 6d 62 65 64 64 65 64 2e 0a 0a 4d 45 54 41 20 2d 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 | .embedded...META.-.a.list.of.str |
| f220 | 69 6e 67 73 20 73 70 65 63 69 66 79 69 6e 67 20 72 65 73 75 6c 74 69 6e 67 20 48 54 4d 4c 2d 4d | ings.specifying.resulting.HTML-M |
| f240 | 45 54 41 20 65 6c 65 6d 65 6e 74 73 2e 0a 46 6f 72 20 65 78 61 6d 70 6c 65 3a 0a 0a 20 3a 6d 65 | ETA.elements..For.example:...:me |
| f260 | 74 61 20 27 28 5c 22 6e 61 6d 65 3d 27 64 65 73 63 72 69 70 74 69 6f 6e 27 0a 20 20 20 20 20 20 | ta.'(\"name='description'....... |
| f280 | 20 20 20 20 63 6f 6e 74 65 6e 74 3d 27 46 72 65 65 20 57 65 62 20 74 75 74 6f 72 69 61 6c 73 20 | ....content='Free.Web.tutorials. |
| f2a0 | 6f 6e 20 48 54 4d 4c 2c 20 43 53 53 2c 20 58 4d 4c 27 5c 22 29 0a 0a 3a 4f 54 48 45 52 2d 4c 49 | on.HTML,.CSS,.XML'\")..:OTHER-LI |
| f2c0 | 4e 4b 20 2d 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 20 73 70 65 63 69 66 79 69 6e 67 | NK.-.a.list.of.string.specifying |
| f2e0 | 20 72 65 73 75 6c 74 69 6e 67 20 48 54 4d 4c 2d 4c 49 4e 4b 0a 65 6c 65 6d 65 6e 74 73 2c 20 66 | .resulting.HTML-LINK.elements,.f |
| f300 | 6f 72 20 65 78 61 6d 70 6c 65 3a 0a 0a 20 3a 6f 74 68 65 72 2d 6c 69 6e 6b 20 27 28 5c 22 72 65 | or.example:...:other-link.'(\"re |
| f320 | 6c 3d 27 61 6c 74 65 72 6e 61 74 65 27 20 68 72 65 66 3d 27 2f 6d 79 2d 66 65 65 64 2e 72 73 73 | l='alternate'.href='/my-feed.rss |
| f340 | 27 5c 22 29 0a 0a 3a 44 4f 43 54 59 50 45 20 6d 61 79 20 62 65 20 6e 69 6c 2c 20 69 6e 20 77 68 | '\")..:DOCTYPE.may.be.nil,.in.wh |
| f360 | 69 63 68 20 63 61 73 65 20 6e 6f 74 68 69 6e 67 20 69 73 20 61 64 64 65 64 20 6f 72 20 69 74 20 | ich.case.nothing.is.added.or.it. |
| f380 | 6d 61 79 20 62 65 0a 61 20 73 74 72 69 6e 67 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 69 74 | may.be.a.string.in.which.case.it |
| f3a0 | 20 69 73 20 69 6e 73 65 72 74 65 64 20 64 69 72 65 63 74 6c 79 20 62 65 66 6f 72 65 20 74 68 65 | .is.inserted.directly.before.the |
| f3c0 | 20 3c 68 74 6d 6c 3e 0a 65 6c 65 6d 65 6e 74 2c 20 6f 72 20 69 74 20 6d 61 79 20 62 65 20 6f 6e | .<html>.element,.or.it.may.be.on |
| f3e0 | 65 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 27 78 68 74 6d 6c 20 6f 72 20 27 68 74 6d 6c | e.of.the.symbols.'xhtml.or.'html |
| f400 | 35 20 69 6e 0a 77 68 69 63 68 20 63 61 73 65 20 74 68 65 20 72 69 67 68 74 20 64 6f 63 74 79 70 | 5.in.which.case.the.right.doctyp |
| f420 | 65 20 69 73 20 61 64 64 65 64 2e 0a 0a 41 6c 6c 2c 20 61 6e 79 20 6f 72 20 6e 6f 6e 65 20 6f 66 | e.is.added...All,.any.or.none.of |
| f440 | 20 74 68 65 73 65 20 6b 65 79 73 20 6d 61 79 20 62 65 20 73 70 65 63 69 66 69 65 64 2e 0a 22 0a | .these.keys.may.be.specified..". |
| f460 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 66 43 72 65 6f 6c 65 20 66 69 6c 65 3a 20 22 29 | ..(interactive."fCreole.file:.") |
| f480 | 0a 20 20 28 6c 65 74 2a 20 28 66 69 6c 65 2d 6f 70 65 6e 65 64 20 3b 3b 20 61 20 66 6c 61 67 20 | ...(let*.(file-opened.;;.a.flag. |
| f4a0 | 74 6f 20 69 6e 64 69 63 61 74 65 20 77 68 65 74 68 65 72 20 77 65 20 6f 70 65 6e 65 64 20 61 20 | to.indicate.whether.we.opened.a. |
| f4c0 | 66 69 6c 65 20 6f 72 20 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 62 75 66 | file.or.not..........(source-buf |
| f4e0 | 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 44 65 74 65 63 74 20 77 68 61 74 20 73 6f 72 | fer...........;;.Detect.what.sor |
| f500 | 74 20 6f 66 20 73 6f 75 72 63 65 20 77 65 20 68 61 76 65 0a 20 20 20 20 20 20 20 20 20 20 28 63 | t.of.source.we.have...........(c |
| f520 | 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 62 75 66 66 65 72 70 20 73 6f 75 72 63 65 29 | ond............((bufferp.source) |
| f540 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .............source)............ |
| f560 | 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 28 72 78 20 62 6f 6c 20 28 6f 72 20 22 2f 22 20 22 | ((string-match.(rx.bol.(or."/"." |
| f580 | 7e 22 29 20 28 2a 20 61 6e 79 29 29 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ~").(*.any)).source)............ |
| f5a0 | 20 28 63 72 65 6f 6c 65 2f 67 65 74 2d 66 69 6c 65 20 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 | .(creole/get-file.source))...... |
| f5c0 | 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 | ......(t.............(with-curre |
| f5e0 | 6e 74 2d 62 75 66 66 65 72 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 | nt-buffer.(generate-new-buffer." |
| f600 | 2a 20 63 72 65 6f 6c 65 2d 73 6f 75 72 63 65 20 2a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | *.creole-source.*")............. |
| f620 | 20 20 28 69 6e 73 65 72 74 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(insert.source)............... |
| f640 | 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 | (current-buffer)))))..........(h |
| f660 | 74 6d 6c 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 | tml-buffer...........(cond...... |
| f680 | 20 20 20 20 20 20 28 28 62 75 66 66 65 72 70 20 64 65 73 74 69 6e 61 74 69 6f 6e 29 0a 20 20 20 | ......((bufferp.destination).... |
| f6a0 | 20 20 20 20 20 20 20 20 20 64 65 73 74 69 6e 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 | .........destination)........... |
| f6c0 | 20 28 28 73 74 72 69 6e 67 70 20 64 65 73 74 69 6e 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | .((stringp.destination)......... |
| f6e0 | 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 64 65 73 74 69 6e 61 74 69 | ....(get-buffer-create.destinati |
| f700 | 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | on))............(t.............( |
| f720 | 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 63 72 65 6f 6c 65 2d 68 74 6d 6c 2a | get-buffer-create."*creole-html* |
| f740 | 22 29 29 29 29 29 0a 0a 20 20 20 20 3b 3b 20 45 78 70 6f 72 74 20 74 68 65 20 63 72 65 6f 6c 65 | ")))))......;;.Export.the.creole |
| f760 | 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 62 75 66 66 65 72 0a 20 20 20 20 28 63 72 65 6f 6c | .to.the.result.buffer.....(creol |
| f780 | 65 2d 68 74 6d 6c 20 73 6f 75 72 63 65 2d 62 75 66 66 65 72 20 68 74 6d 6c 2d 62 75 66 66 65 72 | e-html.source-buffer.html-buffer |
| f7a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f 2d 66 6f 6e 74 2d 6c 6f 63 6b 20 | ..................:do-font-lock. |
| f7c0 | 68 74 6d 6c 66 6f 6e 74 69 66 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 | htmlfontify..................:st |
| f7e0 | 72 75 63 74 75 72 65 2d 74 72 61 6e 73 66 6f 72 6d 2d 66 6e 20 73 74 72 75 63 74 75 72 65 2d 74 | ructure-transform-fn.structure-t |
| f800 | 72 61 6e 73 66 6f 72 6d 2d 66 6e 29 0a 0a 20 20 20 20 3b 3b 20 4e 6f 77 20 61 20 62 75 6e 63 68 | ransform-fn)......;;.Now.a.bunch |
| f820 | 20 6f 66 20 6f 74 68 65 72 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 20 6f 6e 20 74 68 65 | .of.other.transformations.on.the |
| f840 | 20 72 65 73 75 6c 74 20 62 75 66 66 65 72 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 | .result.buffer.....(with-current |
| f860 | 2d 62 75 66 66 65 72 20 68 74 6d 6c 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 | -buffer.html-buffer.......(let*. |
| f880 | 28 28 63 72 65 6f 6c 65 2d 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 | ((creole-text...............(wit |
| f8a0 | 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 73 6f 75 72 63 65 2d 62 75 66 66 65 72 0a 20 | h-current-buffer.source-buffer.. |
| f8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 | ...............(buffer-substring |
| f8e0 | 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 | .(point-min)(point-max))))...... |
| f900 | 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 73 68 6f 75 6c 64 20 6c 65 74 20 75 73 65 72 73 20 73 | ........;;.We.should.let.users.s |
| f920 | 70 65 63 69 66 79 20 6d 6f 72 65 20 76 61 72 69 61 62 6c 65 73 20 69 6e 20 74 68 65 0a 20 20 20 | pecify.more.variables.in.the.... |
| f940 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 61 6c 6c 20 74 6f 20 63 72 65 6f 6c 65 2d 77 69 6b 69 | ..........;;.call.to.creole-wiki |
| f960 | 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 72 73 20 28 61 70 70 65 6e 64 20 60 28 28 | ?..............(vars.(append.`(( |
| f980 | 74 65 78 74 20 2e 20 2c 63 72 65 6f 6c 65 2d 74 65 78 74 29 29 20 76 61 72 69 61 62 6c 65 73 29 | text...,creole-text)).variables) |
| f9a0 | 29 29 0a 0a 20 20 20 20 20 20 20 20 3b 3b 20 49 6e 73 65 72 74 20 74 68 65 20 42 4f 44 59 20 68 | ))..........;;.Insert.the.BODY.h |
| f9c0 | 65 61 64 65 72 20 61 6e 64 20 66 6f 6f 74 65 72 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 62 | eader.and.footer.........(when.b |
| f9e0 | 6f 64 79 2d 68 65 61 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 68 64 72 20 | ody-header...........(let.((hdr. |
| fa00 | 28 63 72 65 6f 6c 65 2f 65 78 70 61 6e 64 2d 69 74 65 6d 2d 76 61 6c 75 65 20 62 6f 64 79 2d 68 | (creole/expand-item-value.body-h |
| fa20 | 65 61 64 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 | eader))).............(when.(eq.( |
| fa40 | 63 61 72 20 68 64 72 29 20 3a 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | car.hdr).:string)............... |
| fa60 | 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 | (goto-char.(point-min))......... |
| fa80 | 20 20 20 20 20 20 28 69 6e 73 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 | ......(insert................(cr |
| faa0 | 65 6f 6c 65 2d 6d 6f 75 73 74 61 63 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | eole-moustache.................( |
| fac0 | 63 64 72 20 68 64 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 72 73 29 29 29 | cdr.hdr).................vars))) |
| fae0 | 29 29 0a 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 62 6f 64 79 2d 66 6f 6f 74 65 72 0a 20 20 | ))..........(when.body-footer... |
| fb00 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 74 72 20 28 63 72 65 6f 6c 65 2f 65 78 70 61 6e | ........(let.((ftr.(creole/expan |
| fb20 | 64 2d 69 74 65 6d 2d 76 61 6c 75 65 20 62 6f 64 79 2d 66 6f 6f 74 65 72 29 29 29 0a 20 20 20 20 | d-item-value.body-footer)))..... |
| fb40 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 63 61 72 20 66 74 72 29 20 3a 73 74 72 | ........(when.(eq.(car.ftr).:str |
| fb60 | 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | ing)................(goto-char.( |
| fb80 | 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 | point-max))................(inse |
| fba0 | 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2d 6d 6f 75 73 74 | rt.................(creole-moust |
| fbc0 | 61 63 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 66 74 72 29 0a | ache..................(cdr.ftr). |
| fbe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 72 73 29 29 29 29 29 0a 0a 20 20 20 20 | .................vars)))))...... |
| fc00 | 20 20 20 20 3b 3b 20 4e 6f 77 20 77 72 61 70 20 65 76 65 72 79 74 68 69 6e 67 20 77 65 20 68 61 | ....;;.Now.wrap.everything.we.ha |
| fc20 | 76 65 20 73 6f 20 66 61 72 20 77 69 74 68 20 74 68 65 20 42 4f 44 59 20 74 61 67 0a 20 20 20 20 | ve.so.far.with.the.BODY.tag..... |
| fc40 | 20 20 20 20 28 63 72 65 6f 6c 65 2f 77 72 61 70 2d 62 75 66 66 65 72 2d 74 65 78 74 20 22 3c 62 | ....(creole/wrap-buffer-text."<b |
| fc60 | 6f 64 79 3e 5c 6e 22 20 22 3c 2f 62 6f 64 79 3e 5c 6e 22 29 0a 0a 20 20 20 20 20 20 20 20 3b 3b | ody>\n"."</body>\n")..........;; |
| fc80 | 20 4e 6f 77 20 73 74 75 66 66 20 74 68 61 74 20 73 68 6f 75 6c 64 20 67 6f 20 69 6e 20 61 20 68 | .Now.stuff.that.should.go.in.a.h |
| fca0 | 65 61 64 65 72 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 63 73 73 20 6a 61 76 61 | eader.........(when.(or.css.java |
| fcc0 | 73 63 72 69 70 74 20 6d 65 74 61 20 6f 74 68 65 72 2d 6c 69 6e 6b 0a 20 20 20 20 20 20 20 20 20 | script.meta.other-link.......... |
| fce0 | 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 68 74 6d 6c 66 6f 6e 74 69 66 79 0a 20 20 20 20 20 20 | .........(and.htmlfontify....... |
| fd00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 74 6d 6c 66 6f 6e 74 69 66 79 2d 73 74 79 | .................htmlfontify-sty |
| fd20 | 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 2d | le........................(next- |
| fd40 | 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 | single-property-change.......... |
| fd60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 | ...............(point-min)...... |
| fd80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 73 73 2d 6c 69 73 74 0a 20 20 20 | ...................:css-list.... |
| fda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 | .....................(current-bu |
| fdc0 | 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | ffer).........................(p |
| fde0 | 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 68 65 61 | oint-max))))...........(let.(hea |
| fe00 | 64 2d 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | d-marker).............(goto-char |
| fe20 | 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 | .(point-min)).............(inser |
| fe40 | 74 20 22 3c 68 65 61 64 3e 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | t."<head>\n").............(let.( |
| fe60 | 28 63 72 65 6f 6c 65 2d 64 6f 63 2d 74 69 74 6c 65 20 28 61 73 73 6f 63 20 27 68 65 61 64 69 6e | (creole-doc-title.(assoc.'headin |
| fe80 | 67 31 20 63 72 65 6f 6c 65 2d 73 74 72 75 63 74 75 72 65 64 29 29 29 0a 20 20 20 20 20 20 20 20 | g1.creole-structured)))......... |
| fea0 | 20 20 20 20 20 20 28 77 68 65 6e 20 63 72 65 6f 6c 65 2d 64 6f 63 2d 74 69 74 6c 65 0a 20 20 20 | ......(when.creole-doc-title.... |
| fec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 3c 74 | .............(insert.(format."<t |
| fee0 | 69 74 6c 65 3e 25 73 3c 2f 74 69 74 6c 65 3e 5c 6e 22 20 28 63 64 72 20 63 72 65 6f 6c 65 2d 64 | itle>%s</title>\n".(cdr.creole-d |
| ff00 | 6f 63 2d 74 69 74 6c 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | oc-title))))).............(setq. |
| ff20 | 68 65 61 64 2d 6d 61 72 6b 65 72 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 | head-marker.(point-marker))..... |
| ff40 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 3c 2f 68 65 61 64 3e 5c 6e 22 29 0a 20 20 20 | ........(insert."</head>\n").... |
| ff60 | 20 20 20 20 20 20 20 20 20 3b 3b 20 46 69 72 73 74 20 74 68 65 20 43 53 53 0a 20 20 20 20 20 20 | .........;;.First.the.CSS....... |
| ff80 | 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 73 20 69 6e 20 63 73 73 0a 20 20 20 20 20 20 | ......(loop.for.ss.in.css....... |
| ffa0 | 20 20 20 20 20 20 20 20 20 64 6f 20 28 63 72 65 6f 6c 65 2f 69 6e 73 65 72 74 2d 74 65 6d 70 6c | .........do.(creole/insert-templ |
| ffc0 | 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 73 0a 20 20 20 20 20 20 | ate....................ss....... |
| ffe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 68 65 61 64 2d 6d 61 72 6b 65 72 0a 20 20 20 20 20 20 20 | .............head-marker........ |
| 10000 | 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 72 6f 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ............docroot............. |
| 10020 | 20 20 20 20 20 20 20 22 3c 6c 69 6e 6b 20 72 65 6c 3d 27 73 74 79 6c 65 73 68 65 65 74 27 20 68 | ......."<link.rel='stylesheet'.h |
| 10040 | 72 65 66 3d 27 25 73 27 20 74 79 70 65 3d 27 74 65 78 74 2f 63 73 73 27 2f 3e 5c 6e 22 0a 20 20 | ref='%s'.type='text/css'/>\n"... |
| 10060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 73 74 79 6c 65 3e 5c 6e 25 73 5c 6e 3c | ................."<style>\n%s\n< |
| 10080 | 2f 73 74 79 6c 65 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f | /style>\n"....................do |
| 100a0 | 63 72 6f 6f 74 2d 61 6c 69 61 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 77 | croot-alias)).............;;.Now |
| 100c0 | 20 74 68 65 20 4a 53 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6a 73 | .the.JS.............(loop.for.js |
| 100e0 | 20 69 6e 20 6a 61 76 61 73 63 72 69 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f | .in.javascript................do |
| 10100 | 20 28 63 72 65 6f 6c 65 2f 69 6e 73 65 72 74 2d 74 65 6d 70 6c 61 74 65 0a 20 20 20 20 20 20 20 | .(creole/insert-template........ |
| 10120 | 20 20 20 20 20 20 20 20 20 20 20 20 6a 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............js.................. |
| 10140 | 20 20 68 65 61 64 2d 6d 61 72 6b 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..head-marker................... |
| 10160 | 20 64 6f 63 72 6f 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 73 63 | .docroot...................."<sc |
| 10180 | 72 69 70 74 20 73 72 63 3d 27 25 73 27 20 6c 61 6e 67 75 61 67 65 3d 27 4a 61 76 61 73 63 72 69 | ript.src='%s'.language='Javascri |
| 101a0 | 70 74 27 3e 3c 2f 73 63 72 69 70 74 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pt'></script>\n"................ |
| 101c0 | 20 20 20 20 22 3c 73 63 72 69 70 74 3e 0a 2f 2f 3c 21 2d 2d 0a 25 73 0a 2f 2f 2d 2d 3e 0a 3c 2f | ...."<script>.//<!--.%s.//-->.</ |
| 101e0 | 73 63 72 69 70 74 3e 0a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 | script>."....................doc |
| 10200 | 72 6f 6f 74 2d 61 6c 69 61 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 77 20 | root-alias)).............;;.Now. |
| 10220 | 6d 65 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2f 69 6e 73 65 72 74 2d | meta.............(creole/insert- |
| 10240 | 74 65 6d 70 6c 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 74 61 0a 20 20 20 20 20 | template..............meta...... |
| 10260 | 20 20 20 20 20 20 20 20 68 65 61 64 2d 6d 61 72 6b 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ........head-marker............. |
| 10280 | 20 64 6f 63 72 6f 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 6d 65 74 61 20 25 73 2f | .docroot.............."<meta.%s/ |
| 102a0 | 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 6d 65 74 61 20 25 73 2f 3e 5c 6e 22 | >\n".............."<meta.%s/>\n" |
| 102c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2f 69 6e 73 65 72 74 2d 74 65 6d | ).............(creole/insert-tem |
| 102e0 | 70 6c 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 74 68 65 72 2d 6c 69 6e 6b 0a 20 20 | plate..............other-link... |
| 10300 | 20 20 20 20 20 20 20 20 20 20 20 68 65 61 64 2d 6d 61 72 6b 65 72 0a 20 20 20 20 20 20 20 20 20 | ...........head-marker.......... |
| 10320 | 20 20 20 20 64 6f 63 72 6f 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 6c 69 6e 6b 20 | ....docroot.............."<link. |
| 10340 | 25 73 2f 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 6c 69 6e 6b 20 25 73 2f 3e | %s/>\n".............."<link.%s/> |
| 10360 | 5c 6e 22 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 69 6e 64 20 61 6e 79 20 73 74 | \n")..............;;.Find.any.st |
| 10380 | 79 6c 65 73 20 74 68 61 74 20 61 72 65 20 65 6d 62 65 64 64 65 64 0a 20 20 20 20 20 20 20 20 20 | yles.that.are.embedded.......... |
| 103a0 | 20 20 20 28 69 66 20 28 61 6e 64 20 68 74 6d 6c 66 6f 6e 74 69 66 79 20 68 74 6d 6c 66 6f 6e 74 | ...(if.(and.htmlfontify.htmlfont |
| 103c0 | 69 66 79 2d 73 74 79 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | ify-style).................(let. |
| 103e0 | 28 28 63 73 73 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 0a 20 20 20 20 20 20 20 | ((css.(remove-duplicates........ |
| 10400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2d 6c 69 73 | .....................(creole-lis |
| 10420 | 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-text-properties............... |
| 10440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 0a | ...............(current-buffer). |
| 10460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 73 | .............................:cs |
| 10480 | 73 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s-list.......................... |
| 104a0 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 20 28 73 74 72 69 6e 67 3c 20 28 63 61 64 72 | ....(lambda.(a.b).(string<.(cadr |
| 104c0 | 20 61 29 20 28 63 61 64 72 20 62 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .a).(cadr.b))))................. |
| 104e0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 20 | ............:test.(lambda.(a.b). |
| 10500 | 28 73 74 72 69 6e 67 3d 20 28 63 61 64 72 20 61 29 20 28 63 61 64 72 20 62 29 29 29 29 29 29 0a | (string=.(cadr.a).(cadr.b)))))). |
| 10520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 | ....................(save-excurs |
| 10540 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d | ion.......................(goto- |
| 10560 | 63 68 61 72 20 68 65 61 64 2d 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | char.head-marker)............... |
| 10580 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(insert................. |
| 105a0 | 20 20 20 20 20 20 20 22 3c 73 74 79 6c 65 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......."<style>\n".............. |
| 105c0 | 20 20 20 20 20 20 20 20 20 20 28 63 72 65 6f 6c 65 2d 63 73 73 2d 6c 69 73 74 2d 74 6f 2d 73 74 | ..........(creole-css-list-to-st |
| 105e0 | 79 6c 65 2d 64 65 63 6c 20 63 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | yle-decl.css)................... |
| 10600 | 20 20 20 20 20 22 5c 6e 3c 2f 73 74 79 6c 65 3e 5c 6e 22 29 29 29 29 29 29 0a 0a 20 20 20 20 20 | ....."\n</style>\n"))))))....... |
| 10620 | 20 20 20 3b 3b 20 57 72 61 70 20 74 68 65 20 77 68 6f 6c 65 20 74 68 69 6e 67 20 69 6e 20 74 68 | ...;;.Wrap.the.whole.thing.in.th |
| 10640 | 65 20 44 4f 43 54 59 50 45 20 61 6e 64 20 74 68 65 20 48 54 4d 4c 20 74 61 67 0a 20 20 20 20 20 | e.DOCTYPE.and.the.HTML.tag...... |
| 10660 | 20 20 20 28 63 72 65 6f 6c 65 2f 77 72 61 70 2d 62 75 66 66 65 72 2d 74 65 78 74 0a 20 20 20 20 | ...(creole/wrap-buffer-text..... |
| 10680 | 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 64 6f 63 74 79 | .....(cond............((eq.docty |
| 106a0 | 70 65 20 27 68 74 6d 6c 35 29 20 22 3c 21 44 4f 43 54 59 50 45 20 68 74 6d 6c 3e 5c 6e 3c 68 74 | pe.'html5)."<!DOCTYPE.html>\n<ht |
| 106c0 | 6d 6c 3e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 64 6f 63 74 79 70 65 20 27 78 | ml>")............((eq.doctype.'x |
| 106e0 | 68 74 6d 6c 29 20 22 3c 21 44 4f 43 54 59 50 45 20 68 74 6d 6c 20 50 55 42 4c 49 43 20 5c 22 2d | html)."<!DOCTYPE.html.PUBLIC.\"- |
| 10700 | 2f 2f 57 33 43 2f 2f 44 54 44 20 58 48 54 4d 4c 20 31 2e 30 20 53 74 72 69 63 74 2f 2f 45 4e 5c | //W3C//DTD.XHTML.1.0.Strict//EN\ |
| 10720 | 22 0a 5c 22 68 74 74 70 3a 2f 2f 77 77 77 2e 77 33 2e 6f 72 67 2f 54 52 2f 78 68 74 6d 6c 31 2f | ".\"http://www.w3.org/TR/xhtml1/ |
| 10740 | 44 54 44 2f 78 68 74 6d 6c 31 2d 73 74 72 69 63 74 2e 64 74 64 5c 22 3e 0a 3c 68 74 6d 6c 20 78 | DTD/xhtml1-strict.dtd\">.<html.x |
| 10760 | 6d 6c 6e 73 3d 5c 22 68 74 74 70 3a 2f 2f 77 77 77 2e 77 33 2e 6f 72 67 2f 31 39 39 39 2f 78 68 | mlns=\"http://www.w3.org/1999/xh |
| 10780 | 74 6d 6c 5c 22 3e 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 70 20 | tml\">\n")............((stringp. |
| 107a0 | 64 6f 63 74 79 70 65 29 20 28 63 6f 6e 63 61 74 20 64 6f 63 74 79 70 65 20 22 3c 68 74 6d 6c 3e | doctype).(concat.doctype."<html> |
| 107c0 | 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 64 6f 63 74 79 70 65 20 6e 69 | \n"))............((eq.doctype.ni |
| 107e0 | 6c 29 20 22 3c 68 74 6d 6c 3e 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 22 3c 2f 68 74 6d 6c | l)."<html>\n")).........."</html |
| 10800 | 3e 5c 6e 22 29 29 29 0a 0a 20 20 20 20 3b 3b 20 53 68 6f 75 6c 64 20 77 65 20 6f 75 74 70 75 74 | >\n")))......;;.Should.we.output |
| 10820 | 20 74 68 65 20 77 68 6f 6c 65 20 74 68 69 6e 67 20 74 6f 20 74 68 65 20 64 65 66 61 75 6c 74 20 | .the.whole.thing.to.the.default. |
| 10840 | 6f 75 74 70 75 74 20 73 74 72 65 61 6d 3f 0a 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 64 65 73 | output.stream?.....(when.(eq.des |
| 10860 | 74 69 6e 61 74 69 6f 6e 20 74 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d | tination.t).......(with-current- |
| 10880 | 62 75 66 66 65 72 20 68 74 6d 6c 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 70 72 69 6e | buffer.html-buffer.........(prin |
| 108a0 | 63 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 28 | c.(buffer-substring.(point-min)( |
| 108c0 | 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a 0a 20 20 20 20 28 77 68 65 6e 20 28 63 61 6c 6c 65 | point-max)))))......(when.(calle |
| 108e0 | 64 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 27 61 6e 79 29 0a 20 20 20 20 20 20 28 73 | d-interactively-p.'any).......(s |
| 10900 | 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 68 74 6d 6c 2d 62 75 66 66 65 72 29 29 0a 0a 20 | witch-to-buffer.html-buffer))... |
| 10920 | 20 20 20 28 77 68 65 6e 20 66 69 6c 65 2d 6f 70 65 6e 65 64 0a 20 20 20 20 20 20 28 6b 69 6c 6c | ...(when.file-opened.......(kill |
| 10940 | 2d 62 75 66 66 65 72 20 73 6f 75 72 63 65 2d 62 75 66 66 65 72 29 29 0a 0a 20 20 20 20 3b 3b 20 | -buffer.source-buffer))......;;. |
| 10960 | 52 65 74 75 72 6e 20 74 68 65 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 62 75 66 66 65 72 0a 20 20 | Return.the.destination.buffer... |
| 10980 | 20 20 68 74 6d 6c 2d 62 75 66 66 65 72 29 29 0a 0a 0a 3b 3b 20 55 73 65 66 75 6c 20 66 75 6e 63 | ..html-buffer))...;;.Useful.func |
| 109a0 | 74 69 6f 6e 73 0a 0a 28 64 65 66 75 6e 20 63 72 65 6f 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 6c | tions..(defun.creole-directory-l |
| 109c0 | 69 73 74 20 28 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 6d 61 | ist.(directory-name.&optional.ma |
| 109e0 | 6b 65 2d 6c 69 6e 6b 73 29 0a 20 20 22 57 69 6b 69 43 72 65 6f 6c 65 20 66 6f 72 6d 61 74 20 61 | ke-links)..."WikiCreole.format.a |
| 10a00 | 20 74 61 62 6c 65 20 6f 66 20 66 69 6c 65 73 20 69 6e 20 44 49 52 45 43 54 4f 52 59 2d 4e 41 4d | .table.of.files.in.DIRECTORY-NAM |
| 10a20 | 45 2e 0a 0a 4d 41 4b 45 2d 4c 49 4e 4b 53 20 63 61 75 73 65 73 20 74 68 65 20 66 69 6c 65 73 20 | E...MAKE-LINKS.causes.the.files. |
| 10a40 | 74 6f 20 62 65 20 57 69 6b 69 43 72 65 6f 6c 65 20 6c 69 6e 6b 73 2e 22 0a 20 20 28 6c 6f 6f 70 | to.be.WikiCreole.links."...(loop |
| 10a60 | 20 66 6f 72 20 66 69 6c 65 6e 61 6d 65 20 69 6e 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 | .for.filename.in.(directory-file |
| 10a80 | 73 20 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 69 66 20 28 6e 6f | s.directory-name).........if.(no |
| 10aa0 | 74 20 28 6f 72 20 28 65 71 75 61 6c 20 66 69 6c 65 6e 61 6d 65 20 22 2e 22 29 0a 20 20 20 20 20 | t.(or.(equal.filename.".")...... |
| 10ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 66 69 6c 65 6e 61 6d 65 20 22 | ...............(equal.filename." |
| 10ae0 | 2e 2e 22 29 29 29 0a 20 20 20 20 20 20 20 20 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 28 6c | .."))).........concat.........(l |
| 10b00 | 65 74 2a 20 28 28 66 71 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 6e | et*.((fq.(expand-file-name.filen |
| 10b20 | 61 6d 65 20 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ame.directory-name))............ |
| 10b40 | 20 20 20 20 28 66 61 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 66 71 29 29 0a 20 20 | ....(fa.(file-attributes.fq))... |
| 10b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 73 74 72 0a 20 20 20 20 20 20 20 20 20 20 | .............(timestr........... |
| 10b80 | 20 20 20 20 20 20 28 61 70 70 6c 79 20 27 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 | ......(apply.'format............ |
| 10ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 22 25 30 34 64 2d 25 30 32 64 2d 25 30 32 64 20 25 30 32 64 | ............"%04d-%02d-%02d.%02d |
| 10bc0 | 3a 25 30 32 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | :%02d"........................(l |
| 10be0 | 65 74 20 28 28 64 74 20 28 64 65 63 6f 64 65 2d 74 69 6d 65 20 28 65 6c 74 20 66 61 20 35 29 29 | et.((dt.(decode-time.(elt.fa.5)) |
| 10c00 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | ))..........................(lis |
| 10c20 | 74 20 28 65 6c 74 20 64 74 20 35 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.(elt.dt.5).................... |
| 10c40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 74 20 64 74 20 34 29 0a 20 20 20 20 20 20 20 20 20 | ............(elt.dt.4).......... |
| 10c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 74 20 64 74 20 33 29 | ......................(elt.dt.3) |
| 10c80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 10ca0 | 28 65 6c 74 20 64 74 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (elt.dt.2)...................... |
| 10cc0 | 20 20 20 20 20 20 20 20 20 20 28 65 6c 74 20 64 74 20 31 29 29 29 29 29 29 0a 20 20 20 20 20 20 | ..........(elt.dt.1))))))....... |
| 10ce0 | 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 22 7c 25 73 7c 25 73 7c 25 | ....(format............"|%s|%s|% |
| 10d00 | 73 7c 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6d 61 6b 65 2d 6c 69 6e 6b 73 0a | s|\n"............(if.make-links. |
| 10d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 5b 5b 25 73 5d 5d 22 20 | ...............(format."[[%s]]". |
| 10d40 | 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65 29 | filename)..............filename) |
| 10d60 | 0a 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 73 74 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 | ............timestr............( |
| 10d80 | 65 6c 74 20 66 61 20 37 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 72 65 6f 6c 65 29 | elt.fa.7)))))..(provide.'creole) |
| 10da0 | 0a 0a 3b 3b 3b 20 63 72 65 6f 6c 65 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 | ..;;;.creole.el.ends.here....... |
| 10dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 110a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 110c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 110e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 111a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 111c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 111e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 112a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 112c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 112e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 115a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 115c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 115e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
 |
index : dotemacs.git | |
| my Emacs configuration | Craig Jennings |
| summaryrefslogtreecommitdiff |
blob: 4d39f8b823fd56d35c0b72f5e488fad7a9baf076 (plain)