| (defun formatted-copy () | |
| "Export region to HTML, and copy it to the clipboard." | |
| (interactive) | |
| (save-window-excursion | |
| (let* ((buf (org-export-to-buffer 'html "*Formatted Copy*" nil nil t t)) | |
| (html (with-current-buffer buf (buffer-string)))) | |
| (with-current-buffer buf | |
| (shell-command-on-region | |
| (point-min) | |
| (point-max) |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; | |
| ;; Solo freelancer's S-Corp tax optimization | |
| ;; | |
| ;; Assumes an unmarried single-shareholder and tons of other stuff. | |
| ;; I'm not a tax professional, no guarantees here, probably typos, etc. Come on! | |
| ;; Run with https://github.com/Z3Prover/z3 | |
| ;; | |
| ;; See also my notes at https://kevinlynagh.com/financial-plan/ |
| Search Bar* | |
| Inactive* | |
| focused -> Active | |
| Active | |
| canceled -> Inactive | |
| typed -> Text Entry | |
| Empty* |
| # A traffic light | |
| Powered | |
| power failed -> Unpowered | |
| Green* | |
| tick -> Yellow | |
| Yellow | |
| tick -> Red |
| Egg Timer* | |
| Stopped* | |
| wind forward -> Done? | |
| Ticking | |
| wind forward -> Done? | |
| wind backward -> Done? | |
| tick -> Done? | |
| Done? |
| # A big and slow sketch useful for perf testing. | |
| A | |
| A1 -> A2 | |
| A2 -> A3 | |
| A3 -> A4 | |
| A1 | |
| A2 | |
| A3 | |
| A4 |
Comparing Earthly and Toast for isolated / repeatable development.
Calculate a performance floor by running a fast command, echo, in the context of a large container (the emscripten SDK takes up about 1 GB).
After the initial build and caching, Toast takes 800ms and Earthly about 7 seconds on my 2020 M1 Macbook Air.
"Serverless" WebRTC demo
Start a server on localhost and open index.html (the host) and index.html#client (the client) in two different browser windows.
They'll do their lil' p2p connection discovery dance via the wonderful public service that is https://patchbay.pub/ and, once established, a video-only camera feed from the client will display on the host.
| <statechart> = (state / <whitespace> / <comments>)+ | |
| state = comments? state-name <whitespace>? <newline> block? | |
| transition = comments? event-name <whitespace>? <'->'> <whitespace>? state-name <newline> | |
| <block> = indent (state / transition / <whitespace> / <comments>)+ dedent | |
| comments = comment (<newline> comment)* <newline> | |
| <comment> = <'#'> #".*" |