desc: web page for the Internet
code: |
# load the String#to_html and String#to_inline_html methods
require 'erbook/html'
class String
# Transforms this UTF-8 string into HTML entities.
def to_html_entities
unpack('U*').map! {|c| "&##{c};"}.join
end
# Transforms this string into a valid URI fragment.
# See http://www.nmt.edu/tcc/help/pubs/xhtml/id-type.html
def to_uri_fragment
# remove HTML tags from the input
buf = gsub(/<.*?>/, '')
# The first or only character must be a letter.
buf.insert(0, 'a') unless buf[0,1] =~ /[[:alpha:]]/
# The remaining characters must be letters, digits, hyphens (-),
# underscores (_), colons (:), or periods (.) or Unicode characters
buf.unpack('U*').map! do |code|
if code > 0xFF or code.chr =~ /[[:alnum:]\-_:\.]/
code
else
32 # ASCII character code for a single space
end
end.pack('U*').strip.gsub(/[[:space:]-]+/, '-')
end
end
class Hash
# Transforms this hash into a string of HTML attribute key=value pairs.
def to_html_atts
inject([]) {|s,(k,v)| s << %( #{k}="#{v}") }.join
end
end
class Node
# Returns the user-defined title for this node's content.
def title
@title ||= args[0]
end
# Returns the user-defined indentifer for this node.
def id
@id ||= args[1]
end
def type_label
type.to_s.capitalize
end
def type_atts
{ :class => type }.to_html_atts
end
def title_atts
{ :class => :title, :id => here_frag }.to_html_atts
end
def title_html
title.to_s.to_inline_html
end
def content_html
content.to_s.to_html
end
def title_link aTitle = nil
here_link here_frag, aTitle || title_html
# %{#{aTitle || title_html} #{here_link here_frag, '¶'} #{list_link here_frag, list_frag, '≡'}}
end
def index_link
list_link here_frag, list_frag, index
# %{#{index}}
end
def number_link
list_link here_frag, list_frag, [type_label, number].compact.join(' ')
# %{#{[type_label, number].compact.join(' ')}}
end
def number_and_title_link
"#{number_link}. #{title_link}"
end
def index_and_title_link
"#{index_link} #{title_link}"
end
def content_div
%{
#{content_html}
}
end
@@frags = []
# Returns a unique URI fragment for this node.
def here_frag
unless defined? @here_frag
salt = object_id.abs
frag = (id || title || salt).to_s.to_uri_fragment
# make it unique
while @@frags.include? frag
frag << '-' << (index || number || salt).to_s
end
@@frags << frag
@here_frag = frag
end
@here_frag
end
# Returns the URI fragment for the location in the table
# of contents / list of figures that points this node.
def list_frag
@list_frag ||= "rev:#{here_frag}"
end
end
def here_link aHereFrag, aLabel
%{#{aLabel}}
end
def list_link aHereFrag, aListFrag, aLabel
%{#{aLabel}}
end
# Returns a hyperlink to the given URL of
# the given label and mouse-hover title.
def link aUrl, aLabel = aUrl, aTitle = nil
%{#{aLabel}}
end
# Encodes the given input in base64 format.
def base_64_encode aInput
[aInput].pack('m')
end
# Returns a string denoting embedded, base64 encoded data.
def base_64_embed aData, aFormat
"data:#{aFormat.to_s.downcase};base64,#{aData.tr("\n", '')}"
end
# Returns a string denoting embedded, base64 encoded image data.
# aFormat:: format of the image data (e.g. PNG, JPG, GIF, etc.)
def base_64_embed_image_data aData, aFormat
base_64_embed aData, "image/#{aFormat}"
end
# Returns a HTML tag that embeds the given image file.
#
# aPath:: path to the image file
# aFormat:: format of the image file (e.g. PNG, JPG, GIF, etc.)
# aAtts:: additional attributes for the tag
#
def embed_image_file aPath, aFormat = aPath[/\w+/], aAtts = {}
data = base_64_encode File.read(aPath)
aAtts['src'] = base_64_embed_image_data(data, aFormat)
""
end
##
# load admonition icons
#
Icon = Struct.new(:path, :name, :format, :data)
class Icon
# Returns the CSS class for this icon.
def css_class
@css_class ||= "icon-#{name}"
end
# Returns a CSS url() containing embedded image data.
def css_image
"url(#{base_64_embed_image_data self.data, self.format})"
end
end
ICONS = {}
Dir[File.join(ERBook::FORMATS_DIR, 'html.icons', '*.*')].each do |path|
ext = File.extname(path)
name = File.basename(path, ext)
data = base_64_encode File.open(path, 'rb') {|f| f.read }
ICONS[name] = Icon.new(path, name, ext.sub('.', ''), data)
end
# STDERR.puts ICONS.inspect
nodes:
##
# Structure
#
header: &header
toc: false
lof: false
index: false
number: false
silent: true
output: <%= @node.content_html %>
header_outside_above: &header_insert
toc: false
lof: false
index: false
number: false
silent: true
output:
}
else
''
end
end
toc = @roots.inject('') {|s,n| s << toc_builder[n] }
# compute list of figures
lof_enums = {} # type => nodes
@spec['nodes'].each_pair do |name, info|
if info['lof']
nodes = @types[name]
lof_enums[name] = nodes unless nodes.empty?
end
end
lof_sections = []
lof = lof_enums.sort.map do |(type, nodes)|
nested = nodes.map do |n|
%{
#{nested}}
end
%>
<% $feeds.each_pair do |here_frag, fmt| %>
<% end if $feeds %>
<%= $title.to_s.to_inline_html %>
<% if $use_icons %>
<% end %>
<% if defined? $icons_used and not $icons_used.empty? %>
<% end %>
<%
styles = @spec['styles']
(styles.keys - %w[common]).each do |media|
%>
<% end %>
<%
# menu of links to link sections
nav = [
('Abstract' if abstract),
'Contents',
lof_sections,
('References' if references)
].flatten.compact
if nav.length > 1
%>
<%=
nav.map do |section|
%{#{section}}
end.join(' · ')
%>
<% end %>
<%= node = @types['header_outside_above'].first and node.output %>
<%= node = @types['header_inside_above'].first and node.output %>
<% if header = @types['header'].first %>
<%= header.output %>
<% else %>
<%= $logo if defined? $logo %>
<%= $title.to_s.to_inline_html %>
<%=
$authors.map do |(name, here_frag)|
if here_frag
%{#{name}}
else
name
end
end.join(', ')
%>
<%= $date %>
<% end %>
<%= node = @types['header_inside_below'].first and node.output %>
<%= node = @types['header_outside_below'].first and node.output %>
<%= abstract.output if abstract %>
<% unless toc.empty? %>