modscode JA

modscode / Gallery / compact-keeper

compact-keeper

Compaction without amnesia: archives the full transcript before each compaction and tells the summarizer to keep paths, decisions, preferences, TODOs and working commands.

Code you can checkTerminal + desktopPaneToastBoxButtonMarkdownText

What it does

  • Draws a pane, toasts
  • Adds /archives
  • Hooks prompt.submit, session.compact, session.start

Good points

  • No network calls
  • Starts no processes
  • Written in TypeScript
  • Has a desktop-specific branch

Code to start from

Two kinds: a starter modscode writes from the design above, and the lines of the mod's own code that draw it.

Starter (register.tsx)

register.tsx
import type { Register } from 'claude-code'

// Drawn like compact-keeper by mako-code (pane, toast), as modscode read it from the mod's code:
// https://modscode.com/gallery/mako-code-compact-keeper/
// Written by modscode from that reading, not copied from the mod: use it as you like.
// Each value below stands for one the mod works out at run time; put in your own.
export const register: Register = on => {
  // the pane: open it with $.ui.open({ id: 'my-pane', title: "Archives" })
  on('ui.render', { component: 'Pane', requestId: 'my-pane' }, async ($, e) => {
    const { Box, Text, Button, Markdown } = $.ui.resolve(e)
    const ARCHIVE_GLYPH = '…'
    const lastLine = '…'
    const name = '…'
    const name2 = '…'
    const fmtSize = '…'
    const name3 = '…'
    const fmtSize2 = '…'
    const name4 = '…'
    const fmtSize3 = '…'
    const length = '…'
    const name5 = '…'
    const text = '…'
    return (
      <Box flexDirection="column">
        <Box gap={1}>
          <Box flexGrow={1} flexShrink={1}>
            <Text wrap="wrap">
              <Text bold>
                {ARCHIVE_GLYPH}
                {" Archives"}
              </Text>
              <Text dimColor>
                {" · .claude/archive · "}
                {lastLine}
              </Text>
            </Text>
          </Box>
          <Button hotkey="r" label="Refresh" dimColor />
          <Button hotkey="x" role="dismiss" label="Close" />
        </Box>
        <Text color="red" wrap="wrap">
          {"× "}
          could not list archives
        </Text>
        <Box gap={1}>
          <Box flexGrow={1} flexShrink={1}>
            <Text color="green" wrap="wrap">
              check
              {" Your next prompt carries an excerpt of "}
              {name}
              .
            </Text>
          </Box>
          <Button label="Cancel" dimColor />
        </Box>
        <Text dimColor>
          No archives yet: one is written before each compaction.
        </Text>
        <Box gap={1}>
          <Box flexGrow={1} flexShrink={1}>
            <Text wrap="truncate-end">
              {name2}
              {" "}
              <Text dimColor>
                {fmtSize}
              </Text>
            </Text>
          </Box>
          <Button label="View" dimColor />
          <Button label="Attach excerpt" />
        </Box>
        <Box gap={1}>
          <Box flexGrow={1} flexShrink={1}>
            <Text wrap="truncate-end">
              {name3}
              {" "}
              <Text dimColor>
                {fmtSize2}
              </Text>
            </Text>
          </Box>
          <Button label="View" dimColor />
          <Button label="Attach excerpt" />
        </Box>
        <Box gap={1}>
          <Box flexGrow={1} flexShrink={1}>
            <Text wrap="truncate-end">
              {name4}
              {" "}
              <Text dimColor>
                {fmtSize3}
              </Text>
            </Text>
          </Box>
          <Button label="View" dimColor />
          <Button label="Attach excerpt" />
        </Box>
        <Text dimColor>
          {"… "}
          {length}
          {" older"}
        </Text>
        <Box flexDirection="column" marginTop={1}>
          <Box gap={1}>
            <Box flexGrow={1} flexShrink={1}>
              <Text bold wrap="truncate-middle">
                {name5}
              </Text>
            </Box>
            <Button label="Close" dimColor />
          </Box>
          <Markdown text={`${text}`} />
        </Box>
      </Box>
    )
  })

  on('session.start', async ($, e, next) => {
    const name = '…'
    const errorText = '…'
    const EXCERPT_CHARS = '…'
    await $.ui.toast(`Could not read ${name}: ${errorText}`)
    await $.ui.toast(`The first ${EXCERPT_CHARS} characters of ${name} ride along with your next prompt.`)
    return next(e)
  })
}

The mod's own code

Shown under the mod's licence (MIT); its text is below. Keep the notice if you copy these lines.

mods/memory/compact-keeper/hooks/register.tsx lines 206–266 · Pane
  on('ui.render', { component: 'Pane', requestId: PANE }, async ($, e) => {
    const { Box, Text, Button, Markdown } = $.ui.resolve(e)
    const list = await read($, listAtom)
    const shown = await read($, previewAtom)
    const pending = await read($, pendingAtom)
    const last = await read($, lastAtom)
    const paneRows = e.props.scroll.bodyRows > 0 ? e.props.scroll.bodyRows : (e.viewport?.rows ?? 30)
    const room = Math.max(3, paneRows - (shown === null ? 6 : 22))
    const mode: GlyphMode = e.surface === 'terminal' ? glyphMode : 'full'
    const lastLine =
      last === null
        ? 'no compaction yet this session'
        : `last: ${last.before !== null && last.after !== null ? `${fmtTokens(last.before)} → ${fmtTokens(last.after)} tokens ` : ''}at ${hhmm(last.at)}`
    return (
      <Box flexDirection="column">
        <Box gap={1}>
          <Box flexGrow={1} flexShrink={1}>
            <Text wrap="wrap">
              <Text bold>{ARCHIVE_GLYPH[mode === 'full' ? 0 : 1]} Archives</Text>
              <Text dimColor> · .claude/archive · {lastLine}</Text>
            </Text>
          </Box>
          <Button key="refresh" hotkey="r" label="Refresh" dimColor onPress={() => detach(refreshList($))} />
          <Button key="close" hotkey="x" role="dismiss" label="Close" onPress={() => void $.ui.close({ id: PANE })} />
        </Box>
        {list.status === 'error' && <Text color="red" wrap="wrap">× {list.error ?? 'could not list archives'}</Text>}
        {pending !== null && (
          <Box gap={1}>
            <Box flexGrow={1} flexShrink={1}>
              <Text color="green" wrap="wrap">{glyphOf('check', mode)} Your next prompt carries an excerpt of {pending.name}.</Text>
            </Box>
            <Button key="detach" label="Cancel" dimColor onPress={() => update($, pendingAtom, () => null)} />
          </Box>
        )}
        {list.status === 'ready' && list.files.length === 0 && <Text dimColor>No archives yet: one is written before each compaction.</Text>}
        {list.files.slice(0, room).map((file, i) => (
          <Box gap={1}>
            <Box flexGrow={1} flexShrink={1}>
              <Text wrap="truncate-end">
                {file.name} <Text dimColor>{fmtSize(file.size)}</Text>
              </Text>
            </Box>
            <Button key={`view-${i}`} label="View" dimColor onPress={() => detach(preview($, file.name))} />
            <Button key={`attach-${i}`} label="Attach excerpt" onPress={() => detach(attachExcerpt($, file.name))} />
          </Box>
        ))}
        {list.files.length > room && <Text dimColor>… {list.files.length - room} older</Text>}
        {shown !== null && (
          <Box flexDirection="column" marginTop={1}>
            <Box gap={1}>
              <Box flexGrow={1} flexShrink={1}>
                <Text bold wrap="truncate-middle">{shown.name}</Text>
              </Box>
              <Button key="close-preview" label="Close" dimColor onPress={() => update($, previewAtom, () => null)} />
            </Box>
            <Markdown text={shown.text} />
          </Box>
        )}
      </Box>
    )
  })
Licence text (MIT)
MIT License

Copyright (c) 2026 mako-code

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE.

What its code calls

writes filesenv vars

The design, read from code

Drawn from the mod's source at the commit read, not from a run: a list is drawn three times, a condition takes its first branch that draws in the desktop app, and a value only the run time knows is shown as a made-up sample (dotted underline) or left out. Colours and type are this site's.

What its code shows

Read from the source at commit ec6ea2383749 on 2026-10-06. The first group decides whether a mod is listed; the rest is for you to weigh. A later commit is not read until the next crawl.

Decides the listing: code you can check
Entry readEvery module hooks/hooks.json names was read.mods/memory/compact-keeper/hooks/register.tsx
ParsesEvery file parses as TypeScript or JavaScript.3 files parsed
All its code is in the modEvery import is a file of the mod or the engine's own module; no packages, no require.all its code is in the mod
ReadableNo minified lines, no eval or new Function, no import of a computed path, no encoded blobs.no minified code, no eval, no encoded blobs
Calls in the openNetwork and programs are reached as $.http.fetch and $.process.run in place, never passed around.every call outside goes through $ in the open
For you to weigh before installing
Where it drawsThe terminal, the desktop app, both, or nothing (hooks only: a guard or a prompt rewriter), as its code says. Shown, never a reason to leave a mod out.draws in the terminal and the desktop app, the same in both
Install lineWhether its repository's own .claude-plugin/marketplace.json lists it, so it installs from that marketplace with the lines on its page.listed in its repository's .claude-plugin/marketplace.json: installs from there
Programs on WindowsWhether every program it starts through $.process exists on Windows (tail, date, open, osascript, /usr/… do not).runs no program a Windows PC lacks
NetworkWhether every fetch names its https host in the code.no network
ProgramsWhether every program it starts is named in the code and is not a shell, an interpreter or a network tool.starts no programs
Reads and sendsWhether it both reads files or environment variables and reaches the network.reaches no network
Keys in the sourceWhether the source holds what looks like an API key or a private key.no keys in the source
LicenceAn open licence (MIT, Apache-2.0, BSD, ISC, Unlicense, 0BSD, CC0) with its text lets modscode show its code; otherwise the code is linked.MIT

This is a reading of the code text, not a security review: it does not run the mod, and it cannot see what a program the mod starts does. The check before installing is yours. How mods are chosen

Install it

Check it yourself before you install it. Mods run unsandboxed, with your permissions, and modscode does not vouch for what this code does. Read the code below (or run claude plugin validate . in its folder), weigh what it reaches, and install the commit you read.

Its repository is its marketplace. Add that marketplace (in the terminal with these commands, or in the desktop app's plugin settings) and install the mod from it:

/plugin marketplace add mako-code/gobworks
/plugin install compact-keeper@gobworks

This installs the marketplace's latest commit, which may not be the one read here (ec6ea2383749). Compare them before you install.

Ask Claude about it

With the modscode connector added, Claude can read this design, what its code reaches and its code, and build on them. Ask it like this:

Read the modscode design "mako-code-compact-keeper" with its code and make me a pane like it

Search them from Claude: the MCP connector

Similar designs