list

git-svn-id: file:///raid/svn-personal/docgen/trunk@14 44bc13e5-44cb-984e-b856-1907bf1ada44

diff --git a/docgen b/docgen
index 59f2bdac7ebca2f7b81d1b859b5a0062b7d72383..2ed7e326352da98a30655ad66fa7679d9528b332 100755 (executable)
--- a/docgen
+++ b/docgen
@@ -1,7 +1,7 @@
 #!/usr/bin/env tclsh
 # $Id$
 
-set DOCGEN_VERSION "1.01"
+set DOCGEN_VERSION "1.02"
 set INPUT "docgen.conf"
 set dowhat ""
 set language "en"
@@ -152,6 +152,7 @@ proc parse_markdown {path _result} {
        set codeblock ""
        set code ""
        set ignore 0
+       set islist 0
 
        while { [gets $fid line] >= 0} {
                while { [regexp {\$TCL:([^ ]+)} "$line" -> TCL_VARNAME] } {
@@ -208,6 +209,19 @@ proc parse_markdown {path _result} {
                                set line "[regsub -all {\&} "$line" {\&}]"
                                set line "[regsub -all {<} "$line" {\&lt;}]"
                                set line "[regsub -all {>} "$line" {\&gt;}]"
+                               if { [regexp {^[ \t]*-[ \t]+(.+)$} "$line"] } {
+                                       if { "$islist" == "0" } {
+                                               set result(body) "$result(body)<ul>"
+                                       }
+                                       set blank 0
+                                       set islist 1
+                               } else {
+                                       if { "$islist" == "1" } {
+                                               set result(body) "$result(body)</ul>"
+                                       }
+                                       set islist 0
+                               }
+                               set line "[regsub -all {^[ \t]*-[ \t]+(.+)$} "$line" {<li>\1</li>}]"
                                set line "[regsub -all {\*\*\*(.+)\*\*\*} "$line" {<i><b>\1</b></i>}]"
                                set line "[regsub -all {\*\*(.+)\*\*} "$line" {<b>\1</b>}]"
                                set line "[regsub -all {\*(.+)\*} "$line" {<i>\1</i>}]"