yedi

;; I asked chatGPT to convert this JS code to ClojureScript
;; https://raw.githubusercontent.com/aiortc/aiortc/main/examples/webcam/client.js

(def pc (atom nil))

(defn check-state [resolve]
  (fn []
    (if (= (.-iceGatheringState @pc) "complete")
      (resolve)
      (do

yedi

Keybase proof

I hereby claim:

• I am yedi on github.
• I am yedi (https://keybase.io/yedi) on keybase.
• I have a public key ASCcnOJHvY2IpSVQAItg1-Iu4fuTF32eZTSBIod7oUkc4go

To claim this, I am signing this object:

yedi

sudo su - ev
supervisorctl stop all
cd workers/ev_workers
git pull to whatever tag (or head in staging)
cd ../ev_common
git pull to whatever tag (or head in staging)
cd ..
supervisorctl start all

yedi

def gen_get_resp(body=body, **kw):
    responded_once = False
    def get_resp(url, body=body, **kw):
        if not responded_once:
            responded_once = True
            return mockresp
        else: 
            return MockResponse(body=[]) 
    return get_resp
    

yedi

vagrant@vagrant-ubuntu-wily-64:~/workers$ sudo rm -rf node/
rm: cannot remove ‘node/bin’: Directory not empty
rm: cannot remove ‘node/include’: Directory not empty
rm: cannot remove ‘node/lib’: Directory not empty
rm: cannot remove ‘node/share’: Directory not empty
vagrant@vagrant-ubuntu-wily-64:~/workers$ sudo rm -R node/
rm: cannot remove ‘node/bin’: Directory not empty
rm: cannot remove ‘node/include’: Directory not empty
rm: cannot remove ‘node/lib’: Directory not empty
rm: cannot remove ‘node/share’: Directory not empty

yedi

strings = ["first", "second", "third"]
ret = False
line = get_line()
for s in strings:
	if s in line:
		ret = True
		break

yedi

;; mapping add-class! and remove-class! across these lists don't seem to work
(defn handle-nav [btn div]
  (map #(dom/add-class! % :hide) (sel :.nav-section))
  (dom/remove-class! div :hide)
  (map #(dom/remove-class! % :active) (sel [:.nav :li]))
  (dom/add-class! btn :active))

;; the mapped fns here work with the print statement... wtf
(defn handle-nav [btn div]
  (print (map #(dom/add-class! % :hide) (sel :.nav-section)))

yedi

(defn get-analysis [title]
  (let [conn (connect-db!)]
    (d/q '[:find ?analysis
           :where
           [?poem :poem/title title]
           [?poem :poem/analysis ?analysis]]
         (d/db conn))))

yedi

;; when trying to load rhyme_finder/app/handler.clj

java.lang.Exception: namespace 'rhyme-finder.core' not found
 at clojure.core$load_lib.doInvoke (core.clj:5380)
    clojure.lang.RestFn.applyTo (RestFn.java:142)
    clojure.core$apply.invoke (core.clj:619)
    clojure.core$load_libs.doInvoke (core.clj:5413)
    clojure.lang.RestFn.applyTo (RestFn.java:137)
    clojure.core$apply.invoke (core.clj:619)
    clojure.core$require.doInvoke (core.clj:5496)

yedi

rhyme-finder.core=> (def rs (rhyme-streams (get-poem "poems/lose_yourself.txt") 2 6 36 2))
#'rhyme-finder.core/rs
rhyme-finder.core=> (pprint (rhyme-combos rs))
{("ow" "ah") (("opens" "won't come" "mobile" "moment")),
 ("iy" "iy")
 (("sweaty knees" "knees weak" "spaghetti he's" "he keeps")),
 ("aa" "aa") (("palms are" "arms are" "drop bombs")),
 ("iy" "ow" "ih" "ow") (("he knows his whole" "these ropes it don't")),
 ("ow" "ae" "ah" "iy" "ow")
 (("goes gravity oh"