rootiest
29afe5c89f
27 duplicated declarations replaced by 5 calls. Output strings untouched.
Four of these five files have no --help path, so the byte-identity harness
cannot reach them. Covered instead by driving the real TUI under a pty on
both the baseline and converted trees with an identical paced keystroke
feed (down x3, Tab, Enter, Esc, Tab, down, q):
9 redraws, 15068 bytes, byte-identical on both sides
c_sel (ESC[35;1m) x9, c_hi (ESC[37;1m) x8, c_head (ESC[36;1m) x9
all four draw helpers reached -- draw, pagetab, draw_subcat
("cascade default", "(category)"), draw_value ("Allow prev")
46 lines
1.4 KiB
Fish
46 lines
1.4 KiB
Fish
# Copyright (C) 2026 Rootiest
|
||
# SPDX-License-Identifier: AGPL-3.0-or-later
|
||
|
||
# SYNOPSIS
|
||
# __config_settings_pagetab <active_idx> <iw>
|
||
#
|
||
# DESCRIPTION
|
||
# Renders the four-page tab strip used as the header line of every
|
||
# config-settings page. Pages: 0 Universal, 1 Session, 2 Sponge, 3 Paths.
|
||
# The active page is marked with a filled bullet and bold text; the others
|
||
# with a hollow bullet. The returned string is padded to exactly <iw>
|
||
# printable columns (the caller adds the │ │ border and center offset).
|
||
#
|
||
# ARGUMENTS
|
||
# active_idx 0–3, the active page index
|
||
# iw inner width in columns to pad the strip to
|
||
#
|
||
# EXIT STATUS
|
||
# 0 Always
|
||
#
|
||
# RETURNS
|
||
# The rendered tab strip, printed to stdout (no trailing newline beyond printf's)
|
||
#
|
||
# EXAMPLE
|
||
# set strip (__config_settings_pagetab 2 76)
|
||
function __config_settings_pagetab
|
||
set -l active $argv[1]
|
||
set -l iw $argv[2]
|
||
|
||
__fish_palette
|
||
set -l names Universal Session Sponge Paths
|
||
|
||
set -l strip ' '
|
||
for i in (seq 0 3)
|
||
set -l idx (math $i + 1)
|
||
if test $i -eq $active
|
||
set strip "$strip$c_hi●$names[$idx]$c_reset "
|
||
else
|
||
set strip "$strip○$names[$idx] "
|
||
end
|
||
end
|
||
# string pad is width-aware: color escapes count as 0 columns, the bullets
|
||
# and letters as their printable width.
|
||
string pad -r -w $iw -- $strip
|
||
end
|