- firacode
- windows-terminal
- starship
- gopass
- pass-winmenu-nogpg
- micro
- nodejs
- jq
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ========= Event Sourcing in a nutshell | |
(* | |
FriendlyName: string | |
Aggregate friendly name. | |
Initial: 'State | |
Initial (empty) state we will start with. | |
Decide: 'Command -> 'State -> 'Event list |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#r "nuget: Microsoft.Extensions.Http, 6.0.0" | |
let factory = | |
ServiceCollection() | |
.AddHttpClient("dummy") | |
.ConfigureHttpClient(fun c -> | |
printfn "dummy configured" | |
c.BaseAddress <- Uri "https://dummyjson.com" | |
c.Timeout <- TimeSpan.FromMinutes 2.) | |
.Services |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#r "nuget: Flurl.Http" | |
module HttpApi = | |
open System | |
open System.Net | |
open System.Text.Json | |
open Flurl.Http | |
type Serializer (opt) = | |
interface Configuration.ISerializer with |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
type Pins = int | |
let [<Literal>] MaxPins : Pins = 10 | |
type Frame = | |
| Strike of Pins | |
| Spare of Pins * Pins | |
| Open of Pins * Pins | |
| Pending of Pins | |
| Final of Pins * Pins option * Pins option |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
[core] | |
excludesFile = ~/.gitignore | |
[user] | |
name = My Name | |
[includeIf "gitdir:~/git/"] | |
path = ~/.gitconfig-work | |
[includeIf "gitdir:~/github/"] | |
path = ~/.gitconfig-home |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module AsyncSeq = | |
open System.Collections.Generic | |
open System.Threading.Tasks | |
let cancelled (cancellationToken: CancellationToken) = | |
Task.FromCanceled<bool> cancellationToken | |
|> ValueTask<bool> | |
let ofSeq (sq: Task<'T> seq) = { | |
new IAsyncEnumerable<'T> with |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
[Code] | |
function LoadValueFromXML(const AFileName, APath: string): string; | |
var | |
XMLNode: Variant; | |
XMLDocument: Variant; | |
begin | |
Log('Get Xml text node: ' + AFileName); | |
Result := ''; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
[<RequireQualifiedAccess>] | |
module Notify | |
open System | |
open Elmish | |
open Bolero | |
open Bolero.Html | |
type State = Opened | Closed |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* | |
| Method | Mean | Error | StdDev | Allocated | | |
|------- |--------:|--------:|--------:|----------:| | |
| Task | 15.99 s | 0.107 s | 0.095 s | 314 KB | | |
| Async | 16.02 s | 0.089 s | 0.079 s | 990 KB | | |
*) | |
open System.Threading.Tasks | |
open BenchmarkDotNet.Attributes | |
open BenchmarkDotNet.Running |