Improving FedWiki <--> TiddlyWiki interaction.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-08-04 12:30:36 -05:00
parent f317287ed6
commit 638cb79d00

View File

@ -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