Initial import of LogDarioSeq baseline
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>
This commit is contained in:
0
cli/spec/formatting/common_cli_types.mli
Normal file
0
cli/spec/formatting/common_cli_types.mli
Normal file
19
cli/spec/formatting/db_worker_types.mli
Normal file
19
cli/spec/formatting/db_worker_types.mli
Normal file
@@ -0,0 +1,19 @@
|
||||
type list_options = Melange_edn_melange.any
|
||||
|
||||
type page_filter = {
|
||||
expand : bool;
|
||||
include_hidden : bool;
|
||||
include_built_in : bool;
|
||||
include_journal : bool;
|
||||
journal_only : bool;
|
||||
created_after : Time.date option;
|
||||
updated_after : Time.date option;
|
||||
}
|
||||
|
||||
type node_filter = {
|
||||
tag_ids : Cli_primitive.db_id Rrbvec.t;
|
||||
property_idents : Cli_primitive.keyword Rrbvec.t;
|
||||
}
|
||||
|
||||
val minimal_list_item :
|
||||
Entity.t -> Melange_edn_melange.map Melange_edn_melange.t
|
||||
5
cli/spec/formatting/humanize_types.mli
Normal file
5
cli/spec/formatting/humanize_types.mli
Normal file
@@ -0,0 +1,5 @@
|
||||
val format_count : int -> string
|
||||
val pluralize_noun : int -> string -> string
|
||||
val format_count_with_noun : int -> string -> string
|
||||
val datetime : now:int64 -> ?suffix:string -> ?prefix:string -> int64 -> string
|
||||
val relative_datetime : then_time:Time.date -> now_time:Time.date -> string
|
||||
13
cli/spec/formatting/log_types.mli
Normal file
13
cli/spec/formatting/log_types.mli
Normal file
@@ -0,0 +1,13 @@
|
||||
type preview = { preview : string; length : int; truncated : bool }
|
||||
type level = Debug | Info | Warn | Error
|
||||
|
||||
type record = {
|
||||
time : Time.date option;
|
||||
level : level;
|
||||
logger : string option;
|
||||
message : string;
|
||||
exception_ : string option;
|
||||
}
|
||||
|
||||
val truncate_preview : ?max_len:int -> Melange_edn_melange.any -> preview
|
||||
val install_stderr_handler : unit -> unit
|
||||
2
cli/spec/formatting/pretty_print.mli
Normal file
2
cli/spec/formatting/pretty_print.mli
Normal file
@@ -0,0 +1,2 @@
|
||||
val pprint_edn : Melange_edn_melange.any -> string
|
||||
val pprint_json : Js.Json.t -> string
|
||||
33
cli/spec/formatting/profile_types.mli
Normal file
33
cli/spec/formatting/profile_types.mli
Normal file
@@ -0,0 +1,33 @@
|
||||
type span = {
|
||||
stage : string;
|
||||
span_id : int;
|
||||
start_time : Time.date;
|
||||
end_time : Time.date;
|
||||
elapsed_span : Time.span;
|
||||
}
|
||||
|
||||
type stage_summary = {
|
||||
stage : string;
|
||||
count : int;
|
||||
total_span : Time.span;
|
||||
avg_span : Time.span;
|
||||
}
|
||||
|
||||
type session
|
||||
|
||||
type report = {
|
||||
command : string;
|
||||
status : Cli_primitive.keyword;
|
||||
total_span : Time.span;
|
||||
spans : span Rrbvec.t;
|
||||
stages : stage_summary Rrbvec.t;
|
||||
}
|
||||
|
||||
val create_session : bool -> session option
|
||||
|
||||
val time :
|
||||
session option -> string -> (unit -> 'a Cli_effect.t) -> 'a Cli_effect.t
|
||||
|
||||
val record_span : session -> span -> unit
|
||||
val report : session -> command:string -> status:Cli_primitive.keyword -> report
|
||||
val render_lines : report -> string Rrbvec.t
|
||||
5
cli/spec/formatting/root_dir_types.mli
Normal file
5
cli/spec/formatting/root_dir_types.mli
Normal file
@@ -0,0 +1,5 @@
|
||||
val default_root_dir : unit -> Cli_primitive.path
|
||||
val normalize_root_dir : Cli_primitive.path option -> Cli_primitive.path
|
||||
|
||||
val ensure_root_dir :
|
||||
Cli_primitive.path option -> Cli_primitive.path Error.build_result
|
||||
0
cli/spec/formatting/style_types.mli
Normal file
0
cli/spec/formatting/style_types.mli
Normal file
6
cli/spec/formatting/tree_text_types.mli
Normal file
6
cli/spec/formatting/tree_text_types.mli
Normal file
@@ -0,0 +1,6 @@
|
||||
type render_options = {
|
||||
uuid_labels : (Cli_primitive.uuid * string) Rrbvec.t;
|
||||
property_titles : (Cli_primitive.keyword * string) Rrbvec.t;
|
||||
property_value_labels : (Melange_edn_melange.any * string) Rrbvec.t;
|
||||
show_ids : bool;
|
||||
}
|
||||
38
cli/spec/formatting/uuid_refs_types.mli
Normal file
38
cli/spec/formatting/uuid_refs_types.mli
Normal file
@@ -0,0 +1,38 @@
|
||||
type uuid_label = {
|
||||
uuid : Cli_primitive.uuid;
|
||||
id : Cli_primitive.db_id option;
|
||||
label : string option;
|
||||
}
|
||||
|
||||
val unique_preserve_order : 'a Rrbvec.t -> 'a Rrbvec.t
|
||||
val extract_wiki_refs : string -> string Rrbvec.t
|
||||
val extract_uuid_refs : string -> Cli_primitive.uuid Rrbvec.t
|
||||
|
||||
val replace_uuid_refs :
|
||||
string -> (Cli_primitive.uuid * string) Rrbvec.t -> string
|
||||
|
||||
val collect_uuid_refs_from_strings :
|
||||
string Rrbvec.t -> Cli_primitive.uuid Rrbvec.t
|
||||
|
||||
val collect_uuid_refs_from_items :
|
||||
Entity.t Rrbvec.t ->
|
||||
Cli_primitive.keyword Rrbvec.t ->
|
||||
Cli_primitive.uuid Rrbvec.t
|
||||
|
||||
val normalize_item_string_fields :
|
||||
Entity.t Rrbvec.t ->
|
||||
Cli_primitive.keyword Rrbvec.t ->
|
||||
(Cli_primitive.uuid * string) Rrbvec.t ->
|
||||
Entity.t Rrbvec.t
|
||||
|
||||
val fetch_uuid_entities :
|
||||
Cli_config.t ->
|
||||
Cli_primitive.repo ->
|
||||
Cli_primitive.uuid Rrbvec.t ->
|
||||
uuid_label Rrbvec.t Cli_effect.t
|
||||
|
||||
val fetch_uuid_labels :
|
||||
Cli_config.t ->
|
||||
Cli_primitive.repo ->
|
||||
Cli_primitive.uuid Rrbvec.t ->
|
||||
(Cli_primitive.uuid * string) Rrbvec.t Cli_effect.t
|
||||
Reference in New Issue
Block a user