◊(Local Yarn Code "Hex Artifact Content")

Artifact 385044468156cde68aa11563f81f743de4f79ee38c381253f3231f88605f8e4f:


0000: 23 6c 61 6e 67 20 72 61 63 6b 65 74 2f 62 61 73  #lang racket/bas
0010: 65 0a 0a 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73  e..; SPDX-Licens
0020: 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 42 6c  e-Identifier: Bl
0030: 75 65 4f 61 6b 2d 31 2e 30 2e 30 0a 3b 20 54 68  ueOak-1.0.0.; Th
0040: 69 73 20 66 69 6c 65 20 69 73 20 6c 69 63 65 6e  is file is licen
0050: 73 65 64 20 75 6e 64 65 72 20 74 68 65 20 42 6c  sed under the Bl
0060: 75 65 20 4f 61 6b 20 4d 6f 64 65 6c 20 4c 69 63  ue Oak Model Lic
0070: 65 6e 73 65 20 31 2e 30 2e 30 2e 0a 0a 3b 3b 20  ense 1.0.0...;; 
0080: 54 61 67 20 66 75 6e 63 74 69 6f 6e 73 20 75 73  Tag functions us
0090: 65 64 20 62 79 20 70 6f 6c 6c 65 6e 2e 72 6b 74  ed by pollen.rkt
00a0: 20 77 68 65 6e 20 48 54 4d 4c 20 69 73 20 74 68   when HTML is th
00b0: 65 20 6f 75 74 70 75 74 20 66 6f 72 6d 61 74 2e  e output format.
00c0: 0a 0a 28 72 65 71 75 69 72 65 20 28 66 6f 72 2d  ..(require (for-
00d0: 73 79 6e 74 61 78 20 72 61 63 6b 65 74 2f 62 61  syntax racket/ba
00e0: 73 65 20 72 61 63 6b 65 74 2f 73 79 6e 74 61 78  se racket/syntax
00f0: 29 29 0a 28 72 65 71 75 69 72 65 20 72 61 63 6b  )).(require rack
0100: 65 74 2f 6c 69 73 74 0a 20 20 20 20 20 20 20 20  et/list.        
0110: 20 72 61 63 6b 65 74 2f 66 75 6e 63 74 69 6f 6e   racket/function
0120: 0a 20 20 20 20 20 20 20 20 20 72 61 63 6b 65 74  .         racket
0130: 2f 64 72 61 77 0a 20 20 20 20 20 20 20 20 20 72  /draw.         r
0140: 61 63 6b 65 74 2f 63 6c 61 73 73 0a 20 20 20 20  acket/class.    
0150: 20 20 20 20 20 70 6f 6c 6c 65 6e 2f 64 65 63 6f       pollen/deco
0160: 64 65 0a 20 20 20 20 20 20 20 20 20 70 6f 6c 6c  de.         poll
0170: 65 6e 2f 74 61 67 0a 20 20 20 20 20 20 20 20 20  en/tag.         
0180: 70 6f 6c 6c 65 6e 2f 73 65 74 75 70 0a 20 20 20  pollen/setup.   
0190: 20 20 20 20 20 20 6e 65 74 2f 75 72 69 2d 63 6f        net/uri-co
01a0: 64 65 63 0a 20 20 20 20 20 20 20 20 20 74 78 65  dec.         txe
01b0: 78 70 72 0a 20 20 20 20 20 20 20 20 20 22 64 75  xpr.         "du
01c0: 73 74 2e 72 6b 74 22 29 0a 0a 28 70 72 6f 76 69  st.rkt")..(provi
01d0: 64 65 20 68 74 6d 6c 2d 66 6e 0a 20 20 20 20 20  de html-fn.     
01e0: 20 20 20 20 68 74 6d 6c 2d 66 6e 64 65 66 29 0a      html-fndef).
01f0: 0a 3b 3b 20 43 75 73 74 6f 6d 69 7a 65 64 20 70  .;; Customized p
0200: 61 72 61 67 72 61 70 68 20 64 65 63 6f 64 65 72  aragraph decoder
0210: 20 72 65 70 6c 61 63 65 73 20 73 69 6e 67 6c 65   replaces single
0220: 20 6e 65 77 6c 69 6e 65 73 20 77 69 74 68 69 6e   newlines within
0230: 20 70 61 72 61 67 72 61 70 68 73 0a 3b 3b 20 77   paragraphs.;; w
0240: 69 74 68 20 73 69 6e 67 6c 65 20 73 70 61 63 65  ith single space
0250: 73 20 69 6e 73 74 65 61 64 20 6f 66 20 3c 62 72  s instead of <br
0260: 3e 20 74 61 67 73 2e 20 41 6c 6c 6f 77 73 20 66  > tags. Allows f
0270: 6f 72 20 e2 80 9c 73 65 6d 61 6e 74 69 63 20 6c  or ...semantic l
0280: 69 6e 65 20 77 72 61 70 70 69 6e 67 e2 80 9d 2e  ine wrapping....
0290: 0a 28 64 65 66 69 6e 65 20 28 64 65 63 6f 64 65  .(define (decode
02a0: 2d 68 61 72 64 77 72 61 70 70 65 64 2d 70 61 72  -hardwrapped-par
02b0: 61 67 72 61 70 68 73 20 78 73 29 0a 20 20 28 64  agraphs xs).  (d
02c0: 65 66 69 6e 65 20 28 6e 6f 2d 6c 69 6e 65 62 72  efine (no-linebr
02d0: 65 61 6b 73 20 78 73 29 0a 20 20 20 20 28 64 65  eaks xs).    (de
02e0: 63 6f 64 65 2d 6c 69 6e 65 62 72 65 61 6b 73 20  code-linebreaks 
02f0: 78 73 20 22 20 22 29 29 0a 20 20 28 64 65 63 6f  xs " ")).  (deco
0300: 64 65 2d 70 61 72 61 67 72 61 70 68 73 20 78 73  de-paragraphs xs
0310: 20 23 3a 6c 69 6e 65 62 72 65 61 6b 2d 70 72 6f   #:linebreak-pro
0320: 63 20 6e 6f 2d 6c 69 6e 65 62 72 65 61 6b 73 29  c no-linebreaks)
0330: 29 0a 0a 3b 3b 20 41 20 73 68 6f 72 74 63 75 74  )..;; A shortcut
0340: 20 6d 61 63 72 6f 3a 20 6c 65 74 73 20 6d 65 20   macro: lets me 
0350: 64 65 66 69 6e 65 20 61 20 77 68 6f 6c 65 20 6c  define a whole l
0360: 6f 74 20 6f 66 20 74 61 67 20 66 75 6e 63 74 69  ot of tag functi
0370: 6f 6e 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a  ons of the form:
0380: 0a 3b 3b 20 20 28 64 65 66 69 6e 65 20 68 74 6d  .;;  (define htm
0390: 6c 2d 70 20 28 64 65 66 61 75 6c 74 2d 74 61 67  l-p (default-tag
03a0: 2d 66 75 6e 63 74 69 6f 6e 20 27 70 29 0a 28 64  -function 'p).(d
03b0: 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 28 70 72  efine-syntax (pr
03c0: 6f 76 69 64 65 2f 64 65 66 69 6e 65 2d 68 74 6d  ovide/define-htm
03d0: 6c 2d 64 65 66 61 75 6c 74 2d 74 61 67 73 20 73  l-default-tags s
03e0: 74 78 29 0a 20 20 28 73 79 6e 74 61 78 2d 63 61  tx).  (syntax-ca
03f0: 73 65 20 73 74 78 20 28 29 0a 20 20 20 20 5b 28  se stx ().    [(
0400: 5f 20 54 41 47 20 2e 2e 2e 29 0a 20 20 20 20 20  _ TAG ...).     
0410: 28 6c 65 74 20 28 5b 74 61 67 73 20 28 73 79 6e  (let ([tags (syn
0420: 74 61 78 2d 3e 6c 69 73 74 20 23 27 28 54 41 47  tax->list #'(TAG
0430: 20 2e 2e 2e 29 29 5d 29 0a 20 20 20 20 20 20 20   ...))]).       
0440: 28 77 69 74 68 2d 73 79 6e 74 61 78 20 28 5b 28  (with-syntax ([(
0450: 28 48 54 4d 4c 2d 54 41 47 2d 46 55 4e 43 20 48  (HTML-TAG-FUNC H
0460: 54 4d 4c 2d 54 41 47 29 20 2e 2e 2e 29 0a 20 20  TML-TAG) ...).  
0470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0480: 20 20 20 20 28 66 6f 72 2f 6c 69 73 74 20 28 5b      (for/list ([
0490: 68 74 61 67 20 28 69 6e 2d 6c 69 73 74 20 74 61  htag (in-list ta
04a0: 67 73 29 5d 29 0a 20 20 20 20 20 20 20 20 20 20  gs)]).          
04b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c                (l
04c0: 69 73 74 20 28 66 6f 72 6d 61 74 2d 69 64 20 73  ist (format-id s
04d0: 74 78 20 22 68 74 6d 6c 2d 7e 61 22 20 28 73 79  tx "html-~a" (sy
04e0: 6e 74 61 78 2d 65 20 68 74 61 67 29 29 20 28 73  ntax-e htag)) (s
04f0: 79 6e 74 61 78 2d 65 20 68 74 61 67 29 29 29 5d  yntax-e htag)))]
0500: 29 0a 20 20 20 20 20 20 20 20 20 23 27 28 62 65  ).         #'(be
0510: 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20  gin.            
0520: 20 28 70 72 6f 76 69 64 65 20 48 54 4d 4c 2d 54   (provide HTML-T
0530: 41 47 2d 46 55 4e 43 20 2e 2e 2e 29 0a 20 20 20  AG-FUNC ...).   
0540: 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e            (defin
0550: 65 20 48 54 4d 4c 2d 54 41 47 2d 46 55 4e 43 20  e HTML-TAG-FUNC 
0560: 28 64 65 66 61 75 6c 74 2d 74 61 67 2d 66 75 6e  (default-tag-fun
0570: 63 74 69 6f 6e 20 27 48 54 4d 4c 2d 54 41 47 29  ction 'HTML-TAG)
0580: 29 20 2e 2e 2e 29 29 29 5d 29 29 0a 0a 3b 3b 20  ) ...)))]))..;; 
0590: 48 65 72 65 20 77 65 20 67 6f 3a 0a 28 70 72 6f  Here we go:.(pro
05a0: 76 69 64 65 2f 64 65 66 69 6e 65 2d 68 74 6d 6c  vide/define-html
05b0: 2d 64 65 66 61 75 6c 74 2d 74 61 67 73 20 70 0a  -default-tags p.
05c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
05d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
05e0: 20 20 62 0a 20 20 20 20 20 20 20 20 20 20 20 20    b.            
05f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0600: 20 20 20 20 20 20 73 74 72 6f 6e 67 0a 20 20 20        strong.   
0610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69                 i
0630: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0650: 20 20 20 65 6d 0a 20 20 20 20 20 20 20 20 20 20     em.          
0660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0670: 20 20 20 20 20 20 20 20 6f 6c 0a 20 20 20 20 20          ol.     
0680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0690: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6c 0a               ul.
06a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
06b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
06c0: 20 20 73 75 70 0a 20 20 20 20 20 20 20 20 20 20    sup.          
06d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
06e0: 20 20 20 20 20 20 20 20 62 6c 6f 63 6b 71 75 6f          blockquo
06f0: 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  te.             
0700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0710: 20 20 20 20 20 63 6f 64 65 29 0a 0a 28 70 72 6f       code)..(pro
0720: 76 69 64 65 20 68 74 6d 6c 2d 72 6f 6f 74 0a 20  vide html-root. 
0730: 20 20 20 20 20 20 20 20 68 74 6d 6c 2d 69 74 65          html-ite
0740: 6d 0a 20 20 20 20 20 20 20 20 20 68 74 6d 6c 2d  m.         html-
0750: 73 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20  section.        
0760: 20 68 74 6d 6c 2d 73 75 62 73 65 63 74 69 6f 6e   html-subsection
0770: 0a 20 20 20 20 20 20 20 20 20 68 74 6d 6c 2d 6e  .         html-n
0780: 65 77 74 68 6f 75 67 68 74 0a 20 20 20 20 20 20  ewthought.      
0790: 20 20 20 68 74 6d 6c 2d 63 61 70 73 0a 20 20 20     html-caps.   
07a0: 20 20 20 20 20 20 68 74 6d 6c 2d 63 65 6e 74 65        html-cente
07b0: 72 0a 20 20 20 20 20 20 20 20 20 68 74 6d 6c 2d  r.         html-
07c0: 73 74 72 69 6b 65 0a 20 20 20 20 20 20 20 20 20  strike.         
07d0: 68 74 6d 6c 2d 62 6c 6f 63 6b 0a 20 20 20 20 20  html-block.     
07e0: 20 20 20 20 68 74 6d 6c 2d 62 6c 6f 63 6b 63 6f      html-blockco
07f0: 64 65 0a 20 20 20 20 20 20 20 20 20 68 74 6d 6c  de.         html
0800: 2d 69 6e 64 65 78 0a 20 20 20 20 20 20 20 20 20  -index.         
0810: 68 74 6d 6c 2d 66 69 67 75 72 65 0a 20 20 20 20  html-figure.    
0820: 20 20 20 20 20 68 74 6d 6c 2d 66 69 67 75 72 65       html-figure
0830: 2d 40 32 78 0a 20 20 20 20 20 20 20 20 20 68 74  -@2x.         ht
0840: 6d 6c 2d 69 6d 61 67 65 2d 6c 69 6e 6b 0a 20 20  ml-image-link.  
0850: 20 20 20 20 20 20 20 68 74 6d 6c 2d 64 69 61 6c         html-dial
0860: 6f 67 75 65 0a 20 20 20 20 20 20 20 20 20 68 74  ogue.         ht
0870: 6d 6c 2d 73 61 79 0a 20 20 20 20 20 20 20 20 20  ml-say.         
0880: 68 74 6d 6c 2d 73 61 79 6c 69 6e 65 73 0a 20 20  html-saylines.  
0890: 20 20 20 20 20 20 20 68 74 6d 6c 2d 76 65 72 73         html-vers
08a0: 65 0a 20 20 20 20 20 20 20 20 20 68 74 6d 6c 2d  e.         html-
08b0: 6c 69 6e 6b 0a 20 20 20 20 20 20 20 20 20 68 74  link.         ht
08c0: 6d 6c 2d 75 72 6c 0a 20 20 20 20 20 20 20 20 20  ml-url.         
08d0: 68 74 6d 6c 2d 66 6e 0a 20 20 20 20 20 20 20 20  html-fn.        
08e0: 20 68 74 6d 6c 2d 66 6e 64 65 66 0a 20 20 20 20   html-fndef.    
08f0: 20 20 20 20 20 68 74 6d 6c 2d 6e 6f 74 65 29 0a       html-note).
0900: 0a 28 64 65 66 69 6e 65 20 68 74 6d 6c 2d 69 74  .(define html-it
0910: 65 6d 20 28 64 65 66 61 75 6c 74 2d 74 61 67 2d  em (default-tag-
0920: 66 75 6e 63 74 69 6f 6e 20 27 6c 69 29 29 0a 28  function 'li)).(
0930: 64 65 66 69 6e 65 20 68 74 6d 6c 2d 73 65 63 74  define html-sect
0940: 69 6f 6e 20 28 64 65 66 61 75 6c 74 2d 74 61 67  ion (default-tag
0950: 2d 66 75 6e 63 74 69 6f 6e 20 27 68 32 29 29 0a  -function 'h2)).
0960: 28 64 65 66 69 6e 65 20 68 74 6d 6c 2d 73 75 62  (define html-sub
0970: 73 65 63 74 69 6f 6e 20 28 64 65 66 61 75 6c 74  section (default
0980: 2d 74 61 67 2d 66 75 6e 63 74 69 6f 6e 20 27 68  -tag-function 'h
0990: 33 29 29 0a 28 64 65 66 69 6e 65 20 68 74 6d 6c  3)).(define html
09a0: 2d 6e 65 77 74 68 6f 75 67 68 74 20 28 64 65 66  -newthought (def
09b0: 61 75 6c 74 2d 74 61 67 2d 66 75 6e 63 74 69 6f  ault-tag-functio
09c0: 6e 20 27 73 70 61 6e 20 23 3a 63 6c 61 73 73 20  n 'span #:class 
09d0: 22 6e 65 77 74 68 6f 75 67 68 74 22 29 29 0a 28  "newthought")).(
09e0: 64 65 66 69 6e 65 20 68 74 6d 6c 2d 63 61 70 73  define html-caps
09f0: 20 28 64 65 66 61 75 6c 74 2d 74 61 67 2d 66 75   (default-tag-fu
0a00: 6e 63 74 69 6f 6e 20 27 73 70 61 6e 20 23 3a 63  nction 'span #:c
0a10: 6c 61 73 73 20 22 63 61 70 73 22 29 29 0a 28 64  lass "caps")).(d
0a20: 65 66 69 6e 65 20 68 74 6d 6c 2d 63 65 6e 74 65  efine html-cente
0a30: 72 20 28 64 65 66 61 75 6c 74 2d 74 61 67 2d 66  r (default-tag-f
0a40: 75 6e 63 74 69 6f 6e 20 27 64 69 76 20 23 3a 73  unction 'div #:s
0a50: 74 79 6c 65 20 22 74 65 78 74 2d 61 6c 69 67 6e  tyle "text-align
0a60: 3a 20 63 65 6e 74 65 72 22 29 29 0a 28 64 65 66  : center")).(def
0a70: 69 6e 65 20 68 74 6d 6c 2d 73 74 72 69 6b 65 20  ine html-strike 
0a80: 28 64 65 66 61 75 6c 74 2d 74 61 67 2d 66 75 6e  (default-tag-fun
0a90: 63 74 69 6f 6e 20 27 73 70 61 6e 20 23 3a 73 74  ction 'span #:st
0aa0: 79 6c 65 20 22 74 65 78 74 2d 64 65 63 6f 72 61  yle "text-decora
0ab0: 74 69 6f 6e 3a 20 6c 69 6e 65 2d 74 68 72 6f 75  tion: line-throu
0ac0: 67 68 22 29 29 0a 28 64 65 66 69 6e 65 20 68 74  gh")).(define ht
0ad0: 6d 6c 2d 64 69 61 6c 6f 67 75 65 20 28 64 65 66  ml-dialogue (def
0ae0: 61 75 6c 74 2d 74 61 67 2d 66 75 6e 63 74 69 6f  ault-tag-functio
0af0: 6e 20 27 64 6c 20 23 3a 63 6c 61 73 73 20 22 64  n 'dl #:class "d
0b00: 69 61 6c 6f 67 75 65 22 29 29 0a 0a 28 64 65 66  ialogue"))..(def
0b10: 69 6e 65 20 28 68 74 6d 6c 2d 62 6c 6f 63 6b 20  ine (html-block 
0b20: 2e 20 65 6c 65 6d 65 6e 74 73 29 0a 20 20 60 28  . elements).  `(
0b30: 73 65 63 74 69 6f 6e 20 5b 5b 63 6c 61 73 73 20  section [[class 
0b40: 22 63 6f 6e 74 65 6e 74 2d 62 6c 6f 63 6b 22 5d  "content-block"]
0b50: 5d 20 28 64 69 76 20 5b 5b 63 6c 61 73 73 20 22  ] (div [[class "
0b60: 63 6f 6e 74 65 6e 74 2d 62 6c 6f 63 6b 2d 6d 61  content-block-ma
0b70: 69 6e 22 5d 5d 20 2c 40 65 6c 65 6d 65 6e 74 73  in"]] ,@elements
0b80: 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 68 74  )))..(define (ht
0b90: 6d 6c 2d 72 6f 6f 74 20 2e 20 65 6c 65 6d 65 6e  ml-root . elemen
0ba0: 74 73 29 0a 20 20 28 69 6e 76 61 6c 69 64 61 74  ts).  (invalidat
0bb0: 65 2d 73 65 72 69 65 73 29 0a 20 20 28 64 65 66  e-series).  (def
0bc0: 69 6e 65 20 66 69 72 73 74 2d 70 61 73 73 0a 20  ine first-pass. 
0bd0: 20 20 20 28 64 65 63 6f 64 65 2d 65 6c 65 6d 65     (decode-eleme
0be0: 6e 74 73 20 28 61 70 70 65 6e 64 20 65 6c 65 6d  nts (append elem
0bf0: 65 6e 74 73 20 28 6c 69 73 74 20 28 68 74 6d 6c  ents (list (html
0c00: 2d 66 6f 6f 74 6e 6f 74 65 2d 62 6c 6f 63 6b 29  -footnote-block)
0c10: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
0c20: 20 20 20 20 20 20 20 20 23 3a 74 78 65 78 70 72          #:txexpr
0c30: 2d 65 6c 65 6d 65 6e 74 73 2d 70 72 6f 63 20 64  -elements-proc d
0c40: 65 63 6f 64 65 2d 68 61 72 64 77 72 61 70 70 65  ecode-hardwrappe
0c50: 64 2d 70 61 72 61 67 72 61 70 68 73 0a 20 20 20  d-paragraphs.   
0c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0c70: 20 20 23 3a 65 78 63 6c 75 64 65 2d 74 61 67 73    #:exclude-tags
0c80: 20 27 28 73 63 72 69 70 74 20 73 74 79 6c 65 20   '(script style 
0c90: 66 69 67 75 72 65 20 74 61 62 6c 65 20 70 72 65  figure table pre
0ca0: 29 29 29 0a 20 20 28 64 65 66 69 6e 65 20 73 65  ))).  (define se
0cb0: 63 6f 6e 64 2d 70 61 73 73 0a 20 20 20 20 28 64  cond-pass.    (d
0cc0: 65 63 6f 64 65 2d 65 6c 65 6d 65 6e 74 73 20 66  ecode-elements f
0cd0: 69 72 73 74 2d 70 61 73 73 0a 20 20 20 20 20 20  irst-pass.      
0ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23                 #
0cf0: 3a 62 6c 6f 63 6b 2d 74 78 65 78 70 72 2d 70 72  :block-txexpr-pr
0d00: 6f 63 20 64 65 74 65 63 74 2d 6e 65 77 74 68 6f  oc detect-newtho
0d10: 75 67 68 74 73 0a 20 20 20 20 20 20 20 20 20 20  ughts.          
0d20: 20 20 20 20 20 20 20 20 20 20 20 23 3a 69 6e 6c             #:inl
0d30: 69 6e 65 2d 74 78 65 78 70 72 2d 70 72 6f 63 20  ine-txexpr-proc 
0d40: 64 65 63 6f 64 65 2d 6c 69 6e 6b 2d 75 72 6c 73  decode-link-urls
0d50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0d60: 20 20 20 20 20 20 23 3a 65 78 63 6c 75 64 65 2d        #:exclude-
0d70: 74 61 67 73 20 27 28 73 63 72 69 70 74 20 73 74  tags '(script st
0d80: 79 6c 65 20 70 72 65 20 63 6f 64 65 29 29 29 0a  yle pre code))).
0d90: 20 20 60 28 62 6f 64 79 20 2c 40 73 65 63 6f 6e    `(body ,@secon
0da0: 64 2d 70 61 73 73 29 29 0a 0a 28 64 65 66 69 6e  d-pass))..(defin
0db0: 65 20 28 68 74 6d 6c 2d 62 6c 6f 63 6b 63 6f 64  e (html-blockcod
0dc0: 65 20 61 74 74 72 73 20 65 6c 65 6d 73 29 0a 20  e attrs elems). 
0dd0: 20 28 64 65 66 69 6e 65 20 66 69 6c 65 20 28 6f   (define file (o
0de0: 72 20 28 61 73 73 6f 63 20 27 66 69 6c 65 6e 61  r (assoc 'filena
0df0: 6d 65 20 61 74 74 72 73 29 20 22 22 29 29 0a 20  me attrs) "")). 
0e00: 20 28 64 65 66 69 6e 65 20 63 6f 64 65 62 6c 6f   (define codeblo
0e10: 63 6b 20 60 28 70 72 65 20 5b 5b 63 6c 61 73 73  ck `(pre [[class
0e20: 20 22 63 6f 64 65 22 5d 5d 20 28 63 6f 64 65 20   "code"]] (code 
0e30: 2c 40 65 6c 65 6d 73 29 29 29 0a 20 20 28 63 6f  ,@elems))).  (co
0e40: 6e 64 20 5b 28 73 74 72 69 6e 67 3e 3f 20 66 69  nd [(string>? fi
0e50: 6c 65 20 22 22 29 20 60 28 40 20 28 64 69 76 20  le "") `(@ (div 
0e60: 5b 5b 63 6c 61 73 73 20 22 6c 69 73 74 69 6e 67  [[class "listing
0e70: 2d 66 69 6c 65 6e 61 6d 65 22 5d 5d 20 31 32 38  -filename"]] 128
0e80: 31 39 36 20 22 20 22 20 2c 66 69 6c 65 29 20 2c  196 " " ,file) ,
0e90: 63 6f 64 65 62 6c 6f 63 6b 29 5d 0a 20 20 20 20  codeblock)].    
0ea0: 20 20 20 20 5b 65 6c 73 65 20 63 6f 64 65 62 6c      [else codebl
0eb0: 6f 63 6b 5d 29 29 0a 0a 28 64 65 66 69 6e 65 20  ock]))..(define 
0ec0: 28 68 74 6d 6c 2d 69 6e 64 65 78 20 61 74 74 72  (html-index attr
0ed0: 73 20 65 6c 65 6d 73 29 0a 20 20 28 64 65 66 69  s elems).  (defi
0ee0: 6e 65 20 69 6e 64 65 78 2d 6b 65 79 20 28 6d 61  ne index-key (ma
0ef0: 79 62 65 2d 61 74 74 72 20 27 6b 65 79 20 61 74  ybe-attr 'key at
0f00: 74 72 73 20 28 74 78 2d 73 74 72 73 20 60 28 73  trs (tx-strs `(s
0f10: 70 61 6e 20 2c 40 65 6c 65 6d 73 29 29 29 29 0a  pan ,@elems)))).
0f20: 20 20 60 28 61 20 5b 5b 69 64 20 2c 28 68 65 72    `(a [[id ,(her
0f30: 65 2d 69 64 20 28 6c 69 73 74 20 22 5f 69 64 78  e-id (list "_idx
0f40: 2d 22 20 28 75 72 69 2d 65 6e 63 6f 64 65 20 69  -" (uri-encode i
0f50: 6e 64 65 78 2d 6b 65 79 29 29 29 5d 0a 20 20 20  ndex-key)))].   
0f60: 20 20 20 20 5b 68 72 65 66 20 2c 28 73 74 72 69      [href ,(stri
0f70: 6e 67 2d 61 70 70 65 6e 64 20 22 2f 6b 65 79 77  ng-append "/keyw
0f80: 6f 72 64 2d 69 6e 64 65 78 2e 68 74 6d 6c 23 22  ord-index.html#"
0f90: 20 28 75 72 69 2d 65 6e 63 6f 64 65 20 28 73 74   (uri-encode (st
0fa0: 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 69 6e  ring-downcase in
0fb0: 64 65 78 2d 6b 65 79 29 29 29 5d 0a 20 20 20 20  dex-key)))].    
0fc0: 20 20 20 5b 64 61 74 61 2d 69 6e 64 65 78 2d 65     [data-index-e
0fd0: 6e 74 72 79 20 2c 69 6e 64 65 78 2d 6b 65 79 5d  ntry ,index-key]
0fe0: 0a 20 20 20 20 20 20 20 5b 63 6c 61 73 73 20 22  .       [class "
0ff0: 69 6e 64 65 78 2d 6c 69 6e 6b 22 5d 5d 0a 20 20  index-link"]].  
1000: 20 20 20 20 2c 40 65 6c 65 6d 73 29 29 0a 0a 3b      ,@elems))..;
1010: 3b 20 54 6f 20 62 65 20 75 73 65 64 20 77 69 74  ; To be used wit
1020: 68 69 6e 20 e2 97 8a 64 69 61 6c 6f 67 75 65 0a  hin ...dialogue.
1030: 28 64 65 66 69 6e 65 20 28 68 74 6d 6c 2d 73 61  (define (html-sa
1040: 79 20 2e 20 65 6c 65 6d 73 29 0a 20 20 60 28 40  y . elems).  `(@
1050: 20 28 64 74 20 2c 28 63 61 72 20 65 6c 65 6d 73   (dt ,(car elems
1060: 29 20 28 73 70 61 6e 20 5b 5b 63 6c 61 73 73 20  ) (span [[class 
1070: 22 78 22 5d 5d 20 22 3a 20 22 29 29 20 28 64 64  "x"]] ": ")) (dd
1080: 20 2c 40 28 63 64 72 20 65 6c 65 6d 73 29 29 29   ,@(cdr elems)))
1090: 29 0a 0a 3b 3b 20 53 61 6d 65 20 61 73 20 e2 97  )..;; Same as ..
10a0: 8a 73 61 79 2c 20 62 75 74 20 70 72 65 73 65 72  .say, but preser
10b0: 76 65 20 6c 69 6e 65 62 72 65 61 6b 73 0a 28 64  ve linebreaks.(d
10c0: 65 66 69 6e 65 20 28 68 74 6d 6c 2d 73 61 79 6c  efine (html-sayl
10d0: 69 6e 65 73 20 2e 20 65 6c 65 6d 73 29 0a 20 20  ines . elems).  
10e0: 28 61 70 70 6c 79 20 68 74 6d 6c 2d 73 61 79 20  (apply html-say 
10f0: 28 64 65 63 6f 64 65 2d 6c 69 6e 65 62 72 65 61  (decode-linebrea
1100: 6b 73 20 65 6c 65 6d 73 29 29 29 0a 0a 28 64 65  ks elems)))..(de
1110: 66 69 6e 65 20 28 68 74 6d 6c 2d 76 65 72 73 65  fine (html-verse
1120: 20 61 74 74 72 73 20 65 6c 65 6d 73 29 0a 20 20   attrs elems).  
1130: 28 6c 65 74 2a 20 28 5b 74 69 74 6c 65 20 20 28  (let* ([title  (
1140: 6d 61 79 62 65 2d 61 74 74 72 20 27 74 69 74 6c  maybe-attr 'titl
1150: 65 20 61 74 74 72 73 20 22 22 29 5d 0a 20 20 20  e attrs "")].   
1160: 20 20 20 20 20 20 5b 69 74 61 6c 69 63 3f 20 28        [italic? (
1170: 61 73 73 6f 63 20 27 69 74 61 6c 69 63 20 61 74  assoc 'italic at
1180: 74 72 73 29 5d 0a 20 20 20 20 20 20 20 20 20 5b  trs)].         [
1190: 70 72 65 2d 61 74 74 72 73 20 28 63 6f 6e 64 20  pre-attrs (cond 
11a0: 5b 69 74 61 6c 69 63 3f 20 27 28 5b 63 6c 61 73  [italic? '([clas
11b0: 73 20 22 76 65 72 73 65 22 5d 20 5b 73 74 79 6c  s "verse"] [styl
11c0: 65 20 22 66 6f 6e 74 2d 73 74 79 6c 65 3a 20 69  e "font-style: i
11d0: 74 61 6c 69 63 22 5d 29 5d 0a 20 20 20 20 20 20  talic"])].      
11e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
11f0: 20 20 20 20 5b 65 6c 73 65 20 27 28 5b 63 6c 61      [else '([cla
1200: 73 73 20 22 76 65 72 73 65 22 5d 29 5d 29 5d 0a  ss "verse"])])].
1210: 20 20 20 20 20 20 20 20 20 5b 70 72 65 2d 74 69           [pre-ti
1220: 74 6c 65 20 28 63 6f 6e 64 20 5b 28 73 74 72 69  tle (cond [(stri
1230: 6e 67 3e 3f 20 74 69 74 6c 65 20 22 22 29 20 60  ng>? title "") `
1240: 28 70 20 5b 5b 63 6c 61 73 73 20 22 76 65 72 73  (p [[class "vers
1250: 65 2d 68 65 61 64 69 6e 67 22 5d 5d 20 2c 74 69  e-heading"]] ,ti
1260: 74 6c 65 29 5d 0a 20 20 20 20 20 20 20 20 20 20  tle)].          
1270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1280: 5b 65 6c 73 65 20 22 22 5d 29 5d 29 0a 20 20 20  [else ""])]).   
1290: 20 60 28 64 69 76 20 5b 5b 63 6c 61 73 73 20 22   `(div [[class "
12a0: 70 6f 65 6d 22 5d 5d 20 2c 70 72 65 2d 74 69 74  poem"]] ,pre-tit
12b0: 6c 65 20 28 70 72 65 20 2c 70 72 65 2d 61 74 74  le (pre ,pre-att
12c0: 72 73 20 2c 40 65 6c 65 6d 73 29 29 29 29 0a 0a  rs ,@elems))))..
12d0: 3b 3b 20 28 50 72 69 76 61 74 65 29 20 47 65 74  ;; (Private) Get
12e0: 20 74 68 65 20 64 69 6d 65 6e 73 69 6f 6e 73 20   the dimensions 
12f0: 6f 66 20 61 6e 20 69 6d 61 67 65 20 66 69 6c 65  of an image file
1300: 0a 28 64 65 66 69 6e 65 20 28 67 65 74 2d 69 6d  .(define (get-im
1310: 61 67 65 2d 73 69 7a 65 20 66 69 6c 65 70 61 74  age-size filepat
1320: 68 29 0a 20 20 28 64 65 66 69 6e 65 20 62 6d 70  h).  (define bmp
1330: 20 28 6d 61 6b 65 2d 6f 62 6a 65 63 74 20 62 69   (make-object bi
1340: 74 6d 61 70 25 20 66 69 6c 65 70 61 74 68 29 29  tmap% filepath))
1350: 0a 20 20 28 6c 69 73 74 20 28 73 65 6e 64 20 62  .  (list (send b
1360: 6d 70 20 67 65 74 2d 77 69 64 74 68 29 20 28 73  mp get-width) (s
1370: 65 6e 64 20 62 6d 70 20 67 65 74 2d 68 65 69 67  end bmp get-heig
1380: 68 74 29 29 29 0a 0a 3b 3b 20 28 50 72 69 76 61  ht)))..;; (Priva
1390: 74 65 29 20 42 75 69 6c 64 73 20 61 20 70 61 74  te) Builds a pat
13a0: 68 20 74 6f 20 61 6e 20 69 6d 61 67 65 20 69 6e  h to an image in
13b0: 20 74 68 65 20 5b 69 6d 61 67 65 2d 64 69 72 5d   the [image-dir]
13c0: 20 73 75 62 66 6f 6c 64 65 72 20 6f 66 20 74 68   subfolder of th
13d0: 65 20 63 75 72 72 65 6e 74 20 64 6f 63 75 6d 65  e current docume
13e0: 6e 74 27 73 20 0a 3b 3b 20 66 6f 6c 64 65 72 2c  nt's .;; folder,
13f0: 20 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65   relative to the
1400: 20 63 75 72 72 65 6e 74 20 64 6f 63 75 6d 65 6e   current documen
1410: 74 e2 80 99 73 20 66 6f 6c 64 65 72 0a 28 64 65  t...s folder.(de
1420: 66 69 6e 65 20 28 69 6d 61 67 65 2d 73 6f 75 72  fine (image-sour
1430: 63 65 20 62 61 73 65 6e 61 6d 65 29 0a 20 20 28  ce basename).  (
1440: 64 65 66 69 6e 65 20 68 65 72 65 2d 70 61 74 68  define here-path
1450: 20 28 73 74 72 69 6e 67 2d 3e 70 61 74 68 20 28   (string->path (
1460: 6d 61 79 62 65 2d 6d 65 74 61 20 27 68 65 72 65  maybe-meta 'here
1470: 2d 70 61 74 68 29 29 29 0a 20 20 28 64 65 66 69  -path))).  (defi
1480: 6e 65 2d 76 61 6c 75 65 73 20 28 5f 20 68 65 72  ne-values (_ her
1490: 65 2d 72 65 6c 2d 70 61 74 68 2d 70 61 72 74 73  e-rel-path-parts
14a0: 29 0a 20 20 20 20 28 64 72 6f 70 2d 63 6f 6d 6d  ).    (drop-comm
14b0: 6f 6e 2d 70 72 65 66 69 78 20 28 65 78 70 6c 6f  on-prefix (explo
14c0: 64 65 2d 70 61 74 68 20 28 63 75 72 72 65 6e 74  de-path (current
14d0: 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 29 0a  -project-root)).
14e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
14f0: 20 20 20 20 20 20 20 20 28 65 78 70 6c 6f 64 65          (explode
1500: 2d 70 61 74 68 20 68 65 72 65 2d 70 61 74 68 29  -path here-path)
1510: 29 29 0a 20 20 28 6c 65 74 2a 20 28 5b 66 6f 6c  )).  (let* ([fol
1520: 64 65 72 2d 70 61 72 74 73 20 28 64 72 6f 70 2d  der-parts (drop-
1530: 72 69 67 68 74 20 68 65 72 65 2d 72 65 6c 2d 70  right here-rel-p
1540: 61 74 68 2d 70 61 72 74 73 20 31 29 5d 0a 20 20  ath-parts 1)].  
1550: 20 20 20 20 20 20 20 5b 69 6d 67 2d 70 61 74 68         [img-path
1560: 2d 70 61 72 74 73 20 28 61 70 70 65 6e 64 20 66  -parts (append f
1570: 6f 6c 64 65 72 2d 70 61 72 74 73 20 28 6c 69 73  older-parts (lis
1580: 74 20 69 6d 61 67 65 73 2d 66 6f 6c 64 65 72 20  t images-folder 
1590: 62 61 73 65 6e 61 6d 65 29 29 5d 0a 20 20 20 20  basename))].    
15a0: 20 20 20 20 20 5b 69 6d 67 2d 70 61 74 68 20 28       [img-path (
15b0: 61 70 70 6c 79 20 62 75 69 6c 64 2d 70 61 74 68  apply build-path
15c0: 2f 63 6f 6e 76 65 6e 74 69 6f 6e 2d 74 79 70 65  /convention-type
15d0: 20 27 75 6e 69 78 20 69 6d 67 2d 70 61 74 68 2d   'unix img-path-
15e0: 70 61 72 74 73 29 5d 29 0a 20 20 20 20 28 70 61  parts)]).    (pa
15f0: 74 68 2d 3e 73 74 72 69 6e 67 20 69 6d 67 2d 70  th->string img-p
1600: 61 74 68 29 29 29 0a 0a 28 64 65 66 69 6e 65 20  ath)))..(define 
1610: 28 68 74 6d 6c 2d 66 69 67 75 72 65 2d 40 32 78  (html-figure-@2x
1620: 20 2e 20 65 6c 65 6d 73 29 0a 20 20 28 64 65 66   . elems).  (def
1630: 69 6e 65 20 73 72 63 20 28 69 6d 61 67 65 2d 73  ine src (image-s
1640: 6f 75 72 63 65 20 28 63 61 72 20 65 6c 65 6d 73  ource (car elems
1650: 29 29 29 0a 20 20 28 64 65 66 69 6e 65 20 61 6c  ))).  (define al
1660: 74 2d 74 65 78 74 20 28 74 78 2d 73 74 72 73 20  t-text (tx-strs 
1670: 60 28 73 70 61 6e 20 2c 40 28 63 64 72 20 65 6c  `(span ,@(cdr el
1680: 65 6d 73 29 29 29 29 0a 20 20 28 64 65 66 69 6e  ems)))).  (defin
1690: 65 20 69 6d 67 2d 77 69 64 74 68 20 28 63 61 72  e img-width (car
16a0: 20 28 67 65 74 2d 69 6d 61 67 65 2d 73 69 7a 65   (get-image-size
16b0: 20 28 62 75 69 6c 64 2d 70 61 74 68 20 28 63 75   (build-path (cu
16c0: 72 72 65 6e 74 2d 70 72 6f 6a 65 63 74 2d 72 6f  rrent-project-ro
16d0: 6f 74 29 20 73 72 63 29 29 29 29 0a 20 20 28 64  ot) src)))).  (d
16e0: 65 66 69 6e 65 20 73 74 79 6c 65 2d 73 74 72 20  efine style-str 
16f0: 28 66 6f 72 6d 61 74 20 22 77 69 64 74 68 3a 20  (format "width: 
1700: 7e 61 70 78 22 20 28 2f 20 69 6d 67 2d 77 69 64  ~apx" (/ img-wid
1710: 74 68 20 32 2e 30 29 29 29 0a 20 20 60 28 66 69  th 2.0))).  `(fi
1720: 67 75 72 65 20 28 69 6d 67 20 5b 5b 61 6c 74 20  gure (img [[alt 
1730: 2c 61 6c 74 2d 74 65 78 74 5d 20 5b 73 74 79 6c  ,alt-text] [styl
1740: 65 20 2c 73 74 79 6c 65 2d 73 74 72 5d 20 5b 73  e ,style-str] [s
1750: 72 63 20 2c 28 73 74 72 69 6e 67 2d 61 70 70 65  rc ,(string-appe
1760: 6e 64 20 77 65 62 2d 72 6f 6f 74 20 73 72 63 29  nd web-root src)
1770: 5d 5d 29 0a 20 20 20 20 20 20 20 20 20 20 20 28  ]]).           (
1780: 66 69 67 63 61 70 74 69 6f 6e 20 2c 40 28 63 64  figcaption ,@(cd
1790: 72 20 65 6c 65 6d 73 29 29 29 29 0a 0a 28 64 65  r elems))))..(de
17a0: 66 69 6e 65 20 28 68 74 6d 6c 2d 66 69 67 75 72  fine (html-figur
17b0: 65 20 2e 20 65 6c 65 6d 73 29 0a 20 20 28 64 65  e . elems).  (de
17c0: 66 69 6e 65 20 73 72 63 20 28 73 74 72 69 6e 67  fine src (string
17d0: 2d 61 70 70 65 6e 64 20 77 65 62 2d 72 6f 6f 74  -append web-root
17e0: 20 28 69 6d 61 67 65 2d 73 6f 75 72 63 65 20 28   (image-source (
17f0: 63 61 72 20 65 6c 65 6d 73 29 29 29 29 0a 20 20  car elems)))).  
1800: 28 64 65 66 69 6e 65 20 61 6c 74 2d 74 65 78 74  (define alt-text
1810: 20 28 74 78 2d 73 74 72 73 20 60 28 73 70 61 6e   (tx-strs `(span
1820: 20 2c 40 28 63 64 72 20 65 6c 65 6d 73 29 29 29   ,@(cdr elems)))
1830: 29 0a 20 20 60 28 66 69 67 75 72 65 20 5b 5b 63  ).  `(figure [[c
1840: 6c 61 73 73 20 22 66 75 6c 6c 77 69 64 74 68 22  lass "fullwidth"
1850: 5d 5d 0a 20 20 20 20 20 20 20 20 20 20 20 28 69  ]].           (i
1860: 6d 67 20 5b 5b 61 6c 74 20 2c 61 6c 74 2d 74 65  mg [[alt ,alt-te
1870: 78 74 5d 20 5b 73 72 63 20 2c 73 72 63 5d 5d 29  xt] [src ,src]])
1880: 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 69 67  .           (fig
1890: 63 61 70 74 69 6f 6e 20 2c 40 28 63 64 72 20 65  caption ,@(cdr e
18a0: 6c 65 6d 73 29 29 29 29 0a 0a 3b 3b 20 53 69 6d  lems))))..;; Sim
18b0: 70 6c 65 20 6c 69 6e 6b 20 74 6f 20 61 6e 20 69  ple link to an i
18c0: 6d 61 67 65 0a 28 64 65 66 69 6e 65 20 28 68 74  mage.(define (ht
18d0: 6d 6c 2d 69 6d 61 67 65 2d 6c 69 6e 6b 20 2e 20  ml-image-link . 
18e0: 65 6c 65 6d 73 29 0a 20 20 28 64 65 66 69 6e 65  elems).  (define
18f0: 20 73 72 63 20 28 69 6d 61 67 65 2d 73 6f 75 72   src (image-sour
1900: 63 65 20 28 63 61 72 20 65 6c 65 6d 73 29 29 29  ce (car elems)))
1910: 0a 20 20 28 64 65 66 69 6e 65 20 74 69 74 6c 65  .  (define title
1920: 20 28 74 78 2d 73 74 72 73 20 60 28 73 70 61 6e   (tx-strs `(span
1930: 20 2c 40 28 63 64 72 20 65 6c 65 6d 73 29 29 29   ,@(cdr elems)))
1940: 29 0a 20 20 60 28 61 20 5b 5b 68 72 65 66 20 2c  ).  `(a [[href ,
1950: 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 77  (string-append w
1960: 65 62 2d 72 6f 6f 74 20 73 72 63 29 5d 20 5b 74  eb-root src)] [t
1970: 69 74 6c 65 20 2c 74 69 74 6c 65 5d 5d 20 2c 40  itle ,title]] ,@
1980: 28 63 64 72 20 65 6c 65 6d 73 29 29 29 0a 0a 3b  (cdr elems)))..;
1990: 3b 20 54 68 65 72 65 20 69 73 20 6e 6f 20 77 61  ; There is no wa
19a0: 79 20 69 6e 20 76 61 6e 69 6c 6c 61 20 43 53 53  y in vanilla CSS
19b0: 20 74 6f 20 63 72 65 61 74 65 20 61 20 73 65 6c   to create a sel
19c0: 65 63 74 6f 72 20 66 6f 72 20 e2 80 9c 70 20 74  ector for ...p t
19d0: 61 67 73 20 74 68 61 74 20 63 6f 6e 74 61 69 6e  ags that contain
19e0: 0a 3b 3b 20 61 20 73 70 61 6e 20 6f 66 20 63 6c  .;; a span of cl
19f0: 61 73 73 20 e2 80 98 6e 65 77 74 68 6f 75 67 68  ass ...newthough
1a00: 74 e2 80 99 e2 80 9d 2e 20 53 6f 20 77 65 20 63  t....... So we c
1a10: 61 6e 20 68 61 6e 64 6c 65 20 69 74 20 61 74 20  an handle it at 
1a20: 74 68 65 20 50 6f 6c 6c 65 6e 20 70 72 6f 63 65  the Pollen proce
1a30: 73 73 69 6e 67 20 6c 65 76 65 6c 2e 0a 28 64 65  ssing level..(de
1a40: 66 69 6e 65 20 28 64 65 74 65 63 74 2d 6e 65 77  fine (detect-new
1a50: 74 68 6f 75 67 68 74 73 20 62 6c 6f 63 6b 2d 78  thoughts block-x
1a60: 70 72 29 0a 20 20 28 64 65 66 69 6e 65 20 28 69  pr).  (define (i
1a70: 73 2d 6e 65 77 74 68 6f 75 67 68 74 3f 20 74 78  s-newthought? tx
1a80: 29 20 3b 20 48 65 6c 70 65 72 20 66 75 6e 63 74  ) ; Helper funct
1a90: 69 6f 6e 0a 20 20 20 20 28 61 6e 64 20 28 74 78  ion.    (and (tx
1aa0: 65 78 70 72 3f 20 74 78 29 0a 20 20 20 20 20 20  expr? tx).      
1ab0: 20 20 20 28 65 71 3f 20 27 73 70 61 6e 20 28 67     (eq? 'span (g
1ac0: 65 74 2d 74 61 67 20 74 78 29 29 0a 20 20 20 20  et-tag tx)).    
1ad0: 20 20 20 20 20 28 61 74 74 72 73 2d 68 61 76 65       (attrs-have
1ae0: 2d 6b 65 79 3f 20 74 78 20 27 63 6c 61 73 73 29  -key? tx 'class)
1af0: 0a 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e  .         (strin
1b00: 67 3d 3f 20 22 6e 65 77 74 68 6f 75 67 68 74 22  g=? "newthought"
1b10: 20 28 61 74 74 72 2d 72 65 66 20 74 78 20 27 63   (attr-ref tx 'c
1b20: 6c 61 73 73 29 29 29 29 0a 20 20 28 69 66 20 28  lass)))).  (if (
1b30: 61 6e 64 20 28 65 71 3f 20 28 67 65 74 2d 74 61  and (eq? (get-ta
1b40: 67 20 62 6c 6f 63 6b 2d 78 70 72 29 20 27 70 29  g block-xpr) 'p)
1b50: 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 73 2d  .           (is-
1b60: 6e 65 77 74 68 6f 75 67 68 74 3f 20 28 66 69 72  newthought? (fir
1b70: 73 74 20 28 67 65 74 2d 65 6c 65 6d 65 6e 74 73  st (get-elements
1b80: 20 62 6c 6f 63 6b 2d 78 70 72 29 29 29 29 0a 20   block-xpr)))). 
1b90: 20 20 20 20 20 28 61 74 74 72 2d 73 65 74 20 62       (attr-set b
1ba0: 6c 6f 63 6b 2d 78 70 72 20 27 63 6c 61 73 73 20  lock-xpr 'class 
1bb0: 22 70 61 75 73 65 2d 62 65 66 6f 72 65 22 29 0a  "pause-before").
1bc0: 20 20 20 20 20 20 62 6c 6f 63 6b 2d 78 70 72 29        block-xpr)
1bd0: 29 0a 0a 3b 3b 20 4c 69 6e 6b 73 0a 3b 3b 0a 3b  )..;; Links.;;.;
1be0: 3b 20 50 72 69 76 61 74 65 20 75 73 65 3a 0a 28  ; Private use:.(
1bf0: 64 65 66 69 6e 65 20 6c 69 6e 6b 2d 75 72 6c 73  define link-urls
1c00: 20 28 6d 61 6b 65 2d 68 61 73 68 29 29 0a 0a 3b   (make-hash))..;
1c10: 3b 20 50 72 6f 76 69 64 65 64 20 74 61 67 20 66  ; Provided tag f
1c20: 75 6e 63 74 69 6f 6e 73 3a 0a 28 64 65 66 69 6e  unctions:.(defin
1c30: 65 20 28 68 74 6d 6c 2d 6c 69 6e 6b 20 2e 20 61  e (html-link . a
1c40: 72 67 73 29 0a 20 20 60 28 6c 69 6e 6b 26 20 5b  rgs).  `(link& [
1c50: 5b 72 65 66 20 2c 28 66 6f 72 6d 61 74 20 22 7e  [ref ,(format "~
1c60: 61 22 20 28 66 69 72 73 74 20 61 72 67 73 29 29  a" (first args))
1c70: 5d 5d 20 2c 40 28 72 65 73 74 20 61 72 67 73 29  ]] ,@(rest args)
1c80: 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 68 74 6d  ))..(define (htm
1c90: 6c 2d 75 72 6c 20 72 65 66 20 75 72 6c 29 0a 20  l-url ref url). 
1ca0: 20 28 68 61 73 68 2d 73 65 74 21 20 6c 69 6e 6b   (hash-set! link
1cb0: 2d 75 72 6c 73 20 28 66 6f 72 6d 61 74 20 22 7e  -urls (format "~
1cc0: 61 22 20 72 65 66 29 20 75 72 6c 29 20 22 22 29  a" ref) url) "")
1cd0: 0a 0a 3b 3b 20 50 72 69 76 61 74 65 20 75 73 65  ..;; Private use
1ce0: 20 28 62 79 20 68 74 6d 6c 2d 72 6f 6f 74 29 3a   (by html-root):
1cf0: 0a 28 64 65 66 69 6e 65 20 28 64 65 63 6f 64 65  .(define (decode
1d00: 2d 6c 69 6e 6b 2d 75 72 6c 73 20 74 78 29 0a 20  -link-urls tx). 
1d10: 20 28 63 6f 6e 64 20 5b 28 65 71 3f 20 28 67 65   (cond [(eq? (ge
1d20: 74 2d 74 61 67 20 74 78 29 20 27 6c 69 6e 6b 26  t-tag tx) 'link&
1d30: 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a  ).         (let*
1d40: 20 28 5b 75 72 6c 2d 72 65 66 20 28 61 74 74 72   ([url-ref (attr
1d50: 2d 72 65 66 20 74 78 20 27 72 65 66 29 5d 0a 20  -ref tx 'ref)]. 
1d60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b                 [
1d70: 75 72 6c 20 28 6f 72 20 28 68 61 73 68 2d 72 65  url (or (hash-re
1d80: 66 20 6c 69 6e 6b 2d 75 72 6c 73 20 75 72 6c 2d  f link-urls url-
1d90: 72 65 66 20 23 66 29 0a 20 20 20 20 20 20 20 20  ref #f).        
1da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1db0: 20 28 66 6f 72 6d 61 74 20 22 4d 69 73 73 69 6e   (format "Missin
1dc0: 67 20 72 65 66 65 72 65 6e 63 65 3a 20 7e 61 22  g reference: ~a"
1dd0: 20 75 72 6c 2d 72 65 66 29 29 5d 29 0a 20 20 20   url-ref))]).   
1de0: 20 20 20 20 20 20 20 20 60 28 61 20 5b 5b 68 72          `(a [[hr
1df0: 65 66 20 2c 75 72 6c 5d 5d 20 2c 40 28 67 65 74  ef ,url]] ,@(get
1e00: 2d 65 6c 65 6d 65 6e 74 73 20 74 78 29 29 29 5d  -elements tx)))]
1e10: 0a 20 20 20 20 20 20 20 20 5b 65 6c 73 65 20 74  .        [else t
1e20: 78 5d 29 29 0a 0a 3b 3b 20 46 6f 6f 74 6e 6f 74  x]))..;; Footnot
1e30: 65 73 0a 3b 3b 0a 3b 3b 20 50 72 69 76 61 74 65  es.;;.;; Private
1e40: 20 75 73 65 3a 0a 28 64 65 66 69 6e 65 20 66 6e   use:.(define fn
1e50: 2d 6e 61 6d 65 73 20 6e 75 6c 6c 29 0a 28 64 65  -names null).(de
1e60: 66 69 6e 65 20 66 6e 2d 64 65 66 69 6e 69 74 69  fine fn-definiti
1e70: 6f 6e 73 20 28 6d 61 6b 65 2d 68 61 73 68 29 29  ons (make-hash))
1e80: 0a 28 64 65 66 69 6e 65 20 28 66 6e 2d 69 64 20  .(define (fn-id 
1e90: 78 29 20 28 68 65 72 65 2d 69 64 20 28 73 74 72  x) (here-id (str
1ea0: 69 6e 67 2d 61 70 70 65 6e 64 20 78 20 22 5f 66  ing-append x "_f
1eb0: 6e 22 29 29 29 0a 28 64 65 66 69 6e 65 20 28 66  n"))).(define (f
1ec0: 6e 64 65 66 2d 69 64 20 78 29 20 28 68 65 72 65  ndef-id x) (here
1ed0: 2d 69 64 20 28 73 74 72 69 6e 67 2d 61 70 70 65  -id (string-appe
1ee0: 6e 64 20 78 20 22 5f 66 6e 64 65 66 22 29 29 29  nd x "_fndef")))
1ef0: 0a 0a 3b 3b 20 50 72 6f 76 69 64 65 64 20 66 6f  ..;; Provided fo
1f00: 6f 74 6e 6f 74 65 20 74 61 67 20 66 75 6e 63 74  otnote tag funct
1f10: 69 6f 6e 73 3a 0a 28 64 65 66 69 6e 65 20 28 68  ions:.(define (h
1f20: 74 6d 6c 2d 66 6e 20 2e 20 61 72 67 73 29 0a 20  tml-fn . args). 
1f30: 20 28 64 65 66 69 6e 65 20 6e 61 6d 65 20 28 66   (define name (f
1f40: 6f 72 6d 61 74 20 22 7e 61 22 20 28 66 69 72 73  ormat "~a" (firs
1f50: 74 20 61 72 67 73 29 29 29 0a 20 20 28 73 65 74  t args))).  (set
1f60: 21 20 66 6e 2d 6e 61 6d 65 73 20 28 63 6f 6e 73  ! fn-names (cons
1f70: 20 6e 61 6d 65 20 66 6e 2d 6e 61 6d 65 73 29 29   name fn-names))
1f80: 0a 20 20 28 6c 65 74 2a 20 28 5b 64 65 66 2d 61  .  (let* ([def-a
1f90: 6e 63 68 6f 72 6c 69 6e 6b 20 28 73 74 72 69 6e  nchorlink (strin
1fa0: 67 2d 61 70 70 65 6e 64 20 22 23 22 20 28 66 6e  g-append "#" (fn
1fb0: 64 65 66 2d 69 64 20 6e 61 6d 65 29 29 5d 0a 20  def-id name))]. 
1fc0: 20 20 20 20 20 20 20 20 5b 6e 74 68 2d 72 65 66          [nth-ref
1fd0: 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 2d          (number-
1fe0: 3e 73 74 72 69 6e 67 20 28 63 6f 75 6e 74 20 28  >string (count (
1ff0: 63 75 72 72 79 20 73 74 72 69 6e 67 3d 3f 20 6e  curry string=? n
2000: 61 6d 65 29 20 66 6e 2d 6e 61 6d 65 73 29 29 5d  ame) fn-names))]
2010: 0a 20 20 20 20 20 20 20 20 20 5b 72 65 66 2d 69  .         [ref-i
2020: 64 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e  d         (strin
2030: 67 2d 61 70 70 65 6e 64 20 28 66 6e 2d 69 64 20  g-append (fn-id 
2040: 6e 61 6d 65 29 20 6e 74 68 2d 72 65 66 29 5d 0a  name) nth-ref)].
2050: 20 20 20 20 20 20 20 20 20 5b 66 6e 2d 6e 75 6d           [fn-num
2060: 62 65 72 20 20 20 20 20 20 28 2b 20 31 20 28 69  ber      (+ 1 (i
2070: 6e 64 65 78 2d 6f 66 20 28 72 65 6d 6f 76 65 2d  ndex-of (remove-
2080: 64 75 70 6c 69 63 61 74 65 73 20 28 72 65 76 65  duplicates (reve
2090: 72 73 65 20 66 6e 2d 6e 61 6d 65 73 29 29 20 6e  rse fn-names)) n
20a0: 61 6d 65 29 29 5d 0a 20 20 20 20 20 20 20 20 20  ame))].         
20b0: 5b 72 65 66 2d 74 65 78 74 20 20 20 20 20 20 20  [ref-text       
20c0: 28 66 6f 72 6d 61 74 20 22 28 7e 61 29 22 20 66  (format "(~a)" f
20d0: 6e 2d 6e 75 6d 62 65 72 29 5d 29 0a 20 20 20 20  n-number)]).    
20e0: 28 63 6f 6e 64 20 5b 28 65 6d 70 74 79 3f 20 28  (cond [(empty? (
20f0: 72 65 73 74 20 61 72 67 73 29 29 20 60 28 73 75  rest args)) `(su
2100: 70 20 28 61 20 5b 5b 68 72 65 66 20 2c 64 65 66  p (a [[href ,def
2110: 2d 61 6e 63 68 6f 72 6c 69 6e 6b 5d 20 5b 69 64  -anchorlink] [id
2120: 20 2c 72 65 66 2d 69 64 5d 5d 20 2c 72 65 66 2d   ,ref-id]] ,ref-
2130: 74 65 78 74 29 29 5d 0a 20 20 20 20 20 20 20 20  text))].        
2140: 20 20 5b 65 6c 73 65 20 60 28 73 70 61 6e 20 5b    [else `(span [
2150: 5b 63 6c 61 73 73 20 22 6c 69 6e 6b 73 2d 66 6f  [class "links-fo
2160: 6f 74 6e 6f 74 65 22 5d 20 5b 69 64 20 2c 72 65  otnote"] [id ,re
2170: 66 2d 69 64 5d 5d 0a 20 20 20 20 20 20 20 20 20  f-id]].         
2180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40                ,@
2190: 28 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20  (rest args).    
21a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
21b0: 20 20 20 28 73 75 70 20 28 61 20 5b 5b 68 72 65     (sup (a [[hre
21c0: 66 20 2c 64 65 66 2d 61 6e 63 68 6f 72 6c 69 6e  f ,def-anchorlin
21d0: 6b 5d 5d 20 2c 72 65 66 2d 74 65 78 74 29 29 29  k]] ,ref-text)))
21e0: 5d 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 68  ])))..(define (h
21f0: 74 6d 6c 2d 66 6e 64 65 66 20 2e 20 65 6c 65 6d  tml-fndef . elem
2200: 73 29 0a 20 20 28 68 61 73 68 2d 73 65 74 21 20  s).  (hash-set! 
2210: 66 6e 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28  fn-definitions (
2220: 66 6f 72 6d 61 74 20 22 7e 61 22 20 28 66 69 72  format "~a" (fir
2230: 73 74 20 65 6c 65 6d 73 29 29 20 28 72 65 73 74  st elems)) (rest
2240: 20 65 6c 65 6d 73 29 29 29 0a 0a 3b 3b 20 50 72   elems)))..;; Pr
2250: 69 76 61 74 65 20 75 73 65 20 28 62 79 20 68 74  ivate use (by ht
2260: 6d 6c 2d 72 6f 6f 74 29 0a 28 64 65 66 69 6e 65  ml-root).(define
2270: 20 28 68 74 6d 6c 2d 66 6f 6f 74 6e 6f 74 65 2d   (html-footnote-
2280: 62 6c 6f 63 6b 29 0a 20 20 28 64 65 66 69 6e 65  block).  (define
2290: 20 6e 6f 74 65 2d 69 74 65 6d 73 0a 20 20 20 20   note-items.    
22a0: 28 66 6f 72 2f 6c 69 73 74 20 28 5b 66 6e 2d 6e  (for/list ([fn-n
22b0: 61 6d 65 20 28 69 6e 2d 6c 69 73 74 20 28 72 65  ame (in-list (re
22c0: 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 20  move-duplicates 
22d0: 28 72 65 76 65 72 73 65 20 66 6e 2d 6e 61 6d 65  (reverse fn-name
22e0: 73 29 29 29 5d 29 0a 20 20 20 20 20 20 28 6c 65  s)))]).      (le
22f0: 74 2a 20 28 5b 64 65 66 69 6e 69 74 69 6f 6e 2d  t* ([definition-
2300: 74 65 78 74 20 28 6f 72 20 28 68 61 73 68 2d 72  text (or (hash-r
2310: 65 66 20 66 6e 2d 64 65 66 69 6e 69 74 69 6f 6e  ef fn-definition
2320: 73 20 66 6e 2d 6e 61 6d 65 20 23 66 29 0a 20 20  s fn-name #f).  
2330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2350: 27 28 28 69 20 22 4d 69 73 73 69 6e 67 20 66 6f  '((i "Missing fo
2360: 6f 74 6e 6f 74 65 20 64 65 66 69 6e 69 74 69 6f  otnote definitio
2370: 6e 21 22 29 29 29 5d 0a 20 20 20 20 20 20 20 20  n!")))].        
2380: 20 20 20 20 20 5b 62 61 63 6b 72 65 66 2d 63 6f       [backref-co
2390: 75 6e 74 20 28 63 6f 75 6e 74 20 28 63 75 72 72  unt (count (curr
23a0: 79 20 73 74 72 69 6e 67 3d 3f 20 66 6e 2d 6e 61  y string=? fn-na
23b0: 6d 65 29 20 66 6e 2d 6e 61 6d 65 73 29 5d 0a 20  me) fn-names)]. 
23c0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 62 61 63              [bac
23d0: 6b 72 65 66 73 20 28 66 6f 72 2f 6c 69 73 74 20  krefs (for/list 
23e0: 28 5b 66 6e 72 65 66 2d 6e 75 6d 20 28 69 6e 2d  ([fnref-num (in-
23f0: 72 61 6e 67 65 20 62 61 63 6b 72 65 66 2d 63 6f  range backref-co
2400: 75 6e 74 29 5d 29 0a 20 20 20 20 20 20 20 20 20  unt)]).         
2410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2420: 60 28 61 20 5b 5b 68 72 65 66 20 2c 28 73 74 72  `(a [[href ,(str
2430: 69 6e 67 2d 61 70 70 65 6e 64 20 22 23 22 0a 20  ing-append "#". 
2440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2470: 20 20 20 28 66 6e 2d 69 64 20 66 6e 2d 6e 61 6d     (fn-id fn-nam
2480: 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  e).             
2490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
24a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
24b0: 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22         (format "
24c0: 7e 61 22 20 28 2b 20 31 20 66 6e 72 65 66 2d 6e  ~a" (+ 1 fnref-n
24d0: 75 6d 29 29 29 5d 5d 20 22 e2 86 a9 22 29 29 5d  um)))]] "..."))]
24e0: 29 0a 20 20 20 20 20 20 20 20 60 28 6c 69 20 5b  ).        `(li [
24f0: 5b 69 64 20 2c 28 66 6e 64 65 66 2d 69 64 20 66  [id ,(fndef-id f
2500: 6e 2d 6e 61 6d 65 29 5d 5d 20 2c 40 64 65 66 69  n-name)]] ,@defi
2510: 6e 69 74 69 6f 6e 2d 74 65 78 74 20 2c 40 62 61  nition-text ,@ba
2520: 63 6b 72 65 66 73 29 29 29 29 0a 20 20 28 63 6f  ckrefs)))).  (co
2530: 6e 64 20 5b 28 6e 75 6c 6c 3f 20 6e 6f 74 65 2d  nd [(null? note-
2540: 69 74 65 6d 73 29 20 22 22 5d 0a 20 20 20 20 20  items) ""].     
2550: 20 20 20 5b 65 6c 73 65 20 60 28 73 65 63 74 69     [else `(secti
2560: 6f 6e 20 28 28 63 6c 61 73 73 20 22 66 6f 6f 74  on ((class "foot
2570: 6e 6f 74 65 73 22 29 29 20 28 68 72 29 20 28 6f  notes")) (hr) (o
2580: 6c 20 2c 40 6e 6f 74 65 2d 69 74 65 6d 73 29 29  l ,@note-items))
2590: 5d 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 68 74  ]))..(define (ht
25a0: 6d 6c 2d 6e 6f 74 65 20 61 74 74 72 73 20 65 6c  ml-note attrs el
25b0: 65 6d 73 29 0a 20 20 28 74 78 65 78 70 72 20 27  ems).  (txexpr '
25c0: 6e 6f 74 65 20 61 74 74 72 73 20 28 64 65 63 6f  note attrs (deco
25d0: 64 65 2d 68 61 72 64 77 72 61 70 70 65 64 2d 70  de-hardwrapped-p
25e0: 61 72 61 67 72 61 70 68 73 20 65 6c 65 6d 73 29  aragraphs elems)
25f0: 29 29 0a                                         )).