Tag Archive for 'visualization'

# show keywords like tag-cloud
# Licensing: GPL v2 or newer, http://www.gnu.org/licenses/gpl.txt
 
#
# Original:
# $Id: keyword.rb,v 1.5 2005/09/30 11:45:49 fdiary Exp $
# Copyright (C) 2003 TAKEUCHI Hitoshi <hitoshi@namaraii.com>
 
THRESHOLD = 1
MAX = 156
MIN = 32
 
def keyword_cloud(*key)
  # sort by category
  list = keywords(*key).to_a.sort {|a,b| a[0].downcase <=> b[0].downcase}
 
  max = 1
  min = 0
  list.each do |j|
    sz = j[1].size
    next if sz < THRESHOLD
 
    max = sz if sz > max
    min = sz if sz < min
  end
 
  diff = max - min
 
  s = ''
  list.each do |j|
    sz = j[1].size
    next if sz < THRESHOLD
 
    category = j[0]
    p = j[1]
 
    fts = MIN + (((MAX-MIN)/diff.to_f) * (sz-min+1))
 
    ## for debug
    # s << "<h4>"
    # s << [sz, max, min, MIN, (MAX-MIN), diff, (MAX-MIN)/diff.to_f, (sz-min+1), fts].join(', ')
    # s << "</h4>"
 
    s << "<span id='tag' style='font-size:#{fts}%'>#{view_title(category)}</span> "
  end
 
  s
end
 
def keywords(*keyword)
  keyword.collect! {|a| a.unescapeHTML}
 
  key = Hash::new
  @db.page_info.each do |info|
    next unless info.values[0][:keyword]
    info.values[0][:keyword].each do |k|
      if keyword.size == 0 || keyword.index(k)
        key[k] = [] unless key[k]
        key[k] << info
      end
    end
  end
  key
end
 
def keyword_entries_n(pages)
    p = j[1]
 
end
 
export_plugin_methods(:keyword_cloud)