Skip to content

Instantly share code, notes, and snippets.

View semuserable's full-sized avatar
💭
Looking for remote job opportunities

semuserable

💭
Looking for remote job opportunities
8 followers · 0 following
View GitHub Profile
@semuserable
semuserable / AsyncUpdateWebsharper.fs
Created July 27, 2017 17:53
let tempDiv = div []
let onAfterRender = on.afterRender (fun _ ->
async {
do! Async.Sleep(5000)
let! data = Server.getMonthAndPricesGroupedDbAsync ()
let barChart = Chart.Bar data
let render = Renderers.ChartJs.Render(barChart, Size = Size(500, 500))
tempDiv.Prepend render
} |> Async.Start
)
@semuserable
semuserable / monthAndNumberGroupedAndSorted.fs
Created July 25, 2017 21:04
let data = [
("January", 1);
("June", 10);
("March", 12);
("February", 20);
("January", 15);
("July", 15)
]
let grouped =
@semuserable
semuserable / main.ts
Last active May 25, 2017 19:19
document.getElementById("index")!.innerHTML = "Changed by TypeScript!"
@semuserable
semuserable / index.html
Created May 25, 2017 19:12
<!DOCTYPE html>
<html>
<body>
<h1>Fun with TypeScript</h1>
<p id="index">Let's rock</p>
<script src="main.js"> </script>
</body>
</html>
@semuserable
semuserable / main.ts
Last active May 21, 2017 17:21
interface Person {
age: number,
name: string,
say(): string
}
let mike = {
age: 25,
name:"Mike",
say: function() {
@semuserable
semuserable / FSharp_apply.fs
Last active January 11, 2017 22:21
let apply optionF optionStr =
match optionF,optionStr with
| Some f, Some str -> Some (f str)
| _ -> None
let repeat count (str:string) = String.replicate count str
let mul x y = x * y
let optionMul = Option.map mul
let retn x = Some x // official naming for upgrading a value
@semuserable
semuserable / Nuget_remove_all
Created January 10, 2017 12:41
// Remove all nuget packages from project
$packages = Get-Package -ProjectName MyProjectName;
foreach($package in $packages) {
Uninstall-Package -ProjectName MyProjectName -Id $package.Id -Force
}
// Remove all nuget packages from all projects from solution
foreach($project in $projects) {
@semuserable
semuserable / FiddlingWithRoslyn.cs
Created October 20, 2016 15:21
using System;
using System.Linq;
using System.Text;
using Microsoft.CodeAnalysis;
using Microsoft.CodeAnalysis.CSharp;
using Microsoft.CodeAnalysis.CSharp.Syntax;
namespace ConsoleRoslyn_1
{
class MyTokenWalker : CSharpSyntaxWalker
@semuserable
semuserable / AsyncTimer.fs
Last active August 31, 2016 16:16
type AsyncTimer(duration) =
let tickEvent = new Event<_>()
let endEvent = new Event<_>()
[<CLIEvent>]
member this.Tick = tickEvent.Publish
[<CLIEvent>]
member this.End = endEvent.Publish
@semuserable
semuserable / FinanceUaRevised.fs
Last active August 23, 2016 13:35
module FinanceRevised.Core
open FinanceRevised.Types
open MaybeBuilder
open System
open System.IO
open FSharp.Data
open FSharp.Data.JsonExtensions