(defmacro sformat/macro (template values)
  `(sformat
    ,template
    (lambda (key) (plist-get ,values (intern key)))))

(sformat/macro
  "help ${name}! I'm ${malady}"
  '(name "nic" malady "on fire"))