From 4093dc14f9900f3ac3fab970f6f6363290c48a97 Mon Sep 17 00:00:00 2001
From: Tangent <rose@tangentfox.com>
Date: Sat, 22 Aug 2026 02:55:42 -0600
Subject: [PATCH] a near complete rewrite in-progress

---
 lib/timing.lua |  22 +++++
 rewrite.lua    | 254 +++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 276 insertions(+)
 create mode 100644 lib/timing.lua
 create mode 100644 rewrite.lua

diff --git a/lib/timing.lua b/lib/timing.lua
new file mode 100644
index 0000000..60ff108
--- /dev/null
+++ b/lib/timing.lua
@@ -0,0 +1,22 @@
+local timing = {}
+
+function timing.timer()
+  return setmetatable({
+    entries = {},
+  }, timing)
+end
+
+function timing:start()
+  -- if not self then self = {} end
+  self.entries[#self.entries + 1] = { start_time = os.time() }
+end
+
+function timing:stop()
+  local entry = self.entries[#self.entries]
+  entry.stop_time = os.time()
+
+  -- delta in minutes, floored to tenths
+  return math.floor( (entry.stop_time - entry.start_time) / 60 * 10 ) / 10
+end
+
+return timing
diff --git a/rewrite.lua b/rewrite.lua
new file mode 100644
index 0000000..3d953bc
--- /dev/null
+++ b/rewrite.lua
@@ -0,0 +1,254 @@
+#!/usr/bin/env luajit
+
+package.path = (arg[0]:match("@?(.*/)") or arg[0]:match("@?(.*\\)")) .. "lib" .. package.config:sub(1, 1) .. "?.lua;" .. package.path
+local utility = require "utility"
+-- TODO import timing library
+
+local config = utility.get_config("read-only")
+if not config.llm_covers then config.llm_covers = {} end
+if not config.llm_covers.calibre_location then config.llm_covers.calibre_location = "/Applications/calibre.app" end
+if not config.llm_covers.default_model then config.llm_covers.default_model = "gemma4:12b-mlx" end
+if not config.llm_covers.maximum_bytes then config.llm_covers.maximum_bytes = 40000 end
+
+-- TODO import prompts, use new names from fork
+
+local strip_reasoning = function(text, reasoning_lines)
+  if not reasoning_lines then reasoning_lines = {} end
+  local tab = text:split("\n")
+  table.remove(tab, 1) -- remove "Thinking..."
+
+  while true do
+    local done = tab[1] == "...done thinking."
+    local line = table.remove(tab, 1)
+    if done then
+      table.remove(tab, 1) -- remove newline after end of thinking
+      return table.concat(tab, "\n")
+    elseif #tab < 1 then
+      return text -- no reasoning output
+    else
+      reasoning_lines[#reasoning_lines + 1] = line -- export thinking lines
+    end
+  end
+end
+
+-- TODO import and rewrite send_prompt to use new timing library
+
+local read_all = function(file_name)
+  return utility.open(file_name, "r", function(file)
+    return file:read("*all")
+  end)
+end
+local write_all = function(file_name, text)
+  return utility.open(file_name, "w", function(file)
+    file:write(text)
+    file:write("\n")
+  end)
+end
+
+local make_directories = function()
+  os.execute("mkdir -p raw_ebooks" .. utility.commands.silence_output)
+  os.execute("mkdir -p extracted_texts" .. utility.commands.silence_output)
+  os.execute("mkdir -p intermediates" .. utility.commands.silence_output)
+  os.execute("mkdir -p cover_briefs" .. utility.commands.silence_output)
+  os.execute("mkdir -p for_gemini" .. utility.commands.silence_output)
+end
+
+local tree
+tree = function(path, fn)
+  utility.list(path or ".", function(path_name)
+    local blacklist = {
+      [".git"] = true,
+      [".gitkeep"] = true,
+      [".gitignore"] = true,
+      [".DS_Store"] = true,
+    }
+    if blacklist[path_name] then return end
+    if utility.is_file(path_name) then
+      fn(path_name)
+    else
+      tree(path .. utility.path_separator .. path_name, fn)
+    end
+  end)
+end
+
+local find_ebook_files = function(books)
+  if not books then books = {} end
+
+  tree("raw_ebooks", function(file_name)
+    local _, name, extension = utility.split_path_components(file_name)
+    if extension then
+      name = name:sub(1, -(#extension + 2))
+    end
+
+    if not books[name] then
+      books[name] = {}
+    end
+    books[name].ebook_file = file_name
+  end)
+
+  return books
+end
+
+local find_extracted_texts = function(books)
+  if not books then books = {} end
+
+  tree("extracted_texts", function(file_name)
+    local _, name, extension = utility.split_path_components(file_name)
+    if extension then
+      name = name:sub(1, -(#extension + 2))
+    end
+
+    if not books[name] then
+      books[name] = {}
+    end
+    books[name].extracted_file = file_name
+    books[name].extracted_file_size = utility.file_size(file_name)
+  end)
+
+  return books
+end
+
+local find_cover_briefs = function(books)
+  if not books then books = {} end
+
+  tree("cover_briefs", function(file_name)
+    local _, name, extension = utility.split_path_components(file_name)
+    if extension then
+      name = name:sub(1, -(#extension + 2))
+    end
+
+    if not books[name] then
+      books[name] = {}
+    end
+    books[name].cover_brief_file = file_name
+  end)
+
+  return books
+end
+
+local get_books = function()
+  local books = {}
+  find_ebook_files(books)
+  find_extracted_texts(books)
+  find_cover_briefs(books)
+  return books
+end
+
+local convert_ebooks = function(books)
+  for name, data in pairs(books) do
+    if data.extracted_file then return end
+    if not data.ebook_file then return end
+
+    local extracted_file = "extracted_texts/" .. name .. ".txt"
+    os.execute(config.llm_covers.calibre_location .. "/Contents/MacOS/ebook-convert "
+      .. data.ebook_file:enquote() .. " " .. extracted_file:enquote())
+
+    if utility.path_exists(extracted_file) then
+      data.extracted_file = extracted_file
+    end
+  end
+end
+
+local condense_summary = function(name, data, sections)
+  local condensed_sections = {}
+
+  while #sections > 2 do -- this intentionally can skip the end of a book?
+    local sections_slice = {}
+    for i = 1, 10 do
+      if #sections >= 1 then
+        sections_slice[#sections_slice + 1] = table.remove(sections, 1)
+      end
+    end
+
+    local intermediate_condensation_file = "intermediates/" .. name .. "-" .. (#condensed_sections + 1) .. "-condensed.txt"
+    if utility.path_exists(intermediate_condensation_file) then
+      condensed_sections[#condensed_sections + 1] = read_all(intermediate_condensation_file)
+      print("Loaded condensed summary segment. " .. #sections .. " sections remaining.")
+    else
+      print("Condensing summary. " .. #sections .. " sections remaining.")
+      local text = send_prompt(squish_partials_prompt .. table.concat(sections_slice, "\n\n"))
+      condensed_sections[#condensed_sections + 1] = text
+      print(#text .. " characters added to final context.")
+      write_all(intermediate_condensation_file, text)
+    end
+  end
+
+  text = table.concat(condensed_sections, "\n\n")
+  local condensed_intermediate_file = "intermediates/" .. name .. " CONDENSED.txt"
+  write_all(condensed_intermediate_file, text)
+  data.condensed_intermediate_file = condensed_intermediate_file
+
+  -- if deleted any sooner, could break resuming
+  for i = 1, #condensed_sections do
+    local intermediate_condensation_file = "intermediates/" .. name .. "-" .. i .. "-condensed.txt"
+    os.execute("rm " .. intermediate_condensation_file:enquote())
+  end
+
+  return text
+end
+
+local generate_summary = function(name, data)
+  local text = read_all(data.extracted_file)
+  local sections = {}
+
+  for i = 0, data.extracted_file_size/config.llm_covers.maximum_bytes do
+    local intermediate_section_file = "intermediates/" .. name .. "-" .. i .. ".txt"
+    if utility.path_exists(intermediate_section_file) then
+      sections[#sections + 1] = read_all(intermediate_section_file)
+      print("Loaded section " .. (i + 1) .. ".")
+    else
+      print("Processing section " .. (i + 1) .. " of " .. math.floor(data.extracted_file_size/config.llm_covers.maximum_bytes + 1))
+      local section = text:sub(i * config.llm_covers.maximum_bytes, (i + 1) * config.llm_covers.maximum_bytes - 1)
+      section = send_prompt(partial_prompt .. section)
+      sections[#sections + 1] = section
+      print(#section .. " characters added to intermediate context.")
+      write_all(intermediate_section_file, section)
+    end
+  end
+
+  text = table.concat(sections, "\n\n")
+  local intermediate_file = "intermediates/" .. name .. ".txt"
+  write_all(intermediate_file, text)
+  data.intermediate_file = intermediate_file
+
+  if #sections > 10 then
+    text = condense_summary(name, data, sections)
+  end
+
+  -- if these temporary files are removed before condense_summary is called,
+  --   sections cannot be individually loaded, which breaks condense_summary
+  for i = 0, data.extracted_file_size/config.llm_covers.maximum_bytes do
+    local intermediate_section_file = "intermediates/" .. name .. "-" .. i .. ".txt"
+    os.execute("rm " .. intermediate_section_file:enquote())
+  end
+
+  return text
+end
+
+local generate_cover_briefs = function(books)
+  for name, data in pairs(books) do
+    if data.cover_brief_file then return end
+    print(name)
+
+    local text
+    if data.extracted_file_size > config.llm_covers.maximum_bytes then
+      text = generate_summary(name, data)
+    else
+      text = read_all(extracted_file)
+    end
+
+    print("Generating cover brief.")
+    text = send_prompt(cover_brief_prompt .. text)
+
+    local cover_brief_file = "cover_briefs/" .. name .. ".txt"
+    write_all(cover_brief_file, text)
+    write_all("for_gemini/" .. name .. ".txt", "Title: " .. name .. gemini_prompt .. text)
+    data.cover_brief_file = cover_brief_file
+  end
+end
+
+make_directories()
+generate_cover_briefs(get_books())
+
+-- ebook_file, extracted_file, extracted_file_size,
+-- intermediate_file, condensed_intermediate_file, cover_brief_file