我将尝试创建一个捕获模板,将URL转换为带有
我的转换函数如下:
<title>
作为链接名称的org-mode链接。我的转换函数如下:
(defun get-page-title (url)
"Get title of web page, whose url can be found in the current line"
;; Get title of web page, with the help of functions in url.el
(with-current-buffer (url-retrieve-synchronously url)
;; find title by grep the html code
(goto-char 0)
(re-search-forward "<title>\\([^<]*\\)</title>" nil t 1)
(setq web_title_str (match-string 1))
;; find charset by grep the html code
(goto-char 0)
;; find the charset, assume utf-8 otherwise
(if (re-search-forward "charset=\\([-0-9a-zA-Z]*\\)" nil t 1)
(setq coding_charset (downcase (match-string 1)))
(setq coding_charset "utf-8")
;; decode the string of title.
(setq web_title_str (decode-coding-string web_title_str (intern
coding_charset)))
)
(concat "[[" url "][" web_title_str "]]")
))
当从普通的emacs lisp代码中调用它时,它会返回正确的结果。但是当在org-capture-template
中使用时,它只返回bad url
。
setq org-capture-templates
(quote
(("l" "Link" entry (file+headline "" "Links")
"* \"%c\" %(get-page-title \"%c\")"))))
扩展的顺序不同吗?我需要以不同方式转义字符串吗?魔术?第一个%c
仅用于调试字符串,确实被打印为"url"。
请不要浪费时间指出使用正则表达式解析XML是错误的方法。克苏鲁已经在缠绕着我,这不会让情况变得更糟。