Improving FedWiki <--> TiddlyWiki interaction.

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