henryw374’s gists

henryw374 / flexi_clock.clj

Created October 17, 2024 16:11

clojure java.time clock

	(ns flexi-clock
	(:import (java.time Clock Duration Instant ZonedDateTime)))

	(defn clock
	"potential library function (e.g. in tick or tempo).

	This just implements the platform Clock - which works because non-test code only uses that API.
	Any manipulation of time (which happens in testing code) is done via changing
	what get-instant and get-zone return"
	[get-instant get-zone]

henryw374 / webserver-ssl-context.clj

Created July 12, 2024 12:01

Import PKCS12 certificate chain directly in clojure

 (ns webserver-ssl-context
   (:require [clojure.java.io :as io]
            [clojure.string :as str]
            )
   (:import (java.security KeyFactory KeyStore)
            (java.security.spec X509EncodedKeySpec)
            [javax.xml.bind DatatypeConverter]))
 (defn parse-der-from-pem [pem begin-delimiter end-delimiter]

henryw374 / mutable_clock.clj

Last active July 1, 2024 14:08

mutable-clock java.time clock clojure

	(ns mutable-clock
	(:import (java.time Clock Duration Instant ZoneId)))

	(definterface MutableClock
	(setZone [zone])
	(setInstant [instant]))

	(defn mutable-clock [_instant _zone]
	(let [instant-atom (atom _instant)
	zone-atom (atom _zone)]

henryw374 / clojure-minimal-ssl-context.clj

Created January 11, 2024 10:17

 (ns com.widdindustries.minimal-ssl-context
   (:import (java.security SecureRandom)
            (javax.net.ssl SSLContext X509ExtendedTrustManager)))
 (let [context (SSLContext/getInstance "TLS")]
   (.init context nil
     (into-array [(proxy [X509ExtendedTrustManager] []
                    (checkClientTrusted [& _])
                    (checkServerTrusted [& _]))])

henryw374 / tanstack-importmap-demo.js

Created November 7, 2023 16:50

tanstack react-router no build step

	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="utf-8">
	<meta name="viewport" content="width=device-width, initial-scale=1">
	<title>demo</title>
	</head>
	<body>
	<div id="app" style="min-height:100%">
	Hello world!

henryw374 / rounding_numbers.cljc

Last active September 23, 2023 10:59

teaching my children how to get a computer to do their maths homework

	(ns rounding-numbers
	"teaching my child how to get a computer to do their maths homework"
	)

	(defn round-number [original round-to]
	(let [small-bit (mod original round-to)
	round-up? (>= small-bit (* 5 (/ round-to 10)))
	medium-bit (mod original (* 10 round-to))
	number-that-goes-up-or-stays-the-same (- medium-bit small-bit)
	big-bit (- original medium-bit)]

henryw374 / kaocha-cljs2-ns-filter.clj

Last active July 14, 2023 10:42

	(ns com.widdindustries.kaocha-cljs2-ns-pattern-hook
	"the only way I can find to filter kaocha-cljs2 tests by pattern. see comment block for usage"
	(:require [kaocha.core-ext :as core-ext]
	[kaocha.load :as load]))


	(defn ns-filter [plan]
	;(def plan plan)
	;(println "About to start loading!")
	(update plan :kaocha.test-plan/tests

henryw374 / protocol_proxy.clj

Last active June 5, 2023 12:38

	(ns protocol-proxy
	"for when you have an object foo, which satisfies some protocols and you want to make adhoc changes to
	one or more of the protocol methods, but just on foo.

	Can be handy for testing.
	"
	(:refer-clojure :exclude [proxy])
	(:require [clojure.string :as string]))
	;(remove-ns 'protocol-proxy)

henryw374 / async-streams.clj

Last active April 11, 2023 10:34

	(ns async-play
	(:require [manifold.stream :as ms]
	[clojure.core.async :as a]))

	(comment ; memory leak. puts are queued up indefinitely
	(def s (ms/stream))
	(dotimes [n 100]
	(ms/put! s n))
	(ms/consume println s)

henryw374 / contiguous-spans.cljc

Created December 9, 2022 14:13

	(ns contiguous-spans
	"takes pre-sorted dates and returns contiguous periods contained therein.

	see comment block for demo
	"
	(:require [tick.core :as t]))

	(defn contiguous-spans
	"takes pre-sorted dates and returns contiguous periods contained.
	dates a and b are contiguous if a plus span-length is equal to b "

Henry Widd henryw374