--- a
+++ b/inst/queries/datasetField.xq
@@ -0,0 +1,6 @@
+; datasetField
+(fn [dataset]
+  (map :name (query {:select [:field.name]
+                     :from [:dataset]
+                     :join [:field [:= :dataset.id :dataset_id]]
+                     :where [:= :dataset.name dataset]})))