Emacs: string interpolation

interpolate.el

(defvar interpolate-capture "%{\\([^}]+\\)}")

(defun interpolate-wrap-key (str sym)
  (get sym (intern (concat ":" str))))

(defun interpolate- (str pl f)
  (if (string-match interpolate-capture str 0)
      (let* ((key (match-string 1 str))
	     (new-str (replace-match "%" t nil str))
	     (new-key (funcall f key)))
	(interpolate- new-str (cons new-key pl) f))
    (cons str (reverse pl))))

(defun interpolate (str)
  (let ((result (interpolate- str () (lambda (x) (eval (intern x))))))
    (apply 'format result)))

(defun interpolate-plist (str sym)
  (let* ((wrapper (lambda (str) (interpolate-wrap-key str sym)))
	 (result (interpolate- str () wrapper)))
    (apply 'format result)))

(provide 'interpolate)