some updates

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

diff --git a/docgen b/docgen
index bd3a7d6aabfafb08651a3389a016885394bbdf0e..c51fb3fb95a5e419fc5d2ef6468f2fb939f14b9a 100755 (executable)
--- a/docgen
+++ b/docgen
@@ -1,7 +1,7 @@
 #!/usr/bin/env tclsh
 # $Id$
 
-set DOCGEN_VERSION "1.00"
+set DOCGEN_VERSION "1.01"
 set INPUT "docgen.conf"
 set dowhat ""
 set language "en"
@@ -154,6 +154,10 @@ proc parse_markdown {path _result} {
        set ignore 0
 
        while { [gets $fid line] >= 0} {
+               while { [regexp {\$TCL:([^ ]+)} "$line" -> TCL_VARNAME] } {
+                       global $TCL_VARNAME
+                       set line "[regsub -all {\$TCL:([^ ]+)} "$line" "[set $TCL_VARNAME]"]"
+               }
                while 1 {
                        if { $codeblock != "" } {
                                if { [regexp -- {```} "$line"] } {
@@ -408,8 +412,10 @@ proc genhtml {path} {
        start_html $outfid "$title" "" "./"
        if { "$language" == "jp" } {
                puts $outfid "<h1>$title ドキュメント</h1>"
+               puts $outfid "<h2>ページリスト</h2>"
        } else {
                puts $outfid "<h1>$title Documentation</h1>"
+               puts $outfid "<h2>Page list</h2>"
        }
        global genre_
        if { [info exists genre_] } {

diff --git a/example/input/getstarted2/index.md b/example/input/getstarted2/index.md
index 92787160de951c2c3302f47997862a93d48ea1d1..d92b84033a36ac3c41670adc60db9d20acc7b798 100644 (file)
--- a/example/input/getstarted2/index.md
+++ b/example/input/getstarted2/index.md
@@ -18,6 +18,33 @@ int main(){
 }
 ```
 
+## After installing
+blah blah
+
+## Tips
+blah blah.
+
+## Tips 2
+blah blah.
+
+## Tips 3
+blah blah.
+
+## Tips 4
+blah blah.
+
+## Tips 5
+blah blah.
+
+## Tips 6
+blah blah.
+
+## Tips 7
+blah blah.
+
+## Tips 8
+blah blah.
+
 ## Links
 
 [![blah](/icon.png)](http://nishi.boats)