Homebrain is a home automation system (Clojure) whose main job is "flux": continuously steering every Philips Hue bulb in the house to a color temperature that tracks the sun. This note documents the strategy precisely enough to reimplement it. Files:
| file | what |
|---|---|
README.md |
this document |
| (ns aiba.util.dofor) | |
| (defmacro dofor {:style/indent 1} [& stuff] | |
| `(doall (for ~@stuff))) |
I hereby claim:
To claim this, I am signing this object:
| (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] |
| #!/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))) |
| (defn linear-interpolate | |
| ([] | |
| (fn [rf] | |
| (let [rrf (#'clojure.core/preserving-reduced rf) | |
| skipped (volatile! 0) ;; n of contiguous nils | |
| prev (volatile! nil)] ;; most recent value seen | |
| (fn | |
| ([] (rf)) ;; init | |
| ([result] ;; completion -- skipped stay nils since no endpoint | |
| (rf (reduce rf result (repeat @skipped nil)))) |
| (ns virgil.repl | |
| (:require [clojure.set :as set] | |
| [clojure.tools.namespace.dir :as ctn-dir] | |
| [clojure.tools.namespace.file :as ctn-file] | |
| [clojure.tools.namespace.find :as ctn-find] | |
| [clojure.tools.namespace.parse :as ctn-parse] | |
| [clojure.tools.namespace.repl :as ctn-repl] | |
| [virgil.compile :refer [compile-all-java]]) | |
| (:import java.io.File | |
| java.util.Arrays)) |
| Kyrgyzstan | |
| Cyprus | |
| St Kitts & Nevis | |
| Egypt | |
| Chad | |
| Marshall Islands | |
| Myanmar, {Burma} | |
| Netherlands | |
| Switzerland | |
| Czech Republic |
| - redisplay_internal (C function) 19334 90% | |
| - debug 19334 90% | |
| - recursive-edit 15689 73% | |
| - nrepl-client-filter 10656 50% | |
| - nrepl--dispatch-response 10159 47% | |
| - nrepl-log-message 9813 46% | |
| - nrepl--pp 9800 46% | |
| - nrepl--pp 9798 46% | |
| - nrepl--pp 9712 45% | |
| - nrepl--pp 9056 42% |
