Remove trailing whitespace, restore last blank line

This commit is contained in:
HummyPkg 2020-06-18 00:57:22 +01:00
parent 42cf8bf238
commit 0ef47da7b6
1 changed files with 9 additions and 6 deletions

View File

@ -104,7 +104,7 @@ set filecount 0
proc entry {file} {{i 0}} { proc entry {file} {{i 0}} {
global dircount filecount dinuse global dircount filecount dinuse
set bfile [file tail $file] set bfile [file tail $file]
regsub -all " +" $bfile "" tbfile regsub -all " +" $bfile "" tbfile
if {[string index $bfile 0] == "\025"} { if {[string index $bfile 0] == "\025"} {
@ -320,7 +320,7 @@ proc s_file_stat {a b attr} {
} }
proc s_time {a b} { proc s_time {a b} {
tailcall s_file_stat $a $b mtime tailcall s_file_stat $a $b mtime
} }
proc s_size {a b} { proc s_size {a b} {
@ -348,9 +348,11 @@ Directories: $dircount, Files: $filecount
# Sort icons # Sort icons
puts "<div id=sortdiv>" puts "<div id=sortdiv>"
set sortlist { set sortlist {
{0 sort_name name {Alphabetical order A->Z}} {0 sort_name name {Alphabetical order A->Z}}
{1 sort_date date {Oldest first}} {2 sort_date reverse-date {Newest first}} {1 sort_date date {Oldest first}}
{3 sort_size size {Smallest first}} {4 sort_size reverse-size {Largest first}}} {2 sort_date reverse-date {Newest first}}
{3 sort_size size {Smallest first}}
{4 sort_size reverse-size {Largest first}}}
puts " puts "
Sort by: " Sort by: "
foreach sl $sortlist { foreach sl $sortlist {
@ -368,7 +370,7 @@ foreach sl $sortlist {
puts "<span title=\"$tt\">" puts "<span title=\"$tt\">"
set ket "span" set ket "span"
} }
puts "<img class=va border=0 src=\"/img/$img.gif\"> $descr$tag</$ket>" puts "<img class=va border=0 src=/img/$img.gif> $descr$tag</$ket>"
} }
puts "</div>" puts "</div>"
@ -459,3 +461,4 @@ if {[llength $plugins(buttons)]} {
puts "</div>" puts "</div>"
footer footer