Slug>>#gtStoryFor:
gtStoryFor: aView <gtView> ^ aView forward title: 'Story'; priority: 20; object: [ FedWikiPage get: self slug ]; view: #gtStoryFor:
FedWikiPage>>#gtStoryFor:
gtStoryFor: aView <gtView> story := Story new rawData: self story. ^ aView columnedList title: 'Story'; priority: 20; items: [ story snippets ]; column: 'Type' text: #type; column: 'Id' text: #id; column: 'Text' text: #text
~
a page title in lower case with spaces turned to hyphens and other punctuation removed