Question

好吧，诺布问题可能，但我无法找到有关这些东西的信息。我想编写一个函数，它接受区域中选择的任何内容并将其传递给curl。 Curl返回一些内容，我希望用这些东西替换所选区域。换句话说，在区域中选择www.foo.com并运行该函数后，如果在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))

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

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

1 个答案: