1

好的，也许是菜鸟问题，但我无法找到有关这些东西的信息。我想编写一个函数，该函数接受在区域中选择的任何内容并将其传递给 curl。卷曲返回一些东西，我想要那个东西来替换选定的区域。换句话说，在一个区域中选择 www.foo.com 并运行该函数后，它将被替换为 curl 如果在命令行上运行返回的任何curl www.foo.com.

这是我的尝试，这是非常非常错误的。基本上，我不知道如何将该选定区域作为变量传递给shell-command-on-region：

(defun curl-something()
  (interactive)
  (setq region ((region-beginning)(region-end)))
  (shell-command-on-region (region-beginning) (region-end) (shell-command (concat "curl" region)) nil t))

另外，如果有人对在哪里学习基本的 elisp 文本操作编程有任何指示，请分享它们（请不要参考手册）。谢谢！

编辑：

感谢兰迪莫里斯，我能够找出答案：

(defun curl-something (begin end)
  (interactive "r")
  (shell-command-on-region begin end (concat "curl -s " (buffer-substring begin end)) nil t))
4

1 回答 1

2

您需要将“r”标志传递给(interactive). 然后，您的函数将作为数字参数传递区域的开始和结束，您可以使用它来获取区域中的文本。

这是取自ErgoEmacs的示例：

(defun dosomething-region (p1 p2)
  "Prints region starting and ending positions." 
  (interactive "r")
  (message "Region starts: %d, end at: %d" p1 p2))

以下函数将获取 url 并将其传递给 curl，然后将该网站的内容转储到新缓冲区中：

(defun curl-something (begin end)
  (interactive "r")
  (shell-command (concat "curl " (buffer-substring begin end))))

同样值得注意的是url-这类事情的本机功能，但我意识到这超出了这个问题的范围。

于 2012-09-13T11:06:17.993 回答