Thorium’s gists

Thorium / phpmd5.fs

Created April 13, 2016 14:46

Calculate MD5 hash that can be used when interacting with a PHP-website. Note: MD5 has been cracked and shouldn't be used in new systems.

	let phpMd5 (dataToHash:string) =
	use md5 = new System.Security.Cryptography.MD5CryptoServiceProvider();
	let encodedBytes = dataToHash \|> System.Text.ASCIIEncoding.Default.GetBytes \|> md5.ComputeHash
	System.Text.RegularExpressions.Regex.Replace(System.BitConverter.ToString(encodedBytes), "-", "").ToLower()

Thorium / server.fs

Created April 8, 2016 18:05

Simple OWIN Self-Host web-server with static files support and request deflate/gzip compression.

	// Nuget packages: Owin, Microsoft.Owin, Microsoft.Owin.Hosting, Microsoft.Owin.Host.HttpListener, Owin.Compression, Microsoft.Owin.StaticFiles, Microsoft.Owin.FileSystems

	#if INTERACTIVE
	#I @"./packages/Owin/lib/net40"
	#I @"./packages/Owin.Compression/lib/net45"
	#I @"./packages/Microsoft.Owin/lib/net45"
	#I @"./packages/Microsoft.Owin.Hosting/lib/net45"
	#I @"./packages/Microsoft.Owin.Host.HttpListener/lib/net45"
	#I @"./packages/Microsoft.Owin.StaticFiles/lib/net45"
	#I @"./packages/Microsoft.Owin.FileSystems/lib/net45"

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 / 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 / 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 / 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 / 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 / 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 / .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 / 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

Tuomas Hietanen Thorium