chatdeck 0.1.0__py3-none-any.whl

chatdeck/transcripts.py

@@ -0,0 +1,216 @@
+"""Reading Claude Code transcripts (~/.claude/projects/<project>/<session>.jsonl).
+
+The index reads each file incrementally: it remembers how far it got and only parses
+lines appended since, so a 30 MB chat that grows by one message costs one message."""
+import json, os, re, threading
+
+UUID = re.compile(r"^[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}$")
+TAG = re.compile(r"<(system-reminder|local-command-[a-z]+|command-[a-z]+)>.*?</\1>", re.S)
+
+
+def _user_text(c):
+    """Text the person typed, or None for tool results, command output and injected context."""
+    if isinstance(c, str):
+        return None if c.lstrip().startswith("<") else c.strip() or None
+    if isinstance(c, list):
+        parts = [b.get("text", "") for b in c if isinstance(b, dict) and b.get("type") == "text"]
+        t = TAG.sub("", "\n".join(parts)).strip()
+        return t or None
+    return None
+
+
+def _assistant_text(c):
+    if not isinstance(c, list): return ""
+    return "\n".join(b.get("text", "") for b in c if isinstance(b, dict) and b.get("type") == "text").strip()
+
+
+class Entry:
+    __slots__ = ("ino", "offset", "size", "mtime", "custom", "ai", "summary", "first", "cwd", "ctx", "msgs",
+                 "days", "seen", "cost", "text", "text_lc", "cwds")
+
+    def __init__(self, ino):
+        self.ino = ino; self.offset = 0; self.size = 0; self.mtime = 0.0
+        self.custom = self.ai = self.summary = self.first = self.cwd = None
+        self.ctx = self.msgs = 0; self.days = {}; self.seen = set(); self.cost = 0.0
+        self.text = []; self.text_lc = ""; self.cwds = {}   # folder -> lines written there, to tell where the chat mostly worked
+
+    @property
+    def title(self):
+        return self.custom or self.ai or self.summary or self.first
+
+    def feed(self, d):
+        t = d.get("type")
+        if t == "custom-title" and d.get("customTitle"): self.custom = d["customTitle"]
+        elif t == "ai-title" and d.get("aiTitle"): self.ai = d["aiTitle"]
+        elif t == "summary" and d.get("summary"): self.summary = d["summary"]
+        elif t == "cost-state": self.cost = float(d.get("totalCostUSD") or 0)
+        elif t == "system" and d.get("subtype") == "compact_boundary":   # context shrinks right away, not at the next reply
+            self.ctx = (d.get("compactMetadata") or {}).get("postTokens") or self.ctx
+        if d.get("cwd"):
+            self.cwd = d["cwd"]; self.cwds[self.cwd] = self.cwds.get(self.cwd, 0) + 1
+        if d.get("isSidechain") or d.get("isMeta"): return
+        m = d.get("message") or {}
+        if t == "user":
+            txt = _user_text(m.get("content"))
+            if txt:
+                self.msgs += 1; self.first = self.first or txt.replace("\n", " ")[:90]
+                self._add_text(txt)
+        elif t == "assistant":
+            u = m.get("usage") or {}
+            v = u.get("input_tokens", 0) + u.get("cache_read_input_tokens", 0) + u.get("cache_creation_input_tokens", 0)
+            if v: self.ctx = v
+            mid = m.get("id"); ts = d.get("timestamp", "")
+            if u and mid and mid not in self.seen and len(ts) >= 10:
+                self.seen.add(mid); day = self.days.setdefault(ts[:10], [0, 0, 0, 0])
+                day[0] += u.get("input_tokens", 0); day[1] += u.get("output_tokens", 0)
+                day[2] += u.get("cache_read_input_tokens", 0); day[3] += u.get("cache_creation_input_tokens", 0)
+            txt = _assistant_text(m.get("content"))
+            if txt: self._add_text(txt)
+
+    def _add_text(self, s):
+        self.text.append(s); self.text_lc += s.lower() + "\n"
+
+    def info(self):
+        return {"title": self.title, "cwd": self.cwd, "ctx": self.ctx, "msgs": self.msgs, "days": self.days,
+                "cost": round(self.cost, 2), "size": self.size, "mtime": self.mtime}
+
+
+class Index:
+    def __init__(self, root):
+        self.root = root; self.entries = {}; self.lock = threading.Lock()
+
+    def files(self):
+        out = {}
+        try:
+            for proj in os.scandir(self.root):
+                if not proj.is_dir(): continue
+                for f in os.scandir(proj.path):
+                    if f.name.endswith(".jsonl") and UUID.match(f.name[:-6]): out[f.name[:-6]] = f.path
+        except FileNotFoundError:
+            pass
+        return out
+
+    def get(self, path):
+        """The entry for a transcript, reading only what was appended since last time."""
+        with self.lock:
+            st = os.stat(path); e = self.entries.get(path)
+            if e is None or e.ino != st.st_ino or st.st_size < e.offset:   # new, replaced or truncated
+                e = self.entries[path] = Entry(st.st_ino)
+            if st.st_size > e.offset:
+                with open(path, "rb") as f:
+                    f.seek(e.offset); chunk = f.read(st.st_size - e.offset)
+                end = chunk.rfind(b"\n") + 1      # leave a half-written last line for next time
+                for line in chunk[:end].splitlines():
+                    try: e.feed(json.loads(line))
+                    except Exception: pass
+                e.offset += end
+            e.size = st.st_size; e.mtime = st.st_mtime
+            return e
+
+    def all(self):
+        """{sid: (path, Entry)} for every transcript; forgets deleted ones."""
+        fs = self.files(); out = {}
+        for sid, p in fs.items():
+            try: out[sid] = (p, self.get(p))
+            except FileNotFoundError: pass
+        with self.lock:
+            for p in [p for p in self.entries if p not in set(fs.values())]: del self.entries[p]
+        return out
+
+    def forget(self, path):
+        with self.lock: self.entries.pop(path, None)
+
+    def search(self, q, limit=200):
+        """Chats whose messages contain every word of q, with a snippet around the first hit."""
+        words = q.lower().split()
+        if not words: return {}
+        hits = {}
+        for sid, (_, e) in self.all().items():
+            if all(w in e.text_lc for w in words):
+                hits[sid] = snippet(e, words[0])
+                if len(hits) >= limit: break
+        return hits
+
+
+def snippet(e, word, pad=60):
+    for s in e.text:
+        i = s.lower().find(word)
+        if i >= 0:
+            a, b = max(0, i - pad), min(len(s), i + len(word) + pad)
+            return ("…" if a else "") + s[a:b].replace("\n", " ") + ("…" if b < len(s) else "")
+    return ""
+
+
+def _tool_summary(name, inp):
+    if not isinstance(inp, dict): return ""
+    for k in ("command", "file_path", "pattern", "url", "query", "description", "prompt", "skill"):
+        if inp.get(k): return str(inp[k])[:300]
+    return json.dumps(inp)[:300]
+
+
+def _result_text(c):
+    if isinstance(c, str): return c
+    if isinstance(c, list):
+        return "\n".join(b.get("text", "") if b.get("type") == "text" else f"[{b.get('type')}]" for b in c if isinstance(b, dict))
+    return ""
+
+
+def messages(path, max_items=1500, result_chars=1500):
+    """The conversation as a flat list of items for the viewer:
+    {"k": "user"|"assistant"|"tool"|"result"|"command"|"compact", "text": ..., "ts": ..., ...}"""
+    items = []
+    with open(path, "rb") as f:
+        for line in f:
+            try: d = json.loads(line)
+            except Exception: continue
+            if d.get("isSidechain") or d.get("isMeta"): continue
+            t = d.get("type"); ts = d.get("timestamp"); m = d.get("message") or {}; c = m.get("content")
+            if t == "system" and d.get("subtype") == "compact_boundary":
+                items.append({"k": "compact", "ts": ts})
+            elif t == "user":
+                if isinstance(c, str) and "<command-name>" in c:
+                    cmd = re.search(r"<command-name>(.*?)</command-name>", c, re.S)
+                    args = re.search(r"<command-args>(.*?)</command-args>", c, re.S)
+                    if cmd: items.append({"k": "command", "text": (cmd.group(1) + " " + (args.group(1) if args else "")).strip(), "ts": ts})
+                    continue
+                txt = _user_text(c)
+                if txt: items.append({"k": "user", "text": txt, "ts": ts})
+                if isinstance(c, list):
+                    for b in c:
+                        if isinstance(b, dict) and b.get("type") == "tool_result":
+                            r = _result_text(b.get("content"))
+                            items.append({"k": "result", "text": r[:result_chars], "cut": len(r) > result_chars,
+                                          "err": bool(b.get("is_error")), "ts": ts})
+            elif t == "assistant" and isinstance(c, list):
+                for b in c:
+                    if not isinstance(b, dict): continue
+                    if b.get("type") == "text" and b.get("text", "").strip():
+                        items.append({"k": "assistant", "text": b["text"].strip(), "ts": ts})
+                    elif b.get("type") == "tool_use":
+                        items.append({"k": "tool", "name": b.get("name", ""), "text": _tool_summary(b.get("name"), b.get("input")), "ts": ts})
+    return {"items": items[-max_items:], "hidden": max(0, len(items) - max_items)}
+
+
+def markdown(path, title):
+    out = [f"# {title}", ""]
+    for it in messages(path, max_items=10**9)["items"]:
+        k = it["k"]
+        if k == "user": out += ["## You", "", it["text"], ""]
+        elif k == "assistant": out += ["## Claude", "", it["text"], ""]
+        elif k == "tool":
+            cmd = it["text"].replace("`", "'")[:200]
+            out += [f"> **{it['name']}** `{cmd}`", ""]
+        elif k == "command": out += [f"> `{it['text']}`", ""]
+        elif k == "compact": out += ["---", "*conversation compacted*", ""]
+    return "\n".join(out)
+
+
+def rename(path, sid, title):
+    """Give a saved chat a new name, the same way Claude Code's /rename records it."""
+    with open(path, "rb") as f:
+        f.seek(0, 2); ends_clean = True
+        if f.tell(): f.seek(-1, 2); ends_clean = f.read(1) == b"\n"
+    with open(path, "a") as f:
+        if not ends_clean: f.write("\n")
+        f.write(json.dumps({"type": "custom-title", "customTitle": title, "sessionId": sid}) + "\n")
+        f.write(json.dumps({"type": "agent-name", "agentName": title, "sessionId": sid}) + "\n")

chatdeck/usage.py

@@ -0,0 +1,96 @@
+"""Token usage from transcripts, plan limits from saved status-line payloads, and a forecast
+of when each limit runs out at the current pace."""
+import datetime, glob, json, os, threading, time
+
+WINDOWS = {"five_hour": ("5-hour limit", 90 * 60), "seven_day": ("Weekly limit", 12 * 3600)}  # key -> (label, lookback secs)
+
+
+def _secs(t):
+    if isinstance(t, (int, float)): return t / 1000 if t > 1e12 else t
+    try: return datetime.datetime.fromisoformat(str(t).replace("Z", "+00:00")).timestamp()
+    except Exception: return None
+
+
+class LimitHistory:
+    """Samples of (time, window, used %, reset time), kept in memory and in a small JSONL file
+    so the forecast survives restarts."""
+
+    def __init__(self, path, keep=8 * 86400):
+        self.path = path; self.keep = keep; self.samples = []; self.lock = threading.Lock()
+        try:
+            with open(path) as f:
+                self.samples = [json.loads(l) for l in f if l.strip()]
+        except (FileNotFoundError, ValueError):
+            pass
+
+    def add(self, at, data):
+        new = []
+        with self.lock:
+            for key in WINDOWS:
+                o = data.get(key) or {}
+                pct = o.get("used_percentage"); reset = _secs(o.get("resets_at"))
+                if pct is None or reset is None: continue
+                last = next((s for s in reversed(self.samples) if s["w"] == key), None)
+                if last and last["t"] >= at: continue
+                if last and last["p"] == pct and last["r"] == reset and at - last["t"] < 300: continue
+                new.append({"t": at, "w": key, "p": pct, "r": reset})
+            if not new: return
+            self.samples += new
+            cut = time.time() - self.keep
+            if self.samples[0]["t"] < cut:
+                self.samples = [s for s in self.samples if s["t"] >= cut]
+                self._write(self.samples, "w")
+            else:
+                self._write(new, "a")
+
+    def _write(self, rows, mode):
+        try:
+            os.makedirs(os.path.dirname(self.path), exist_ok=True)
+            with open(self.path, mode) as f:
+                f.writelines(json.dumps(r) + "\n" for r in rows)
+        except OSError:
+            pass
+
+    def forecast(self, key, now=None):
+        """{"eta": when it hits 100% at the current pace, or None, "rate": % per hour}."""
+        now = now or time.time(); lookback = WINDOWS[key][1]
+        with self.lock:
+            s = [x for x in self.samples if x["w"] == key]
+        if not s: return None
+        cur = s[-1]
+        win = [x for x in s if x["r"] == cur["r"] and x["t"] >= cur["t"] - lookback]
+        if len(win) < 2 or cur["t"] - win[0]["t"] < 900: return {"eta": None, "rate": None}
+        rate = (cur["p"] - win[0]["p"]) / (cur["t"] - win[0]["t"])   # % per second
+        if rate <= 0: return {"eta": None, "rate": 0}
+        eta = cur["t"] + (100 - cur["p"]) / rate
+        return {"eta": eta if eta < cur["r"] else None, "rate": round(rate * 3600, 1)}
+
+
+def summary(entries, status_dir, history, today=None, project=None):
+    """entries: iterable of transcript Entry objects; project(entry) names the project a chat belongs to."""
+    today = today or datetime.date.today()
+    week = {(today - datetime.timedelta(days=i)).isoformat(): 0 for i in range(6, -1, -1)}
+    by_proj = {}; tot = {"today": [0, 0, 0, 0], "week": [0, 0, 0, 0]}
+    for e in entries:
+        proj = os.path.basename((project(e) if project else e.cwd or "").rstrip("/")) or "~"
+        for day, v in e.days.items():
+            if day in week:
+                n = v[0] + v[1] + v[3]   # fresh input + output + cache writes (cache reads are cheap re-reads)
+                week[day] += n; by_proj[proj] = by_proj.get(proj, 0) + n
+                tot["week"] = [a + b for a, b in zip(tot["week"], v)]
+                if day == today.isoformat(): tot["today"] = [a + b for a, b in zip(tot["today"], v)]
+    limits = None; cost = 0.0; now = time.time()
+    for f in sorted(glob.glob(os.path.join(status_dir, "*.json")), key=os.path.getmtime):
+        try:
+            with open(f) as fh: d = json.load(fh)
+            at = os.path.getmtime(f)
+            if at > now - 86400: cost += float((d.get("cost") or {}).get("total_cost_usd") or 0)
+            if d.get("rate_limits"):
+                limits = {"data": d["rate_limits"], "at": at}
+                history.add(at, d["rate_limits"])
+        except Exception:
+            pass
+    if limits:
+        limits["forecast"] = {k: history.forecast(k) for k in WINDOWS}
+    return {"week": [[k, v] for k, v in week.items()], "by_project": sorted(by_proj.items(), key=lambda x: -x[1])[:5],
+            "today": tot["today"], "week_tot": tot["week"], "limits": limits, "cost_24h": round(cost, 2)}

chatdeck/windows/bubble.ps1

@@ -0,0 +1,303 @@
+<#
+  chatdeck bubble: a small always-on-top button in the bottom-left corner of the screen.
+  Click it to pop the dashboard up above it; click it again, or anywhere else, to tuck it away.
+  Drag it to move it. Right-click to hide it or for more. Starting it again while it is hidden
+  brings it back. The badge counts running chats and turns amber, with a pulsing ring, when a
+  chat is waiting for you. The same badge sits in the notification area (by the clock), where a
+  click pops the dashboard up in the bottom-right corner instead.
+
+  Needs the dashboard server running, and Chrome or Edge for the pop-up.
+  powershell -NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File bubble.ps1 [-Port 47123]
+#>
+param([int]$Port = 47123, [int]$PopupWidth = 460, [int]$PopupHeight = 760)
+
+# One bubble at a time: starting it again just asks the running one to show itself.
+$created = $false
+$script:mutex = New-Object System.Threading.Mutex($true, "Local\ChatdeckBubble", [ref]$created)
+$script:showSignal = New-Object System.Threading.EventWaitHandle($false, [System.Threading.EventResetMode]::AutoReset, "Local\ChatdeckBubbleShow")
+if (-not $created) { $script:showSignal.Set() | Out-Null; exit }
+
+Add-Type -AssemblyName PresentationFramework, PresentationCore, WindowsBase, System.Windows.Forms, System.Drawing
+Add-Type @'
+using System; using System.Runtime.InteropServices;
+public static class U {
+  [DllImport("user32.dll", CharSet=CharSet.Unicode)] public static extern IntPtr FindWindow(string c, string t);
+  [DllImport("user32.dll")] public static extern IntPtr GetForegroundWindow();
+  [DllImport("user32.dll")] public static extern IntPtr GetAncestor(IntPtr h, uint f);
+  [DllImport("user32.dll")] static extern bool SetForegroundWindow(IntPtr h);
+  [DllImport("user32.dll")] public static extern bool ShowWindow(IntPtr h, int c);
+  [DllImport("user32.dll")] public static extern bool IsWindowVisible(IntPtr h);
+  [DllImport("user32.dll")] public static extern bool IsIconic(IntPtr h);
+  [DllImport("user32.dll")] public static extern bool SetWindowPos(IntPtr h, IntPtr after, int x, int y, int w, int hh, uint f);
+  [DllImport("user32.dll")] public static extern bool PostMessage(IntPtr h, uint m, IntPtr w, IntPtr l);
+  [DllImport("user32.dll")] public static extern bool DestroyIcon(IntPtr h);
+  [DllImport("user32.dll", CharSet=CharSet.Unicode)] static extern int GetClassName(IntPtr h, System.Text.StringBuilder s, int n);
+  public static string ClassOf(IntPtr h) { var s = new System.Text.StringBuilder(128); GetClassName(h, s, 128); return s.ToString(); }
+  [DllImport("user32.dll")] static extern void keybd_event(byte k, byte s, uint f, UIntPtr e);
+  public static void Front(IntPtr h) {   // an Alt tap lets a background process take focus
+    keybd_event(0x12, 0, 0, UIntPtr.Zero); keybd_event(0x12, 0, 2, UIntPtr.Zero); SetForegroundWindow(h);
+  }
+}
+'@
+[System.Net.WebRequest]::DefaultWebProxy = $null   # skip proxy detection, which adds seconds per request
+
+$Base = "http://127.0.0.1:$Port"
+$PopupTitle = "chatdeck" + [char]0x200B   # reads "chatdeck"; the zero-width space tells the pop-up apart from the full window
+$Size = 64
+$StateFile = Join-Path $env:APPDATA "chatdeck\bubble.json"
+$script:token = $null
+$script:shown = $false
+$script:shownAt = [DateTime]::MinValue
+$script:hiddenUntil = $null   # set while the bubble itself is hidden
+$script:anchor = "bubble"     # where the pop-up opens: above the bubble, or above the tray
+
+# --- talking to the server -------------------------------------------------------------------
+function Get-Summary {
+  if (-not $script:token) {
+    $html = (Invoke-WebRequest -UseBasicParsing -TimeoutSec 2 "$Base/").Content
+    if ($html -match 'TOKEN="([0-9a-f]+)"') { $script:token = $Matches[1] }
+  }
+  try { Invoke-RestMethod -TimeoutSec 2 -Headers @{ "X-Token" = $script:token } "$Base/api/summary" }
+  catch { $script:token = $null; throw }   # the server may have restarted with a new token
+}
+
+# --- the logo: the same shapes as assets/logo.svg (a deck of chat cards) -----------------------
+$LogoXaml = @'
+<Canvas xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" Width="64" Height="64">
+  <Rectangle Canvas.Left="23" Canvas.Top="5" Width="36" Height="28" RadiusX="7" RadiusY="7" Fill="#A9C4F7"/>
+  <Rectangle Canvas.Left="14" Canvas.Top="12" Width="38" Height="29" RadiusX="7" RadiusY="7" Fill="#6E9BEE"/>
+  <Path Data="M13 20h34a8 8 0 0 1 8 8v16a8 8 0 0 1-8 8H24l-11 9 2-9h-2a8 8 0 0 1-8-8V28a8 8 0 0 1 8-8z">
+    <Path.Fill><LinearGradientBrush StartPoint="0,0" EndPoint="1,1"><GradientStop Offset="0" Color="#4C86F0"/><GradientStop Offset="1" Color="#2A5BD7"/></LinearGradientBrush></Path.Fill>
+  </Path>
+  <Rectangle Canvas.Left="14" Canvas.Top="30" Width="26" Height="4.5" RadiusX="2.25" RadiusY="2.25" Fill="White"/>
+  <Rectangle Canvas.Left="14" Canvas.Top="38.5" Width="17" Height="4.5" RadiusX="2.25" RadiusY="2.25" Fill="White" Opacity="0.8"/>
+</Canvas>
+'@
+
+function Logo-Bitmap($px) {
+  # The logo rendered to a System.Drawing bitmap, for the tray icon.
+  $vb = New-Object System.Windows.Controls.Viewbox
+  $vb.Child = [Windows.Markup.XamlReader]::Parse($LogoXaml)
+  $vb.Measure((New-Object System.Windows.Size($px, $px))); $vb.Arrange((New-Object System.Windows.Rect(0, 0, $px, $px)))
+  $rtb = New-Object System.Windows.Media.Imaging.RenderTargetBitmap($px, $px, 96, 96, [System.Windows.Media.PixelFormats]::Pbgra32)
+  $rtb.Render($vb)
+  $enc = New-Object System.Windows.Media.Imaging.PngBitmapEncoder
+  $enc.Frames.Add([System.Windows.Media.Imaging.BitmapFrame]::Create($rtb))
+  $ms = New-Object System.IO.MemoryStream; $enc.Save($ms); $ms.Position = 0
+  New-Object System.Drawing.Bitmap($ms)
+}
+
+# --- the bubble ------------------------------------------------------------------------------
+[xml]$xaml = @"
+<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        Title="chatdeck bubble" Width="$Size" Height="$Size" WindowStyle="None" AllowsTransparency="True"
+        Background="Transparent" Topmost="True" ShowInTaskbar="False" ResizeMode="NoResize" Cursor="Hand">
+  <Grid>
+    <Ellipse x:Name="Ring" Width="58" Height="58" Stroke="#F5B942" StrokeThickness="3" Opacity="0"/>
+    <Ellipse x:Name="Disc" Width="48" Height="48" Fill="#1B1F27" Stroke="#3A4150" StrokeThickness="1">
+      <Ellipse.Effect><DropShadowEffect BlurRadius="10" ShadowDepth="2" Opacity="0.45"/></Ellipse.Effect>
+    </Ellipse>
+    <Viewbox Width="30" Height="30" Margin="0,1,0,0">$LogoXaml</Viewbox>
+    <Border x:Name="Badge" Background="#3ECF8E" CornerRadius="9" MinWidth="18" Height="18" HorizontalAlignment="Right"
+            VerticalAlignment="Top" Margin="0,5,5,0" Padding="4,0" Visibility="Collapsed">
+      <TextBlock x:Name="Count" Foreground="#0F1115" FontSize="11" FontWeight="Bold" HorizontalAlignment="Center" VerticalAlignment="Center"/>
+    </Border>
+  </Grid>
+</Window>
+"@
+$win = [Windows.Markup.XamlReader]::Load((New-Object System.Xml.XmlNodeReader $xaml))
+$ring = $win.FindName("Ring"); $disc = $win.FindName("Disc")
+$badge = $win.FindName("Badge"); $count = $win.FindName("Count")
+$win.ToolTip = "chatdeck"
+
+$pulse = New-Object System.Windows.Media.Animation.DoubleAnimation(0.25, 1, [TimeSpan]::FromMilliseconds(700))
+$pulse.AutoReverse = $true; $pulse.RepeatBehavior = [System.Windows.Media.Animation.RepeatBehavior]::Forever
+
+function Home-Position {
+  $wa = [System.Windows.SystemParameters]::WorkArea
+  $win.Left = $wa.Left + 12; $win.Top = $wa.Bottom - $Size - 12
+}
+function Save-Position {
+  try {
+    New-Item -ItemType Directory -Force (Split-Path $StateFile) | Out-Null
+    @{ left = $win.Left; top = $win.Top } | ConvertTo-Json | Set-Content $StateFile
+  } catch {}
+}
+Home-Position
+try {
+  $p = Get-Content $StateFile -Raw | ConvertFrom-Json
+  $vs = [System.Windows.SystemParameters]
+  if ($p.left -ge $vs::VirtualScreenLeft -and $p.left -le $vs::VirtualScreenLeft + $vs::VirtualScreenWidth - $Size -and
+      $p.top -ge $vs::VirtualScreenTop -and $p.top -le $vs::VirtualScreenTop + $vs::VirtualScreenHeight - $Size) {
+    $win.Left = $p.left; $win.Top = $p.top
+  }
+} catch {}
+
+# --- the pop-up: a Chrome/Edge app window placed above the bubble ----------------------------
+function Popup-Handle { [U]::FindWindow("Chrome_WidgetWin_1", $PopupTitle) }
+
+function Browser {
+  foreach ($b in @("$env:ProgramFiles\Google\Chrome\Application\chrome.exe", "${env:ProgramFiles(x86)}\Google\Chrome\Application\chrome.exe",
+                   "$env:LOCALAPPDATA\Google\Chrome\Application\chrome.exe", "${env:ProgramFiles(x86)}\Microsoft\Edge\Application\msedge.exe",
+                   "$env:ProgramFiles\Microsoft\Edge\Application\msedge.exe")) { if (Test-Path $b) { return $b } }
+}
+
+function Place-Popup($h) {
+  # Above the bubble, lined up with whichever edge of the screen the bubble is nearer, or in the
+  # bottom-right corner when opened from the tray; kept on screen.
+  $wa = [System.Windows.SystemParameters]::WorkArea
+  $scale = [System.Windows.PresentationSource]::FromVisual($win).CompositionTarget.TransformToDevice.M11
+  if ($script:anchor -eq "tray") { $left = $wa.Right - 8 - $PopupWidth; $top = $wa.Bottom - 8 - $PopupHeight }
+  else {
+    $left = if ($win.Left + $Size / 2 -lt $wa.Left + $wa.Width / 2) { $win.Left + 4 } else { $win.Left + $Size - 4 - $PopupWidth }
+    $top = $win.Top - 6 - $PopupHeight
+  }
+  if ($top -lt $wa.Top) { $top = $wa.Top }
+  $left = [Math]::Max($wa.Left, [Math]::Min($left, $wa.Right - $PopupWidth))
+  [U]::SetWindowPos($h, [IntPtr]::Zero, [int]($left * $scale), [int]($top * $scale),
+                    [int]($PopupWidth * $scale), [int]($PopupHeight * $scale), 0x14) | Out-Null   # no z-order change, no activate
+}
+
+function Show-Popup($from = "bubble") {
+  $script:anchor = $from
+  $h = Popup-Handle
+  if ($h -eq [IntPtr]::Zero) {
+    $b = Browser
+    if (-not $b) { [System.Windows.MessageBox]::Show("The pop-up needs Chrome or Edge.", "chatdeck") | Out-Null; return }
+    Start-Process $b -ArgumentList "--app=$Base/?popup=1", "--window-size=$PopupWidth,$PopupHeight"
+    for ($i = 0; $i -lt 60 -and $h -eq [IntPtr]::Zero; $i++) { Start-Sleep -Milliseconds 100; $h = Popup-Handle }
+    if ($h -eq [IntPtr]::Zero) { return }
+  }
+  Place-Popup $h
+  [U]::ShowWindow($h, $(if ([U]::IsIconic($h)) { 9 } else { 5 })) | Out-Null
+  [U]::Front($h)
+  $script:shown = $true; $script:shownAt = Get-Date
+}
+
+function Hide-Popup {
+  $h = Popup-Handle
+  if ($h -ne [IntPtr]::Zero) { [U]::ShowWindow($h, 0) | Out-Null }
+  $script:shown = $false
+}
+
+function Toggle-Popup($from = "bubble") { if ($script:shown) { Hide-Popup } else { Show-Popup $from } }
+
+function Hide-Bubble($until) { Hide-Popup; $win.Hide(); $script:hiddenUntil = $until }
+function Show-Bubble { $script:hiddenUntil = $null; $win.Show(); [U]::ShowWindow($script:self, 4) | Out-Null }
+
+# Click toggles; dragging moves the bubble (and the pop-up with it).
+$win.Add_MouseLeftButtonDown({
+  $l = $win.Left; $t = $win.Top
+  $win.DragMove()
+  if ([Math]::Abs($win.Left - $l) -lt 3 -and [Math]::Abs($win.Top - $t) -lt 3) { Toggle-Popup }
+  else { Save-Position; if ($script:shown -and $script:anchor -eq "bubble") { $h = Popup-Handle; if ($h -ne [IntPtr]::Zero) { Place-Popup $h } } }
+})
+
+$menu = New-Object System.Windows.Controls.ContextMenu
+function Add-Item($text, $action) { $i = New-Object System.Windows.Controls.MenuItem; $i.Header = $text; $i.Add_Click($action); $menu.Items.Add($i) | Out-Null }
+Add-Item "Show chats" { Show-Popup }
+Add-Item "Open the full dashboard" { $b = Browser; if ($b) { Start-Process $b -ArgumentList "--app=$Base/" } }
+Add-Item "Move back to the corner" { Home-Position; Save-Position }
+$menu.Items.Add((New-Object System.Windows.Controls.Separator)) | Out-Null
+Add-Item "Hide for an hour" { Hide-Bubble ((Get-Date).AddHours(1)) }
+Add-Item "Hide (the tray icon brings it back)" { Hide-Bubble ([DateTime]::MaxValue) }
+Add-Item "Quit" { $win.Close() }
+$win.ContextMenu = $menu
+
+# --- the tray icon ------------------------------------------------------------------------------
+$tray = New-Object System.Windows.Forms.NotifyIcon
+$tray.Text = "chatdeck"
+$tray.Add_MouseClick({ param($s, $e) if ($e.Button -eq [System.Windows.Forms.MouseButtons]::Left) { Toggle-Popup "tray" } })
+$trayMenu = New-Object System.Windows.Forms.ContextMenuStrip
+function Add-TrayItem($text, $action) { $i = $trayMenu.Items.Add($text); $i.Add_Click($action); $i }
+Add-TrayItem "Show chats" { Show-Popup "tray" } | Out-Null
+Add-TrayItem "Open the full dashboard" { $b = Browser; if ($b) { Start-Process $b -ArgumentList "--app=$Base/" } } | Out-Null
+$bubbleItem = Add-TrayItem "Show the corner button" { if ($script:hiddenUntil) { Show-Bubble } else { Hide-Bubble ([DateTime]::MaxValue) } }
+$trayMenu.Items.Add((New-Object System.Windows.Forms.ToolStripSeparator)) | Out-Null
+Add-TrayItem "Quit" { $win.Close() } | Out-Null
+$trayMenu.Add_Opening({ $bubbleItem.Text = $(if ($script:hiddenUntil) { "Show the corner button" } else { "Hide the corner button" }) })
+$tray.ContextMenuStrip = $trayMenu
+
+# The tray icon: the logo, with a count badge in its corner.
+$script:trayKey = $null; $script:trayIcon = $null; $script:trayHandle = [IntPtr]::Zero
+function Set-Tray($label, $argb, $tip) {
+  $key = "$label|$argb"
+  if ($key -ne $script:trayKey) {
+    $bmp = Logo-Bitmap 32
+    $g = [System.Drawing.Graphics]::FromImage($bmp)
+    $g.SmoothingMode = "AntiAlias"; $g.TextRenderingHint = "AntiAliasGridFit"
+    $center = New-Object System.Drawing.StringFormat; $center.Alignment = "Center"; $center.LineAlignment = "Center"
+    if ($label) {
+      $g.FillEllipse((New-Object System.Drawing.SolidBrush ([System.Drawing.Color]::FromArgb(255, 15, 17, 21))), 11, 11, 23, 23)   # dark ring keeps it apart from the logo
+      $g.FillEllipse((New-Object System.Drawing.SolidBrush ([System.Drawing.Color]::FromArgb($argb))), 13, 13, 19, 19)
+      $badgeFont = New-Object System.Drawing.Font("Segoe UI", 13, [System.Drawing.FontStyle]::Bold, [System.Drawing.GraphicsUnit]::Pixel)
+      $g.DrawString($label, $badgeFont, (New-Object System.Drawing.SolidBrush ([System.Drawing.Color]::FromArgb(255, 15, 17, 21))),
+                    (New-Object System.Drawing.RectangleF(13, 13, 19, 19)), $center)
+    }
+    $g.Dispose()
+    $h = $bmp.GetHicon(); $tray.Icon = [System.Drawing.Icon]::FromHandle($h); $bmp.Dispose()
+    if ($script:trayHandle -ne [IntPtr]::Zero) { [U]::DestroyIcon($script:trayHandle) | Out-Null }
+    $script:trayHandle = $h; $script:trayKey = $key
+  }
+  $tray.Text = $(if ($tip.Length -gt 63) { $tip.Substring(0, 60) + "..." } else { $tip })   # Windows caps tray tips at 63 characters
+  $tray.Visible = $true
+}
+
+$win.Add_Closed({
+  $tray.Visible = $false; $tray.Dispose()
+  $h = Popup-Handle
+  if ($h -ne [IntPtr]::Zero) { [U]::PostMessage($h, 0x10, [IntPtr]::Zero, [IntPtr]::Zero) | Out-Null }   # close the pop-up too
+})
+
+# --- timers: tuck the pop-up away when focus moves elsewhere, and keep the badge current -------
+$script:self = [IntPtr]::Zero
+$focusTimer = New-Object System.Windows.Threading.DispatcherTimer
+$focusTimer.Interval = [TimeSpan]::FromMilliseconds(300)
+$focusTimer.Add_Tick({
+  if ($script:showSignal.WaitOne(0) -or ($script:hiddenUntil -and (Get-Date) -ge $script:hiddenUntil)) { Show-Bubble }
+  if (-not $script:shown) { return }
+  $h = Popup-Handle
+  if ($h -eq [IntPtr]::Zero -or -not [U]::IsWindowVisible($h) -or [U]::IsIconic($h)) { $script:shown = $false; return }
+  if (((Get-Date) - $script:shownAt).TotalMilliseconds -lt 800) { return }
+  $fg = [U]::GetAncestor([U]::GetForegroundWindow(), 3)   # root owner, so the pop-up's own dialogs count as the pop-up
+  # The taskbar and tray take focus while you click the tray icon, which toggles the pop-up itself.
+  $taskbar = @("Shell_TrayWnd", "Shell_SecondaryTrayWnd", "NotifyIconOverflowWindow", "TopLevelWindowForOverflowXamlIsland") -contains [U]::ClassOf($fg)
+  if ($fg -ne $h -and $fg -ne $script:self -and -not $taskbar) { Hide-Popup }
+})
+
+$script:wasWaiting = $false
+function Update-Badge {
+  try {
+    $s = Get-Summary
+    $disc.Opacity = 1
+    $waiting = @($s.waiting)
+    if ($waiting.Count) {
+      $badge.Background = "#F5B942"; $count.Text = $waiting.Count; $badge.Visibility = "Visible"
+      $win.ToolTip = "Waiting for you: " + ($waiting -join ", ")
+      if (-not $script:wasWaiting) { $ring.BeginAnimation([System.Windows.UIElement]::OpacityProperty, $pulse) }
+      Set-Tray "$($waiting.Count)" 0xFFF5B942 $win.ToolTip
+    } else {
+      if ($script:wasWaiting) { $ring.BeginAnimation([System.Windows.UIElement]::OpacityProperty, $null); $ring.Opacity = 0 }
+      $badge.Background = "#3ECF8E"; $count.Text = $s.running
+      $badge.Visibility = $(if ($s.running) { "Visible" } else { "Collapsed" })
+      $win.ToolTip = $(if ($s.running) { "$($s.running) running, $($s.busy) working" } else { "No chats running" })
+      Set-Tray $(if ($s.running) { "$($s.running)" } else { "" }) 0xFF3ECF8E "chatdeck: $($win.ToolTip)"
+    }
+    $script:wasWaiting = [bool]$waiting.Count
+  } catch {
+    $disc.Opacity = 0.45; $badge.Visibility = "Collapsed"; $win.ToolTip = "Dashboard server isn't running"
+    Set-Tray "" 0 "chatdeck: the dashboard server isn't running"
+  }
+}
+$pollTimer = New-Object System.Windows.Threading.DispatcherTimer
+$pollTimer.Interval = [TimeSpan]::FromSeconds(3)
+$pollTimer.Add_Tick({ Update-Badge })
+
+$win.Add_SourceInitialized({ $script:self = (New-Object System.Windows.Interop.WindowInteropHelper($win)).Handle })
+# Started with -WindowStyle Hidden, Windows applies "hidden" to the first window the process shows, so show it explicitly.
+$win.Add_Loaded({ [U]::ShowWindow($script:self, 4) | Out-Null; Update-Badge; $pollTimer.Start(); $focusTimer.Start() })
+# Run a message loop rather than ShowDialog: hiding a dialog ends it, which took the tray icon down with the bubble.
+$win.Add_Closed({ [System.Windows.Threading.Dispatcher]::CurrentDispatcher.InvokeShutdown() })
+$win.Show()
+[System.Windows.Threading.Dispatcher]::Run()