Skip to content

Instantly share code, notes, and snippets.

View seanstrom's full-sized avatar
:octocat:

Sean Hagstrom seanstrom

:octocat:
View GitHub Profile
@seanstrom
seanstrom / Todoro Timer Support Page
Created June 11, 2024 07:33
Support Page for Todoro Timer
Hey there, if you have any issues with the app please contact the developer at hey@seanhagstrom.com
@seanstrom
seanstrom / Todoro Timer Privacy Policy
Last active June 11, 2024 07:29 — forked from dlew/gist:debc5ea214678bf0739a8ec92dabe095
Privacy Policy for Todoro Timer
This app collects no private data, so your data will not be used in any way, because we won't have it.
;; RGA
;; https://speakerdeck.com/ept/data-structures-as-queries-expressing-crdts-using-datalog?slide=22
(def schema
{:id/node {:db/valueType :Number}
:id/ctr {:db/valueType :Number}
:insert/id {:db/valueType :Eid}
:insert/parent {:db/valueType :Eid}
:assign/id {:db/valueType :Eid}
:assign/elem {:db/valueType :Eid}
@seanstrom
seanstrom / Fixture.html
Last active March 14, 2023 11:42
Fixture HTML
<!doctype html>
<html>
<head>
<title>Fixture Title</title>
</head>
<body>
<p id="first-paragraph">
Here's some example content with a <a id="link-to-page" href="#">Link</a> and some extra text content.
</p>
<p id="second-paragraph">
@seanstrom
seanstrom / make-equation.cljs
Created January 28, 2023 16:29
Puzzle 87 Solution
(fn makeEquation [& data]
(let
[nums (into [] data)
inputs (pop nums)
output (peek nums)
operators ['+ '*]
formatOutput
(fn [expr]
`(~'= ~expr ~output))

Keybase proof

I hereby claim:

  • I am seanstrom on github.
  • I am seanstrom (https://keybase.io/seanstrom) on keybase.
  • I have a public key ASCGxKkOZ4HWjP2BpyuzLvjAwOn_c-AF2iId6RVwrsWc2wo

To claim this, I am signing this object:

[1/1 TypesDoNotUnify] src/Main.purs:20:16
v
20 config state = do
21 -- | Create a signal of URL changes.
22 urlSignal <- sampleUrl
...
29 , update: update
30 , view: view
31 , inputs: [routeSignal] }
[1/1 TypesDoNotUnify] src/Main.purs:20:16
v
20 config state = do
21 -- | Create a signal of URL changes.
22 urlSignal <- sampleUrl
...
29 , update: update
30 , view: view
31 , inputs: [routeSignal] }
[1/1 TypesDoNotUnify] src/Main.purs:20:16
v
20 config state = do
21 -- | Create a signal of URL changes.
22 urlSignal <- sampleUrl
...
29 , update: update
30 , view: view
31 , inputs: [routeSignal] }
[1/1 TypesDoNotUnify] src/Main.purs:20:16
v
20 config state = do
21 -- | Create a signal of URL changes.
22 urlSignal <- sampleUrl
...
29 , update: update
30 , view: view
31 , inputs: [routeSignal] }