Added request text from file code.

Command-method, also, written.

WetPancake/ProductServices.fs

@@ -12,7 +12,6 @@ module  Pancake =
     open DataStructuring
     open DataServices
 
-    //KEEP THIS HERE.
     let ApplyStandardSetup text =
         text
         |> ReplaceArtifact "\""
@@ -38,4 +37,10 @@ module  Pancake =
             |> GenerateMap
         GenerateMarkovText sentences data
 
-    //let RequestTextFromFile (gibberishLevel: int) (sentences: int) (filePath: string)
+    let RequestTextFromFile (gibberishLevel: int) (sentences: int) (filePath: string) =
+        let data =
+            LoadFile filePath
+            |> ApplyStandardSetup
+            |> SortIntoGroups gibberishLevel
+            |> GenerateMap
+        GenerateMarkovText sentences data

WetPancake/Script.fsx

@@ -121,5 +121,6 @@ let dss_sentences = GenerateMarkovText 2 dss_text
 printfn "Text: %A" dss_sentences
 
 // (WetPancake) Pancake
-let p_result = Pancake.RequestRandomText
-let p_result2 = Pancake.RequestRandomText2
+let p_result = Pancake.RequestRandomText()
+let p_result2 = Pancake.RequestText 5 10
+let p_result3 = Pancake.RequestTextFromFile 3 10 "D:\Developer\Wet-Pancake\WetPancake\TextFiles\desktop-clock-info.txt"

WetPancakeCLI/ConsoleCommands.cs

@@ -45,5 +45,11 @@ namespace WetPancakeCLI
             var result = RequestText(gibberishLevel, sentences);
             return result;
         }
+
+        public static string TextFromFile(int gibberishLevel, int sentences, string filePath)
+        {
+            var result = RequestTextFromFile(gibberishLevel, sentences, filePath);
+            return result;
+        }
     }
 }