Version 2 of Wikit Reference Formatting

Updated 2003-08-28 13:58:21

This page describes modifications to format.tcl to allow labels to be specified in references to internal and external pages.

The new formatting rules for references are:

1. You can refer to another page by putting its name in square brackets like this: [TITLE]. To specify a label use: [TITLE|LABEL].
2. URLs will automatically be recognized and converted into a hyperlink: http://your.site/contents.html . To specify a label use http://your.site/contents.html |LABEL (without the space before the |).

The patch is against Wikit version: 2003/08/20 19:06:22 68261-69214

Warning: I haven't programmed regularly for the last 5 years, still don't fully understand the data structures format.tcl uses, and haven't yet adequately tested the patch. Test and use at your own peril. :-)

Patch

---

 417a418,439
 >     proc TextToTitle {text} {
 >         set result $text
 >         set index [string first "|" $text]
 >         
 >         if {$index > 0} {
 >             set result [string range $text 0 [expr $index - 1]]
 >         }
 >         return $result
 >     }
 > 
 > 
 >     proc TextToLabel {text} {
 >         set result $text
 >         set index [string first "|" $text]
 >         
 >         if {$index > 0} {
 >             set result [string range $text [expr $index + 1] [expr [string length $text] - 1]]
 >         }
 >         return $result
 >     }
 > 
 >     
 469a492,493
 >             set title [TextToTitle $text]
 >             set label [TextToLabel $text]
 478c502
 <                     lappend urls g $n $text
 ---
 >                     lappend urls g $n $title
 483c507
 <                         lappend result $text $tags
 ---
 >                         lappend result $label $tags
 487c511
 <                     set info [lindex [$ip $text] 2]
 ---
 >                     set info [lindex [$ip $title] 2]
 490c514
 <                         lappend result \[ $tags $text $base \] $tags
 ---
 >                         lappend result \[ $tags $label $base \] $tags
 494c518
 <                     lappend result $text $tags
 ---
 >                     lappend result $label $tags
 498c522
 <                     lappend urls u $n $text
 ---
 >                     lappend urls u $n $title
 507c531
 <                     lappend result $text $tags
 ---
 >                     lappend result $label $tags
 635a660,661
 >             set title [TextToTitle $text]
 >             set label [TextToLabel $text]
 652c678
 <                     set info [$ip $text]
 ---
 >                     set info [$ip $title]
 666c692
 <                                 [quote $text] $html_frag(_a)
 ---
 >                                 [quote $label] $html_frag(_a)
 673c699
 <                             [quote $text] \
 ---
 >                             [quote $label] \
 678,679c704,705
 <                             $html_frag(a_) $text $html_frag(tc) \
 <                             [quote $text] $html_frag(_a)
 ---
 >                             $html_frag(a_) $title $html_frag(tc) \
 >                             [quote $label] $html_frag(_a)
 773c799,801
 <             set info [$ip $text]
 ---
 >             set title [TextToTitle $text]
 >             set label [TextToLabel $text]
 >             set info [$ip $title]

---