代码块内部的org-mode宏和使用babel

Question

受到这篇伟大帖子的启发,我正在尝试使用org-mode和babel发出查询的组合elasticsearch.例如,计算索引中的条目数:

#+BEGIN_SRC sh
curl -XGET 'http://my.uri.example:8080/index/_count'
#+END_SRC

C-c C-c当点在块中时,可以使用上面的代码进行评估.¹

另一方面,可以在组织文档中定义宏.我的问题是:是否可以定义一个宏

#+MACRO: live-db http://my.uri.example:8080

并重写代码块如下:

#+BEGIN_SRC sh
curl -XGET '{{{live-db}}}/index/_count'
#+END_SRC

开箱即用,对我来说,它没有用......似乎babel在评估块之前没有扩展宏.想法？

编辑

现在,一旦我了解到我可以使用es-mode,我就不会对我的问题进行微调.考虑以下两个请求:

#+BEGIN_SRC es :url http://mu.uri.stage:8080
GET /users/_search?pretty
{
  "query": {
    "match_all":{}
  }
}
#+END_SRC

和

#+BEGIN_SRC es :url http://mu.uri.live:8080
GET /users/_search?pretty
{
  "query": {
    "match_all":{}
  }
}
#+END_SRC

它们只是URL不同.我想定义两个宏:

#+MACRO staging http://my.uri.stage:8080
#+MACRO live http://my.uri.live:8080

然后使用宏作为块的变量.可能吗？

---

¹确保启用评估sh.添加如下内容:

(org-babel-do-load-languages
 'org-babel-load-languages
 '((sh . t)))

到你的.emacs.

Answer 1

执行代码块时本机不支持宏扩展，但支持的Noweb 引用语法更强大。

但是，我怀疑它是否可以使用，因为它在标头参数es-mode中传递 url而不是变量。

这是代码块的简单示例sh：

#+name: staging
: http://my.uri.stage:8080

#+name: live
: http://my.uri.live:8080

#+name: test
#+begin_src sh :var url=staging
echo $url
#+end_src

#+call: test(live)

#+RESULTS:
: http://my.uri.live:8080

#+call: test(staging)

#+RESULTS:
: http://my.uri.stage:8080