Skip to content

Instantly share code, notes, and snippets.

@aiba
aiba / gongtimer
Created December 21, 2019 03:36
Plays gong sound at random interval, repeatedly.
#!/usr/bin/env clojure
(require '[clojure.java.io :as io])
(import 'javax.sound.sampled.AudioSystem)
(defn url->bytes [^String url]
(with-open [xin (io/input-stream (java.net.URL. url))
xout (java.io.ByteArrayOutputStream.)]
(io/copy xin xout)
(.toByteArray xout)))
@aiba
aiba / url_linking.cljs
Created May 17, 2020 13:00
use-url-linking hook for react-navigation
(ns myapp.url-linking
(:require ["@react-navigation/native" :as rnav]
["react" :as react]
["react-native" :as rn]
[applied-science.js-interop :as j]
[cemerick.url :as url]
[clojure.string :as str]
[helix.core :as helix]
[helix.hooks :as hooks]
[kitchen-async.promise :as p]
@aiba
aiba / keybase.md
Last active August 21, 2021 20:26
keybase.md

Keybase proof

I hereby claim:

  • I am aiba on github.
  • I am aaroniba (https://keybase.io/aaroniba) on keybase.
  • I have a public key ASCPkhZQJ5BkHO0RDNqPaG-_fi71nDhiBlwjQ3_qaruQogo

To claim this, I am signing this object:

(ns aiba.util.dofor)
(defmacro dofor {:style/indent 1} [& stuff]
`(doall (for ~@stuff)))