You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
219 lines
9.7 KiB
219 lines
9.7 KiB
14 years ago
|
<?php
|
||
|
|
// PIM functions (for PmWiki)
|
||
|
|
// consider adding other related scripts here too (e.g. MemoryRecipe, Recalls, GroupStats, Coeditions, ...)
|
||
|
|
// http://fabien.benetou.fr/pub/graphformatexporter.php.txt
|
||
|
|
// http://fabien.benetou.fr/pub/memorization.php.txt
|
||
|
|
// note that the order is important though
|
||
|
|
// e.g. currently MemoryRecipe is loaded after thus can't be called here
|
||
|
|
// add to http://fabien.benetou.fr/repository/
|
||
|
|
// it would be particularly useful to refactor each properly
|
||
|
|
// especially since they share variables (e.g. first edit) but also some have better function
|
||
|
|
// e.g. caching in Coeditions
|
||
|
|
// change ProcessingJS generation by first producing JSON
|
||
|
|
// via http://www.php.net/manual/en/function.json-encode.php
|
||
|
|
// cf http://fabien.benetou.fr/Tools/Processing and http://fabien.benetou.fr/Tools/JavaScript
|
||
|
|
// this might be even faster on most computers since JS engines are improving
|
||
|
|
|
||
|
|
//handle implicit linking
|
||
|
|
/*
|
||
|
|
cf http://fabien.benetou.fr/MemoryRecalls/ImprovingPIM#ImplicitLinking
|
||
|
|
*/
|
||
|
|
function ImplicitLinking(){
|
||
|
|
return "list of pages generated on the fly";
|
||
|
|
}
|
||
|
|
//$AutoCreate['/\\.GroupStats$/'] = array( 'ctime' => $Now, 'text' => ImplicitLinking());
|
||
|
|
//$AutoCreate['/^Categora\\./'] = array('ctime' => $Now);
|
||
|
|
//doesn't work, AutoCreate present in pmwiki.php and example too
|
||
|
|
// category works though
|
||
|
|
// TODO try making it global $AutoCreate;
|
||
|
|
|
||
|
|
//display working status
|
||
|
|
// see http://fabien.benetou.fr/Tools/Greasemonkey#VirtualBlinders
|
||
|
|
Markup("currenttask", "directives", "/\(:currenttask:\)/", GetCurrentTask());
|
||
|
|
function GetCurrentTask(){
|
||
|
|
$currenttask = trim(file_get_contents("/home/utopiah/web/benetou.fr/fabien/pub/currenttask"));
|
||
|
|
if ($currenttask == "")
|
||
|
|
return "(either available or asleep, Im usually on CET)";
|
||
|
|
return "[[CognitiveEnvironments/".$currenttask."]]";
|
||
|
|
}
|
||
|
|
|
||
|
|
Markup("timetable", "fulltext", "/\(:timetable:\)/",
|
||
|
|
"\n||border=1\n||!Time ||!Action ||\n"
|
||
|
|
.preg_replace("/.* (\d+) (\d+).* \/(.*)/","||$1:$2||$3||",file_get_contents("/home/utopiah/.irssi/cron.save"))
|
||
|
|
."");
|
||
|
|
|
||
|
|
//load a dedicated edition page for the admin (shouldn't be hard coded but I dont use Auth)
|
||
|
|
//global $GLOBALS;
|
||
|
|
if ($GLOBALS['action'] == 'edit' && ( $GLOBALS['Author'] == 'Fabien' || $GLOBALS['Author'] == 'Utopiah' ) )
|
||
|
|
{
|
||
|
|
//TODO fails since moved in cookbook directory, thus added back there
|
||
|
|
global $SkinDir,$pagename;
|
||
|
|
LoadPageTemplate($pagename, "$SkinDir/edit.tmpl");
|
||
|
|
}
|
||
|
|
|
||
|
|
//display editions through an horizontal line
|
||
|
|
/*
|
||
|
|
fomally done via GnuPlot, cf http://fabien.benetou.fr/Wiki/Visualization#timeline
|
||
|
|
http://www.scholarpedia.org/article/Spike-response_model is probably too complicated for the small resolution
|
||
|
|
yet provide interesting non-linear properties
|
||
|
|
|
||
|
|
*/
|
||
|
|
function DisplayVisualEdits($pagename){
|
||
|
|
global $ScriptUrl, $PubDir, $FarmD;
|
||
|
|
|
||
|
|
$processingpath = '/pub/libraries/processing.js';
|
||
|
|
$processingfile = "/pub/visualization/edits_per_page/$pagename.pjs";
|
||
|
|
$processinglib = "<script src=\"$processingpath\" type=\"text/javascript\"></script>";
|
||
|
|
$first_edit = 1212192000;
|
||
|
|
$now = time();
|
||
|
|
// draw the timeline from the first edit to now()
|
||
|
|
// get the list of edits of the current page
|
||
|
|
// "get inspired" by PrintDiff() in scripts/pagerev.php
|
||
|
|
$canvaswidth = 600-2*10;
|
||
|
|
$canvasheight = 10;
|
||
|
|
$block_width = 4;
|
||
|
|
$block_height = 8;
|
||
|
|
$page = ReadPage($pagename);
|
||
|
|
if (!$page) return;
|
||
|
|
krsort($page); reset($page);
|
||
|
|
// newest first
|
||
|
|
// for each edit
|
||
|
|
$canvas = "
|
||
|
|
void setup()
|
||
|
|
{
|
||
|
|
size($canvaswidth, $canvasheight);
|
||
|
|
PFont font;
|
||
|
|
font = loadFont(\"FFScala-Bold-12.vlw\");
|
||
|
|
textFont(font);
|
||
|
|
}
|
||
|
|
void mouseMoved() {
|
||
|
|
checkButtons();
|
||
|
|
}
|
||
|
|
|
||
|
|
void mouseDragged() {
|
||
|
|
checkButtons();
|
||
|
|
}
|
||
|
|
void draw()
|
||
|
|
{
|
||
|
|
background(251);
|
||
|
|
fill(0,0,255,20);
|
||
|
|
noStroke();
|
||
|
|
";
|
||
|
|
$mousePressed = "void mousePressed() {";
|
||
|
|
$destination_link = "$ScriptUrl/".strtr($pagename,".","/")."?action=diff#diff";
|
||
|
|
$mousePressed .= "\t\tif (lastHovered>0) { link(\"$destination_link\"+lastHovered); }\n";
|
||
|
|
$checkButtons = "void checkButtons() {";
|
||
|
|
print $processinglib.'<canvas data-src="'.$processingfile.'" width="'.$canvaswidth.'" height="'.$canvasheight.'"></canvas>';
|
||
|
|
// set to false to de-activate cache (practical for tests)
|
||
|
|
$newest_diff = true;
|
||
|
|
//$newest_diff = false;
|
||
|
|
//$first_diff = true;
|
||
|
|
foreach($page as $k=>$v) {
|
||
|
|
if (!preg_match("/^diff:(\d+):(\d+):?([^:]*)/",$k,$match)) continue;
|
||
|
|
|
||
|
|
$diff = $match[1];
|
||
|
|
|
||
|
|
$diffclass = $match[3];
|
||
|
|
if ($diffclass=='minor')
|
||
|
|
{ $canvas .= "\t\tfill(0,255,0,20);\n"; }
|
||
|
|
else
|
||
|
|
{ $canvas .= "\t\tfill(0,0,255,20);\n"; }
|
||
|
|
//if ($first_diff)
|
||
|
|
// { $canvas .= "\t\tfill(255,0,0,20);\n"; $first_diff = false;}
|
||
|
|
|
||
|
|
$buttonname = "over".$diff."Button";
|
||
|
|
//$bools .= "boolean $buttonname = false;\n";
|
||
|
|
if (file_exists($FarmD.$processingfile) && $newest_diff)
|
||
|
|
if ( filemtime($FarmD.$processingfile) > $diff)
|
||
|
|
return;
|
||
|
|
$newest_diff = false;
|
||
|
|
// add a sightly transparent tick rectangle with its Unix timestamp link to the diff page
|
||
|
|
// the mouse over a certain edit should change its color
|
||
|
|
// see http://processingjs.org/learning/basic/embeddedlinks
|
||
|
|
// or clicablerects.js via Pomax on :mozilla2/#processing.js (14/05/2011 ~11pm)
|
||
|
|
$x = round ( ($canvaswidth - $block_width) * ( (($now - $first_edit)-($now-$diff)) / ($now - $first_edit)));
|
||
|
|
$y = 1;
|
||
|
|
$checkButtons .= "\t\tif ( mouseX > $x && mouseX < $x+$block_width) lastHovered = $diff; \n";
|
||
|
|
// if (mouseY > $y && mouseY < $y+$block_height) not really required
|
||
|
|
// others should be set to false else one always jump to the olded diff mouved over
|
||
|
|
$canvas .= "\t\trect($x,$y,$block_width,$block_height);\n";
|
||
|
|
}
|
||
|
|
$canvas .= "\t\tstroke(0,155);\n";
|
||
|
|
$canvas .= "\t\tfill(0,0,255,80);\n";
|
||
|
|
$canvas .= "\t\ttext(\"Edits:\",2,10 );\n";
|
||
|
|
$canvas .= "\t\tfill(0,0,255,40);\n";
|
||
|
|
for ($year=2009;$year<2012;$year++){ //each year until now
|
||
|
|
$unixyear = mktime(0,0,0,1,1,$year);
|
||
|
|
$x = round ( ($canvaswidth - $block_width) * ( (($now - $first_edit)-($now-$unixyear)) / ($now - $first_edit)));
|
||
|
|
$y = 0;
|
||
|
|
$canvas .= "line($x,$y,$x,$y+$block_height+2); text(\"$year\",$x+2,$y+10 );\n";
|
||
|
|
}
|
||
|
|
$canvas = $bools . $canvas ."}" . $mousePressed ."}" .$checkButtons . "}";
|
||
|
|
|
||
|
|
// load ProcessinJS
|
||
|
|
|
||
|
|
$write_result = file_put_contents($FarmD.$processingfile,$canvas);
|
||
|
|
|
||
|
|
// print resulting canvas
|
||
|
|
|
||
|
|
$older_gnuplot_version = "<div><center><img src=\"/pub/visualization/edits_per_page/{$pagename}.png\" alt=\"/pub/visualization/edits_per_page/{$pagename}.png\"/></br>(<a href=\"$ScriptUrl/Wiki/Visualization#timeline\">visualization details</a>).</center></div><hr />";
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
//display images with transparancy invertionnaly proportional to last time of update
|
||
|
|
// http://fabien.benetou.fr/MemoryRecalls/ImprovingPIM#VisualDecayOfInformation
|
||
|
|
function DisplayDecay($pagename){
|
||
|
|
|
||
|
|
/*
|
||
|
|
consider
|
||
|
|
adding threshold
|
||
|
|
not keeping it linear (e.g. log)
|
||
|
|
but still constantly inscreasing between 0 and 1
|
||
|
|
use a factor when matches (e.g. regex changing $impeding_factor or $first_edit)
|
||
|
|
regex would match groupname (e.g. "Person." with fast decay) or pagename or both (e.g. "Math" with slow decay)
|
||
|
|
yellowish background, looking like old paper
|
||
|
|
...rest got deleted by a dumb rm...
|
||
|
|
*/
|
||
|
|
global $ScriptUrl;
|
||
|
|
$first_edit = 1212192000;
|
||
|
|
$now = time();
|
||
|
|
//load page
|
||
|
|
$page = ReadPage($pagename);
|
||
|
|
if (!$page) return;
|
||
|
|
|
||
|
|
$last_edit = $page["time"];
|
||
|
|
//get last edit
|
||
|
|
|
||
|
|
$destination_link = "$ScriptUrl/".strtr($pagename,".","/")."?action=edit";
|
||
|
|
|
||
|
|
//use the previous equation adding 1 - ()
|
||
|
|
$opacity = round ( 1 - ( (($now - $first_edit)-($now-$last_edit)) / ($now - $first_edit)) , 2 );
|
||
|
|
|
||
|
|
$opacitymsg = "opacity=$opacity";
|
||
|
|
if ($opacity > 0.8)
|
||
|
|
$opacitymsg = "<font color=\"red\">".$opacitymsg."</font>";
|
||
|
|
|
||
|
|
//if user if admin
|
||
|
|
if ( $GLOBALS['Author'] == 'Fabien' || $GLOBALS['Author'] == 'Utopiah' ) {
|
||
|
|
//for 1 to a multiplier of value
|
||
|
|
for ($i=0;$i<$opacity*10;$i++){
|
||
|
|
// display another visual problem with a link back to improvingwiki#visualdecay
|
||
|
|
print "<div style=\"opacity:$opacity;position:absolute;top:".rand(60,800)."px;left:".rand(100,500)."px;\"><a href=\"$destination_link\">"
|
||
|
|
.decbin(rand(0,10000))."</a></div>";
|
||
|
|
}
|
||
|
|
// add a good practice msg
|
||
|
|
print "<div style=\"opacity:$opacity;position:absolute;top:10px;left:450px;width:300px;background-color:gray;\">
|
||
|
|
$opacitymsg edits should be done to check if
|
||
|
|
the informamtion presented is still relevant,
|
||
|
|
links are working,
|
||
|
|
opinion expressed still correct, etc.
|
||
|
|
</div>";
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
//print img with opacity + warning message
|
||
|
|
|
||
|
|
print "<div style=\"opacity:$opacity;\"><a name=\"Decay\"></a>If you can read this text ($opacitymsg) if means the page has not been edited for a long time. Consequently the information it holds might be deprecated or no longer represent the opinion of this author.</div>";
|
||
|
|
|
||
|
|
}
|