Monday, November 08, 2010 at 12:05 AM.

on isPostOnHomePage (adrpost, catname=nil) {
		<<2/12/02; 12:57:18 PM by JES
			<<If catname is not nil, ignore adrpost^.flNotOnHomePage.
		<<1/26/02; 5:13:18 PM by JES
			<<If adrpost^.flNotOnHomePage is true, return false.
		<<11/13/01; 10:11:22 PM by JES
			<<New optional parameter: catname. If specified, then the script will return true if the post is on the index page for the given category.
		<<9/3/01; 11:26:37 PM by JES
			<<Created. Return true if a post is on the home page, given present prefs, or false if not.
	radio.weblog.initPost (adrpost);
	if adrpost^.flNotOnHomePage {
		if catname == nil {
			return (false)}};
	local (adrposts = parentOf (adrpost^));
	local (adrblog = parentOf (adrposts^));
	return (radio.weblog.isDateOnHomePage (adrpost^.when, adrblog, catname))}
<<bundle //testing
	<<local (adrblog = radio.weblog.init ())
	<<local (adrpost = @adrblog^.posts[sizeOf (adrblog^.posts)])
	<<local (adrpost = @adrblog^.posts[1])
	<<dialog.notify (isPostOnHomePage (adrpost))

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.