Moving functionality to MiniDocs.
This commit is contained in:
parent
7ca8df2924
commit
8219ae207f
@ -16,5 +16,5 @@ BaselineOfVideoWeb >> baseline: spec [
|
||||
|
||||
{ #category : #accessing }
|
||||
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