tryAutoConvert functionality

projects/hollywoo/src/hollywoo/examples/fountain-to-hollywoo/basic.fountain.hollywoo.ktxt2

@@ -4,7 +4,6 @@ Author: Nat Quayle Nelson (she/her)
 Contact: natquaylenelson@gmail.com
 |>||||testing editing another comment|||EXT. CABIN - DAY
 |>||||
-
 |||A swanky cabin sits in a clearing in the Adirondacks. The Autumn colors are beautiful.
 |>||||
 |||INT. CABIN - SAME

projects/kiss-vscode/config/KissConfig.hx

@@ -12,6 +12,7 @@ import hscript.Expr;
 import haxe.io.Path;
 import sys.io.File;
 import sys.FileSystem;
+import ktxt2.KTxt2;
 
 using haxe.io.Path;
 using StringTools;

projects/kiss-vscode/config/KissConfig.kiss

@@ -238,4 +238,9 @@
             parseInt Std.parseInt
             string Std.string
             random Std.random
-            int Std.int)))
+            int Std.int)))
+
+(#unless test
+    (var :Array<KTxt2Conversion> conversions [])
+
+    (function registerConversion [:KTxt2Conversion conversion] (conversions.push conversion)))

projects/kiss-vscode/config/build.hxml

@@ -2,5 +2,6 @@ args.hxml
 -lib hxnodejs
 -lib vscode
 -lib kiss
+-lib kiss-vscode
 KissConfig
 -js config.js

projects/kiss-vscode/src/Main.hx

@@ -1,6 +1,7 @@
 #if !test
 import vscode.*;
 import ktxt2.*;
+import ktxt2.KTxt2.KTxt2Conversion;
 #end
 import Sys;
 import sys.io.File;
@@ -23,6 +24,9 @@ typedef KissConfig = {
     runCommand:Command,
     runLastCommand:Command,
     runKeyboardShortcut:Command,
+    #if !test
+    conversions:Array<KTxt2Conversion>,
+    #end
     init:() -> Void
 };
 

projects/kiss-vscode/src/Util.kiss

@@ -2,7 +2,6 @@
  * Aliases
  */
 
-
 // output 
 (defAlias &call infoMessage Vscode.window.showInformationMessage)
 (defAlias &call warningMessage Vscode.window.showWarningMessage)

projects/kiss-vscode/src/ktxt2/KTxt2.kiss

@@ -79,11 +79,7 @@
                 (elements.push (Block block))))
             elements))
 
-(var :Array<KTxt2Conversion> conversions [])
-
-(function registerConversion [:KTxt2Conversion conversion] (conversions.push conversion))
-
-(function :Map<String,KTxt2Conversion> validConversions [sourceFile outputFile source]
+(function :Map<String,KTxt2Conversion> validConversions [:Array<KTxt2Conversion> conversions :String sourceFile :String outputFile :String source]
     (let [validMap (new Map)]
         (doFor c conversions
             (case c

projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss

@@ -45,8 +45,8 @@
 					((objectWith [type "tryAutoConvert"] source output outputStart outputEnd)
 						(let [[base sourceExt outputExt _] (document.fileName.split ".")
 								conversions
-									(KTxt2.validConversions "${base}.${sourceExt}" "${base}.${outputExt}" source)]
-							(if (> 0 (Lambda.count conversions))
+									(KTxt2.validConversions Main.config.conversions "${base}.${sourceExt}" "${base}.${outputExt}" source)]
+							(if (> (Lambda.count conversions) 0)
 									(let [overwrite (if output "" "Overwrite")
 											chosenConversion (if (= 1 (Lambda.count conversions)) (first (collect (conversions.iterator))) null)]
 										(withValueOrQuickPick overwrite ["Overwrite" "Cancel"]