如何通过shell - command -on- region将region传递给shell命令？

Question

好吧，可能是菜鸟问题，但我在寻找关于这些东西的信息时遇到了麻烦。我想写一个函数，它接受在一个区域中选择的任何内容，并将其传递给curl。Curl返回一些东西，我想用这个东西来替换选定的区域。换句话说，在一个区域中选择www.foo.com并运行该函数后，如果在命令行上使用curl www.foo.com运行，它将被替换为任何curl返回。

这是我的尝试，这是非常非常错误的。基本上，我不知道如何将所选区域作为变量传递给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))

Answer 1

您需要将"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-函数，但我意识到这超出了这个问题的范围。