@yuneta/gobj-ui 7.23.139 → 7.23.141

package/dist/gobj-ui.es.js

@@ -906,6 +906,7 @@ var PRIVATE_DATA$21 = {
 	navs: [],
 	item_index: {},
 	section_pos: {},
+	route_mru: [],
 	sub_routes: {},
 	event_handlers: {},
 	hash_handler: null,
@@ -1614,6 +1615,7 @@ function navigate_to(gobj, route, depth, no_drain) {
 	stage.active_route = matched_route;
 	gobj_write_attr(gobj, "current_route", route);
 	remember_position(gobj, route);
+	remember_route(gobj, route);
 	update_secondary_nav_visibility(gobj, entry);
 	close_all_drawers(gobj);
 	close_toolbar_dropdown(gobj);
@@ -2640,6 +2642,40 @@ function remembered_position(gobj, route) {
 	return last;
 }
 /************************************************************
+*  Every route the shell lands on, newest last, a route once.
+*  Bounded: it answers "where was the reader last under X", and
+*  a page that has been open all day has no business growing it.
+************************************************************/
+var ROUTE_MRU_MAX = 64;
+function remember_route(gobj, route) {
+	let mru = gobj.priv.route_mru;
+	let i = mru.indexOf(route);
+	if (i >= 0) mru.splice(i, 1);
+	mru.push(route);
+	if (mru.length > ROUTE_MRU_MAX) mru.splice(0, mru.length - ROUTE_MRU_MAX);
+}
+/************************************************************
+*  Where the reader last was UNDER `route`: the most recent
+*  visited route that is `route` itself or lies below it, or
+*  `route` when none does. A mirror of the url for the page, like
+*  the section memory -- never stored, never applied on its own:
+*  a control that wants to go back to a view AS IT WAS LEFT asks,
+*  and navigates there itself.
+*
+*  What it is for: a treedb graph's focus lives in the url
+*  (`<graph>/<topic>`), so a button that opened the bare route
+*  took the focus away every time it was used.
+************************************************************/
+function yui_shell_last_route_under(shell_gobj, route) {
+	let priv = shell_gobj && shell_gobj.priv;
+	if (!priv || !is_array(priv.route_mru) || !route) return route;
+	for (let i = priv.route_mru.length - 1; i >= 0; i--) {
+		let r = priv.route_mru[i];
+		if (r === route || r.indexOf(route + "/") === 0) return r;
+	}
+	return route;
+}
+/************************************************************
 *  Resolve the shell that governs `gobj`: the nearest
 *  C_YUI_SHELL ancestor, else the last shell created on the
 *  page (apps have exactly one).  Null when no shell exists —
@@ -13070,7 +13106,7 @@ function ac_find_nodes$3(gobj, event, kw, src) {
 /************************************************************
 *  EV_EXPAND_ALL
 ************************************************************/
-function ac_expand_all$4(gobj, event, kw, src) {
+function ac_expand_all$2(gobj, event, kw, src) {
 	let priv = gobj.priv;
 	if (priv.collapsed.size === 0) return 0;
 	priv.collapsed.clear();
@@ -13082,7 +13118,7 @@ function ac_expand_all$4(gobj, event, kw, src) {
 /************************************************************
 *  EV_COLLAPSE_ALL — fold every card but the root.
 ************************************************************/
-function ac_collapse_all$4(gobj, event, kw, src) {
+function ac_collapse_all$2(gobj, event, kw, src) {
 	let priv = gobj.priv;
 	let json_data = gobj_read_attr(gobj, "json_data");
 	if (!json_data) return 0;
@@ -13382,12 +13418,12 @@ function create_gclass$13(gclass_name) {
 		],
 		[
 			"EV_EXPAND_ALL",
-			ac_expand_all$4,
+			ac_expand_all$2,
 			null
 		],
 		[
 			"EV_COLLAPSE_ALL",
-			ac_collapse_all$4,
+			ac_collapse_all$2,
 			null
 		],
 		[
@@ -14459,7 +14495,7 @@ function ac_search$2(gobj, event, kw, src) {
 /************************************************************
 *   EV_EXPAND_ALL — expand every already-loaded container
 ************************************************************/
-function ac_expand_all$3(gobj, event, kw, src) {
+function ac_expand_all$1(gobj, event, kw, src) {
 	let priv = gobj.priv;
 	if (priv.root === null || priv.root === void 0) return 0;
 	let paths = [];
@@ -14477,7 +14513,7 @@ function ac_expand_all$3(gobj, event, kw, src) {
 /************************************************************
 *   EV_COLLAPSE_ALL
 ************************************************************/
-function ac_collapse_all$3(gobj, event, kw, src) {
+function ac_collapse_all$1(gobj, event, kw, src) {
 	gobj.priv.expanded.clear();
 	render_view$1(gobj);
 	return 0;
@@ -14662,12 +14698,12 @@ function create_gclass$12(gclass_name) {
 		],
 		[
 			"EV_EXPAND_ALL",
-			ac_expand_all$3,
+			ac_expand_all$1,
 			null
 		],
 		[
 			"EV_COLLAPSE_ALL",
-			ac_collapse_all$3,
+			ac_collapse_all$1,
 			null
 		],
 		[
@@ -19689,7 +19725,7 @@ function ac_toggle_collapse(gobj, event, kw, src) {
 /************************************************************
 *  Force every node visible (overrides threshold).
 ************************************************************/
-function ac_expand_all$2(gobj, event, kw, src) {
+function ac_expand_all(gobj, event, kw, src) {
 	let priv = gobj.priv;
 	if (!priv.collapse_state) priv.collapse_state = {};
 	if (priv.node_by_id) for (let id of Object.keys(priv.node_by_id)) {
@@ -19702,7 +19738,7 @@ function ac_expand_all$2(gobj, event, kw, src) {
 /************************************************************
 *  Collapse every node that has children.
 ************************************************************/
-function ac_collapse_all$2(gobj, event, kw, src) {
+function ac_collapse_all(gobj, event, kw, src) {
 	let priv = gobj.priv;
 	if (!priv.collapse_state) priv.collapse_state = {};
 	if (priv.node_by_id) for (let id of Object.keys(priv.node_by_id)) {
@@ -20054,12 +20090,12 @@ function create_gclass$9(gclass_name) {
 		],
 		[
 			"EV_EXPAND_ALL",
-			ac_expand_all$2,
+			ac_expand_all,
 			null
 		],
 		[
 			"EV_COLLAPSE_ALL",
-			ac_collapse_all$2,
+			ac_collapse_all,
 			null
 		],
 		[
@@ -21903,15 +21939,12 @@ function cmd_get_topic_data$1(gobj, cmd, kw, src) {
 ************************************************************/
 function build_ui$6(gobj) {
 	let source_url = gobj_read_str_attr(gobj, "source_url") || "";
-	let routes = gobj_read_attr(gobj, "card_action_routes");
-	let graph_tpl = is_object(routes) && typeof routes.graph === "string" ? routes.graph : "";
-	let graph_href = /\/\{topic\}$/.test(graph_tpl) ? graph_tpl.replace(/\/\{topic\}$/, "") : "";
+	let graph_href = graph_route_of(gobj);
 	let graph_items = [];
 	if (graph_href) graph_items.push([
-		"a",
+		"button",
 		{
 			class: "button TREEDB_GRAPH_BTN",
-			href: graph_href,
 			style: "margin-left:auto;",
 			title: t("graph"),
 			"aria-label": t("graph"),
@@ -21926,7 +21959,11 @@ function build_ui$6(gobj) {
 			"span",
 			{ i18n: "graph" },
 			"graph"
-		]]
+		]],
+		{ click: (evt) => {
+			evt.stopPropagation();
+			gobj_send_event(gobj, "EV_OPEN_GRAPH", {}, gobj);
+		} }
 	]);
 	let $container = createElement2([
 		"div",
@@ -22087,6 +22124,17 @@ function build_ui$6(gobj) {
 	if (gobj_read_bool_attr(gobj, "with_cards_landing")) show_topics_landing(gobj);
 }
 /************************************************************
+*  The graph's route with no topic: the host's card template
+*  `card_action_routes.graph` without its trailing `/{topic}`,
+*  as a ROUTE (no `#`). "" when the host gives no such template.
+************************************************************/
+function graph_route_of(gobj) {
+	let routes = gobj_read_attr(gobj, "card_action_routes");
+	let tpl = is_object(routes) && typeof routes.graph === "string" ? routes.graph : "";
+	if (!/\/\{topic\}$/.test(tpl)) return "";
+	return tpl.replace(/\/\{topic\}$/, "").replace(/^#/, "");
+}
+/************************************************************
 *  Is the backend session live? The Raw JSON viewer issues a remote
 *  print-tranger, so it only makes sense with a session — the remote
 *  (C_IEVENT_CLI) is in ST_SESSION exactly while connected.
@@ -23455,6 +23503,26 @@ function ac_open_json$1(gobj, event, kw, src) {
 	return 0;
 }
 /********************************************
+*  Open the graph where the reader left it: its last visited
+*  route under the graph's base -- `<graph>/<topic>` when a topic
+*  was focused there -- or the bare base when the graph was never
+*  opened in this page. A user move: pushed, so Back returns.
+********************************************/
+function ac_open_graph(gobj, event, kw, src) {
+	let base = graph_route_of(gobj);
+	if (!base) {
+		log_error(`${gobj_short_name(gobj)}: open graph with no graph route`);
+		return -1;
+	}
+	let shell = yui_shell_of(gobj);
+	if (!shell) {
+		log_error(`${gobj_short_name(gobj)}: open graph with no shell`);
+		return -1;
+	}
+	yui_shell_navigate(shell, yui_shell_last_route_under(shell, base), { push: true });
+	return 0;
+}
+/********************************************
 *  The viewer asked to load a collapsed subtree (tranger mode only):
 *  re-issue print-tranger for that path.
 ********************************************/
@@ -23553,6 +23621,11 @@ function create_gclass$6(gclass_name) {
 			ac_open_json$1,
 			null
 		],
+		[
+			"EV_OPEN_GRAPH",
+			ac_open_graph,
+			null
+		],
 		[
 			"EV_EXPAND_PATH",
 			ac_json_expand_path$1,
@@ -23617,6 +23690,7 @@ function create_gclass$6(gclass_name) {
 		["EV_RECORD_WRITTEN", event_flag_t.EVF_OUTPUT_EVENT | event_flag_t.EVF_NO_WARN_SUBS],
 		["EV_REFRESH_TOPIC", 0],
 		["EV_OPEN_JSON", 0],
+		["EV_OPEN_GRAPH", 0],
 		["EV_EXPAND_PATH", 0],
 		["EV_JSON_CLOSED", 0],
 		["EV_SHOW", 0],
@@ -27660,7 +27734,7 @@ function fold_build_model(descs, records, opts) {
 		for (let k of reach_from(nodes, [node.key])) reached.add(k);
 	}
 	for (let topic_name of topics) if (roots[topic_name].length > 0) groups.set(fold_root_group_key(topic_name), roots[topic_name]);
-	return {
+	let model = {
 		nodes,
 		groups,
 		topics,
@@ -27669,8 +27743,52 @@ function fold_build_model(descs, records, opts) {
 		main_topic,
 		linked,
 		loose,
-		loose_shown
+		loose_shown,
+		level_of: null,
+		levels: 0
 	};
+	count_levels(model);
+	return model;
+}
+/************************************************************
+*  The LEVELS of the main tree: the roots of the main topic --
+*  and of the topics hung from it, whose roots are the loose
+*  records the reader asked for -- are level 1, their children
+*  level 2, and so on down every hook of every topic that is not
+*  hidden. A node reached by two paths takes the shallowest.
+*
+*  With no main topic every topic is a tree of its own and all
+*  of them count. A topic the schema does not tie to the main
+*  one is a separate tree, and has no level: the stepper of the
+*  toolbar speaks for the main tree and nothing else, those
+*  trees are opened by their own pills.
+************************************************************/
+function count_levels(model) {
+	let level_of = /* @__PURE__ */ new Map();
+	let queue = [];
+	let deepest = 0;
+	for (let topic_name of model.topics) {
+		if (model.main_topic && !model.linked.has(topic_name)) continue;
+		let roots = model.groups.get(fold_root_group_key(topic_name)) || [];
+		for (let key of roots) if (!level_of.has(key)) {
+			level_of.set(key, 1);
+			queue.push(key);
+		}
+	}
+	let head = 0;
+	while (head < queue.length) {
+		let key = queue[head++];
+		let lv = level_of.get(key);
+		if (lv > deepest) deepest = lv;
+		let node = model.nodes.get(key);
+		if (!node) continue;
+		for (let hook of Object.keys(node.hooks)) for (let child of node.hooks[hook]) if (!level_of.has(child)) {
+			level_of.set(child, lv + 1);
+			queue.push(child);
+		}
+	}
+	model.level_of = level_of;
+	model.levels = deepest;
 }
 /************************************************************
 *  The topic the schema hangs the others from: the one whose hooks
@@ -27796,14 +27914,6 @@ function fold_show_more(model, state, group_key) {
 	return n;
 }
 /************************************************************
-*  Every group open on ALL its children. This is the reader
-*  asking for the whole thing; the pages are for the other way in.
-************************************************************/
-function fold_expand_all(model, state) {
-	state.shown.clear();
-	for (let [group_key, list] of model.groups) if (list.length > 0) state.shown.set(group_key, list.length);
-}
-/************************************************************
 *  The roots and nothing else -- the first page of each topic's
 *  roots, the way the graph looks before anything is opened.
 ************************************************************/
@@ -27815,40 +27925,51 @@ function fold_collapse_all(model, state) {
 	}
 }
 /************************************************************
-*  Open the tree down to `depth` levels: the roots are level 1,
-*  their children level 2. A node reached by two paths takes the
-*  shallowest. Each group opens on its first page. `depth` of 1
-*  is the roots alone; anything below that is treated as 1.
+*  The toolbar's STEPPER over the levels of the main tree (see
+*  count_levels): level N shows the roots and N-1 levels under
+*  them. A level is a floor of what is open, not a picture that
+*  replaces it:
+*
+*      opening to N   opens, on its first page, every hook of
+*                     every node above level N that is folded;
+*                     what the reader opened, and every page
+*                     already shown, stays
+*      closing to N   folds every hook of every node at level N
+*                     or below, and touches nothing above it
+*
+*  A separate tree (a topic not tied to the main one) has no
+*  level, so neither ever touches it.
 ************************************************************/
-function fold_expand_to_depth(model, state, depth) {
-	fold_collapse_all(model, state);
-	if (!(depth > 1)) return;
-	let level = /* @__PURE__ */ new Map();
-	let queue = [];
-	for (let topic_name of model.topics) {
-		let roots = model.groups.get(fold_root_group_key(topic_name)) || [];
-		for (let key of roots) if (!level.has(key)) {
-			level.set(key, 1);
-			queue.push(key);
-		}
-	}
-	while (queue.length) {
-		let key = queue.shift();
-		let lv = level.get(key);
-		if (lv >= depth) continue;
+function fold_level_clamp(model, level) {
+	let top = model.levels > 0 ? model.levels : 1;
+	level = Math.floor(Number(level)) || 1;
+	if (level < 1) return 1;
+	if (level > top) return top;
+	return level;
+}
+function fold_open_levels(model, state, level) {
+	for (let [key, lv] of model.level_of) {
+		if (lv >= level) continue;
 		let node = model.nodes.get(key);
 		if (!node) continue;
 		for (let hook of Object.keys(node.hooks)) {
-			let children = node.hooks[hook];
-			if (children.length === 0) continue;
-			state.shown.set(fold_group_key(key, hook), state.page_size);
-			for (let child of children) if (!level.has(child)) {
-				level.set(child, lv + 1);
-				queue.push(child);
-			}
+			let group_key = fold_group_key(key, hook);
+			if (node.hooks[hook].length > 0 && !fold_is_open(state, group_key)) state.shown.set(group_key, state.page_size);
 		}
 	}
 }
+function fold_close_levels(model, state, level) {
+	for (let [key, lv] of model.level_of) {
+		if (lv < level) continue;
+		let node = model.nodes.get(key);
+		if (!node) continue;
+		for (let hook of Object.keys(node.hooks)) state.shown.delete(fold_group_key(key, hook));
+	}
+}
+function fold_expand_to_level(model, state, level) {
+	fold_collapse_all(model, state);
+	fold_open_levels(model, state, fold_level_clamp(model, level));
+}
 /************************************************************
 *  The set of node keys on screen, from the roots down through
 *  every open group -- and only through open groups whose parent
@@ -55091,8 +55212,9 @@ function ensure_brush_select_owned() {
 *          The graph opens FOLDED, like a JSON viewer.
 *
 *          Every record of every topic is fetched, but only the ones on
-*          screen become G6 nodes: the roots, `expand_depth` levels under
-*          them, one page (`fold_page_size`) of children per hook. Each
+*          screen become G6 nodes: the roots, and the MAIN tree open to
+*          the reader's level (`fold_level`, `expand_depth` until they
+*          step it), one page (`fold_page_size`) of children per hook. Each
 *          card carries a pill per hook that has children -- `▸ devices
 *          142` -- which opens or folds that hook; an open hook with more
 *          children than its page ends in a `+N` chip that opens the next
@@ -55270,7 +55392,8 @@ var attrs_table$4 = [
 	SDATA(data_type_t.DTP_LIST, "layout_names", sdata_flag_t.SDF_RD, JSON.stringify(Object.keys(_layouts)), "Available layout names (read-only, for parent to query)"),
 	SDATA(data_type_t.DTP_STRING, "hook_port_position", 0, "bottom", "Hook port position"),
 	SDATA(data_type_t.DTP_STRING, "fkey_port_position", 0, "top", "Fkey port position"),
-	SDATA(data_type_t.DTP_INTEGER, "expand_depth", 0, 2, "Levels open when a treedb loads: 1 = the roots alone, 2 = the roots and their children. Every open hook shows its first page"),
+	SDATA(data_type_t.DTP_INTEGER, "expand_depth", 0, 2, "Levels open when a treedb loads, until the reader steps (`fold_level`): 1 = the roots alone, 2 = the roots and their children. Every open hook shows its first page"),
+	SDATA(data_type_t.DTP_INTEGER, "fold_level", 0, 0, "The level of the MAIN tree the toolbar's stepper stands on: 1 = its roots, N = N-1 levels under them; 0 = `expand_depth`. The host persists it and sends EV_SET_FOLD_LEVEL; it is published back in EV_LEGEND_STATE (`fold`) with the levels the tree has"),
 	SDATA(data_type_t.DTP_INTEGER, "fold_page_size", 0, 24, "Children of one hook shown per page; the `+N` chip after the page opens the next one"),
 	SDATA(data_type_t.DTP_LIST, "hidden_topics", 0, "[]", "Topics left out of the tree: no card, no pill counts them, no edge reaches them"),
 	SDATA(data_type_t.DTP_STRING, "main_topic", 0, "", "The topic the tree hangs from; empty = deduced (the one whose hooks reach the most others). Its parentless records are the roots; a parentless record of a topic linked to it is LOOSE and shown only on request"),
@@ -55362,6 +55485,7 @@ var PRIVATE_DATA$4 = {
 	_nodes_total: 0,
 	_nodes_placed: 0,
 	expand_depth: 2,
+	fold_level: 0,
 	fold_page_size: 24,
 	hidden_topics: null,
 	main_topic: "",
@@ -61246,7 +61370,12 @@ function publish_legend_state(gobj, visible) {
 	gobj_publish_event(gobj, "EV_LEGEND_STATE", {
 		main_topic: model.main_topic,
 		main_chosen: !!gobj_read_str_attr(gobj, "main_topic"),
-		topics
+		topics,
+		fold: {
+			topic: model.main_topic,
+			level: current_fold_level(gobj),
+			levels: model.levels
+		}
 	});
 }
 async function reconcile_fold_apply(gobj, opts, visible) {
@@ -61551,7 +61680,7 @@ function ac_load_data(gobj, event, kw, src) {
 	}
 	if (all_loaded && priv.graph) {
 		rebuild_fold_model(gobj);
-		fold_expand_to_depth(priv._fold_model, priv._fold_state, gobj_read_integer_attr(gobj, "expand_depth"));
+		fold_expand_to_level(priv._fold_model, priv._fold_state, current_fold_level(gobj));
 		count_placed_records(gobj);
 		let auto_laid = false;
 		try {
@@ -61955,19 +62084,46 @@ function ac_show_more(gobj, event, kw, src) {
 	return 0;
 }
 /************************************************************
-*  The whole treedb, every hook open on all its children. This
-*  is the reader asking for the pile on purpose; the pages are
-*  the other way in.
+*  The level of the main tree the toolbar's stepper stands on:
+*  `fold_level` once the reader has stepped, `expand_depth`
+*  until then, clamped to the levels the tree has.
 ************************************************************/
-function ac_expand_all$1(gobj, event, kw, src) {
+function current_fold_level(gobj) {
 	let priv = gobj.priv;
-	if (!priv._fold_model) {
-		log_error(`${gobj_short_name(gobj)}: expand all with no tree loaded`);
+	let level = gobj_read_integer_attr(gobj, "fold_level");
+	if (!(level > 0)) level = gobj_read_integer_attr(gobj, "expand_depth");
+	if (!priv._fold_model) return level;
+	return fold_level_clamp(priv._fold_model, level);
+}
+/************************************************************
+*  The toolbar's stepper: one level more or one less of the
+*  MAIN tree (the host owns the number and persists it; this
+*  applies it). Deeper opens the hooks above the new level,
+*  shallower folds from it down -- a level is a floor, not a
+*  picture, so what the reader opened by its pill stays (see
+*  treedb_fold_model). Replaces expand all / collapse all
+*  (7.23.141): the whole treedb at once was the pile, and
+*  closing threw away everything the reader had opened.
+************************************************************/
+function ac_set_fold_level(gobj, event, kw, src) {
+	let priv = gobj.priv;
+	let level = Number(kw && kw.level);
+	if (!(level > 0)) {
+		log_error(`${gobj_short_name(gobj)}: fold level '${kw && kw.level}' is not a level`);
 		return -1;
 	}
+	if (!priv._fold_model) {
+		gobj_write_attr(gobj, "fold_level", level);
+		return 0;
+	}
+	let from = current_fold_level(gobj);
+	level = fold_level_clamp(priv._fold_model, level);
+	gobj_write_attr(gobj, "fold_level", level);
+	if (level === from) return 0;
 	let keep = fold_keep_node(gobj);
 	let vp = yui_graph_viewport_of(priv.graph, keep);
-	fold_expand_all(priv._fold_model, priv._fold_state);
+	if (level > from) fold_open_levels(priv._fold_model, priv._fold_state, level);
+	else fold_close_levels(priv._fold_model, priv._fold_state, level);
 	reconcile_fold(gobj, {
 		keep,
 		keep_vp: vp
@@ -61995,29 +62151,11 @@ function fold_keep_node(gobj) {
 	return "";
 }
 /************************************************************
-*  The roots alone.
-************************************************************/
-function ac_collapse_all$1(gobj, event, kw, src) {
-	let priv = gobj.priv;
-	if (!priv._fold_model) {
-		log_error(`${gobj_short_name(gobj)}: collapse all with no tree loaded`);
-		return -1;
-	}
-	let keep = fold_keep_node(gobj);
-	let vp = yui_graph_viewport_of(priv.graph, keep);
-	fold_collapse_all(priv._fold_model, priv._fold_state);
-	reconcile_fold(gobj, {
-		keep,
-		keep_vp: vp
-	});
-	return 0;
-}
-/************************************************************
 *  The legend's three settings, from the host, which persists
 *  them. Each rebuilds the tree; the fold state is kept -- it is
 *  keyed by group, and a group that is gone is never read -- except
 *  for a new MAIN topic, whose roots are other roots: the tree
-*  opens again at `expand_depth`.
+*  opens again at the reader's level, now counted from them.
 ************************************************************/
 function ac_set_hidden_topics(gobj, event, kw, src) {
 	let priv = gobj.priv;
@@ -62035,7 +62173,7 @@ function ac_set_main_topic(gobj, event, kw, src) {
 	let keep = fold_keep_node(gobj);
 	let vp = yui_graph_viewport_of(priv.graph, keep);
 	rebuild_fold_model(gobj);
-	fold_expand_to_depth(priv._fold_model, priv._fold_state, gobj_read_integer_attr(gobj, "expand_depth"));
+	fold_expand_to_level(priv._fold_model, priv._fold_state, current_fold_level(gobj));
 	reconcile_fold(gobj, {
 		relayout: true,
 		keep,
@@ -62596,13 +62734,8 @@ function create_gclass$4(gclass_name) {
 			null
 		],
 		[
-			"EV_EXPAND_ALL",
-			ac_expand_all$1,
-			null
-		],
-		[
-			"EV_COLLAPSE_ALL",
-			ac_collapse_all$1,
+			"EV_SET_FOLD_LEVEL",
+			ac_set_fold_level,
 			null
 		],
 		[
@@ -62745,8 +62878,7 @@ function create_gclass$4(gclass_name) {
 		["EV_CAMERA_CHANGED", event_flag_t.EVF_OUTPUT_EVENT | event_flag_t.EVF_NO_WARN_SUBS],
 		["EV_TOGGLE_FOLD", 0],
 		["EV_SHOW_MORE", 0],
-		["EV_EXPAND_ALL", 0],
-		["EV_COLLAPSE_ALL", 0],
+		["EV_SET_FOLD_LEVEL", 0],
 		["EV_SET_HIDDEN_TOPICS", 0],
 		["EV_SET_MAIN_TOPIC", 0],
 		["EV_SET_LOOSE_TOPICS", 0],
@@ -62830,6 +62962,7 @@ var attrs_table$3 = [
 	SDATA(data_type_t.DTP_STRING, "node_mode", sdata_flag_t.SDF_PERSIST, "expanded", "How the records are drawn: `expanded` = the cards with their pills and ports, `compact` = one-line pills with the name, `shape` = coloured figures, the topology alone. User preference"),
 	SDATA(data_type_t.DTP_BOOLEAN, "node_labels", sdata_flag_t.SDF_PERSIST, true, "A `shape` node says its name under its figure. User preference"),
 	SDATA(data_type_t.DTP_DICT, "camera", sdata_flag_t.SDF_PERSIST, "{}", "Where the reader left the viewport: {zoom, x, y}. Handed to the engine on creation and written back when a move settles, so the graph opens where it was left. User preference, per treedb"),
+	SDATA(data_type_t.DTP_INTEGER, "fold_level", sdata_flag_t.SDF_PERSIST, 0, "The level of the MAIN tree the toolbar's stepper stands on: 1 = the main topic's roots, N = N-1 levels under them; 0 = never stepped, `expand_depth`. Handed to the engine on creation, so the graph opens at the level it was left. User preference, per treedb"),
 	SDATA(data_type_t.DTP_POINTER, "gobj_remote_yuno", 0, null, "Remote Yuno to request data"),
 	SDATA(data_type_t.DTP_STRING, "treedb_name", 0, null, "Remote service treedb name"),
 	SDATA(data_type_t.DTP_DICT, "descs", 0, null, "Descriptions of topics obtained"),
@@ -62905,6 +63038,7 @@ function mt_create$3(gobj) {
 		hook_port_position: "bottom",
 		fkey_port_position: "top",
 		expand_depth: gobj_read_integer_attr(gobj, "expand_depth"),
+		fold_level: gobj_read_integer_attr(gobj, "fold_level"),
 		fold_page_size: gobj_read_integer_attr(gobj, "fold_page_size"),
 		minimap_min_nodes: gobj_read_integer_attr(gobj, "minimap_min_nodes"),
 		with_gridline: gobj_read_bool_attr(gobj, "with_gridline"),
@@ -63212,6 +63346,127 @@ function refresh_node_shape_buttons(gobj, $root) {
 		$labels.disabled = mode !== "shape";
 	}
 }
+/************************************************************
+*  The fold STEPPER: one level less, where the tree stands, one
+*  level more.
+*
+*  It replaces the fold pair (7.23.141). `expand all` opened every
+*  hook of the treedb -- the pile, on purpose, which on a treedb
+*  of thousands is a pile nobody reads -- and `collapse all` threw
+*  away everything the reader had opened. The stepper walks the
+*  MAIN tree a level at a time, the way the frontend view opens
+*  one level per press: `+` opens the next level under the main
+*  topic's roots, through every topic that is not hidden; `-`
+*  folds the deepest one. Pages and pills the reader opened stay.
+*
+*  The readout says what the two buttons act on, which no chevron
+*  can: the main topic -- its swatch and its name, which is DATA
+*  and never translated -- and `level/levels`. On a phone the name
+*  goes and the numbers stay. The level is the reader's, per
+*  treedb: persisted (`fold_level`) and handed to the engine on
+*  creation, so a reload opens where it was left.
+*
+*  Both buttons are born disabled: nothing can be stepped until
+*  the engine has said how deep the tree goes (EV_LEGEND_STATE).
+************************************************************/
+function fold_level_items(gobj, wide) {
+	let step_button = (cls, icon, key, event_name) => {
+		return [
+			"button",
+			{
+				class: `${cls} button`,
+				type: "button",
+				style: {
+					height: wide,
+					width: "2.5em"
+				},
+				disabled: true,
+				title: t(key),
+				"data-i18n-title": key,
+				"aria-label": t(key),
+				"data-i18n-aria-label": key
+			},
+			yui_toolbar_icon(icon),
+			{ click: (evt) => {
+				evt.stopPropagation();
+				gobj_send_event(gobj, event_name, {}, gobj);
+			} }
+		];
+	};
+	return [[
+		"div",
+		{
+			class: "GRAPH_FOLD_STEPPER buttons has-addons",
+			style: "margin:0; flex:0 0 auto; flex-wrap:nowrap; align-items:stretch;"
+		},
+		[
+			step_button("GRAPH_FOLD_COLLAPSE", "yi-chevron-right", "collapse one level", "EV_COLLAPSE_LEVEL"),
+			[
+				"div",
+				{
+					class: "GRAPH_FOLD_LEVEL button",
+					style: {
+						height: wide,
+						cursor: "default",
+						gap: ".35rem"
+					},
+					role: "status",
+					title: t("fold level"),
+					"data-i18n-title": "fold level"
+				},
+				[
+					["span", {
+						class: "GRAPH_FOLD_SWATCH",
+						style: "display:none; width:.8rem; height:.8rem; border-radius:3px; flex:0 0 auto; border:1px solid rgba(0,0,0,.25);"
+					}],
+					["span", {
+						class: "GRAPH_FOLD_TOPIC is-hidden-mobile",
+						style: "max-width:10em; overflow:hidden; text-overflow:ellipsis; white-space:nowrap; font-weight:600;"
+					}],
+					[
+						"span",
+						{
+							class: "GRAPH_FOLD_WORD",
+							i18n: "level"
+						},
+						"level"
+					],
+					[
+						"span",
+						{
+							class: "GRAPH_FOLD_COUNT",
+							style: "font-variant-numeric:tabular-nums;"
+						},
+						"–"
+					]
+				]
+			],
+			step_button("GRAPH_FOLD_EXPAND", "yi-chevron-down", "expand one level", "EV_EXPAND_LEVEL")
+		]
+	]];
+}
+function refresh_fold_level(gobj) {
+	let priv = gobj.priv;
+	let $container = gobj_read_attr(gobj, "$container");
+	if (!$container) return;
+	let $readout = $container.querySelector(".GRAPH_FOLD_LEVEL");
+	if (!$readout) return;
+	let state = priv._legend_state || {};
+	let fold = state.fold || {};
+	let levels = fold.levels > 0 ? fold.levels : 0;
+	let level = fold.level > 0 ? fold.level : 0;
+	let topic = fold.topic || "";
+	let entry = (is_array(state.topics) ? state.topics : []).find((e) => e.topic === topic);
+	let $swatch = $readout.querySelector(".GRAPH_FOLD_SWATCH");
+	$swatch.style.display = topic ? "inline-block" : "none";
+	$swatch.style.background = entry && entry.color || "#94a3b8";
+	$readout.querySelector(".GRAPH_FOLD_TOPIC").textContent = topic;
+	$readout.querySelector(".GRAPH_FOLD_COUNT").textContent = levels ? `${level}/${levels}` : "–";
+	let $collapse = $container.querySelector(".GRAPH_FOLD_COLLAPSE");
+	let $expand = $container.querySelector(".GRAPH_FOLD_EXPAND");
+	if ($collapse) $collapse.disabled = !(levels && level > 1);
+	if ($expand) $expand.disabled = !(levels && level < levels);
+}
 function make_toolbar(gobj) {
 	let priv = gobj.priv;
 	let modes = gobj_read_attr(gobj, "operation_modes");
@@ -63278,7 +63533,7 @@ function make_toolbar(gobj) {
 			} }
 		]
 	];
-	let center_items = [...yui_graph_fold_items(gobj, gobj_read_str_attr(gobj, "wide")), ...node_shape_items(gobj, gobj_read_str_attr(gobj, "wide"))];
+	let center_items = [...fold_level_items(gobj, gobj_read_str_attr(gobj, "wide")), ...node_shape_items(gobj, gobj_read_str_attr(gobj, "wide"))];
 	let backend_items = [[
 		"button",
 		{
@@ -64534,6 +64789,7 @@ function ac_legend_state(gobj, event, kw, src) {
 	let priv = gobj.priv;
 	priv._legend_state = kw || null;
 	refresh_legend(gobj);
+	refresh_fold_level(gobj);
 	return 0;
 }
 /************************************************************
@@ -64646,17 +64902,33 @@ function ac_find_nodes(gobj, event, kw, src) {
 	return 0;
 }
 /************************************************************
-*  The fold pair of the toolbar, forwarded to the G6 child,
-*  which owns the tree.
+*  One press of the fold stepper (EV_EXPAND_LEVEL /
+*  EV_COLLAPSE_LEVEL): the level moves by one, is SAVED (the
+*  reader's, per treedb) and reaches the G6 child, which owns
+*  the tree.
+*
+*  The readout moves at once, not when the engine speaks again:
+*  a reconcile is asynchronous, and a second press that came
+*  before it would step from the level already left -- two
+*  presses, one level.
 ************************************************************/
-function ac_expand_all(gobj, event, kw, src) {
+function ac_fold_level_step(gobj, event, kw, src) {
 	let priv = gobj.priv;
-	if (priv.gobj_nodes_tree) gobj_send_event(priv.gobj_nodes_tree, "EV_EXPAND_ALL", {}, gobj);
-	return 0;
-}
-function ac_collapse_all(gobj, event, kw, src) {
-	let priv = gobj.priv;
-	if (priv.gobj_nodes_tree) gobj_send_event(priv.gobj_nodes_tree, "EV_COLLAPSE_ALL", {}, gobj);
+	let fold = priv._legend_state && priv._legend_state.fold;
+	if (!fold || !(fold.levels > 0)) {
+		log_error(`${gobj_short_name(gobj)}: ${event} with no tree to step through`);
+		return -1;
+	}
+	let level = fold.level + (event === "EV_EXPAND_LEVEL" ? 1 : -1);
+	if (level < 1 || level > fold.levels) {
+		log_error(`${gobj_short_name(gobj)}: ${event}: level ${level} out of 1..${fold.levels}`);
+		return -1;
+	}
+	gobj_write_attr(gobj, "fold_level", level);
+	gobj_save_persistent_attrs(gobj, "fold_level");
+	fold.level = level;
+	refresh_fold_level(gobj);
+	if (priv.gobj_nodes_tree) gobj_send_event(priv.gobj_nodes_tree, "EV_SET_FOLD_LEVEL", { level }, gobj);
 	return 0;
 }
 /************************************************************
@@ -64893,13 +65165,13 @@ function create_gclass$3(gclass_name) {
 			null
 		],
 		[
-			"EV_EXPAND_ALL",
-			ac_expand_all,
+			"EV_EXPAND_LEVEL",
+			ac_fold_level_step,
 			null
 		],
 		[
-			"EV_COLLAPSE_ALL",
-			ac_collapse_all,
+			"EV_COLLAPSE_LEVEL",
+			ac_fold_level_step,
 			null
 		],
 		[
@@ -64984,8 +65256,8 @@ function create_gclass$3(gclass_name) {
 		["EV_SET_OPERATION_MODE", 0],
 		["EV_SET_FOCUS_TOPIC", 0],
 		["EV_FIND_NODES", 0],
-		["EV_EXPAND_ALL", 0],
-		["EV_COLLAPSE_ALL", 0],
+		["EV_EXPAND_LEVEL", 0],
+		["EV_COLLAPSE_LEVEL", 0],
 		["EV_SET_NODE_MODE", 0],
 		["EV_TOGGLE_NODE_LABELS", 0],
 		["EV_FIND_RESULT", 0],