gubser

## MultiLineText.tsx
import React from 'react';

export interface MultiLineTextProps extends React.SVGProps<SVGTextElement> {
  children: string[];
}

export function MultiLineText({ children, ...rest }: MultiLineTextProps) {
  if(children.length === 0) {
    return <></>;
  } else {

## computeTextLength.ts
export function computeTextLength(content: string, fontSize?: string) {
  const svgns = "http://www.w3.org/2000/svg";
  // create elements
  const svg: SVGSVGElement = document.createElementNS(svgns, 'svg');
  const text: SVGTextElement = document.createElementNS(svgns, 'text');
  text.textContent = content;
  if(fontSize) {
    text.style.fontSize = fontSize;
  }
  // hook them into dom

## WrappedText.tsx
import React from 'react';
import { isArray } from 'lodash';

export function wrapText(s: string|undefined, maxLength: number): string[] {
  if(s === undefined) {
    return [];
  } else if(s.length < maxLength) {
    return [s];
  } else {
    const lastSpaceIndex = s.lastIndexOf(' ', maxLength);

## SuaveSerilogAdapter.fs
type SuaveSerilogAdapter(logger: Serilog.ILogger) =
    let parser = Serilog.Parsing.MessageTemplateParser()

    let write (level: Suave.Logging.LogLevel) (messageFactory: Suave.Logging.LogLevel -> Suave.Logging.Message) =
        let message = messageFactory level
        let level =
            match level with
            | Suave.Logging.LogLevel.Debug -> Serilog.Events.LogEventLevel.Debug
            | Suave.Logging.LogLevel.Verbose -> Serilog.Events.LogEventLevel.Verbose
            | Suave.Logging.LogLevel.Info -> Serilog.Events.LogEventLevel.Information

## Log.fs
module Turns.Log

open System
open System.Threading.Tasks
open NodaTime

module Logging =
    type LogLevel =
    | Debug
    | Info

## analyzer.py
"""
Given the python code:

out.p = inp.x + inp.y
out.q = inp.y + 1

It finds these dependencies:
inputs are x, y
outputs are p, q
"""

## AsyncBoundedCacheTests.fs
module AsyncBoundedCacheTests

open System
open Xunit

[<Fact>]
let ``insert items`` () = async {
    let f = fun x -> async {
            do! Async.Sleep(1)
            return x

## space-delimited-int-array-column.py

"""
| frame | which | center-x | center-y | vector                     | vector_array                      |
|    44 |     0 |     55.5 |     29.3 | "49 44 31 22 26 22 44 ..." | [49, 44, 31, 22, 26, 22, 44, ...] |
"""

import pandas as pd
df = pd.read_csv(r"C:\Users\egubser\Downloads\blobs.csv", sep=';')
df['vector_array'] = df.vector.apply(lambda v: [int(k) for k in v.split(' ')])

## AsyncBoundedCache.fs
module AsyncBoundedCache

open System
open System.Collections.Concurrent
open System.Threading
open System.Threading.Tasks

let startTime = DateTime.UtcNow.Ticks / 10000000L
let now () = int ((DateTime.UtcNow.Ticks / 10000000L) - startTime)

## text-symbol-halo.html
<!DOCTYPE html>
<html>
<head>
  <meta charset="utf-8">
  <meta name="viewport" content="initial-scale=1,maximum-scale=1,user-scalable=no">
  <title>TextSymbol with Halo - 4.9</title>
  <style>
    html,
    body,
    #viewDiv {
	import React from 'react';

	export interface MultiLineTextProps extends React.SVGProps<SVGTextElement> {
	children: string[];
	}

	export function MultiLineText({ children, ...rest }: MultiLineTextProps) {
	if(children.length === 0) {
	return <></>;
	} else {
	export function computeTextLength(content: string, fontSize?: string) {
	const svgns = "http://www.w3.org/2000/svg";
	// create elements
	const svg: SVGSVGElement = document.createElementNS(svgns, 'svg');
	const text: SVGTextElement = document.createElementNS(svgns, 'text');
	text.textContent = content;
	if(fontSize) {
	text.style.fontSize = fontSize;
	}
	// hook them into dom
	import React from 'react';
	import { isArray } from 'lodash';

	export function wrapText(s: string\|undefined, maxLength: number): string[] {
	if(s === undefined) {
	return [];
	} else if(s.length < maxLength) {
	return [s];
	} else {
	const lastSpaceIndex = s.lastIndexOf(' ', maxLength);
	type SuaveSerilogAdapter(logger: Serilog.ILogger) =
	let parser = Serilog.Parsing.MessageTemplateParser()

	let write (level: Suave.Logging.LogLevel) (messageFactory: Suave.Logging.LogLevel -> Suave.Logging.Message) =
	let message = messageFactory level
	let level =
	match level with
	\| Suave.Logging.LogLevel.Debug -> Serilog.Events.LogEventLevel.Debug
	\| Suave.Logging.LogLevel.Verbose -> Serilog.Events.LogEventLevel.Verbose
	\| Suave.Logging.LogLevel.Info -> Serilog.Events.LogEventLevel.Information
	module Turns.Log

	open System
	open System.Threading.Tasks
	open NodaTime

	module Logging =
	type LogLevel =
	\| Debug
	\| Info
	"""
	Given the python code:

	out.p = inp.x + inp.y
	out.q = inp.y + 1

	It finds these dependencies:
	inputs are x, y
	outputs are p, q
	"""
	module AsyncBoundedCacheTests

	open System
	open Xunit

	[<Fact>]
	let ``insert items`` () = async {
	let f = fun x -> async {
	do! Async.Sleep(1)
	return x

	"""
	\| frame \| which \| center-x \| center-y \| vector \| vector_array \|
	\| 44 \| 0 \| 55.5 \| 29.3 \| "49 44 31 22 26 22 44 ..." \| [49, 44, 31, 22, 26, 22, 44, ...] \|
	"""

	import pandas as pd
	df = pd.read_csv(r"C:\Users\egubser\Downloads\blobs.csv", sep=';')
	df['vector_array'] = df.vector.apply(lambda v: [int(k) for k in v.split(' ')])
	module AsyncBoundedCache

	open System
	open System.Collections.Concurrent
	open System.Threading
	open System.Threading.Tasks

	let startTime = DateTime.UtcNow.Ticks / 10000000L
	let now () = int ((DateTime.UtcNow.Ticks / 10000000L) - startTime)
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="utf-8">
	<meta name="viewport" content="initial-scale=1,maximum-scale=1,user-scalable=no">
	<title>TextSymbol with Halo - 4.9</title>
	<style>
	html,
	body,
	#viewDiv {