s-lex-формат s.el - это действительно то, что вам нужно, но если вы действительно хотите поместить код внутри блоков подстановки, а не просто в имена переменных, я написал это в качестве доказательства концепции.
(defmacro fmt (str)
"Elisp string interpolation for any expression."
(let ((exprs nil))
(with-temp-buffer
(insert str)
(goto-char 1)
(while (re-search-forward "#{" nil t 1)
(let ((here (point))
(emptyp (eql (char-after) ?})))
(unless emptyp (push (read (buffer-substring (point) (progn (forward-sexp 1) (point)))) exprs))
(delete-region (- here 2) (progn (search-forward "}") (point)))
(unless emptyp (insert "%s"))
(ignore-errors (forward-char 1))))
(append (list 'format (buffer-string)) (reverse exprs)))))
;; demo with variable and code substitution
(fmt "My name is #{user-full-name}, I am running Emacs #{(if (display-graphic-p) \"with a GUI\" \"in a terminal\")}.")
;; results in
"My name is Jordon Biondo, I am running Emacs with a GUI."
Вы даже можете вставить fmt
звонок внутри другого, fmt
если вы сумасшедший
(fmt "#{(fmt\"#{(fmt\\\"#{user-full-name}\\\")}\")}")
;; =>
"Jordon Biondo"
Код просто расширяется до format
вызова, поэтому все замены выполняются по порядку и оцениваются во время выполнения.
(cl-prettyexpand '(fmt "Hello, I'm running Emacs #{emacs-version} on a #{system-type} machine with #{(length (window-list))} open windows."))
;; expands to
(format "Hello, I'm running Emacs %s on a %s machine with %s open windows."
emacs-version
system-type
(length (window-list)))
Улучшения могут быть сделаны с тем, какой тип формата используется вместо того, чтобы всегда использовать% s, но это должно было бы быть сделано во время выполнения и добавило бы накладные расходы, но могло бы быть сделано, окружая все аргументы форматирования в вызове функции, которая хорошо форматирует вещи, хорошо основанные по типу, но на самом деле единственный сценарий, в котором вы захотите, это, вероятно, float, и вы могли бы даже сделать (формат "% f" float) в замене, если вы были в отчаянии.
Если я над этим больше работаю, я скорее обновлю эту суть, чем этот ответ. https://gist.github.com/jordonbiondo/c4e22b4289be130bc59b