Moving functionality to MiniDocs.
This commit is contained in:
parent
7ca8df2924
commit
8219ae207f
@ -16,5 +16,5 @@ BaselineOfVideoWeb >> baseline: spec [
|
|||||||
|
|
||||||
{ #category : #accessing }
|
{ #category : #accessing }
|
||||||
BaselineOfVideoWeb >> semanticVersion [
|
BaselineOfVideoWeb >> semanticVersion [
|
||||||
^ '0.4.1'
|
^ '0.4.2'
|
||||||
]
|
]
|
||||||
|
@ -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 ] ]
|
|
||||||
]
|
|
Loading…
Reference in New Issue
Block a user