#!/usr/bin/env ruby
#
# This script implements the "ss" application. "ss" implements
# a presentation slide-show based on HTML slides.
#
require 'tk'
require 'tkextlib/tkHTML'
root = TkRoot.new(:title=>'HTML File Viewer', :iconname=>'HV')
fswin = nil
html = nil
html_fs = nil
hotkey = {}
file = ARGV[0]
# These are images to use with the actual image specified in a
# "<img>" markup can't be found.
#
biggray = TkPhotoImage.new(:data=><<'EOD')
R0lGODdhPAA+APAAALi4uAAAACwAAAAAPAA+AAACQISPqcvtD6OctNqLs968+w+G4kiW5omm
6sq27gvH8kzX9o3n+s73/g8MCofEovGITCqXzKbzCY1Kp9Sq9YrNFgsAO///
EOD
smgray = TkPhotoImage.new(:data=><<'EOD')
R0lGODdhOAAYAPAAALi4uAAAACwAAAAAOAAYAAACI4SPqcvtD6OctNqLs968+w+G4kiW5omm
6sq27gvH8kzX9m0VADv/
EOD
#
# A font chooser routine.
#
# html[:fontcommand] = pick_font
pick_font = proc{|size, attrs|
# puts "FontCmd: #{size} #{attrs}"
[ ((attrs =~ /fixed/)? 'courier': 'charter'),
(12 * (1.2**(size.to_f - 4.0))).to_i,
((attrs =~ /italic/)? 'italic': 'roman'),
((attrs =~ /bold/)? 'bold': 'normal') ].join(' ')
}
# This routine is called to pick fonts for the fullscreen view.
#
baseFontSize = 24
pick_font_fs = proc{|size, attrs|
# puts "FontCmd: #{size} #{attrs}"
[ ((attrs =~ /fixed/)? 'courier': 'charter'),
(baseFontSize * (1.2**(size.to_f - 4.0))).to_i,
((attrs =~ /italic/)? 'italic': 'roman'),
((attrs =~ /bold/)? 'bold': 'normal') ].join(' ')
}
#
#
hyper_cmd = proc{|*args|
puts "HyperlinkCommand: #{args.inspect}"
}
# This routine is called to run an applet
#
applet_arg = TkVarAccess.new_hash('AppletArg')
run_applet = proc{|size, w, arglist|
applet_arg.value = Hash[*simplelist(arglist)]
return unless applet_arg.key?('src')
src = html.remove(applet_arg['src'])
applet_arg['window'] = w
applet_arg['fontsize'] = size
begin
Tk.load_tclscript(src)
rescue => e
puts "Applet error: #{e.message}"
end
}
#
#
form_cmd = proc{|n, cmd, *args|
}
#
#
images = {}
old_imgs = {}
big_imgs = {}
#
#
move_big_image = proc{|b|
return unless big_imgs.key?(b)
b.copy(big_imgs[b])
big_imgs[b].delete
big_imgs.delete(b)
}
image_cmd = proc{|hs, *args|
fn = args[0]
if old_imgs.key?(fn)
return (images[fn] = old_imgs.delete(fn))
end
begin
img = TkPhotoImage.new(:file=>fn)
rescue
return ((hs)? smallgray: biggray)
end
if hs
img2 = TkPhotoImage.new
img2.copy(img, :subsample=>[2,2])
img.delete
img = img2
end
if img.width * img.height > 20000
b = TkPhotoImage.new(:width=>img.width, :height=>img.height)
big_imgs[b] = img
img = b
Tk.after_idle(proc{ move_big_image.call(b) })
end
images[fn] = img
img
}
#
# This routine is called for every <SCRIPT> markup
#
script_cmd = proc{|*args|
# puts "ScriptCmd: #{args.inspect}"
}
# This routine is called for every <APPLET> markup
#
applet_cmd = proc{|w, arglist|
# puts "AppletCmd: w=#{w} arglist=#{arglist}"
#TkLabel.new(w, :text=>"The Applet #{w}", :bd=>2, :relief=>raised)
}
# This binding fires when there is a click on a hyperlink
#
href_binding = proc{|w, x, y|
lst = w.href(x, y)
unless lst.empty?
process_url.call(lst)
end
}
#
#
last_dir = Dir.pwd
sel_load = proc{
filetypes = [
['Html Files', ['.html', '.htm']],
['All Files', '*']
]
f = Tk.getOpenFile(:initialdir=>last_dir, :filetypes=>filetypes)
if f != ''
load_file.call(f)
last_dir = File.dirname(f)
end
}
# Clear the screen.
#
clear_screen = proc{
if html_fs && html_fs.exist?
w = html_fs
else
w = html
end
w.clear
old_imgs.clear
big_imgs.clear
hotkey.clear
images.each{|k, v| old_imgs[k] = v }
images.clear
}
# Read a file
#
read_file = proc{|name|
begin
fp = open(name, 'r')
ret = fp.read(File.size(name))
rescue
ret = nil
fp = nil
Tk.messageBox(:icon=>'error', :message=>"fail to open '#{name}'",
:type=>:ok)
ensure
fp.close if fp
end
ret
}
# Process the given URL
#
process_url = proc{|url|
case url[0]
when /^file:/
load_file.call(url[0][5..-1])
when /^exec:/
Tk.ip_eval(url[0][5..-1].tr('\\', ' '))
else
load_file.call(url[0])
end
}
# Load a file into the HTML widget
#
last_file = ''
load_file = proc{|name|
return unless (doc = read_file.call(name))
clear_screen.call
last_file = name
if html_fs && html_fs.exist?
w = html_fs
else
w = html
end
w.configure(:base=>name)
w.parse(doc)
w.configure(:cursor=>'top_left_arrow')
old_imgs.clear
}
# Refresh the current file.
#
refresh = proc{|*args|
load_file.call(last_file) if last_file
}
# This routine is called whenever a "<meta>" markup is seen.
#
meta = proc{|w, tag, alist|
v = Hash[*simplelist(alist)]
if v.kye?('key') && v.key?('href')
hotkey[v['key']] = w.resolve(v['href'])
end
if v.kye?('next')
hotkey['Down'] =v['next']
end
if v.kye?('prev')
hotkey['Up'] =v['prev']
end
if v.kye?('other')
hotkey['o'] =v['other']
end
}
# Go from full-screen mode back to window mode.
#
fullscreen_off = proc{
fswin.destroy
root.deiconify
Tk.update
root.raise
html.clipwin.focus
clear_screen.call
old_imgs.clear
refresh.call
}
# Go from window mode to full-screen mode.
#
fullscreen = proc{
if fswin && fswin.exist?
fswin.deiconify
Tk.update
fswin.raise
return
end
width = root.winfo_screenwidth
height = root.winfo_screenheight
fswin = TkToplevel.new(:overrideredirect=>true,
:geometry=>"#{width}x#{height}+0+0")
html_fs = Tk::HTML_Widget.new(fswin, :padx=>5, :pady=>9,
:formcommand=>form_cmd,
:imagecommand=>proc{image_cmd.call(0)},
:scriptcommand=>script_cmd,
:appletcommand=>applet_cmd,
:hyperlinkcommand=>hyper_cmd,
:bg=>'white', :tablerelief=>:raised,
:appletcommand=>proc{|*args|
run_applet('big', *args)
},
:fontcommand=>pick_font_fs,
:cursor=>:tcross) {
pack(:fill=>:both, :expand=>true)
token_handler('meta', proc{|*args| meta.call(self, *args)})
}
clear_screen.call
old_imgs.clear
refresh.call
Tk.update
html_fs.clipwin.focus
}
#
#
key_block = false
key_press = proc{|w, keysym|
return if key_block
key_block = true
Tk.after(250, proc{key_block = false})
if hotkey.key?(keysym)
process_url.call(hotkey[keysym])
end
case keysym
when 'Escape'
if fswin && fswin.exist?
fullscreen_off.call
else
fullscreen.call
end
end
}
Tk::HTML_Widget::ClippingWindow.bind('1', key_press, '%W Down')
Tk::HTML_Widget::ClippingWindow.bind('3', key_press, '%W Up')
Tk::HTML_Widget::ClippingWindow.bind('2', key_press, '%w Down')
Tk::HTML_Widget::ClippingWindow.bind('KeyPress', key_press, '%W %K')
############################################
#
# Build the half-size view of the page
#
menu_spec = [
[['File', 0],
['Open', sel_load, 0],
['Full Screen', fullscreen, 0],
['Refresh', refresh, 0],
'---',
['Exit', proc{exit}, 1]]
]
mbar = root.add_menubar(menu_spec)
html = Tk::HTML_Widget.new(:width=>512, :height=>384,
:padx=>5, :pady=>9,
:formcommand=>form_cmd,
:imagecommand=>proc{|*args|
image_cmd.call(1, *args)
},
:scriptcommand=>script_cmd,
:appletcommand=>applet_cmd,
:hyperlinkcommand=>hyper_cmd,
:fontcommand=>pick_font,
:appletcommand=>proc{|*args|
run_applet.call('small', *args)
},
:bg=>'white', :tablerelief=>:raised)
html.token_handler('meta', proc{|*args| meta.call(html, *args)})
vscr = html.yscrollbar(TkScrollbar.new)
hscr = html.xscrollbar(TkScrollbar.new)
Tk.grid(html, vscr, :sticky=>:news)
Tk.grid(hscr, :sticky=>:ew)
Tk.root.grid_columnconfigure(0, :weight=>1)
Tk.root.grid_columnconfigure(1, :weight=>0)
Tk.root.grid_rowconfigure(0, :weight=>1)
Tk.root.grid_rowconfigure(1, :weight=>0)
############################################
html.clipwin.focus
# If an arguent was specified, read it into the HTML widget.
#
Tk.update
if file && file != ""
load_file.call(file)
end
############################################
Tk.mainloop