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 |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
03b286c8acb6d937263047effc9d873e |
| User & Date: | drh 2016-09-02 15:25:53.067 |
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
Changes to pages/fancyformat.tcl.
| ︙ | ︙ | |||
186 187 188 189 190 191 192 |
</script>
}]
regsub -all {\n\s+} $zToc "\n" zToc
}
# Format the document text to return.
#
| | > | < | 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 |
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} {
| > > > > > > > | 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 |
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} {
|
| ︙ | ︙ | |||
406 407 408 409 410 411 412 |
puts $fd [document_header $title $path]
putsin4 $fd {
<div class=startsearch></div>
}
if {$srcfile!=""} {
if {[file exists DRAFT]} {
| | | | 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 |
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
}
}
|
| ︙ | ︙ |