Monday, November 08, 2010 at 12:04 AM.
system.verbs.builtins.op.insertAtEndOfList
on insertAtEndOfList (headstring) {
if op.countSubs (1) == 0 { <<no first-level subs
return (op.insert (headstring, right))}
else {
op.go (right, 1); <<move to first subhead of cursor
op.go (down, infinity); <<move to last subhead of cursor
return (op.insert (headstring, down))}} <<insert new head down from last head
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.