gistfile1.txt

(use 'gloss.core 'gloss.io 'lamina.core 'aleph.tcp)
(require 'cheshire.core)
(use 'clojure.pprint)

(def init-msg {
   :conntype "accept-offer"
   :nodeid "66bd135d-113f-481a-977e-111111111111"
   :key 123
   :port 50210
})

(def json (cheshire.core/generate-string init-msg))

(def frame (finite-frame
 (prefix 
    [:int32 :byte]
    first
    (fn [x] [x 2]))
 (string :utf-8)))