使用racket txexpr呈现列表

Question

我正在尝试使用txexpr呈现球拍中的物品列表

(define (item-list items)
  (if (empty? items)
      (txexpr 'p empty '("No items to display."))
      (txexpr* 'ul empty
               (for ([item items])
                 (txexpr 'li empty (list (cadr item)))))))

我的测试代码如下所示：

(module+ test
   (test-case "item-list will return a default message if the item list is empty"
     (define result "<p>No items to display.</p>")
     (define no-items empty)
     (check-equal? (xexpr->html (rule-list no-items)) result))
  (test-case "item-list will return an unordered list of each item"
    (define result "<ul><li>email address</li><li>phone number</li></ul>")
    (define two-items '((1 "email address") (2 "phone number")))
    (check-equal? (xexpr->html (rule-list two-items)) result)))

当我运行测试时，我在第二个测试中得到以下错误：

txexpr*: contract violation
  expected: txexpr-elements?
  given: '(#<void>)

我现在被难住了。如何获取要呈现的项目列表？

Answer 1

所以需要注意的是，在某些时候，你会得到一个列表列表。

(define (item-list items)
  (if (empty? items)
      (txexpr 'p empty '("No items to display."))
      (txexpr 'ul empty
              (for/list ([item items])
                (quasiquote (li (unquote (cadr item))))))))

这意味着我需要正确地引用规则列表，并且数据结构对于txexpr来说是可理解的。例如，运行包含两个项目的列表

(item-list (list '(1 "one") '(2 "two")))

得到如下的数据结构：

'(ul (li "one") (li "two"))

希望这能帮助到其他人。