Template:PageWordCloud

Template:PageWordCloudEdit

// First release using 1.1.0 SiteTagCloud template, by neilw and maphew, 2009
//
// USAGE: PageWordCloud( order, max, color, size, sizeUnits, exclude, showCount, align );
//    order: str (valid values: "name" or "count") (default "count")
//        Specifies how the tags are sorted in the list
//    max: num (default:50)
//        Specifies the maximum number of tags to be displayed.  0 ==> show all tags
//    color: list (default: [ [50,200,50], [50,100,50] ])
//        Specifies the color range for displayed tags.  May be either a single list of [r,g,b]
//        (in which case all tags will be that color) or a list of two [r,b,g] lists, where tags
//        with the fewest occurrences will be shown in the first color, and tags with the most
//        occurrences will be shown with the second color.  Other numbers of occurrences will be
//        interpolated between the two.
//    size: num or list (default: [80,240])
//        Specifies the size range for displayed tags.  If a single number is specified, all tags
//        will shown in that size.  If a list of two numbers is specified, then the tags with fewest
//        occurrences will be shown in the first size, and those with the most will be shown in the 
//        second.  Others will be interpolated in between.
//    sizeUnits: str (default: "%")
//        CSS units for the size argument.
//    exclude: str or list (default: [])
//        Tag(s) to exclude from the cloud.  May be either a single tag given as a string, or a
//        list of tags given as a list of strings.
//    align: str (default: "left")
//        Specifies the text alignment for the tag cloud.  Standard CSS values are available.

var errors = [];

//**************
// Process Args
//**************

// order
var defaultOrder = "name";
var tagOrder = string.tolower($0 ?? $order ?? defaultOrder);
if (tagOrder != "name" && tagOrder != "count") {
    let errors ..= [ "ORDER must be either 'name' or 'count' (using default)" ];
    let tagOrder = defaultOrder;
}
// max
var defaultMax = 50;
var tagsLimit = $1 ?? $max ?? defaultMax;
if (tagsLimit is not num || tagsLimit < 0) {
    let errors ..= [ "MAX must be a number >= 0 (using default)" ];
    let tagsLimit = defaultMax;
}
// color
var defaultColor = [ [50,200,50], [50,100,50] ];
var color = $2 ?? $color ?? defaultColor;
if (color is list && #color == 3) let color = [ color,color ];
if (color is not list || #color != 2 ||
    color[0] is not list || #color[0] != 3 || color[1] is not list || #color[1] != 3 ||
    #list.select(color[0]..color[1], "$ is not num || $ < 0 || $ > 255"))
{
    let errors ..= [ "COLOR must be a list of 3 numbers, or list of two lists of three numbers;" ..
                   " each number must be in the range 0-255 (using default)" ];
    let color = defaultColor;
}
// size and sizeUnits (processing these together)
var defaultSize = [ 80,240 ];
var defaultUnits = "%";
var sizeMinMax = $3 ?? $size      ?? defaultSize ;
var sizeUnits  = $4 ?? $sizeUnits ?? defaultUnits;
if (sizeMinMax is num) let sizeMinMax = [ sizeMinMax, sizeMinMax ];
if (sizeMinMax is not list || sizeMinMax[0] is not num ||sizeMinMax[1] is not num) {
    let errors ..= [ "SIZE must be a number or list of two numbers (using default)" ];
    let sizeMinMax = defaultSize;
    let sizeUnits  = defaultUnits;
}
// exclude
var defaultExclude = [];
var tagsToExclude = $5 ?? $exclude ?? defaultExclude;
if (tagsToExclude is str) let tagsToExclude = [ tagsToExclude ];
if (tagsToExclude is not list) {
    let errors ..= [ "EXCLUDE must be a string or list of strings (using default)" ];
    let tagsToExclude = defaultExclude;
}
// showcount
var hitShow = $6 ?? $showCount ?? false;
// align
var align = $7 ?? $align ?? "left";

//New parameters
var sPageUrl= $pageUrl ?? ".";
var charsToRemove = $charsToRemove ?? [',','.',':','"','+','/','!','?','(',')','\'','=','<','>','{','}',';','|','_'];
var textToReplace = $textToReplace ?? [[]];

// bail out if errors, to give quick feedback
if (#errors)
    <div style="color:red">
        <strong> "SiteTagCloud encountered errors:" </strong>;
        <ul> foreach (var e in errors) <li> e </li>; </ul>;
    </div>;
else {
//****************************************
// Pre-process font size and color values
//****************************************
var minSize = sizeMinMax[0];
var sizeRange = sizeMinMax[1] - minSize;
var colorMin =   { r:color[0][0], g:color[0][1], b:color[0][2] };
var colorRange = { r:color[1][0]-colorMin.r, g:color[1][1]-colorMin.g, b:color[1][2]-colorMin.b };
//******************
// Process the tags
//******************
// convert list of excluded tags into a map (easier to check if tag is excluded)
//let tagsToExclude = { (t): true foreach var t in tagsToExclude };

// compute map of tags based on site data and excluded tags

var netPageText=Wiki.Text(sPageUrl);
//web.text('Page ('..string.Length(sPageUrl)..','..string.Length(netPageText)..'): ');web.text(netPageText);web.html('<br><br>');

var sNetPageClean=netPageText;
foreach (var cToRemove in charsToRemove) {
    let sNetPageClean=string.Replace(sNetPageClean,cToRemove,' ');
}
foreach (var txtToRep in textToReplace) {
    let sNetPageClean=string.Replace(sNetPageClean,txtToRep[0],txtToRep[1]);
}

var tagMapPage = {};
var netPageSplits=string.Split(sNetPageClean,' ');
//var netPageSplits=string.Split(netPageText,' ');    
foreach (var sTag in netPageSplits) {
    var iCount=1;
    let sTag=string.Trim(sTag);
    let sTag=string.Replace(sTag,"-","");
    var iTagLen=string.Length(sTag);
    if (iTagLen>0) {
        if (string.EndsWith(sTag,"s")) {
            var sSingTag=string.SubStr(sTag,0,iTagLen-1);
            if (tagMapPage[sSingTag]) {
                let sTag=sSingTag;
            }
        }
        else
        {
            var sPlurTag=sTag.."s";
            if (tagMapPage[sPlurTag]) {
                let iCount=tagMapPage[sPlurTag];    
            }
        }
        let tagMapPage ..= { (sTag):iCount+(tagMapPage[sTag] ?? 0) };
    }
}

foreach (var t in tagsToExclude) {
  let tagMapPage ..= { (t):0 };
}

var tagListPage = [];
foreach (var t in map.keys(tagMapPage)) {
  if (tagMapPage[t] > 0) {
    let tagListPage ..= [ { name:t, count:tagMapPage[t] } ];
 }
}

let tagListPage = list.sort(tagListPage, 'count', true);
if (tagsLimit > 0) {
  let tagListPage = list.splice(tagListPage, tagsLimit);
}  
var tagMapRed = {};
foreach (var mTagRed in tagListPage) {
    let tagMapRed ..= { (mTagRed.name):(mTagRed.count) };    
    //let tagMapRed ..= { (mTagRed.name):(tagMapPage[mTagRed.name] ?? 0) };    
}                  
    
var tagMap = {};
foreach (var sTag in map.Keys(tagMapRed)) {
    let tagMap ..= { (sTag):((tagMap[sTag] ?? 0)+(tagMapRed[sTag] ?? 0)) };
}

foreach (var t in tagsToExclude) {
//  web.text(" t: "..t.." count:"..tagMap[t]);
  if (tagMap[t]>0)
    let tagMap ..= { (t):0 };
}

// compute list of tags sorted by occurrence count
var tagListofMaps = [ { name: string.tocamelcase(t), count: tagMap[t] }
    foreach var t in map.keys(tagMap) where tagMap[t] > 0 ];
var tagsTotal = #tagListofMaps;
let tagListofMaps = list.sort(tagListofMaps, 'count', true);
if ((tagsLimit > 0) && !__request.args.alltags)
    let tagListofMaps = list.splice(tagListofMaps, tagsLimit);
// pre-calculate some shortcut variables
var maxValue = tagListofMaps[0].count;
var minValue = tagListofMaps[#tagListofMaps-1].count;
var minLog   = num.log(minValue);
var logRange = num.log(maxValue) - minLog;
// sort display of tags by frequency or name
let tagListofMaps = list.sort(tagListofMaps, tagOrder, (tagOrder == "count"));
//****************
// emit tag cloud
//****************
<div id="tagCloud">
    <div style=("text-align:" .. align)>
        foreach (var tm in tagListofMaps) {
            var tagURI = sPageUrl.."?highlight="..tm.name.."+"..tm.name.."s";
            //var tagURI = site.uri & "Special:Tags" & { tag:tm.name };
            var weight = ( num.log(tm.count) - minLog ) / logRange;
            var size   = minSize + num.round(sizeRange * weight);
            var color = "color:rgb(" ..
                num.min(colorMin.r + num.round(weight*colorRange.r),255) .. "," ..
                num.min(colorMin.g + num.round(weight*colorRange.g),255) .. "," ..
                num.min(colorMin.b + num.round(weight*colorRange.b),255) .. ");";
            <span style=("padding-right:5px; font-size:" .. size .. sizeUnits)>
                <a href=(tagURI) style=(color)> tm.name </a>;
                if (hitShow)
                    <sup style=(color.."font-size: x-small")> "(" .. tm.count .. ")" </sup>;
                " ";
            </span>;
        }
    </div>;
    if (!__request.args.alltags && (tagsLimit > 0) && (tagsTotal > tagsLimit)) {
        "Showing top " .. tagsLimit .. " tags. ";
        <a href=((page.uri & { alltags: "_" }).."#tagCloud")> "See all "..tagsTotal.." tags »" </a>;
    }
</div>;
}