如何在上标表达式中插入数组下标？

问题描述

我有这段代码在 javascript 中工作：

(document.querySelectorAll('[rel="next"]'))[0].click()

我正在尝试在 parenscript（来自 Common Lisp 生态系统的库）中编写相同的内容。我当前草图中的表达式正在由 REPL 在名为 Nyxtavailabe here 的包下进行评估。

CL-USER> (in-package :nyxt)

Nyxt 旨在成为一个可无限扩展的浏览器。因此，用户可以在程序运行时更改代码和/或创建扩展。这是设计上的实时可入侵性。

代码如下：

(ps:chain document (query-selector-all "[rel=next]")) (click))

使用 ps:ps 我可以“看到”parenscript 正在构建什么：

NYXT> (ps:ps (ps:chain document (query-selector-all "[rel=next]") (click)))
"document.querySelectorAll('[rel=next]').click();"

上面的结果接近我所需要的。但是，仍然缺少一件事：在 .click() 之前订阅 parenscript 数组（id. est.，Javascript 中的“[0]”）。

我有一些失败尝试。

1. 如果我尝试：

NYXT> (ps:ps (ps:chain document (query-selector-all "[rel=next]") [0] (click)))

我得到一个额外的“.”：

"document.querySelectorAll('[rel=next]').[0].click();"

2. 如果我尝试：

NYXT> (ps:ps (ps:chain document (query-selector-all "[rel=next]") ([0]) (click)))

我得到一个额外的“。”和不必要的“()”：

"document.querySelectorAll('[rel=next]').[0]().click();"

3. 如果我尝试：

NYXT> (ps:ps (ps:chain document (query-selector-all "[rel=next]")[0] (click)))

我得到一个额外的“.”：

"document.querySelectorAll('[rel=next]').[0].click();"

4. 如果我尝试：

NYXT> (ps:ps (ps:chain document (query-selector-all "[rel=next]" [0]) (click)))

我得到一个额外的 [0] 作为另一个参数：

"document.querySelectorAll('[rel=next]',[0]).click();"

如何插入？

解决方法

偶然地，我发现了答案，诀窍就是只通过 0 而没有 []：

NYXT> (ps:ps (ps:chain document  (query-selector-all "[rel=next]") 0 (click)))

"document.querySelectorAll('[rel=next]')[0].click();"

我认为 parenscript 可以有更多的教程和文档。我一直在努力。因此，我把它留在这里是为了帮助像我这样的其他 Common Lisp 新手:)