diff --git a/lib/hyperscript/compiler.sx b/lib/hyperscript/compiler.sx
index 4b29e85f..4baa345c 100644
--- a/lib/hyperscript/compiler.sx
+++ b/lib/hyperscript/compiler.sx
@@ -856,6 +856,16 @@
                   (hs-to-sx (nth ast 3))
                   (nth ast 1)
                   (nth ast 2)))
+              ((= head (quote set-styles))
+                (let
+                  ((pairs (nth ast 1)) (tgt (hs-to-sx (nth ast 2))))
+                  (cons
+                    (quote do)
+                    (map
+                      (fn
+                        (p)
+                        (list (quote dom-set-style) tgt (first p) (nth p 1)))
+                      pairs))))
               ((= head (quote multi-add-class))
                 (let
                   ((target (hs-to-sx (nth ast 1)))
diff --git a/lib/hyperscript/parser.sx b/lib/hyperscript/parser.sx
index 8e5dada7..4f8fa5af 100644
--- a/lib/hyperscript/parser.sx
+++ b/lib/hyperscript/parser.sx
@@ -822,6 +822,32 @@
                 (let
                   ((tgt (if (match-kw "to") (parse-expr) (list (quote me)))))
                   (list (quote set-style) prop value tgt))))
+            ((= (tp-type) "brace-open")
+              (do
+                (adv!)
+                (let
+                  ((pairs (list)))
+                  (define
+                    collect-pairs!
+                    (fn
+                      ()
+                      (when
+                        (and
+                          (not (= (tp-type) "brace-close"))
+                          (not (at-end?)))
+                        (let
+                          ((prop (get (adv!) "value")))
+                          (when (= (tp-type) "colon") (adv!))
+                          (let
+                            ((val (tp-val)))
+                            (adv!)
+                            (set! pairs (cons (list prop val) pairs))
+                            (collect-pairs!))))))
+                  (collect-pairs!)
+                  (when (= (tp-type) "brace-close") (adv!))
+                  (let
+                    ((tgt (if (match-kw "to") (parse-expr) (list (quote me)))))
+                    (list (quote set-styles) (reverse pairs) tgt)))))
             (true
               (let
                 ((value (parse-expr)))