org-structure-template-alist
バッファーに絶対パス ( を介して自動生成) と相対パス (手動で記述)が混在していることに気付きました。
解決策を試す:
(let ((curdir (replace-regexp-in-string
(expand-file-name "~/") "~/"
(file-name-directory
(or load-file-name buffer-file-name)))))
(replace-regexp (concat "\"" curdir "(?1:([A-z]|[0-9]|/)*)" "\"") "\1")
(message curdir))
しかし、まったく機能していないようです。これは、周囲の引用符の削除に失敗するだけで、ほとんど機能するバージョンを修正する試みでした:
(replace-regexp curdir "")
3 回目の試行:
(replace-regexp (concat ":tangle \"" curdir "\([A-z-+/.]+\)\"") "\1")