From 29b758c58aeca4b2a1704f7be69f2fe755238b7b Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 17 Jun 2022 18:10:48 -0500
Subject: [PATCH] Modurizing file exporters.

---
 .../instance/exportAsFileNamed.into..st       | 21 +++++++++----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st b/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st
index 337e1d7..ab6ac95 100644
--- a/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st
+++ b/Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st
@@ -1,14 +1,13 @@
 *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."
+	| exporters |
+	exporters := {'png' -> #pngExporter . 
+		'pdf' -> #pdfExporter } asDictionary.
+	exporters keysAndValuesDo: [:k :v | 
+		(self perform: v) 
+			zoomToShapes;
+			noFixedShapes;
+			fileName: (aFolder / (aName, '.', k)) fullName;
+			export.	
+	].
 	^ aFolder / aName, 'png'
\ No newline at end of file