+7

lib/compiler/Eval.ml

reviewed

··· 655 655 | Dx_execute -> 656 656 let script = eval_pop_arg ~loc: node.loc |> extract_dx_sequent in 657 657 emit_content_node ~loc: node.loc @@ T.Datalog_script [script] 658 658 + | Current_tree -> 659 659 + let iri = match (Frontmatter.get ()).iri with 660 660 + | Some iri -> iri 661 661 + | None -> Reporter.fatalf ?loc: node.loc Internal_error "No iri for tree" 662 662 + in 663 663 + emit_content_node ~loc: node.loc @@ T.Iri iri 664 664 + 658 665 659 666 and eval_var ~loc x = 660 667 match Env.find_opt x @@ Lex_env.read () with

+2 -1

lib/compiler/Expand.ml

reviewed

··· 433 433 ["rel"; "in-host"], Syn.Text Builtin_relation.in_host; 434 434 ["execute"], Syn.Dx_execute; 435 435 ["route-asset"], Syn.Route_asset; 436 436 - ["publish-query"], Syn.Publish_results_of_query 436 436 + ["publish-query"], Syn.Publish_results_of_query; 437 437 + ["current-tree"], Syn.Current_tree; 437 438 ] 438 439 439 440 let expand_tree

+1

lib/compiler/Syn.ml

reviewed

··· 57 57 | Dx_execute 58 58 | Route_asset 59 59 | Publish_results_of_query 60 60 + | Current_tree 60 61 [@@deriving show] 61 62 62 63 and t = node Range.located list

+2 -1

lib/language_server/Completion.ml

reviewed

··· 64 64 | Dx_var _ 65 65 | Dx_const (_, _) 66 66 | Dx_execute 67 67 - | Publish_results_of_query -> 67 67 + | Publish_results_of_query 68 68 + | Current_tree -> 68 69 None 69 70 70 71 let insert_text path = String.concat "/" path

+2 -1

lib/language_server/Workspace_symbols.ml

reviewed

··· 138 138 | Syn.Dx_const (_, _) 139 139 | Syn.Dx_execute 140 140 | Syn.Route_asset 141 141 - | Syn.Publish_results_of_query -> 141 141 + | Syn.Publish_results_of_query 142 142 + | Syn.Current_tree -> 142 143 L.SymbolKind.File 143 144 in 144 145 match location with