Thorium

// This expects you have 2 projects, this first one has dependendency only to Microsoft.Extensions.Logging.Abstractions 
// (and temporarily usage of Microsoft.Extensions.Logging.Console ).
module AbstractProject

let loggerFactory =
    Microsoft.Extensions.Logging.LoggerFactory.Create(fun builder ->
        let _ = Microsoft.Extensions.Logging.ConsoleLoggerExtensions.AddSimpleConsole builder
        ())

/// This is ILogger. 

Thorium

//High-performance JSON parsing with System.Text.Json and F#
// Example translated to F# from 
// https://learn.microsoft.com/en-us/dotnet/standard/serialization/system-text-json/use-utf8jsonreader
#r "nuget:System.Text.Json"

open System
open System.Text
open System.Text.Json

let options = JsonReaderOptions(

Thorium

let myTimeStamp = 
    let zone = System.TimeZone.CurrentTimeZone.GetUtcOffset System.DateTime.Now
    let prefix = match (zone<System.TimeSpan.Zero) with | true -> "-" | _ -> "+"
    System.DateTime.UtcNow.ToString("yyyyMMddHHmmssffff") + prefix + zone.ToString("hhss");     

Thorium

// Find binding-redirects with linq-to-xml from a .config file. 
// This might be useful for then parsing config-changes e.g. by System.Linq.Enumerable.Except

#r @"System.Xml.Linq.dll"
open System.Xml.Linq
let parseBindingRedirects (filename:string) =
    let xn s = XName.Get(s,"urn:schemas-microsoft-com:asm.v1")
    let xml = XDocument.Load filename
    let depAssemblies = xml.Descendants(xn "dependentAssembly")
    seq {

Thorium

// A simple expression tree visitor, to inject a lambda inside another lambda parameters.
open Microsoft.FSharp.Linq.RuntimeHelpers
open System
open System.Linq.Expressions

//F#-helper method for Linq.Expressions: fssnip.net/ts/title/F-lambda-to-C-LINQ-Expression
module Lambda =
    let toExpression (``f# lambda`` : Quotations.Expr<'a>) =
        ``f# lambda``
        |> LeafExpressionConverter.QuotationToExpression 

Thorium

// Using FSharp.Data
type WalletData = 
    FSharp.Data.JsonProvider<
        """{"unspent_outputs":[{"value":9000000000},{"value":10}]}""">

let getBalance publicKey =
    let balance = 
        try
            WalletData.Load(

Thorium

//Using FSharp.Data
type BtcData = FSharp.Data.JsonProvider<"""{
  "USD":{"15m":1.1,"last":1.1,"buy":1.1,"sell":1.1,"symbol":"$"},
  "EUR":{"15m":1.1,"last":1.1,"buy":1.1,"sell":1.1,"symbol":"€"},
  "GBP":{"15m":1.1,"last":1.1,"buy":1.1,"sell":1.1,"symbol":"£"}
}""">

let prices = BtcData.Load("https://blockchain.info/ticker")
//prices.Eur.Buy  : val it : decimal = 923.52M (at 02/02/2017)
//prices.Gbp.Sell : val it : decimal = 794.61M (at 02/02/2017)

Thorium

function tiktokTag() {
    try {
        window.TiktokAnalyticsObject = 'ttq';
        var ttq = window.ttq = window.ttq || [];
        ttq.methods = ["page", "track", "identify", "instances", "debug", "on", "off", "once", "ready", "alias", "group", "enableCookie", "disableCookie"];
        ttq.setAndDefer = function(t, e) {
            t[e] = function() {
                t.push([e].concat(Array.prototype.slice.call(arguments, 0)))
            }
        };

Thorium

/// <reference path="./../../paket-files/borisyankov/DefinitelyTyped/google.analytics/ga.d.ts" />

export var gaNewElem : any = {};
export var gaElems : any = {};

function gaInit(){
  var currdate : any = new Date();
  
  /* tslint:disable:no-string-literal */
  /* tslint:disable:semicolon */

Thorium

/// Set of little F# (FSharp) functions as script tools to work with 
/// - KML files (Keyhole Markup Language) used by Google Earth and Google Maps
/// - Google Maps Streetview API,
/// - Oculus Wander Application (by Parkline Interactive, LLC) bookmarks: Wander_Favorites.json

/// You have to first set your Google API key to environment variables as api-key and enable
/// Streetview API for that
// System.Environment.SetEnvironmentVariable("api-key", "...")

#r "nuget: FSharp.Data"