【发布时间】:2013-11-19 17:35:23
【问题描述】:
我正在将 erc-tweet 移植到 rcirc 并成功移植了抓取逻辑。
(require 'request)
(request "https://twitter.com/spacemanaki/status/392097918812839937"
:parser 'buffer-string
:success (function*
(lambda (&key data &allow-other-keys)
(save-excursion
(with-current-buffer (get-buffer-create "*request demo*")
(erase-buffer)
(insert data)
(goto-char (point-min))
(kill-region
(point)
(progn (search-forward
"<p class=\"js-tweet-text tweet-text\">")
(point)))
(kill-region
(progn (search-forward "</p>")
(search-backward "</p>")
(point))
(point-max))
(kill-region (point-min) (point-max))))
(yank))))
关于何时开始替换的正则表达式可以从 erc-tweet "https?://twitter.com/.+/status/[0-9]+" 重用。现在的问题是我必须在哪里挂钩有问题的函数,我在 rcirc 中找不到类似于 erc-insert-modify-hook 的东西。
【问题讨论】:
标签: regex twitter emacs elisp irc