SharePoint 2013 Related Pages

gistfile1.js

// shows related pages in SharePoint 2013 or Office 365
// via https://gist.github.com/chrisobriensp/4375519
// requires (minified under 10k): underscorejs, es6-promise (ES6 polyfill), fetch (ES6 polyfill)

function(element, title, count) {
    var header = '<b>'+title+'</b><br/>';
    var _linkTmpl = _.template('<a href="<%=Cells.results[6].Value%>"><%=Cells.results[3].Value%></a>');
    var linkJoin = '<br/>';
    var linkCount = count;
    
    var query = _spPageContextInfo.webAbsoluteUrl + "/_api/search/query?querytext='" + document.title + "'";
    fetch(query, {
    	headers: {'Accept': 'application/json; odata=verbose'},   		
    }).then(function(response) {
    	return response.json();
    }).then(function(json) {
    	var results = json.d.query.PrimaryQueryResult.RelevantResults.Table.Rows.results;
    	if(results.length) {
    		var html = _(results).take(linkCount).map(_linkTmpl).join(linkJoin);
    		element.innerHTML = header + html;
    	}
    });
}