blob: 53d19e38f4300b99c13bf7905710dfc96b220928 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
#!/usr/bin/tclsh
# See COPYING file for copyright and license details.
package require Tk
set bins {{getgbook "Google Book ID" "Google\nBook Preview"} \
{getabook "ISBN 10" "Amazon Look\nInside The Book"} \
{getbnbook "ISBN 13" "Barnes & Noble\nBook Viewer"}}
set binselected 0
set dling 0
set manual 0
set env(PATH) "[file dirname $::argv0]:$env(PATH)"
set iconpath "[file dirname $::argv0]/icons"
proc updateStatus {chan} {
global dling
if {![eof $chan]} {
set a [gets $chan]
if { $a != "" } { .st configure -text $a }
} else {
if { ! [catch {close $chan}] } {
.st configure -text "[.input.id get] Done"
}
.dl configure -state normal -text "Download"
set dling 0
}
}
proc go {} {
global dling binselected bins
if { [.input.id get] == "" } { return }
set cmd "[lindex [lindex $bins $binselected] 0] [.input.id get]"
set dling 1
.dl configure -state disabled -text "Downloading"
.st configure -text ""
set out [open "|$cmd 2>@1" "r"]
fileevent $out readable [list updateStatus $out]
}
proc parseurl {url} {
set bookid ""
if { [string match "http*://books.google.com/*" "$url"] } {
selbin 0
if {[regexp {[&?]id=([^&]*)} $url m sub]} {
set bookid $sub
}
} elseif { [string match "http*://*amazon*/*" "$url"] } {
selbin 1
if {[regexp {/([0-9]{10})/} $url m sub]} {
set bookid $sub
}
} elseif { [string match "http*://www.barnesandnoble.com/*" "$url"] } {
selbin 2
# isbn-13 isn't included in b&n book urls, sadly
}
if { "$bookid" != "" } {
.input.id delete 0 end
.input.id insert 0 "$bookid"
}
}
proc watchsel {} {
global dling manual
if { !$dling && !$manual && \
! [catch {set sel "[clipboard get -type UTF8_STRING]"}] } {
parseurl "$sel"
}
after 500 watchsel
}
proc selbin {sel} {
global bins binselected
.binfr.$binselected configure -relief flat
set binselected $sel
.binfr.$binselected configure -relief solid
.input.lab configure -text [lindex [lindex $bins $sel] 1]
}
frame .input
label .input.lab
entry .input.id -width 14
frame .binfr
for {set i 0} {$i < [llength $bins]} {incr i} {
set b [lindex $bins $i]
set binname [lindex $b 0]
if { [catch {image create photo im$i -file "$iconpath/$binname.gif"}] } {
image create photo im$i
}
button .binfr.$i -text [lindex $b 2] -image im$i \
-command "selbin $i" -compound top -relief flat
pack .binfr.$i -side left
bind .binfr.$i <Key> {set manual 1}
bind .binfr.$i <Button> {set manual 1}
}
.binfr.$binselected invoke
button .dl -text "Download" -command go
label .st
pack .input.lab -side left
pack .input.id
pack .binfr .input .dl .st
bind . <Return> go
bind .input.id <Key> {set manual 1}
watchsel
|
