InstagramPharo/Instagram/InstagramUrl.class.st

69 lines
1.1 KiB
Smalltalk
Raw Normal View History

"
I manage instagram URLs information.
InstagramUrl newURL: 'https://instagram.com/restOfURL'
"
Class {
2024-05-26 18:44:40 +00:00
#name : 'InstagramUrl',
#superclass : 'Object',
#instVars : [
'url',
'type'
],
2024-05-26 18:44:40 +00:00
#category : 'Instagram',
#package : 'Instagram'
}
2024-05-26 18:44:40 +00:00
{ #category : 'instance creation' }
InstagramUrl class >> newURL: url [
2024-01-30 17:50:17 +00:00
| instance |
instance := self new.
2024-01-30 17:50:17 +00:00
instance url: (instance urlCheck: url).
^ instance
]
2024-05-26 18:44:40 +00:00
{ #category : 'initialization' }
InstagramUrl >> initialize [
super initialize.
self url.
self type.
]
2024-05-26 18:44:40 +00:00
{ #category : 'opening' }
InstagramUrl >> openWithoutTracking [
WebBrowser openOn: self urlWithoutTracking
]
{ #category : 'accessing' }
InstagramUrl >> type [
^ type
]
2024-05-26 18:44:40 +00:00
{ #category : 'accessing' }
InstagramUrl >> url [
^ url ifNil: [ url := 'https://instagram.com/' asUrl ]
]
2024-05-26 18:44:40 +00:00
{ #category : 'accessing' }
InstagramUrl >> url: aURL [
url := aURL
]
{ #category : 'accessing - data' }
InstagramUrl >> urlTypes [
"I have the collection of correct types."
^ { 'root' . 'user' }
2024-01-30 17:50:17 +00:00
]
2024-05-26 18:44:40 +00:00
{ #category : 'accessing' }
InstagramUrl >> urlWithoutTracking [
^ self url queryRemoveAll; asStringOrText
]