shithub: scric

Info  •  Files  •  Log  •  Branches

fix schtml output

--- a/schtml

+++ b/schtml

@@ -22,8 +22,6 @@

 if (~ $#file 0) { echo needs a file; exit }

 if (! test -f $file) { echo bad file; exit }

-

-

 ln = `{ echo `{ wc -l < $file} + 1 | bc}

 fn rl { sed -n $x^p $file }

@@ -59,8 +57,8 @@

 fn caser {

   switch($1) {

-    case @* ; echo '<p class="char">'; chardent ; echo -n $"ch^: ; echo '</p>'; sw = d

-    case '#'* ; echo '<h2>'; chardent ; echo -n $"ch ;echo '</h2>'; echo

+    case @* ; echo '<p class="char">'; chardent ; echo $"ch^: ; echo '</p>'; sw = d

+    case '#'* ; echo '<h2>'; chardent ; echo $"ch ;echo '</h2>'; echo

     case '' ; sw = m

     case * 

@@ -85,9 +83,13 @@

 # TITLE DESIGN

 x= 1; rl = `{rl}

-chardent; echo '<h1>' $"ch '</h1>'

+echo '<h1>' 

+chardent; echo $"ch 

+echo '</h1>'

 x= 2; rl = `{rl}

-chardent; echo '<p>' $"ch '</p>'

+ echo '<p>'

+chardent;echo $"ch 

+echo '</p>'

 echo; echo; echo

 # BEGIN

-- 

⑨