这实际上可能是一个XY问题,所以我将首先尝试解释目标。
我正在构建一个ClojureScript应用程序,它由一组Reagent组件组成。它提供了一个用户界面,您可以动态添加或删除UI元素。这些UI元素(组件)具有特定类型。例如,Markdown组件是
文本组件。每当用户被呈现添加文本的选项时,我们列出所有与类型+后代匹配的组件(在这种情况下为Markdown,可能还有其他组件)。
我编码的方式如下。 每个组件都在自己的命名空间中,该命名空间包含返回新组件的构建器函数。在命名空间的根处,它还调用(derive ::type ::parent)
现在,在某个不同的命名空间中,我们要求并枚举所有这些组件,放入一个类似于映射的结构中:
(ns app.components
(:require
[app.gui.markdown :as markdown]
[app.gui.study-list :as study-list]))
(def all
{markdown/t markdown/builder
study-list/t study-list/builder})
/t
代表命名空间限定的关键字,用于定义层次结构。我们使用all
映射来为面向用户的菜单提供数据(可以添加哪些组件,按类型过滤)。
现在,你可以想象,这并不美观。因为它现在必须手动维护一个(潜在的)长列表,其中包含层次结构中所有类型的信息。
我会做一些类似于(def all (components-of (descendants ::root)))
的事情,但我不确定如何解决这个问题,因为我认为它需要通过名称查找变量(ClojureScript不支持此功能)。
所以我的问题是:如何在ClojureScript中动态地维护命名空间+变量的映射或列表?