Documentation Source Text

Check-in [03b286c8ac]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Remove some unnecessary leading whitespace from generated page content.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 03b286c8acb6d937263047effc9d873e2fe83034
User & Date: drh 2016-09-02 15:25:53
Context
2016-09-02
16:30
Remove unnecessary javascript from the header. Improvements to rendering of C APIs. check-in: 4180b2cf6f user: drh tags: trunk
15:25
Remove some unnecessary leading whitespace from generated page content. check-in: 03b286c8ac user: drh tags: trunk
14:38
Restructure the website to be more mobile friendly. Put CSS into a separate sqlite.css file. Use responsive layout techniques. This is a work-in-progress. check-in: 8e1edafe16 user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to pages/fancyformat.tcl.

186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
      </script>
    }]
    regsub -all {\n\s+} $zToc "\n" zToc
  }

  # Format the document text to return.
  #
  set zRet [subst {
    <div class=fancy>
    <div class=nosearch>
      <div class="fancy_title">
        $title
      </div>
      $zToc
    </div>
    [hdom_innerhtml [$dom root]]
  }]
  $dom destroy
  return $zRet
}







|







|
|



186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
      </script>
    }]
    regsub -all {\n\s+} $zToc "\n" zToc
  }

  # Format the document text to return.
  #
  set zRet [hd_trim [subst {
    <div class=fancy>
    <div class=nosearch>
      <div class="fancy_title">
        $title
      </div>
      $zToc
    </div>
  }]]\n
  append zRet [hdom_innerhtml [$dom root]]
  $dom destroy
  return $zRet
}

Changes to wrap.tcl.

55
56
57
58
59
60
61







62
63
64
65
66
67
68
...
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
  DELETE FROM page;
}

# Load the syntax diagram linkage data
#
source $DOC/art/syntax/syntax_linkage.tcl









# This is the first-pass implementation of procedure that renders
# hyperlinks.  Do not even bother trying to do anything during the
# first pass.  We have to collect keyword information before the
# hyperlinks are meaningful.  
#
proc hd_resolve {text} {
................................................................................

  puts $fd [document_header $title $path]
  putsin4 $fd {
    <div class=startsearch></div>
  }
  if {$srcfile!=""} {
    if {[file exists DRAFT]} {
      set hd(footer) {
        <p align="center"><font size="6" color="red">*** DRAFT ***</font></p>
      }
    } else {
      set hd(footer) {}
    }
  } else {
    set hd(enable-main) $saved_enable
  }
}







>
>
>
>
>
>
>







 







|

|







55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
...
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
  DELETE FROM page;
}

# Load the syntax diagram linkage data
#
source $DOC/art/syntax/syntax_linkage.tcl

# Utility proc that removes excess leading whitespace.
#
proc hd_trim {txt} {
  regsub -all {\n\s+} $txt "\n" txt
  regsub -all {\s+\n} $txt "\n" txt
  return [string trim $txt]
}

# This is the first-pass implementation of procedure that renders
# hyperlinks.  Do not even bother trying to do anything during the
# first pass.  We have to collect keyword information before the
# hyperlinks are meaningful.  
#
proc hd_resolve {text} {
................................................................................

  puts $fd [document_header $title $path]
  putsin4 $fd {
    <div class=startsearch></div>
  }
  if {$srcfile!=""} {
    if {[file exists DRAFT]} {
      set hd(footer) [hd_trim {
        <p align="center"><font size="6" color="red">*** DRAFT ***</font></p>
      }]
    } else {
      set hd(footer) {}
    }
  } else {
    set hd(enable-main) $saved_enable
  }
}