Semantic versioning and starting API implementation.

app/BaselineOfVideoWeb/BaselineOfVideoWeb.class.st

@@ -13,3 +13,8 @@ BaselineOfVideoWeb >> baseline: spec [
 			spec package: 'VideoWeb'
 		]
 ]
+
+{ #category : #accessing }
+BaselineOfVideoWeb >> semanticVersion [
+	^ '0.1.0'
+]

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|