Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| 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: |
03b286c8acb6d937263047effc9d873e |
| User & Date: | drh 2016-09-02 15:25:53 |
|
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 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 } } |