pep-0498.hy

(import re)
(import [hy.lex [tokenize]])

(defn extract-exprs [src]
  (dict-comp
    (, (.start x) (.end x))
    (-> x
      .group
      (cut 1 -1)
      tokenize)
    [x (re.finditer r"\{.*?\}" src)]))

(defreader f [src]
  (setv res (gensym))
  `(do
     (setv ~res ~src)
     (for [(, pos e) (.items (extract-exprs ~src))]
       (setv ~res (.join "" [(cut ~src 0 (first pos)) (str (eval (first e) (globals))) (cut ~src (second pos))])))
     ~res))

(print #f"foo {(+ 1 1)}")