From e045592827fbcba0183cea621364f8526f6ca2c5 Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Wed, 18 Aug 2021 17:00:15 -0500 Subject: [PATCH] Starting profiles previews. --- .../instance/userEndPointFor.selecting..st | 2 +- .../instance/gtViewContactDetailsOn..st | 49 +++++++++++++++++++ .../TwitterUser.class/instance/name.st | 3 ++ .../TwitterUsersGroup.class/README.md | 0 .../instance/gtUsersMentioningOn..st | 12 +++++ .../instance/title..st | 3 ++ .../TwitterUsersGroup.class/instance/title.st | 3 ++ .../instance/users..st | 3 ++ .../TwitterUsersGroup.class/instance/users.st | 3 ++ .../TwitterUsersGroup.class/properties.json | 14 ++++++ 10 files changed, 91 insertions(+), 1 deletion(-) create mode 100644 Datanalitica.package/TwitterUser.class/instance/gtViewContactDetailsOn..st create mode 100644 Datanalitica.package/TwitterUser.class/instance/name.st create mode 100644 Datanalitica.package/TwitterUsersGroup.class/README.md create mode 100644 Datanalitica.package/TwitterUsersGroup.class/instance/gtUsersMentioningOn..st create mode 100644 Datanalitica.package/TwitterUsersGroup.class/instance/title..st create mode 100644 Datanalitica.package/TwitterUsersGroup.class/instance/title.st create mode 100644 Datanalitica.package/TwitterUsersGroup.class/instance/users..st create mode 100644 Datanalitica.package/TwitterUsersGroup.class/instance/users.st create mode 100644 Datanalitica.package/TwitterUsersGroup.class/properties.json diff --git a/Datanalitica.package/TwitterAPI.class/instance/userEndPointFor.selecting..st b/Datanalitica.package/TwitterAPI.class/instance/userEndPointFor.selecting..st index 5f0cc10..13c07a8 100644 --- a/Datanalitica.package/TwitterAPI.class/instance/userEndPointFor.selecting..st +++ b/Datanalitica.package/TwitterAPI.class/instance/userEndPointFor.selecting..st @@ -3,5 +3,5 @@ userEndPointFor: username selecting: tweetsOrMentions "I build a shared URL for querying last 100 mentions or tweets for a particular user. Second parameter should be only 'tweets' or 'mentions', dateString, if present, should be YYYY-MM-DD." | commonQueryParameters | - commonQueryParameters := '?expansions=author_id&tweet.fields=conversation_id,created_at&user.fields=username,profile_image_url&max_results=100'. + commonQueryParameters := '?expansions=author_id&tweet.fields=conversation_id,created_at&user.fields=username,name,profile_image_url&max_results=100'. ^ self usersBaseEndPoint, (self userIDFrom: username), '/', tweetsOrMentions, commonQueryParameters \ No newline at end of file diff --git a/Datanalitica.package/TwitterUser.class/instance/gtViewContactDetailsOn..st b/Datanalitica.package/TwitterUser.class/instance/gtViewContactDetailsOn..st new file mode 100644 index 0000000..384acd6 --- /dev/null +++ b/Datanalitica.package/TwitterUser.class/instance/gtViewContactDetailsOn..st @@ -0,0 +1,49 @@ +accessing +gtViewContactDetailsOn: aView + + ^ aView explicit + title: 'Details' translated; + priority: 5; + stencil: [ + |container verticalContainer detailsTextContainer avatarContainer nameTextContainer details| + details := String streamContents: [:aStream | + aStream nextPutAll: self name. + aStream cr. + ]. + + container := BlElement new + layout: BlLinearLayout horizontal; + background: Color white; + aptitude: BrShadowAptitude; + margin: (BlInsets all: 20); + constraintsDo: [ :c | + c horizontal fitContent. + c vertical fitContent]. + avatarContainer := BlElement new + size: 124@124; + background: (self profileImage scaledToSize: 124@124); + margin: (BlInsets all: 10). + nameTextContainer := BlTextElement new + constraintsDo: [ :c | + c horizontal matchParent ]; + margin: (BlInsets top: 5 right: 0 bottom: 20 left: 5); + text: (('@', self userName) asRopedText glamorousRegularFont + fontSize: 30; + foreground: Color black). + detailsTextContainer := BrEditor new + aptitude: (BrGlamorousRegularEditorAptitude new fontSize: 16); + text: details; + constraintsDo: [ :c | + c horizontal matchParent. + c vertical matchParent ]. + verticalContainer := BlElement new + layout: BlLinearLayout vertical; + margin: (BlInsets all: 10); + constraintsDo: [ :c | + c horizontal matchParent. + c vertical matchParent]. + verticalContainer addChild: nameTextContainer. + verticalContainer addChild: detailsTextContainer. + container addChild: avatarContainer. + container addChild: verticalContainer. + container ]. \ No newline at end of file diff --git a/Datanalitica.package/TwitterUser.class/instance/name.st b/Datanalitica.package/TwitterUser.class/instance/name.st new file mode 100644 index 0000000..22077c2 --- /dev/null +++ b/Datanalitica.package/TwitterUser.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ name \ No newline at end of file diff --git a/Datanalitica.package/TwitterUsersGroup.class/README.md b/Datanalitica.package/TwitterUsersGroup.class/README.md new file mode 100644 index 0000000..e69de29 diff --git a/Datanalitica.package/TwitterUsersGroup.class/instance/gtUsersMentioningOn..st b/Datanalitica.package/TwitterUsersGroup.class/instance/gtUsersMentioningOn..st new file mode 100644 index 0000000..9101043 --- /dev/null +++ b/Datanalitica.package/TwitterUsersGroup.class/instance/gtUsersMentioningOn..st @@ -0,0 +1,12 @@ +accessing +gtUsersMentioningOn: aView + + ^ aView columnedList + title: self title translated; + priority: 5; + items: [ self users ]; + column: 'Imagen' + icon: [ :aTwitterUser | aTwitterUser profileImage asElement asScalableElement size: 32 @ 32 ] + width: 75; + column: 'User Name' text: [ :aTwitterUser | aTwitterUser userName ]; + column: 'Name' text: [ :aTwitterUser | aTwitterUser name ] \ No newline at end of file diff --git a/Datanalitica.package/TwitterUsersGroup.class/instance/title..st b/Datanalitica.package/TwitterUsersGroup.class/instance/title..st new file mode 100644 index 0000000..b28409e --- /dev/null +++ b/Datanalitica.package/TwitterUsersGroup.class/instance/title..st @@ -0,0 +1,3 @@ +accessing +title: aString + title := aString \ No newline at end of file diff --git a/Datanalitica.package/TwitterUsersGroup.class/instance/title.st b/Datanalitica.package/TwitterUsersGroup.class/instance/title.st new file mode 100644 index 0000000..fc1a896 --- /dev/null +++ b/Datanalitica.package/TwitterUsersGroup.class/instance/title.st @@ -0,0 +1,3 @@ +accessing +title + ^ title \ No newline at end of file diff --git a/Datanalitica.package/TwitterUsersGroup.class/instance/users..st b/Datanalitica.package/TwitterUsersGroup.class/instance/users..st new file mode 100644 index 0000000..d72369d --- /dev/null +++ b/Datanalitica.package/TwitterUsersGroup.class/instance/users..st @@ -0,0 +1,3 @@ +accessing +users: aTwitterUsersCollection + users := aTwitterUsersCollection \ No newline at end of file diff --git a/Datanalitica.package/TwitterUsersGroup.class/instance/users.st b/Datanalitica.package/TwitterUsersGroup.class/instance/users.st new file mode 100644 index 0000000..dd6474d --- /dev/null +++ b/Datanalitica.package/TwitterUsersGroup.class/instance/users.st @@ -0,0 +1,3 @@ +accessing +users + ^ users \ No newline at end of file diff --git a/Datanalitica.package/TwitterUsersGroup.class/properties.json b/Datanalitica.package/TwitterUsersGroup.class/properties.json new file mode 100644 index 0000000..07682a9 --- /dev/null +++ b/Datanalitica.package/TwitterUsersGroup.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "Object", + "category" : "Datanalitica-Datanalitica", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "users", + "title" + ], + "name" : "TwitterUsersGroup", + "type" : "normal" +} \ No newline at end of file