Milestones 4 and 5: project layer, review gate and serial merge, all measured

bin/board

@@ -0,0 +1,89 @@
+#!/usr/bin/env python3
+"""Build or repair a project's panes, in a fixed order.
+
+    bin/board                     # the project in the current folder
+    bin/board --folder ~/src/x    # or another one
+    bin/board --replace           # close this project's panes and build again
+
+Every page is a workspace with one pane, named after the page. The first
+workspace holds a shell: it is the pane that never exits, so the session cannot
+lose its first workspace to TUIOS cleanup.
+
+Nothing here holds a workspace number. Each page asks for its workspace by name
+at the moment it opens, because closing a pane deletes an emptied workspace and
+renumbers the rest. Run it twice and nothing is duplicated.
+"""
+
+import os
+import shlex
+import sys
+
+HERE = os.path.dirname(os.path.abspath(__file__))
+sys.path.insert(0, os.path.join(HERE, "lib"))
+import harness as h  # noqa: E402
+import tuios  # noqa: E402
+import project as pj  # noqa: E402
+
+BIN = os.path.join(os.path.dirname(HERE), "bin", "harness")
+
+
+def parse(argv):
+    opts = {"folder": os.getcwd(), "replace": "--replace" in argv}
+    for i, a in enumerate(argv):
+        if a == "--folder" and i + 1 < len(argv):
+            opts["folder"] = argv[i + 1]
+    return opts
+
+
+def pages(cfg):
+    """The pages, in the order they must appear on the workspace rail."""
+    bin_path = BIN
+    proj = cfg["paperclip"]["project"]
+    task = pj.watch_task(cfg)
+    return task, [
+        ("shell", "shell", "exec zsh -i"),
+        ("tree", "tree", "%s -screen tree -project %s" % (shlex.quote(bin_path), proj)),
+        ("reply", "reply", "%s -screen reply -issue %s" % (shlex.quote(bin_path), task)),
+        ("log", "log", "%s -screen log -issue %s" % (shlex.quote(bin_path), task)),
+        ("new", "new", "%s -screen new -project %s" % (shlex.quote(bin_path), proj)),
+    ]
+
+
+def main():
+    opts = parse(sys.argv[1:])
+    folder = os.path.abspath(os.path.expanduser(opts["folder"]))
+    cfg = pj.load(folder)
+    pj.check_machine(cfg)
+    session = cfg["session"]
+    tuios.require_session(session)
+    os.environ["PAPERCLIP_HARNESS_SESSION"] = session
+
+    if not os.path.isfile(BIN):
+        raise h.Refused(2, "no harness binary at %s; build it with 'cd tui && go build -o ../bin/harness .'" % BIN)
+
+    task, page_list = pages(cfg)
+    h.say("board: %s  (session %s, folder %s)" % (cfg["paperclip"]["project"], session, folder))
+    h.say("watching: %s" % task)
+
+    if opts["replace"]:
+        for name, _, _ in page_list:
+            if tuios.close_pane(name, session):
+                h.say("  closed %s" % name)
+
+    for name, workspace, command in page_list:
+        result, ident, ws = tuios.open_pane(
+            name, workspace, folder, command, session,
+            adopt_existing=(name == "shell"),
+        )
+        h.say("  %-6s %-8s workspace %s" % (name, result, ws))
+
+    for number, name in tuios.arrange([p[0] for p in page_list], session):
+        h.say("  placed %-6s workspace %s" % (name, number))
+
+    in_use = [w for w in tuios.workspaces(session) if (w.get("window_count") or 0) > 0]
+    h.say("workspaces in use: %d" % len(in_use))
+    return 0
+
+
+if __name__ == "__main__":
+    h.main_guard(main)