Skip to content

Instantly share code, notes, and snippets.

View Thorium's full-sized avatar

Tuomas Hietanen Thorium

137 followers · 270 following
View GitHub Profile
@Thorium
Thorium / GoogleAnalytics.ts
Last active March 16, 2022 22:09
Google Analytics Typescript
/// <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
Thorium / logary-text-writer.fs
Last active December 19, 2015 10:42
Simple example for Logary docs
open System
open System.IO
open Logary
open Logary.Configuration
open Logary.Targets
open Logary.Metrics
#if INTERACTIVE
#else
[<EntryPoint>]
@Thorium
Thorium / lambda.fs
Last active November 27, 2015 13:44
F# lambda (quotation) to C# Expression<Func<_>> or Expression<Action<_>>
open Microsoft.FSharp.Linq.RuntimeHelpers
open System
open System.Linq.Expressions
module Lambda =
let toExpression (``f# lambda`` : Quotations.Expr<'a>) =
``f# lambda``
|> LeafExpressionConverter.QuotationToExpression
|> unbox<Expression<'a>>
@Thorium
Thorium / Memoize.fs
Last active September 30, 2015 16:42
Concurrent Memoization
module Memoize
//More generic variant of http://www.fssnip.net/c4
open System.Collections.Concurrent
let cache = ConcurrentDictionary<(string * obj) option,Lazy<obj>>()
let memoizeConcurrent (caller:string) (f: ('a -> 'b)) =
fun (x :'a) ->
(cache.GetOrAdd(Some (caller, x|>box), lazy ((f x)|>box)).Force() |> unbox) : 'b
@Thorium
Thorium / Program.fs
Created July 16, 2015 13:29
Simple CRUD -application. What you will need: 1) a Mac, Windows or Linux computer with FSharp (F#) installed. 2) MariaDB or MySQL installed. 3) Paket package manager. Run "paket.exe install" or "mono paket.exe install". 4) If on Mono, you have to add Program.fs to a project to compile it (or SignalR won't work).
// In MONO, won't work in interactive, you need to make a project and compile a dll.
#if INTERACTIVE
#r @"./packages/FSharp.Data/lib/net40/FSharp.Data.dll"
#r @"./packages/SQLProvider/lib/net40/FSharp.Data.SqlProvider.dll"
// OWIN and SignalR-packages:
#I @"./packages/Microsoft.AspNet.SignalR.Core/lib/net45"
#r @"./packages/Microsoft.AspNet.SignalR.Core/lib/net45/Microsoft.AspNet.SignalR.Core.dll"
#I @"./packages/Microsoft.Owin/lib/net45"
@Thorium
Thorium / Dockerfile
Last active August 29, 2015 14:24 — forked from junosuarez/Dockerfile
Dockerfile to start F# Owin project
FROM ubuntu:14.04
RUN apt-get -y update
# Install Mono (and fsharp)
RUN apt-get -y install mono-devel autoconf pkg-config make git libtool
RUN git clone https://github.com/fsharp/fsharp
RUN cd fsharp && ./autogen.sh --prefix /usr && make && make install
# Add some files
@Thorium
Thorium / .gitignore
Last active August 29, 2015 14:24
How to use Paket also in JavaScript references: How to get Bower-components without npm and Node.js
lib/
paket-files/
[Pp]ackages/
@Thorium
Thorium / InstallBowerAndGulpMac.sh
Last active December 24, 2016 12:48
Installation script: Bower and Gulp for JavaScript development
#!/bin/bash
# Mac version
# Install Homebrew package manager:
ruby -e "$(curl -fsSL https://raw.githubusercontent.com/Homebrew/install/master/install)"
brew update
# Install Node.js and npm
brew install node
npm install -g npm
@Thorium
Thorium / myfile.fsx
Last active August 29, 2015 14:23
One script to create MS-SQL-database and host OWIN Web-server with SignalR-clients
#if INTERACTIVE
open System
open System.IO
Console.WriteLine "Downloading components, etc. Will take a while."
// Run as admin, developer command prompt or F# Interactive. e.g. "fsi myfile.fsx"
[<Literal>]
let connectionString = "Data Source=localhost; Initial Catalog=myDatabase; Integrated Security=True;"
let serverDir = __SOURCE_DIRECTORY__ + @"/frontend"
@Thorium
Thorium / gist:c155e8404dedc7b5610b
Last active August 29, 2015 14:18
Create NuGet packages.config files for csproj-files.
// This program will create packages.config files for each .csproj.
// It will enumerate your projects dll references to know the corresponding NuGet packages.
// packages.config files are used by Paket when converting from NuGet.
#if INTERACTIVE
#r "System.Xml.dll" //for scripts or interactive
#r "System.Xml.Linq.dll" //add reference if using F# as library
#else
module GeneratePaketConfigs
#endif