##+##########################################################################
#
# nominatim.tsh -- quick demo on how map::geocode::nominatim works
# by Keith Vetter 2013-03-12
#

package require Tk
package require map::geocode::nominatim

set S(intro) {
Welcome to Nominatim Demo

Nominatim is a web service for resolving geographical names using OpenStreetMap data. This program demonstrates how to use the map::geocode::nominatim package to query this web service.

Enter any location in the location box and press search button. The Nominatim service will be queried and the result displayed here.

Search terms are processed left to right, from most to least specific.

So 'pilkington avenue, birmingham' will work but 'birmingham, pilkington avenue' will not.

Commas are optional, but improve performance by reducing the complexity of the search.    
    
For more info visit http://wiki.openstreetmap.org/wiki/Nominatim.
}

proc DoDisplay {} {
    global S
    
    wm title . "Nominatim Demo"
    label .l -text "Location:"
    entry .e -textvariable ::S(location)
    ::ttk::button .go -text "Search" -command Go

    frame .f -bd 2 -relief sunken
    text .t -width 100 -wrap word -fg red -bd 0 -yscroll [list .sb set]
    ::ttk::scrollbar .sb -orient vertical -command [list .t yview]
    pack .sb -in .f -side right -fill y
    pack .t -in .f -side left -fill both -expand 1
    
    grid .l .e .go -sticky ew
    grid .f - - -sticky enws
    grid columnconfigure . 1 -weight 1
    grid rowconfigure . 1 -weight 1

    .t insert end $::S(intro)
    bind all <Return> Go
}
proc Go {} {
    .t insert 0.0 "querying nominatim...";
    update
    requestor search $::S(location)
}
proc MyCallBack {args} {
    set ::S(result) $args
    ShowData
}
proc ShowData {} {
    .t delete 0.0 end
    .t config -fg black -wrap char

    set cnt [llength [lindex $::S(result) 0]]
    .t insert end [format "\nFound %d result%s\n\n" $cnt [expr {$cnt == 1 ? "" : "s"}]]
    foreach wrapper $::S(result) {
        for {set i 0} {$i < [llength $wrapper]} {incr i} {
            .t insert end "Location #[expr {$i+1}]\n"
            set myDict [lindex $wrapper $i]
            set maxLen 0
            foreach key [dict keys $myDict] { set maxLen [expr {max($maxLen,[string length $key])}]}
            foreach key [lsort [dict keys $myDict]] {
                set value [dict get $myDict $key]
                .t insert end [format "  %-${maxLen}s : %s\n" $key $value]
            }
            if {[dict exists $myDict lat] && [dict exists $myDict lon]} {
                set value [format "%g %g" [dict get $myDict lat] [dict get $myDict lon]]
                .t insert end [format "  %-${maxLen}s : %s\n" "lat_lon" $value]
            }
            .t insert end "\n"
        }
    }
}
################################################################
set S(location) "Mount Hamilton, CA"

catch {rename requestor {}}
::map::geocode::nominatim requestor -callback MyCallBack
DoDisplay
return