Skip to content

Instantly share code, notes, and snippets.

View minikomi's full-sized avatar
🍕
I like pizza

Adam Moore minikomi

🍕
I like pizza
View GitHub Profile
(ns co.poyo.wordleclj.core
(:require [clojure.java.io :as io]
[clojure.string :as str]))
(def word-list
(->> "wordle-answers-alphabetical.txt"
io/resource
slurp
str/split-lines
(map str/trim)
[["downloads-20141229.edn" [["??" "??"]]]
["downloads-20200208.edn"
[["?marker=org.clojars.thobbs" "hector-test"]
["?marker=im.chit" "hara.protocol.constructor"]
["?marker=org.clojars.kostafey" "clucy"]
["?marker=com.ryanmcg" "stefon"]
["?marker=clj-genex2" "clj-genex2"]
["?marker=charset" "charset"]
["?marker=healthunlocked" "matrix-market"]
["?marker=funcool" "postal"]
function midway-docker
set tmpfile (mktemp /tmp/midway-docker.XXXXXXXX)
head -n $argv[1] $argv[2] > $tmpfile
docker build . -f $tmpfile -t "temp-build"
docker run --entrypoint /bin/bash -it "temp-build"
end
(defmacro let-stop [bindings & body]
(if (some #{'*stop*} bindings)
(let [stopped-bindings
(->> bindings
(take-while #(not= '*stop* %))
vec)
caught-symbols
(->> stopped-bindings
(partition 2)
(map #(vector (keyword (str (first %))) (first %)))
@minikomi
minikomi / lightbulbs.cljs
Created October 15, 2021 01:14
lightbulbs guessing
(ns lightbulbs.app.core
(:require [reagent.dom :as rdom]
[reagent.core :as r]))
(defn gen-default-state [n]
{:lightbulbs (mapv #(vector % false) (vec (shuffle (range n))))
:snapshots []})
(def state
(r/atom (gen-default-state 8)))

Keybase proof

I hereby claim:

  • I am minikomi on github.
  • I am minikomi (https://keybase.io/minikomi) on keybase.
  • I have a public key ASBtI1LN4RscD0BT18FGe1O1YsbfuV06nQUSsNvxMZ-Nbgo

To claim this, I am signing this object:

@minikomi
minikomi / clippings.py
Created October 17, 2019 06:23
parsing clippings from kindle into json
quotes = [q.split("\n") for q in txt.split("==========\n")]
import re
from datetime import datetime
import json
re_page = re.compile("- Your Highlight on page ([\d\-]+)")
re_loc = re.compile(".*Location ([\d\-]+)")
re_date = re.compile("Added on (.*[AM|PM])")
Process: Brogue [359]
Path: /Applications/Brogue.app/Contents/MacOS/Brogue
Identifier: com.Brogue
Version: 1.7.5 (0)
Code Type: X86-64 (Native)
Parent Process: ??? [1]
Responsible: Brogue [359]
User ID: 501
Date/Time: 2019-08-13 20:08:26.626 +0900
(defn get-dep-graph [src-paths]
(let [src-files
(apply set/union
(map (comp #(ns-find/find-clojure-sources-in-dir %)
io/file)
src-paths))
tracker (ns-file/add-files {} src-files)
dep-graph (tracker ::ns-track/deps)]
dep-graph))
@minikomi
minikomi / __init__.py
Last active February 7, 2019 05:53
art parties new python app
#!/usr/bin/env python3
import requests
import pprint
import itertools
from xml.etree import ElementTree
from flask import Flask, render_template, Markup, escape
from jinja2 import evalcontextfilter
import re
import time