Refactoring: inital setup using assembly.

src/LogicalHacking.ExtensionDsLab/SqlConnector.fs

@@ -15,7 +15,7 @@
  * along with this program. If not, see <https://www.gnu.org/licenses/>.
  *)
  
-namespace Logicalhacking.ExtensionDsLab.Data
+namespace LogicalHacking.ExtensionDsLab.Data
 
 open FSharp.Data.Sql
 

src/scripts/example.fsx

@@ -14,31 +14,23 @@
  * You should have received a copy of the GNU General Public License
  * along with this program. If not, see <https://www.gnu.org/licenses/>.
  *)
- 
+
 #r @"Mono.Data.Sqlite.dll"
+
 #I @"../../packages/SQLProvider/lib/"
 #r @"FSharp.Data.SqlProvider.dll"
 
-open FSharp.Data.Sql
-open System.IO
-let (+/) path1 path2 = Path.Combine(path1, path2)
+#I "../../packages/FSharp.Data/lib/net40"
+#r "FSharp.Data.dll"
+
+#I "../../bin/LogicalHacking.ExtensionDsLab"
+#r "LogicalHacking.ExtensionDsLab.dll"
+open LogicalHacking.ExtensionDsLab.Data.SqlConnector
+
+#load "../../packages/FsLab/Themes/DefaultWhite.fsx"
+#load "../../packages/FsLab/FsLab.fsx"
+
 
-let [<Literal>] DevelopmentDB = "aa-ac.sqlite"  
-let [<Literal>] FullDB = "full.sqlite" 
-let [<Literal>]  DatabaseDir = "archive/db"
-// static (compile time)  ConnectionString
-let [<Literal>] ConnectionString = @"Data Source=" 
-                                 + __SOURCE_DIRECTORY__ 
-                                 + @"/../.."
-                                 + @"/" + DatabaseDir
-                                 + @"/" + DevelopmentDB + @";Version=3"
-// create a type alias with the connection string and database vendor settings
-type Sql = SqlDataProvider<
-              ConnectionString = ConnectionString,
-              DatabaseVendor = Common.DatabaseProviderTypes.SQLITE,
- //             ResolutionPath = ResolutionPath,
-              IndividualsAmount = 500,
-              UseOptionTypes = true >
 
 let Ctx = Sql.GetDataContext() // ResolutionPath,ConnectionString) // dynamic ResolutionPath and ConnectionString
 
@@ -57,8 +49,6 @@ let exts =
     |> Seq.toList
 
 
-#load "../../packages/FsLab/Themes/DefaultWhite.fsx"
-#load "../../packages/FsLab/FsLab.fsx"
 
 
 let ExtIds = ["aaagbdompnfgjaokopkpaceijcapjdde"
@@ -69,6 +59,10 @@ let ExtIds = ["aaagbdompnfgjaokopkpaceijcapjdde"
               ]
 
 open Deedle
+
+#load "../../packages/FsLab/Themes/DefaultWhite.fsx"
+#load "../../packages/FsLab/FsLab.fsx"
+
 open FSharp.Data
 open XPlot.GoogleCharts
 open XPlot.GoogleCharts.Deedle