Implemented preview and changed packaging strategy

Author: m-messer

evaluate.m

@@ -14,11 +14,28 @@
 
 (* For new style packages see: https://mathematica.stackexchange.com/a/176489) *)
 (* Declare package context *)
-Package["evaluate`"]
+BeginPackage["evaluate`"]
 
+EvaluationFunction[type_, answer_, response_, params_] := Module[{result, feedback},
+  Print["Running Evaluation Function"];
+  result = evalQ[type, answer, response, params];
+  Print["Results"];
+  Print[result];
+  feedback = If[result["is_correct"],
+      Lookup[params, "correct_response_feedback", "Correct!"],
+      Lookup[params, "incorrect_response_feedback", "Incorrect!"]
+      ];
+  <|
+    "command" -> "eval",
+    "result" -> <|
+      "is_correct" -> result["is_correct"],
+      "feedback" -> feedback,
+      "error" -> result["error"]
+    |>
+  |>
+]
 
-(* Export functions *)
-PackageExport["EvaluationFunction"]
+Begin["`Private`"]
 
 equalQNumeric[answer_, response_, params_] := Module[{tolerance},
   Print["Evaluating Equal Numeric"];
@@ -156,22 +173,5 @@
     equalQOther[answer, response, params]
   ]
 ];
-
-EvaluationFunction[type_, answer_, response_, params_] := Module[{result, feedback},
-  Print["Running Evaluation Function"];
-  result = evalQ[type, answer, response, params];
-  Print["Results"];
-  Print[result];
-  feedback = If[result["is_correct"],
-      Lookup[params, "correct_response_feedback", "Correct!"],
-      Lookup[params, "incorrect_response_feedback", "Incorrect!"]
-      ];
-  <|
-    "command" -> "eval",
-    "result" -> <|
-      "is_correct" -> result["is_correct"],
-      "feedback" -> feedback,
-      "error" -> result["error"]
-    |>
-  |>
-]
+End[]
+EndPackage[]

evaluation_function.wl

@@ -1,21 +1,47 @@
 (* ::Package:: *)
 
-(* The code that handles incoming messanges and passes them to evaluate or preview accordingly*)
+(* The code that handles incoming messages and passes them to evaluate or preview accordingly*)
 
 << "evaluate.m";
+<< "preview.m";
 
-evalQuestionIO = Function[
-  Module[{jsonData, result},
-    jsonData = Import[#1, "JSON"] //. List :> Association;
+
+processEvaluate[jsonData_] := Module[{result, requestData, answer, response, params, type},
     requestData = jsonData["params"];
     answer = requestData["answer"];
     response = requestData["response"];
     params = requestData["params"];
     type = params["comparisonType"];
+
     Print["Evaluating Response Against Answer"];
     result = EvaluationFunction[type, answer, response, params];
-    resultAssoc = result[[4]];
-    Print["Response"];
+    Print["Output: ", result];
+    result
+]
+
+processPreview[jsonData_] := Module[{result, requestData, response},
+    requestData = jsonData["params"];
+    response = requestData["response"];
+
+    Print["Previewing Response"];
+
+    result = PreviewFunction[response];
+    Print["Result: ", result];
+    result
+]
+
+evalQuestionIO = Function[
+  Module[{jsonData, command, resultAssoc},
+    jsonData = Import[#1, "JSON"] //. List :> Association;
+    command = jsonData["method"];
+
+    resultAssoc = Which[
+      command == "eval", processEvaluate[jsonData],
+      command == "preview", processPreview[jsonData],
+      True, "Incorrect command"
+    ];
+
+    Print["Outputted JSON"];
     Print[resultAssoc];
     Export[#2, resultAssoc, "JSON", "Compact" -> True]
   ]

preview.m

@@ -0,0 +1,32 @@
+(* Wolfram Language Package *)
+(* Created by the Wolfram Language Plugin for IntelliJ, see http://wlplugin.halirutan.de/ *)
+
+(* :Title: preview *)
+(* :Context: preview` *)
+(* :Author: marcus *)
+(* :Date: 2025-09-26 *)
+
+(* :Package Version: 0.1 *)
+(* :Mathematica Version: 14.0 *)
+(* :Copyright: (c) 2025 Lambda Feedback *)
+(* :Keywords: *)
+(* :Discussion: *)
+
+(* For new style packages see: https://mathematica.stackexchange.com/a/176489) *)
+(* Declare package context *)
+BeginPackage["preview`"]
+
+PreviewFunction[response_] := Module[{result},
+  Print["Running Preview Function"];
+  Print["Preview Input:", response];
+  <|
+        "command" -> "preview",
+        "result" -> <|
+          "preview" -> <|
+            "message" -> response
+          |>
+        |>
+  |>
+]
+
+EndPackage[]