Offray
/
Socialmetrica
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Creating replies and quotes static web report histogram.

This commit is contained in:
ruidajo 2022-06-03 19:43:01 -05:00
parent c713ad9d28
commit 91744733bd
6 changed files with 55 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Socialmetrica.package/NitterUser.class/instance/asDictionary.st
View File

@ -1,9 +1,11 @@
accessing
asDictionary
| tweets tweetsHistogramData |
| tweets tweetsHistogramData repliesHistogramData quotesHistogramData |
tweets := self messages.
tweetsHistogramData := self tweetsByWeeksTimeSpan.
repliesHistogramData := self repliesByWeeksTimeSpan.
quotesHistogramData := self quotesReportData.
^ { 'profile-card-avatar' -> self profileImageFile fullName.
'profile-card-avatar-url' -> self profileImageUrl.
'profile-card-fullname' -> self name .
@ -14,4 +16,8 @@ asDictionary
'messages-oldest' -> tweets oldest created asDate greaseString.
'tweets-histogram-labels' -> tweetsHistogramData third.
'tweets-histogram-quantity' -> tweetsHistogramData second.
'replies-histogram-labels' -> repliesHistogramData third.
'replies-histogram-quantity' -> repliesHistogramData second.
'quotes-histogram-labels' -> quotesHistogramData third.
'quotes-histogram-quantity' -> quotesHistogramData second.
} asDictionary

3
Socialmetrica.package/NitterUser.class/instance/installTemplate.st
View File

@ -5,7 +5,8 @@ installTemplate
templateFiles := #(
'https://mutabit.com/repos.fossil/mutabit/raw?name=plantillas/TwentySecondsCV/twentysecondcvMod.cls&ci=tip'
'https://mutabit.com/repos.fossil/mutabit/raw?name=plantillas/TwentySecondsCV/template.mus.tex&ci=tip'
'https://mutabit.com/repos.fossil/mutabit/raw?name=plantillas/SarissaPersonalBlog/index.mus.html&ci=tip').
'https://mutabit.com/repos.fossil/mutabit/raw?name=plantillas/SarissaPersonalBlog/index.mus.html&ci=tip'
'https://mutabit.com/repos.fossil/mutabit/raw?name=plantillas/SarissaPersonalBlog/output.css&ci=tip').
folder := TweetsCollection dataStore / 'templates'.
folder exists
ifTrue: [ folder ensureDeleteAllChildren ]

14
Socialmetrica.package/NitterUser.class/instance/quotesReportData.st Normal file
View File

@ -0,0 +1,14 @@
accessing
quotesReportData
| tempDict labels xAxis |
tempDict := self quotesSortedByOccurrences.
labels := tempDict keys.
labels := labels collect: [ :profile | ($' asString), '@', profile, ($' asString) ].
xAxis := tempDict values.
xAxis := xAxis collect: [ :value | ($' asString), (value asString), ($' asString) ].
^ {
tempDict.
('[', (',' join: xAxis), ']').
('[', (',' join: labels), ']').
}

19
Socialmetrica.package/NitterUser.class/instance/repliesByWeeksTimeSpan.st Normal file
View File

@ -0,0 +1,19 @@
accessing
repliesByWeeksTimeSpan
| tweetsByTimeSpan xAxis labels |
tweetsByTimeSpan := self collectMessages: [ self replies ] byTimeSpanSplits: self tweetsDivisionsByWeeks.
xAxis := OrderedCollection new.
(tweetsByTimeSpan values collect: [ :collection | collection size ]) do: [ :number |
xAxis add: ($' asString), (number asString), ($' asString)
].
labels := OrderedCollection new.
tweetsByTimeSpan keys do: [ :string |
labels add: ($' asString), string, ($' asString)
].
^ {
tweetsByTimeSpan.
('[', (',' join: xAxis), ']').
('[', (',' join: labels), ']').
}

11
Socialmetrica.package/NitterUser.class/instance/tweetsByWeeksTimeSpan.st
View File

@ -1,20 +1,15 @@
accessing
tweetsByWeeksTimeSpan
| weeks floor divisions tweetsByTimeSpan xAxis labels |
weeks := ((self newestTweet created - self oldestTweet created) days / 7).
floor := weeks floor.
(weeks - floor) > 0.4
ifTrue: [ divisions := floor ]
ifFalse: [ divisions := floor + 1 ].
tweetsByTimeSpan := self collectMessages: [ self tweets] byTimeSpanSplits: divisions.
| tweetsByTimeSpan xAxis labels |
tweetsByTimeSpan := self collectMessages: [ self tweets] byTimeSpanSplits: self tweetsDivisionsByWeeks.
xAxis := OrderedCollection new.
(tweetsByTimeSpan values collect: [ :collection | collection size ]) do: [ :number |
xAxis add: ($' asString), (number asString), ($' asString)
].
labels := OrderedCollection new.
tweetsByTimeSpan keys do: [ :string |
labels add: ($' asString), string, ($' asString)
labels add: ($' asString), string, ($' asString)
].
^ {
tweetsByTimeSpan.

10
Socialmetrica.package/NitterUser.class/instance/tweetsDivisionsByWeeks.st Normal file
View File

@ -0,0 +1,10 @@
accessing
tweetsDivisionsByWeeks
| weeks floor divisions |
weeks := ((self newestTweet created - self oldestTweet created) days / 7).
floor := weeks floor.
(weeks - floor) > 0.4
ifTrue: [ divisions := floor ]
ifFalse: [ divisions := floor + 1 ].
^ divisions