Moving functionality to MiniDocs.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-01-08 08:15:43 -05:00
parent 7ca8df2924
commit 8219ae207f
2 changed files with 1 additions and 24 deletions

View File

@ -16,5 +16,5 @@ BaselineOfVideoWeb >> baseline: spec [
{ #category : #accessing }
BaselineOfVideoWeb >> semanticVersion [
^ '0.4.1'
^ '0.4.2'
]

View File

@ -1,23 +0,0 @@
Extension { #name : #BrAsyncFileWidget }
{ #category : #'*VideoWeb' }
BrAsyncFileWidget >> url: aUrl [
| realUrl imageUrl |
realUrl := aUrl asZnUrl.
realUrl scheme = #file ifTrue: [
^ self file: realUrl asFileReference ].
imageUrl := realUrl.
realUrl host = 'www.youtube.com' ifTrue: [ | video |
video := Invidious defaultInstance video: (realUrl queryAt: 'v').
imageUrl := video defaultThumbnailLink asUrl.
].
self stencil: [
(SkiaImage fromForm:
(Form fromBase64String: imageUrl retrieveContents base64Encoded))
asElement constraintsDo: [ :c |
c horizontal matchParent.
c vertical matchParent ] ]
]