KeiSei84
48b2f5cc1c
Thin skill over the kei-message jsonl mailbox: /msg reads inbox, /msg @name text sends (identity = cwd basename), /msg all broadcasts, /msg list|who. send now accepts leading @name. Mirror of keigit 7b453aac.
71 lines
2.8 KiB
Bash
Executable file
71 lines
2.8 KiB
Bash
Executable file
#!/bin/sh
|
|
# kei-message — minimal persistent mailbox so ANY Claude Code session can message
|
|
# ANY other (not just Agent-Teams teammates). Append-only jsonl bus; the
|
|
# mailbox-inject.sh UserPromptSubmit hook pulls unread into each session's
|
|
# context per turn. Identity = basename of the session's cwd (or --from/--to a
|
|
# name), plus the broadcast channel "all".
|
|
#
|
|
# kei message send [--to <name|all>] [--from <name>] <text...>
|
|
# kei message inbox # messages addressed to me (cwd) or all
|
|
# kei message list # whole bus (recent)
|
|
# kei message channels # known recipient names
|
|
#
|
|
# Store: ~/.claude/mailbox/messages.jsonl (one JSON object per line)
|
|
|
|
set -eu
|
|
command -v jq >/dev/null 2>&1 || { echo "kei message: jq required" >&2; exit 1; }
|
|
|
|
MBOX="$HOME/.claude/mailbox"
|
|
LOG="$MBOX/messages.jsonl"
|
|
mkdir -p "$MBOX"
|
|
[ -f "$LOG" ] || : > "$LOG"
|
|
|
|
me="$(basename "$PWD")"
|
|
cmd="${1:-inbox}"
|
|
[ $# -gt 0 ] && shift || true
|
|
|
|
case "$cmd" in
|
|
send)
|
|
to="all"; body=""
|
|
while [ $# -gt 0 ]; do
|
|
case "$1" in
|
|
--to) to="$2"; shift; shift ;;
|
|
--from) me="$2"; shift; shift ;;
|
|
--) shift; body="$body $*"; break ;;
|
|
# Leading @name = recipient (e.g. `send @frontend hi`). First token only;
|
|
# a later @x stays literal text.
|
|
@?*) if [ "$to" = "all" ] && [ -z "$body" ]; then to="${1#@}"; else body="$body $1"; fi; shift ;;
|
|
*) body="$body $1"; shift ;;
|
|
esac
|
|
done
|
|
body="${body# }"
|
|
[ -n "$body" ] || { echo "usage: kei message send [--to <name|all>] <text>" >&2; exit 1; }
|
|
# Sub-second component: GNU `date +%N` where available; on stock macOS (BSD
|
|
# date) %N is unsupported and prints literal "N" → fall back to /dev/urandom.
|
|
# Result id = epoch(10) + 6 digits = 16-digit integer, safely < 2^53.
|
|
ns="$(date +%N 2>/dev/null)"
|
|
case "$ns" in *[!0-9]*|'') ns="$(od -An -N4 -tu4 /dev/urandom 2>/dev/null | tr -dc 0-9)" ;; esac
|
|
sub="$(printf '%s000000' "$ns" | cut -c1-6)"
|
|
id="$(date +%s)${sub}"
|
|
jq -cn --argjson id "$id" --arg ts "$(date -u +%FT%TZ)" \
|
|
--arg from "$me" --arg to "$to" --arg body "$body" \
|
|
'{id:$id, ts:$ts, from:$from, to:$to, body:$body}' >> "$LOG"
|
|
echo "-> sent to '$to' (from '$me')"
|
|
;;
|
|
inbox|read)
|
|
while [ $# -gt 0 ]; do case "$1" in --me) me="$2"; shift; shift ;; *) shift ;; esac; done
|
|
jq -r --arg me "$me" '
|
|
select(.to==$me or .to=="all")
|
|
| "[\(.ts|sub("T";" ")|sub("Z";""))] \(.from) -> \(.to): \(.body)"' "$LOG" | tail -20
|
|
;;
|
|
list|all)
|
|
jq -r '"[\(.ts|sub("T";" ")|sub("Z";""))] \(.from) -> \(.to): \(.body)"' "$LOG" | tail -40
|
|
;;
|
|
channels|names|who)
|
|
jq -r '.to, .from' "$LOG" 2>/dev/null | sort -u | grep -v '^$' || true
|
|
;;
|
|
*)
|
|
echo "kei message: send [--to <name|all>] <text> | inbox | list | channels" >&2
|
|
exit 1
|
|
;;
|
|
esac
|