From 638cb79d0035dd6246d41af3c6d5cbfcc9608e74 Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Wed, 4 Aug 2021 12:30:36 -0500 Subject: [PATCH] Improving FedWiki <--> TiddlyWiki interaction. --- repository/TiddlyWiki/FedWikiPage.class.st | 56 +++++++++++++++++++++- 1 file changed, 55 insertions(+), 1 deletion(-) diff --git a/repository/TiddlyWiki/FedWikiPage.class.st b/repository/TiddlyWiki/FedWikiPage.class.st index 29df435..1b3b9a7 100644 --- a/repository/TiddlyWiki/FedWikiPage.class.st +++ b/repository/TiddlyWiki/FedWikiPage.class.st @@ -2,11 +2,31 @@ Class { #name : #FedWikiPage, #superclass : #Object, #instVars : [ - 'url' + 'url', + 'title', + 'story', + 'journal' ], #category : #'TiddlyWiki-Model' } +{ #category : #accessing } +FedWikiPage >> dataDictionary [ + | dataUrl | + self isView ifFalse: [ + self inform: 'Please provide a view url for the FedWiki page.'. + ^ self]. + dataUrl := self scheme , '://', self host, '/', self titleSegmentUrl, '.json'. + ^ STONJSON fromString: dataUrl asUrl retrieveContents +] + +{ #category : #accessing } +FedWikiPage >> fromDataDictionary [ + title := self dataDictionary at: 'title'. + story := self dataDictionary at: 'story'. + journal := self dataDictionary at: 'journal'. +] + { #category : #accessing } FedWikiPage >> host [ ^ self url host @@ -17,11 +37,45 @@ FedWikiPage >> isView [ ^ self url firstPathSegment = 'view' ] +{ #category : #accessing } +FedWikiPage >> jsonData [ + | dataUrl | + self isView ifFalse: [ + self inform: 'Please provide a view url for the FedWiki page.'. + ^ self]. + dataUrl := self scheme , '://', self host, self titleSegmentUrl, '.json' +] + +{ #category : #accessing } +FedWikiPage >> printOn: aStream [ + super printOn: aStream. + aStream + nextPutAll: '( ', self title, ' | ', self story size asString, ' items story )' +] + { #category : #accessing } FedWikiPage >> scheme [ ^ self url scheme ] +{ #category : #accessing } +FedWikiPage >> story [ + ^ story +] + +{ #category : #accessing } +FedWikiPage >> title [ + ^ title. +] + +{ #category : #accessing } +FedWikiPage >> titleSegmentUrl [ + self isView ifFalse: [ + self inform: 'Please provide a view url for the FedWiki page.'. + ^ self]. + ^ self url segments second. +] + { #category : #accessing } FedWikiPage >> url [ ^ url