// ==UserScript==
// @name           Krugman
// @namespace      http://diveintomark.org/projects/greasemonkey/
// @description    Find alternate links to Paul Krugman articles
// @include        http://select.nytimes.com/gst/tsc.html*
// ==/UserScript==

var elmHeadline = document.getElementById('tsAbstractHeadline');
if (!elmHeadline) { return; }
var arH2 = elmHeadline.getElementsByTagName('h2');
if (arH2.length < 1) { return; }
var sTitle = arH2[0].textContent.toLowerCase().replace(/^\s*(\S*(\s+\S+)*)\s*$/, "$1");
var arFont = elmHeadline.getElementsByTagName('font');
if (arFont.length < 2) { return; }
var sAuthor = arFont[1].textContent.toLowerCase().replace(/^\s*(\S*(\s+\S+)*)\s*$/, "$1").replace(/^by /, '');
if (sAuthor.indexOf('paul krugman') == -1) { return; }
GM_xmlhttpRequest({method: 'GET', url: 'http://truthout.mamdani.org/wp-atom.php', onload: function(r) {
    var sFeed = r.responseText.toLowerCase();
    var iPos = sFeed.indexOf(sAuthor + ' | ' + sTitle);
    if (iPos == -1) { return; }
    sFeed = r.responseText.substring(iPos);
    iPos = sFeed.indexOf('</p>');
    if (iPos != -1) {
	sFeed = sFeed.substring(0, iPos);
    }
    elmHeadline.innerHTML = sFeed;
}});