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:
2026-08-25 15:32:15 +02:00
commit 40631362b3
2016 changed files with 543898 additions and 0 deletions

View File

View 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

View 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

View 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

View File

@@ -0,0 +1,2 @@
val pprint_edn : Melange_edn_melange.any -> string
val pprint_json : Js.Json.t -> string

View 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

View 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

View File

View 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;
}

View 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