hummypkg/webif
5
3
Fork 4
Code Issues Pull Requests Releases 1 Activity

Add tooltips for sort orders

Browse Source 
Also generalise the file sort function to allow sorting by any quantity returned by `[file stat]`
This commit is contained in:
df 2020-06-16 04:12:08 +00:00 committed by HummyPkg
parent 9cf915e5f7
commit 42cf8bf238
1 changed files with 18 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
webif/html/browse/index.jim
View File

@ -292,7 +292,7 @@ if {$parent ne ""} {
"
}
proc s_time {a b} {
proc s_file_stat {a b attr} {
global dir
set a "$dir/$a"
@ -310,40 +310,21 @@ proc s_time {a b} {
}
if {[catch {file stat $a l}]} { return 0}
set at $l(mtime)
set at $l($attr)
if {[catch {file stat $b l}]} { return 0}
set bt $l(mtime)
set bt $l($attr)
if {$at < $bt} { return -1 }
if {$at > $bt} { return 1 }
return 0
}
proc s_size {a b} {
global dir
set a "$dir/$a"
set b "$dir/$b"
set ad [file isdirectory $a]
set bd [file isdirectory $b]
if {$ad && !$bd} { return -1 }
if {$bd && !$ad} { return 1 }
if {$ad && $bd} {
if {$a < $b} { return -1 }
if {$a > $b} { return 1 }
return 0
proc s_time {a b} {
tailcall s_file_stat $a $b mtime
}
if {[catch {file stat $a l}]} { return 0}
set as $l(size)
if {[catch {file stat $b l}]} { return 0}
set bs $l(size)
if {$as < $bs} { return -1 }
if {$as > $bs} { return 1 }
return 0
proc s_size {a b} {
tailcall s_file_stat $a $b size
}
set files [readdir -nocomplain $dir]
@ -367,26 +348,27 @@ Directories: $dircount, Files: $filecount
# Sort icons
puts "<div id=sortdiv>"
set sortlist {
{0 sort_name name}
{1 sort_date date} {2 sort_date reverse-date}
{3 sort_size size} {4 sort_size reverse-size}}
{0 sort_name name {Alphabetical order A->Z}}
{1 sort_date date {Oldest first}} {2 sort_date reverse-date {Newest first}}
{3 sort_size size {Smallest first}} {4 sort_size reverse-size {Largest first}}}
puts "
Sort by: "
foreach sl $sortlist {
lassign $sl index img descr
lassign $sl index img descr tt
if {$index} { puts " | " }
set tag " (current)"
if {$order != $index} {
set qs [regsub -all {&order=[[[:digit:]]+} $env(QUERY_STRING) ""]
puts "<a href=\"$env(SCRIPT_NAME)?$qs&order=$index\">"
puts "<a href=\"$env(SCRIPT_NAME)?$qs&order=$index\" title=\"$tt\">"
set tag ""
set ket "a"
} else {
puts "<span title=\"$tt\">"
set ket "span"
}
puts "<img class=va border=0 src=/img/$img.gif> $descr$tag"
if {$order != $index} {
puts "</a>"
}
puts "<img class=va border=0 src=\"/img/$img.gif\"> $descr$tag</$ket>"
}
puts "</div>"