(def opesc (key val)
  `(awhen ,val
     (pr " " ',key "=\"")
     (if (isa it 'string) (pr-escaped it) (pr it))
     (pr  #\")))

From html.arc ©