samagotchi 0.157.0 → 0.159.0

data/lib/samagotchi/tools/builtin_calls.rb

@@ -47,6 +47,8 @@ module Samagotchi
         "web_fetch" => { content: "url", fallback: :prefix_or_raw },
         "register_reminder" => { content: "name", fallback: :prefix_or_raw },
         "cancel_reminder" => { content: "name", fallback: :prefix_or_raw },
+        "schedule_task" => { content: "prompt", fallback: :prefix_or_raw },
+        "cancel_schedule" => { content: "name", fallback: :prefix_or_raw },
         "list_sessions" => { fallback: :prefix, fallback_key: "cwd" },
         "send_note" => { content: "text" },
         "context_read" => { content: "name", fallback: :prefix_or_raw },

data/lib/samagotchi/tools/builtins.rb

@@ -18,6 +18,9 @@ require_relative "web_fetch"
 require_relative "register_reminder"
 require_relative "cancel_reminder"
 require_relative "list_reminders"
+require_relative "schedule_task"
+require_relative "list_schedules"
+require_relative "cancel_schedule"
 require_relative "list_sessions"
 require_relative "send_note"
 require_relative "context_read"
@@ -54,6 +57,9 @@ module Samagotchi
         RegisterReminder,
         CancelReminder,
         ListReminders,
+        ScheduleTask,
+        ListSchedules,
+        CancelSchedule,
         ListSessions,
         SendNote,
         ContextRead,
@@ -103,6 +109,17 @@ module Samagotchi
         end,
         CancelReminder::NAME => ->(call, kctx) { CancelReminder.call(call[:content], reminder_store: kctx.reminder_store) },
         ListReminders::NAME => ->(call, kctx) { ListReminders.call(call[:content], reminder_store: kctx.reminder_store) },
+        ScheduleTask::NAME => lambda do |call, kctx|
+          ScheduleTask.call(call[:content], title: call[:title], prompt: call[:prompt], every: call[:every],
+                            weekday: call[:weekday], time: call[:time], date: call[:date], mode: call[:mode],
+                            keep_links: call[:keep_links], peers: kctx.peers)
+        end,
+        ListSchedules::NAME => lambda do |call, kctx|
+          ListSchedules.call(call[:content], include_disabled: call[:include_disabled], all: call[:all], peers: kctx.peers)
+        end,
+        CancelSchedule::NAME => lambda do |call, kctx|
+          CancelSchedule.call(call[:content], all: call[:all], peers: kctx.peers)
+        end,
         ListSessions::NAME => ->(call, kctx) { ListSessions.call(call[:content], peers: kctx.peers, cwd: call[:cwd]) },
         SendNote::NAME => ->(call, kctx) { SendNote.call(call[:content], session: call[:session], peers: kctx.peers) },
         ContextRead::NAME => lambda do |call, kctx|

data/lib/samagotchi/tools/cancel_schedule.rb

@@ -0,0 +1,43 @@
+# frozen_string_literal: true
+
+module Samagotchi
+  module Tools
+    # Cancel a durable schedule of this session's chain by its id, a unique
+    # prefix of it, or its title (docs/scheduling.md). A schedule of another
+    # session's chain is refused unless the call says `all: true`: `chi
+    # schedule cancel` is the machine-wide way.
+    class CancelSchedule
+      NAME = "cancel_schedule"
+
+      def self.name = NAME
+
+      def self.call(content, all: false, peers: nil)
+        # Required here, not at the top of the file: the kit does not pay
+        # for the session lifecycle until a schedule is actually used.
+        require_relative "../schedules"
+        name = content.to_s.strip
+        return "Error: cancel_schedule needs the schedule's id or title" if name.empty?
+
+        want_all = all == true || all.to_s.strip.casecmp?("true")
+        schedules = Schedules.new(state_dir: peers&.state_dir)
+        entry = schedules.lookup(name)
+        return "No schedule named #{name}." if entry.nil?
+
+        if want_all || peers&.session_id.nil?
+          schedules.cancel(name)
+          return "Cancelled #{entry.id} (#{entry.title || entry.recurrence_words})."
+        end
+
+        unless schedules.chain_of(peers.session_id).any? { |id| id == entry.anchor || id == entry.head }
+          return "Error: #{entry.id} belongs to another session's chain. " \
+                 "chi schedule cancel #{entry.id} cancels it, or say all: true if you meant it."
+        end
+
+        schedules.cancel(name)
+        "Cancelled #{entry.id} (#{entry.title || entry.recurrence_words})."
+      rescue StandardError => e
+        "Error: #{e.message}"
+      end
+    end
+  end
+end

data/lib/samagotchi/tools/delegate.rb

@@ -281,9 +281,10 @@ module Samagotchi
       private_class_method :unknown_toolkit
 
       # The new child's folder: the parent's, or +cwd+ (relative to the
-      # parent's) when it is a folder of the parent's repository, in any of
-      # its worktrees (one project_root, from the common git dir). Outside
-      # git only a subfolder of the parent's folder. Nothing is created
+      # parent's) when it is a folder of the parent's project: in any of its
+      # repository's worktrees (one project_root, from the common git dir), or
+      # in its marked folder. Outside both only a subfolder of the parent's
+      # folder. Nothing is created
       # here: the model makes a worktree with execute, where guardrails see it.
       # @return [String] an absolute folder, or an Error: line
       def self.child_cwd(cwd, parent)
@@ -294,8 +295,8 @@ module Samagotchi
         return "Error: cwd #{folder} is not a folder (create the worktree first)" unless File.directory?(folder)
 
         folder = File.realpath(folder)
-        unless same_repository?(folder, base)
-          return "Error: cwd must be a folder of this session's repository (a worktree or subfolder of it), not #{folder}"
+        unless same_project?(folder, base)
+          return "Error: cwd must be a folder of this session's project (a worktree or subfolder of it), not #{folder}"
         end
         if MemoryPaths.in_repo?(base) && !work_tree?(folder)
           return "Error: cwd #{folder} is not in a work tree of this session's repository (a git dir, or a bare " \
@@ -327,8 +328,11 @@ module Samagotchi
       def self.within?(path, dir) = path == dir || path.start_with?("#{dir}/")
       private_class_method :within?
 
-      def self.same_repository?(folder, base)
-        if MemoryPaths.in_repo?(base)
+      # One project (a git repository or a marked folder): the same project
+      # root, so a nested repository or marked project is another one. A base
+      # in no project: a subfolder of it.
+      def self.same_project?(folder, base)
+        if MemoryPaths.in_project?(base)
           MemoryPaths.project_root(folder) == MemoryPaths.project_root(base)
         else
           within?(folder, File.realpath(base))
@@ -336,7 +340,7 @@ module Samagotchi
       rescue SystemCallError
         false
       end
-      private_class_method :same_repository?
+      private_class_method :same_project?
 
       # @return [String] the child's id, or an Error: line
       def self.follow_up(task, session:, parent:, state_dir:)

data/lib/samagotchi/tools/list_schedules.rb

@@ -0,0 +1,43 @@
+# frozen_string_literal: true
+
+module Samagotchi
+  module Tools
+    # The durable schedules of this session's chain (docs/scheduling.md): id,
+    # mode, recurrence, next due and target. Another session's schedules are
+    # out of reach unless the call says `all: true`; `chi schedule list` is the
+    # machine-wide view. Schedules is required inside the call, so the testing
+    # kit does not pay for the session lifecycle at load time.
+    class ListSchedules
+      NAME = "list_schedules"
+
+      def self.name = NAME
+
+      def self.call(_content, include_disabled: false, all: false, peers: nil)
+        # Required here, not at the top of the file: the kit does not pay
+        # for the session lifecycle until a schedule is actually used.
+        require_relative "../schedules"
+        wanted = include_disabled == true || include_disabled.to_s.strip.casecmp?("true")
+        want_all = all == true || all.to_s.strip.casecmp?("true")
+        schedules = Samagotchi::Schedules.new(state_dir: peers&.state_dir)
+
+        scoped = !want_all && peers&.session_id
+        entries = scoped ? schedules.for_chain(peers.session_id, include_disabled: wanted) : schedules.entries(include_disabled: wanted)
+
+        if entries.empty?
+          scoped ? "No schedules in this session's chain. `chi schedule list` shows every schedule on this machine." : "No schedules."
+        else
+          lines = entries.map do |entry|
+            flags = []
+            flags << "skips #{entry.skips} of #{entry.max_skips}" if entry.skips.positive?
+            flags << "disabled after #{entry.failures} failures" unless entry.enabled
+            "#{entry.id}  #{entry.target_words}  #{entry.recurrence_words}  next #{entry.next_due}  #{flags.join(", ")}".rstrip
+          end
+          lines << "These are this session's chain only; `chi schedule list` shows every schedule on this machine." if scoped
+          lines.join("\n")
+        end
+      rescue StandardError => e
+        "Error: #{e.message}"
+      end
+    end
+  end
+end

data/lib/samagotchi/tools/schedule_task.rb

@@ -0,0 +1,39 @@
+# frozen_string_literal: true
+
+module Samagotchi
+  module Tools
+    # Register a durable schedule for this session (docs/scheduling.md): a
+    # prompt that runs on a clock, out of the worker's memory, until it is
+    # cancelled. The default mode is `chain`: each firing is the next link of
+    # this session's chain, so a long-running routine keeps a fresh context.
+    # Unlike register_reminder, a schedule needs no live worker — a tick run by
+    # cron (or chi web's hub) wakes one — and it never holds an idle worker up.
+    class ScheduleTask
+      NAME = "schedule_task"
+
+      def self.name = NAME
+
+      def self.call(content, title: nil, prompt: nil, every: nil, weekday: nil, time: nil, date: nil,
+                    mode: nil, keep_links: nil, peers: nil)
+        # Required here, not at the top of the file: the kit does not pay
+        # for the session lifecycle until a schedule is actually used.
+        require_relative "../schedules"
+        return "Error: this session's id is not known here" unless peers&.session_id
+
+        prompt = content.to_s if prompt.to_s.strip.empty?
+        schedules = Schedules.new(state_dir: peers.state_dir)
+        entry = schedules.add(
+          target: peers.session_id, prompt: prompt, title: title,
+          recurrence: Schedules.recurrence(every: every, weekday: weekday, time: time, date: date),
+          mode: mode.nil? || mode.to_s.strip.empty? ? Schedules::CHAIN : mode.to_s.strip,
+          keep_links: keep_links
+        )
+        "Scheduled #{entry.id}: #{entry.target_words} · #{entry.recurrence_words} · next #{entry.next_due}. " \
+        "It fires outside this worker (chi schedule tick, run by cron or chi web's hub); " \
+        "chi schedule list and cancel_schedule show and stop it."
+      rescue Schedules::Usage, Session::NotFound, Session::AmbiguousId => e
+        "Error: #{e.message}"
+      end
+    end
+  end
+end

data/lib/samagotchi/version.rb

@@ -1,7 +1,7 @@
 # frozen_string_literal: true
 
 module Samagotchi
-  VERSION = "0.157.0"
+  VERSION = "0.159.0"
   # Sent as the User-Agent of every HTTP request chi makes.
   USER_AGENT = "chi/#{VERSION}"
 end

data/lib/samagotchi/web/app.rb

@@ -17,6 +17,7 @@ require_relative "../delivery"
 require_relative "../answer_tail"
 require_relative "../answer_refs"
 require_relative "../question_asked"
+require_relative "../project_init"
 require_relative "../bridge_client"
 require_relative "../worker_link"
 require_relative "../bridge/bounded_queue"
@@ -268,6 +269,7 @@ module Samagotchi
         ["GET", %r{\A/(?:index\.html)?\z}, :serve_index, :participant],
         ["GET", %r{\A/api/sessions\z}, :handle_list, :owner],
         ["GET", %r{\A/api/projects\z}, :handle_projects, :owner],
+        ["POST", %r{\A/api/projects\z}, :handle_project_create, :owner],
         ["POST", %r{\A/api/sessions\z}, :handle_create, :owner],
         ["GET", %r{\A/api/sessions/resolve\z}, :handle_resolve, :participant],
         ["GET", %r{\A/api/sessions/summaries\z}, :handle_summaries, :owner],
@@ -1006,6 +1008,39 @@ module Samagotchi
         json_response(200, ProjectList.build(@hub.snapshot, start_dir: start_dir, current_root: current_root))
       end
 
+      def handle_project_create(req)
+        body = parse_json(request_body(req))
+        return error_response(400, "invalid_json", "invalid JSON body") unless body.is_a?(Hash)
+
+        requested = body["dir"]
+        requested = requested.strip if requested.is_a?(String)
+        unless requested.is_a?(String) && !requested.empty? && !requested.include?("\0")
+          return error_response(400, "invalid_dir", "dir must be an absolute folder")
+        end
+
+        home = Dir.home
+        dir = if requested == "~"
+                home
+              elsif requested.start_with?("~/")
+                File.join(home, requested.delete_prefix("~/"))
+              else
+                requested
+              end
+        return error_response(400, "invalid_dir", "dir must be an absolute folder") unless dir.start_with?("/")
+
+        # One normal form for the decision, the mkdir and the realpath (a `..` after a symlink would differ).
+        dir = File.expand_path(dir)
+        outcome = ProjectInit.call(dir, home: home)
+        return error_response(422, outcome.reason.to_s, outcome.message) if outcome.kind == :refused
+
+        if outcome.kind == :git
+          failed = ProjectInit.ensure_folder(dir)
+          return error_response(422, failed.reason.to_s, failed.message) if failed
+        end
+        dir = File.realpath(dir)
+        json_response(200, outcome: outcome.kind.to_s, root: outcome.root, dir: dir)
+      end
+
       # A scope folder from the page: [dir, nil] (dir nil when none was
       # given), or [nil, a 400 response] when it isn't an existing absolute
       # folder (a bookmarked worktree deleted since, a typo).

data/lib/samagotchi/web/project_list.rb

@@ -6,8 +6,8 @@ require_relative "push/attention"
 
 module Samagotchi
   module Web
-    # Projects represented by the session hub, plus the start project even
-    # when it has no sessions.
+    # Projects represented by the session hub, plus the start and current
+    # projects even when they have no sessions.
     module ProjectList
       module_function
 
@@ -24,6 +24,7 @@ module Samagotchi
           (groups[root] ||= []) << summary
         end
         groups[default_root] ||= [] if valid_root?(default_root)
+        groups[current_root] ||= [] if valid_root?(current_root)
 
         rows = groups.map do |root, sessions|
           default = root == default_root

data/lib/samagotchi/web/public/chains.js

@@ -128,10 +128,21 @@ export function chainLinks(list, id, nexts = nextsOf(list), byId = new Map(list.
   return links;
 }
 
+// Whether the chain's oldest link the page holds still names a link it does
+// not: a schedule's prune (docs/scheduling.md, keep_links) or a delete. The
+// walk stops there, so every count comes from the surviving root, and the page
+// says "earlier links pruned" rather than linking to a session that is gone.
+export function linksPruned(links, byId) {
+  const root = links[0];
+  return !!root?.continues && !byId.has(root.continues);
+}
+
 // The session page's neighbours of +id+: {prev, next}, each {id, session}
-// or null. +continues+: the open session's own `continues`, when the list
-// may not have caught up with it. A previous link the list doesn't hold
-// (deleted) is null: its link would open a not-found page.
+// or null, and +pruned+: the session's own `continues` names a link the list
+// does not hold (a schedule pruned it, or it was deleted). +continues+: the
+// open session's own `continues`, when the list may not have caught up with it.
+// A previous link the list doesn't hold is null: its link would open a
+// not-found page.
 export function chainNeighbours(list, id, { continues = null } = {}) {
   const self = list.find((s) => s.id === id);
   const prevId = self?.continues || continues || null;
@@ -139,7 +150,7 @@ export function chainNeighbours(list, id, { continues = null } = {}) {
   const prev = prevSession ? { id: prevId, session: prevSession } : null;
   const nextSession = nextsOf(list).get(id) || null;
   const next = nextSession ? { id: nextSession.id, session: nextSession } : null;
-  return { prev, next };
+  return { prev, next, pruned: !!prevId && !prevSession };
 }
 
 const pad = (n) => String(n).padStart(2, "0");
@@ -188,14 +199,22 @@ export function foldChains(fams, all, { fold = true } = {}) {
   let changed = false;
   for (const f of fams) {
     const links = chainLinks(all, f.head.id, nexts, byId);
+    const pruned = linksPruned(links, byId);
     if (links.length < 2) {
-      out.push(f);
+      // A chain pruned to one link is still a chain: its card carries the chip
+      // and the popover says what is behind it.
+      if (pruned) {
+        changed = true;
+        out.push({ ...f, chain: { links, at: 0, folded: fold, pruned } });
+      } else {
+        out.push(f);
+      }
       continue;
     }
     changed = true;
     const at = links.findIndex((s) => s.id === f.head.id);
     if (fold && links.slice(at + 1).some((s) => heads.has(s.id))) continue;
-    out.push({ ...f, chain: { links, at, folded: fold } });
+    out.push({ ...f, chain: { links, at, folded: fold, pruned } });
   }
   return changed ? out : fams;
 }
@@ -233,7 +252,8 @@ export function chainChipTemplate(f, { open = false } = {}) {
   const text = n === links.length ? `#${n}` : `#${n} of ${links.length}`;
   const earlier = at;
   const later = links.length - 1 - at;
-  const parts = [earlier ? `${earlier} earlier ${earlier === 1 ? "link" : "links"}` : "", later ? `${later} later` : ""].filter(Boolean);
+  const parts = [earlier ? `${earlier} earlier ${earlier === 1 ? "link" : "links"}` : "", later ? `${later} later` : "",
+    f.chain.pruned ? "earlier links pruned" : ""].filter(Boolean);
   const title = `Session chain: link ${n} of ${links.length} (${parts.join(", ")}); open the list`;
   const liveT = live ? html`<span class="cc-live"> · <span class="live-dot" aria-hidden="true"></span>${live} live</span>` : nothing;
   const waitingT = waiting ? html` · <span class="cc-waiting">${waiting} waiting</span>` : nothing;
@@ -275,7 +295,11 @@ export function chainRowsTemplate(f, { activeId = null, now = Date.now() } = {})
       date ? html`<span class=${date.length > 10 ? "cr-date timed" : "cr-date"}>${date}</span>` : nothing}<span class="fr-preview">${rowTitle(s, headTitle, byId)}</span>${
       rowBadgesTemplate(waiting, stopped, s.status)}${s.archived ? archivedBadge : nothing}</button></div>`;
   });
-  return html`<div class="family-rows chain-rows" role="list">${rows}</div>`;
+  const prunedRow = f?.chain?.pruned
+    ? html`<div class="chain-row chain-pruned" role="listitem"><span class="cr-n" aria-hidden="true">↩</span>
+      <span class="fr-preview">earlier links pruned</span></div>`
+    : nothing;
+  return html`<div class="family-rows chain-rows" role="list">${rows}${prunedRow}</div>`;
 }
 
 // What the page does with a refused continue (POST /api/sessions

data/lib/samagotchi/web/public/index.html

@@ -1384,7 +1384,7 @@ body.has-session.composer-folded #infoBar{border-top-color:transparent}
   /* One run: the groups' chips are the meta's. */
   #infoBar .meta .bar-group{display:contents}
   #infoBar .meta .bar-sep{display:none}
-  #infoBar .meta :is(.tools-chip,.notes-chip,.mem-chip,.ws-chip,.chain-link,.parent,.children-chip,.participants-chip,.dir,.ctx,.speed,.session-time,.worker-badge){display:none}
+  #infoBar .meta :is(.tools-chip,.notes-chip,.mem-chip,.ws-chip,.chain-link,.chain-pruned,.parent,.children-chip,.participants-chip,.dir,.ctx,.speed,.session-time,.worker-badge){display:none}
   #infoBar .info-actions{display:none}
   #infoBar .meta .status+.model{flex:0 1 auto;min-width:0;overflow:hidden;text-overflow:ellipsis}
   /* ⚙ alone, the start page's dot when the session set its own (its values in the tooltip and accessible name). */
@@ -1488,6 +1488,11 @@ body.has-session #newBtn .brand-new{display:inline}
 .project-all::before{content:"";position:absolute;left:-1px;right:-1px;top:-9px;height:1px;background:var(--border);pointer-events:none}
 .project-note{padding:5px 2px;color:var(--text-muted);font-size:12px}
 .project-error{color:var(--warn-text)}
+.project-picker .project-new{width:100%;text-align:left;background:var(--bg-inset);color:var(--accent)}
+.project-create{display:grid;gap:8px;padding:8px 2px}
+.project-create label{color:var(--text-muted);font-size:12px}
+.project-create input{width:100%;padding:9px 10px;border:1px solid var(--border);border-radius:8px;background:var(--bg-inset);color:var(--text)}
+.project-create-actions{display:flex;justify-content:flex-end;gap:8px}
 body.has-session #scope .scope-where{display:none}
 /* A phone has no room for both; the hidden strip's pill (count, live) wins. */
 @media(max-width:600px){body.strip-hidden #scope .scope-where{display:none}}
@@ -1572,6 +1577,9 @@ body.no-glass :is(#familyPop,#chainPop){background:var(--bg-panel);-webkit-backd
 .chain-row .cr-date{font-family:ui-monospace,monospace;font-size:11px;color:var(--text-muted);white-space:nowrap;font-variant-numeric:tabular-nums}
 /* A row with its time (chainStamp): every row's date as wide, so the previews line up. */
 .chain-rows:has(.cr-date.timed) .cr-date{min-width:16ch}
+/* A chain pruned by a schedule (docs/scheduling.md): the popover's last line and the info bar say the earlier links are gone. */
+.chain-row.chain-pruned,.chain-row.chain-pruned .cr-n{color:var(--text-muted)}
+#infoBar .meta .chain-pruned{font-family:ui-monospace,monospace;font-size:11px;color:var(--text-muted);white-space:nowrap}
 /* The session page's links to the previous and the next link of its chain. */
 #infoBar .meta a.chain-link{text-decoration:none;font-family:ui-monospace,monospace;white-space:nowrap;color:var(--accent)}
 @media(hover:hover){#infoBar .meta a.chain-link:hover{background:var(--accent-bg)}}
@@ -1780,7 +1788,7 @@ a{color:var(--accent)}
 @media (max-width:600px),(pointer:coarse){
   #composer textarea,.question-freeform,.continue-reason,.participants-popover input,.participants-popover select,
   .rs-form textarea,.pp-link input,.llmctx-field select,.llmctx-field input,.ws-add-in,.rename-input,
-  #modelSearch{font-size:16px}
+  #modelSearch,.project-create input{font-size:16px}
 }
 </style>
 </head>

data/lib/samagotchi/web/public/info_bar.js

@@ -98,10 +98,11 @@ export function infoBarHtml(bar) {
   if (!bar) return nothing;
   const memories = bar.memories || [];
   const setup = html`<button type="button" class="id" title=${`Session id ${bar.id}: click to copy it`}>${String(bar.id).slice(0, 8)}</button><span class=${bar.status ? `status ${bar.status}` : "status"}><span>${bar.status || ""}</span></span><span class=${`model${bar.model.mismatch ? " served-mismatch" : ""}`} title=${bar.model.title}>${bar.model.text}</span>${settingsChip(bar.settings)}${toolkitChip(bar.toolkit)}${bar.notes ? html`<span class="model notes-chip" title=${bar.notes.title}>${bar.notes.text}</span>` : nothing}${bar.workingSet ? workingSetChipTemplate(bar.workingSet.chip) : memories.length ? html`<span class="model mem-chip" title=${memChipTitle(memories)}>${memChipText(memories)}</span>` : nothing}`;
-  const related = !!(bar.chain?.prev || bar.chain?.next || bar.parent || bar.kids || bar.participants);
-  // The parent reads "↑ <short id>"; its title says "delegated by …".
+  const related = !!(bar.chain?.prev || bar.chain?.next || bar.chain?.pruned || bar.parent || bar.kids || bar.participants);
+  // A chain pruned by a schedule (docs/scheduling.md): the link before this one
+  // is gone, so there is nothing to link to — the bar says so instead.
   const relations = related
-    ? html`<span class="bar-sep" aria-hidden="true"></span><span class="bar-group relations">${bar.chain?.prev ? chainLinkTemplate(bar.chain.prev, PREV, "The previous link of this chain") : nothing}${bar.chain?.next ? chainLinkTemplate(bar.chain.next, NEXT, "The next link of this chain") : nothing}${bar.parent ? html`<a class="model parent" href=${sessionHash(bar.parent.id)} title=${bar.parent.title}>↑ ${String(bar.parent.id).slice(0, 8)}</a>` : nothing}${kidsTemplate(bar.kids)}${participantsChip(bar.participants)}</span>`
+    ? html`<span class="bar-sep" aria-hidden="true"></span><span class="bar-group relations">${bar.chain?.prev ? chainLinkTemplate(bar.chain.prev, PREV, "The previous link of this chain") : nothing}${bar.chain?.pruned && !bar.chain?.prev ? html`<span class="model chain-pruned" title="The links before this one were pruned by a schedule">↩ earlier links pruned</span>` : nothing}${bar.chain?.next ? chainLinkTemplate(bar.chain.next, NEXT, "The next link of this chain") : nothing}${bar.parent ? html`<a class="model parent" href=${sessionHash(bar.parent.id)} title=${bar.parent.title}>↑ ${String(bar.parent.id).slice(0, 8)}</a>` : nothing}${kidsTemplate(bar.kids)}${participantsChip(bar.participants)}</span>`
     : nothing;
   const telemetry = html`<span class="dir" title=${bar.dir || ""}><bdi>${bar.dir || ""}</bdi></span><span class="model ctx" title=${bar.ctx.tip}>${bar.ctx.text}</span>${bar.speed ? html`<span class=${`model speed${bar.speed.empty ? " empty" : ""}`} title=${bar.speed.tip}>${bar.speed.text}</span>` : nothing}<span class=${`model session-time${bar.clock ? "" : " empty"}`} title=${bar.clock ? "This session's time: its turns, and the running one" : "This session's time: no turn yet"}>${bar.clock || CLOCK_NONE}</span>${workerBadgeTemplate(bar.worker)}`;
   return html`<div class="meta"><span class="bar-group setup">${setup}</span>${relations}<span class="bar-sep" aria-hidden="true"></span><span class="bar-group telemetry">${telemetry}</span></div>`;

data/lib/samagotchi/web/public/project_picker.js

@@ -24,10 +24,19 @@ function projectRow(row) {
   </a>`;
 }
 
+function projectParent(rootLabel) {
+  if (typeof rootLabel !== "string" || !rootLabel) return "~/";
+  const slash = rootLabel.lastIndexOf("/");
+  if (slash < 0) return "~/";
+  const parent = rootLabel.slice(0, slash);
+  return parent ? `${parent.replace(/\/$/, "")}/` : "/";
+}
+
 // +rows+ is the API's ordered list. When there is no project scope, the
 // all-projects row is current; a bad ?dir= has no current project to mark.
 export function pickerTemplate({ rows = [], loading = false, error = "", currentDir = null,
-                                 allCurrent = false } = {}) {
+                                 allCurrent = false, createOpen = false, createPath = "~/", creating = false,
+                                 createError = "", onPathInput = () => {} } = {}) {
   const allHref = allScopeHref("", currentDir);
   return html`<div class="ctx-pop-head"><strong>Projects</strong><button type="button" class="ctx-pop-close"
       data-act="close" aria-label="Close">×</button></div>
@@ -39,7 +48,15 @@ export function pickerTemplate({ rows = [], loading = false, error = "", current
         <span class="project-main"><span class="project-name">All projects</span
           ><span class="project-hint">Every session</span></span>
         ${allCurrent ? html`<span class="project-check" aria-hidden="true">✓</span>` : nothing}
-      </a>
+      </a>${createOpen ? html`<form class="project-create" aria-busy=${creating}>
+        <label for="projectCreatePath">Folder path</label>
+        <input id="projectCreatePath" name="dir" type="text" autocomplete="off" .value=${createPath}
+          aria-invalid=${createError ? "true" : "false"} aria-describedby=${createError ? "projectCreateError" : nothing}
+          @input=${onPathInput}>
+        ${createError ? html`<div class="project-note project-error" id="projectCreateError" role="alert">${createError}</div>` : nothing}
+        <div class="project-create-actions"><button type="submit">${creating ? "Creating…" : "Create"}</button>
+          <button type="button" class="ghost" data-act="cancel-new">Cancel</button></div>
+      </form>` : html`<button type="button" class="project-row project-new" data-act="new-project">New project…</button>`}
     </nav>`;
 }
 
@@ -51,6 +68,12 @@ export function createProjectPicker({ el, scope, scopeError = () => null, api,
   let error = "";
   // Only the newest read is drawn; a close drops the one out (latest.js).
   const latest = createLatest();
+  // Creating a project must not invalidate an in-flight list read.
+  const createLatestAnswer = createLatest();
+  let createOpen = false;
+  let createPath = "~/";
+  let creating = false;
+  let createError = "";
 
   const currentDir = () => scopeError() ? null : scope.dir || null;
   const paint = (focus = false) => {
@@ -58,6 +81,8 @@ export function createProjectPicker({ el, scope, scopeError = () => null, api,
     render(pickerTemplate({
       rows, loading, error, currentDir: currentDir(),
       allCurrent: !scope.dir && !failedScope,
+      createOpen, createPath, creating, createError,
+      onPathInput: (event) => { createPath = event.currentTarget.value; },
     }), shell.pop);
     if (focus) {
       const target = shell.pop.querySelector('.project-row[aria-current="page"]') ||
@@ -89,11 +114,53 @@ export function createProjectPicker({ el, scope, scopeError = () => null, api,
     if (!fresh()) return;
     loading = false;
     if (shell.isOpen()) {
-      paint(focus);
+      // An open form keeps the caret: a late list must not pull focus to a row.
+      paint(focus && !createOpen);
       shell.replace();
     }
   }
 
+  async function submitProject() {
+    if (creating) return;
+    const fresh = createLatestAnswer.begin();
+    creating = true;
+    createError = "";
+    paint();
+    shell.replace();
+    try {
+      const answer = await api("/api/projects", { method: "POST", body: JSON.stringify({ dir: createPath }) });
+      if (!fresh()) return;
+      win.location.assign(projectScopeHref(answer.dir, ""));
+    } catch (e) {
+      if (!fresh()) return;
+      createError = e?.body?.detail || e?.message || String(e);
+      creating = false;
+      paint();
+      shell.replace();
+    }
+  }
+
+  function openCreateForm() {
+    createOpen = true;
+    createPath = projectParent(rows.find((row) => row.default)?.root_label);
+    createError = "";
+    creating = false;
+    paint();
+    shell.replace();
+    const input = shell.pop.querySelector("#projectCreatePath");
+    input?.focus();
+    input?.setSelectionRange(input.value.length, input.value.length);
+  }
+
+  function closeCreateForm() {
+    createLatestAnswer.drop();
+    createOpen = false;
+    creating = false;
+    createError = "";
+    paint();
+    shell.replace();
+  }
+
   const shell = createChipPopover({
     id: "projectPicker", className: "ctx-popover project-picker", width: 380, el, anchor: "#scopePick",
     summary: () => ({}), sheet: true, label: "Projects", doc, win,
@@ -101,10 +168,25 @@ export function createProjectPicker({ el, scope, scopeError = () => null, api,
       rows = [];
       loading = true;
       error = "";
+      createOpen = false;
+      createPath = "~/";
+      creating = false;
+      createError = "";
       paint();
       void load(true);
     },
-    onClose: () => { latest.drop(); },
+    onSubmit: () => { void submitProject(); },
+    onAct: (name) => {
+      if (name === "new-project") openCreateForm();
+      else if (name === "cancel-new") closeCreateForm();
+    },
+    onClose: () => {
+      latest.drop();
+      createLatestAnswer.drop();
+      createOpen = false;
+      creating = false;
+      createError = "";
+    },
   });
 
   return { pop: shell.pop, isOpen: shell.isOpen, load };

data/lib/samagotchi/web/public/turn_events.js

@@ -133,6 +133,9 @@ const CONTEXT_CLIENT = "context:";
 // A turn chi ran because a background task the session started finished
 // unseen: task:<task id> (the Worker's finish wake).
 const TASK_CLIENT = "task:";
+// A durable schedule's firing (chi schedule, the schedule tools):
+// system:schedule:<schedule id>.
+const SCHEDULE_CLIENT = "system:schedule:";
 
 // A task id as people read it: the random part a task_create id ends with
 // (it starts with the time), else its first 8 chars (TaskRecord.short_id).
@@ -149,6 +152,7 @@ export function clientLabel(clientId) {
   const id = String(clientId);
   if (id.startsWith(CONTEXT_CLIENT) && id.length > CONTEXT_CLIENT.length) return `context ${id.slice(CONTEXT_CLIENT.length)} changed`;
   if (id.startsWith(TASK_CLIENT) && id.length > TASK_CLIENT.length) return `task ${shortTaskId(id.slice(TASK_CLIENT.length))} finished`;
+  if (id.startsWith(SCHEDULE_CLIENT)) return "schedule";
   const colon = id.indexOf(":");
   return CLIENT_LABELS[id] || (colon >= 0 && CLIENT_LABELS[id.slice(0, colon + 1)]) || AUTOMATIC_LABEL;
 }