Dasemu
40631362b3
Establishes version control for the personal Logseq DB fork before starting the server-client architecture migration and domain features described in docs/agent-guide and the approved implementation plan. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
80 lines
1.7 KiB
OCaml
80 lines
1.7 KiB
OCaml
type order = Asc | Desc
|
|
|
|
type common_opts = {
|
|
fields : string Rrbvec.t option;
|
|
limit : int option;
|
|
offset : int option;
|
|
sort : string option;
|
|
order : order option;
|
|
}
|
|
|
|
type page_opts = {
|
|
common : common_opts;
|
|
expand : bool;
|
|
include_built_in : bool option;
|
|
include_journal : bool option;
|
|
journal_only : bool;
|
|
include_hidden : bool;
|
|
updated_after : Time.date option;
|
|
created_after : Time.date option;
|
|
}
|
|
|
|
type tag_opts = {
|
|
common : common_opts;
|
|
expand : bool;
|
|
include_built_in : bool option;
|
|
with_properties : bool;
|
|
with_extends : bool;
|
|
}
|
|
|
|
type property_opts = {
|
|
common : common_opts;
|
|
expand : bool;
|
|
include_built_in : bool option;
|
|
with_classes : bool;
|
|
with_type : bool;
|
|
}
|
|
|
|
type task_opts = {
|
|
common : common_opts;
|
|
status : string option;
|
|
priority : string option;
|
|
content : string option;
|
|
}
|
|
|
|
type node_opts = {
|
|
common : common_opts;
|
|
tags : string Rrbvec.t;
|
|
properties : string Rrbvec.t;
|
|
}
|
|
|
|
type asset_opts = { common : common_opts }
|
|
|
|
type parsed =
|
|
| Parsed_page of page_opts
|
|
| Parsed_tag of tag_opts
|
|
| Parsed_property of property_opts
|
|
| Parsed_task of task_opts
|
|
| Parsed_node of node_opts
|
|
| Parsed_asset of asset_opts
|
|
|
|
type kind = Page | Tag | Property | Task | Node | Asset
|
|
|
|
type action = {
|
|
kind : kind;
|
|
command : Command_id.t;
|
|
repo : Cli_primitive.repo;
|
|
graph : Cli_primitive.graph;
|
|
options : Melange_edn_melange.any;
|
|
}
|
|
|
|
type list_result = { items : Entity.t Rrbvec.t }
|
|
|
|
val order_of_string : string -> order option
|
|
val string_of_order : order -> string
|
|
val kind_of_parsed : parsed -> kind
|
|
val normalize_options : parsed -> parsed Error.build_result
|
|
val apply_offset_limit : common_opts -> Entity.t Rrbvec.t -> Entity.t Rrbvec.t
|
|
|
|
include Command_spec.S with type parsed := parsed and type action := action
|