Small snippet illustrating the use of http://reply.obsidian.systems

twitter.sch

(define-syntax elAttr
(syntax-rules ()
((elAttr tag attrs children ...)
(eval-element 'tag 'attrs 'children ...))))

(define-syntax el
(syntax-rules ()
((el tag children ...)
(elAttr tag () children ...))))

(el "h2" (text "Reflex Twitter"))
(el "div" (define x (textInput)))
(el "div" (define b (button "Tweet")))
(define val (holdDyn "none" (mapEvent (lambda (e) (sampleDyn x)) b)))
(dynText val)