From fdeecc5fde8d2ae733e36770bafa0a1204b783d8 Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Fri, 17 Jun 2022 17:27:00 -0500
Subject: [PATCH] Creating extension for roassal for exporting histograms.

---
 .../instance/exportTweetsHistogramWithBars..st     | 13 +------------
 .../instance/exportAsFileNamed.into..st            | 14 ++++++++++++++
 .../RSCanvas.extension/properties.json             |  3 +++
 3 files changed, 18 insertions(+), 12 deletions(-)
 create mode 100644 Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st
 create mode 100644 Socialmetrica.package/RSCanvas.extension/properties.json

diff --git a/Socialmetrica.package/NitterUser.class/instance/exportTweetsHistogramWithBars..st b/Socialmetrica.package/NitterUser.class/instance/exportTweetsHistogramWithBars..st
index 9178baf..b39c703 100644
--- a/Socialmetrica.package/NitterUser.class/instance/exportTweetsHistogramWithBars..st
+++ b/Socialmetrica.package/NitterUser.class/instance/exportTweetsHistogramWithBars..st
@@ -20,7 +20,6 @@ exportTweetsHistogramWithBars: aNumberOfBars
 	tweetsHistogram := RSChart new.
 	tweetsHistogram extent: 800@200.
 	diagram := RSBarPlot new
-		x: (1 to: subtotals size)
 		y:subtotals.
 	diagram color: (Color r:(91/255) g:(131/255) b:(222/255)).
 	tweetsHistogram addPlot: diagram.
@@ -33,14 +32,4 @@ exportTweetsHistogramWithBars: aNumberOfBars
 		integer;
 		fontSize: 72 /aNumberOfBars).
 	tweetsHistogram build.
-	tweetsHistogram canvas pngExporter 
-		zoomToShapes;
-		noFixedShapes; 
-		fileName: (self folder / 'tweets-histogram.png')fullName;
-		export.
-	tweetsHistogram canvas pdfExporter 
-		zoomToShapes;
-		noFixedShapes; 
-		fileName: (self folder / 'tweets-histogram.pdf')fullName;
-		export.
-	^ self folder / 'tweets-histogram.png'
\ No newline at end of file
+	^ tweetsHistogram canvas exportAsFileNamed: 'tweets-histogram' into: self folder
\ No newline at end of file
diff --git a/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st b/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st
new file mode 100644
index 0000000..337e1d7
--- /dev/null
+++ b/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st
@@ -0,0 +1,14 @@
+*Socialmetrica
+exportAsFileNamed: aName into: aFolder
+	
+	self pngExporter 
+		zoomToShapes;
+		noFixedShapes;
+		fileName: (aFolder / (aName, 'png')) fullName;
+		export.
+	"self pdfExporter 
+		zoomToShapes;
+		noFixedShapes; 
+		fileName: (aFolder / (aName, 'pdf')) fullName;
+		export."
+	^ aFolder / aName, 'png'
\ No newline at end of file
diff --git a/Socialmetrica.package/RSCanvas.extension/properties.json b/Socialmetrica.package/RSCanvas.extension/properties.json
new file mode 100644
index 0000000..052471b
--- /dev/null
+++ b/Socialmetrica.package/RSCanvas.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "RSCanvas"
+}
\ No newline at end of file