Minor: classification.
This commit is contained in:
parent
748fd06cbc
commit
6d459b7ac3
@ -4,9 +4,9 @@ Class {
|
|||||||
#category : #'Shortener-Model'
|
#category : #'Shortener-Model'
|
||||||
}
|
}
|
||||||
|
|
||||||
{ #category : #'as yet unclassified' }
|
{ #category : #operation }
|
||||||
YouTube class >> enlargeLink: shortLinkString [
|
YouTube class >> enlargeLink: shortLinkString [
|
||||||
| videoId videoLink shortLinkHost |
|
| videoId shortLinkHost |
|
||||||
|
|
||||||
shortLinkHost := shortLinkString asZnUrl host.
|
shortLinkHost := shortLinkString asZnUrl host.
|
||||||
(shortLinkHost = 'www.youtube.com') ifTrue: [ ^ shortLinkHost ].
|
(shortLinkHost = 'www.youtube.com') ifTrue: [ ^ shortLinkHost ].
|
||||||
|
Loading…
Reference in New Issue
Block a user