Create Wiki Page of the Day

`FedWikiPage class>>#create`

create | aSlug jsonObject fWpages filePath file fWpage | aSlug := Date today iso8601. jsonObject := Journal create: aSlug. fWpages := Wiki db. filePath := fWpages , aSlug. file := filePath asFileReference. file writeStreamDo: [ :stream | (NeoJSONWriter on: (ZnNewLineWriterStream on: stream)) newLine: Character cr asString; prettyPrint: true; nextPut: jsonObject ]. fWpage := FedWikiPage today. WebBrowser openOn: Wiki url , ':' , Wiki port asString , '/view/' , aSlug

~

Creating a new page is easy. Click on a link that you have created. If we could not find the linked page, click on "create" to add a new blank page.

WebBrowser openOn: 'http://localhost:3000/view/' , aSlug