diff --git a/app/BaselineOfVideoWeb/BaselineOfVideoWeb.class.st b/app/BaselineOfVideoWeb/BaselineOfVideoWeb.class.st index 592b687..bd67e0d 100644 --- a/app/BaselineOfVideoWeb/BaselineOfVideoWeb.class.st +++ b/app/BaselineOfVideoWeb/BaselineOfVideoWeb.class.st @@ -13,3 +13,8 @@ BaselineOfVideoWeb >> baseline: spec [ spec package: 'VideoWeb' ] ] + +{ #category : #accessing } +BaselineOfVideoWeb >> semanticVersion [ + ^ '0.1.0' +] diff --git a/app/VideoWeb/Invidious.class.st b/app/VideoWeb/Invidious.class.st index b0a25b2..4c9e2e2 100644 --- a/app/VideoWeb/Invidious.class.st +++ b/app/VideoWeb/Invidious.class.st @@ -58,6 +58,15 @@ Invidious class >> responseTimes [ collect: [:assoc | assoc ] ] +{ #category : #accessing } +Invidious class >> storeConfiguration [ + + | configFolder | + configFolder := (FileLocator userData / 'Mutabit' / 'VideoWeb') ensureCreateDirectory. + MarkupFile exportAsFileOn: configFolder / 'config.ston' containing: ( STON toStringPretty: self defaultInstance ). + ^ configFolder / 'config.ston' +] + { #category : #accessing } Invidious >> api [ ^ api @@ -68,6 +77,17 @@ Invidious >> api: booleanValue [ api := booleanValue. ] +{ #category : #accessing } +Invidious >> authorIdForVideo: aString [ +] + +{ #category : #accessing } +Invidious >> channel: authorId [ + | queryURL | + queryURL := self uri asString, 'api/v1/channels/', authorId . + ^ STONJSON fromString: queryURL asUrl retrieveContents +] + { #category : #accessing } Invidious >> fromDictionary: aDictionary [ | rawMonitor|