🍜

David M. Johnson dmjio

🍜

Pioneering Haskell native mobile 🍜 📱

dmjio / index.ts

Last active August 30, 2025 13:52

	initBackground();

	globalThis['renderPage'] = function () {
	console.log('in main');
	console.log('getting global emitter in main should fail', 'getJSModule' in lynx);
	const context = lynx.getJSContext();
	console.log('js context', context);

	// dmj: this works
	context.addEventListener("message", (event) => {

dmjio / index.html

Created August 19, 2025 17:37

Web RTC example

	<!DOCTYPE html>
	<html lang="en">
	<head>
	<meta charset="UTF-8">
	<meta name="viewport" content="width=device-width, initial-scale=1.0">
	<title>WebSocket API Example</title>
	<style>
	* {
	margin: 0;
	padding: 0;

dmjio / TailwindUI.Components.hs

Created April 5, 2025 20:42

Miso integration with the TailwindUI Components Library, thanks to DeepSeek R1

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RecordWildCards #-}
	{-# LANGUAGE TypeApplications #-}
	module TailwindUI.Components where

	import Miso
	import Miso.String (MisoString, ms)
	import qualified Data.Map as Map

	-- ========================

dmjio / TailwindDaisyMiso.hs

Last active April 5, 2025 19:57

Tailwind Components DaisyUI Library and Miso integration, thanks to DeepSeek R1

	{-# LANGUAGE OverloadedStrings #-}
	module DaisyUI where

	import Miso
	import Miso.String (MisoString, ms)

	-- Action type for all component interactions
	data Action
	= ButtonClicked MisoString
	\| AccordionToggled Int

dmjio / gist:0813a1e4af437096b458d3262ddb7416

Created April 27, 2024 18:51








	Build failed.
	error: builder for '/nix/store/4nb133jpb8np159fs5c63gjn35h5pl0k-wasm32-unknown-wasi-ghc-native-bignum-9.6.5.drv' failed with exit code 1;
	last 10 log lines:

dmjio / SuffixTree.hs

Created February 7, 2024 21:07

	import Data.List (foldl', tails)
	import Data.Map.Internal.Debug
	import qualified Data.Map.Strict as M
	import Data.Maybe
	import Data.Monoid
	import qualified Data.Set as S

	data TrieValue v
	= TrieValue
	{ next :: Trie v

dmjio / SuffixTree.hs

Created February 7, 2024 21:06

	import Data.List (foldl', tails)
	import Data.Map.Internal.Debug
	import qualified Data.Map.Strict as M
	import Data.Maybe
	import Data.Monoid
	import qualified Data.Set as S

	data TrieValue v
	= TrieValue
	{ next :: Trie v

dmjio / SuffixTree.hs

Created February 7, 2024 21:06

	import Data.List (foldl', tails)
	import Data.Map.Internal.Debug
	import qualified Data.Map.Strict as M
	import Data.Maybe
	import Data.Monoid
	import qualified Data.Set as S

	data TrieValue v
	= TrieValue
	{ next :: Trie v

dmjio / SuffixTree.hs

Created February 7, 2024 21:04

	import Data.List (foldl', tails)
	import Data.Map.Internal.Debug
	import qualified Data.Map.Strict as M
	import Data.Maybe
	import Data.Monoid
	import qualified Data.Set as S

	data TrieValue v
	= TrieValue
	{ next :: Trie v

dmjio / rbt.hs

Created October 9, 2022 19:18 — forked from abiodun0/rbt.hs

Red black tree, Haskell