Refactoring and cleanup.

This commit is contained in:
Achim D. Brucker 2017-08-12 20:47:35 +01:00
parent 3b919e1e1d
commit 0f6bc09006
1 changed files with 4 additions and 12 deletions

View File

@ -15,13 +15,15 @@
* 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"
#I "../../packages/FSharp.Data/lib/net40"
#r "FSharp.Data.dll"
open Deedle
open FSharp.Data
open XPlot.GoogleCharts
open XPlot.GoogleCharts.Deedle
#I "../../bin/LogicalHacking.ExtensionDsLab"
#r "LogicalHacking.ExtensionDsLab.dll"
@ -38,8 +40,6 @@ let exts =
|> Seq.distinct
|> Seq.toList
let ExtIds = ["aaagbdompnfgjaokopkpaceijcapjdde"
"aaahoedfmconkhncmkajlkallgnkjibh"
"aaahpjmadckbgmdbflcgblcnimbpfefg"
@ -47,14 +47,6 @@ let ExtIds = ["aaagbdompnfgjaokopkpaceijcapjdde"
"aaaikdbhdiebhdogngakgnmjgpkpcmln"
]
#load "../../packages/FsLab/Themes/DefaultWhite.fsx"
#load "../../packages/FsLab/FsLab.fsx"
open Deedle
open FSharp.Data
open XPlot.GoogleCharts
open XPlot.GoogleCharts.Deedle
let x = (List.map (fun e -> (series (getDownloads ctx e))) ExtIds)
|> Chart.Line
|> Chart.WithOptions (Options(legend=Legend(position="bottom")))