BashkaMen

defmodule MiddlewareResult do
  @type t :: {:pass, Plug.Conn.t()} | :reject
end

defmodule NextMiddleware do
  @type t :: (Plug.Conn.t() -> MiddlewareResult.t())

  @spec return :: t()
  def return, do: fn %Plug.Conn{} = conn -> {:pass, conn} end

BashkaMen

#################################################
# This file is a sample of some things you 
# can do with this leader key setup. It's active
# right now! Set leader_key below and try it! The 
# lua prioritizes home.toml, then work.toml,
# then falls back to this sample.toml. If you
# want different profile names, you can add it
# to the list in ~/.hammerspoon/init.lua. 
################################################

BashkaMen

import { randomUUIDv7 } from "bun";
import z from "zod";

const mk_endpoint = <TReq, TRes, TPath extends string = string>(meta: {
  path: TPath;
  method?: string;
  input_schema: z.ZodType<TReq>;
  output_schema: z.ZodType<TRes>;
  handler: (args: {
    input: TReq;

BashkaMen

import { randomUUIDv7 } from 'bun';
import { Map, List, Set, set, } from 'immutable'
import z from 'zod';


type HttpMethod = "GET" | "POST"
type Request = { body: string; url: string; method: HttpMethod; headers: Map<string, string> }

type Response = { body: string; url: string, method: HttpMethod; headers: Map<string, string> }

BashkaMen

{
    "description": "Capslock: short press toggles language, hold or with modifiers acts as command+control+option+shift",
    "manipulators": [
        {
            "conditions": [
                {
                    "input_sources": [{ "language": "en" }],
                    "type": "input_source_if"
                }
            ],

BashkaMen

open System
open System.Data
open System.Text.Json
open Microsoft.FSharp.Core

type request = { path: string; body: string; headers: (string * string) list }
type response = { body: string; code: int; headers: (string * string) list }
type 'env context = { request: request; response: response; env: 'env }

type 'env handler = 'env context -> 'env context option

BashkaMen

namespace Application.Domain

open System
open Application.Domain
open Common
open System.Collections.Generic
open System.Threading.Tasks
open Application
open FSharp.UMX

BashkaMen

public record GetFirstNameState() : IChatState
{
    public ChatView View() => ChatView.Multiple(
        ChatView.WithText("Enter first name"),
        ChatView.WithTextHandler(OnText)
    );

    private async ValueTask<IChatState> OnText(TextMessage msg)
    {
        return new GetLastName(msg.Text);

BashkaMen

#load @"paket-files/fsprojects/Chessie/src/Chessie/ErrorHandling.fs"

type Continuation<'output, 'next> = 'output -> 'next

module TerminalDsl =
    open Chessie.ErrorHandling

    type Terminal<'next> =
    | WriteLine    of string * Continuation<unit, 'next>
    | ReadLine     of unit   * Continuation<string, 'next>

BashkaMen

open System.Collections.Generic


type xSet<'Id, 'T when 'Id : comparison and 'T : equality>(itemId, source: Map<'Id, 'T>) =
        
    let mkNew source = xSet(itemId, source)
    
    member val private HashCode = hash source
    override this.GetHashCode() = this.HashCode
    override this.Equals other =