hecks 3.4.2 → 3.6.0

data/lib/hecks/tools/site_routes/cli.rb

@@ -0,0 +1,70 @@
+# frozen_string_literal: true
+
+require "fileutils"
+require "optparse"
+require_relative "../../tools"
+
+module Hecks
+  module Tools
+    module SiteRoutes
+      # The command line of `project_site`: reading the flags, writing the stale files and saying
+      # what was done.
+      module Cli
+        # The flags that take a value, by the keyword of `projection` each one sets.
+        VALUE_FLAGS = {
+          out: "--out=DIR", template: "--template=FILE", cms: "--cms=DIR", root_dir: "--root=DIR",
+          extension: "--extension=EXT"
+        }.freeze
+
+        # @param argv [Array<String>] the command line, consumed down to the project directory
+        # @return [Array(Hash, Boolean)] the keywords for `projection`, and whether `--check` was
+        #   given
+        def parse_flags(argv)
+          options = {}
+          check = false
+          OptionParser.new do |parser|
+            VALUE_FLAGS.each { |key, flag| parser.on(flag) { |value| options[key] = value } }
+            parser.on("--check") { check = true }
+          end.parse!(argv)
+          [options, check]
+        end
+
+        # @param files [Hash{String => String}] each file's absolute path to the text it should hold
+        # @return [Array<String>] the paths whose file is missing or holds other text
+        def stale_paths(files)
+          files.reject { |path, text| File.file?(path) && File.read(path) == text }.keys
+        end
+
+        # Writes each stale file and prints a line for it.
+        def write_stale(files, stale, project)
+          stale.each do |path|
+            FileUtils.mkdir_p(File.dirname(path))
+            File.write(path, files.fetch(path))
+            puts "wrote #{display(path, project)}"
+          end
+          puts "project_site: #{files.size} #{files.size == 1 ? "file" : "files"}, current" if stale.empty?
+        end
+
+        # @param stale [Array<String>] absolute paths whose text differs from the table
+        # @param project [String] the project directory
+        # @param check [Boolean] whether this is a `--check` run
+        # @return [Integer] 0 when current, else 1 with the stale files on stderr
+        def report(stale, project, _check)
+          if stale.empty?
+            puts "project_site: every file current"
+            return 0
+          end
+
+          warn "project_site: out of date: #{stale.map { |path| display(path, project) }.join(", ")} " \
+               "(run hecks site site_projection.project_site)"
+          1
+        end
+
+        # @param path [String] an absolute path
+        # @param project [String] the project directory
+        # @return [String] the path relative to the project when it lies beneath it
+        def display(path, project) = path.delete_prefix("#{project}/")
+      end
+    end
+  end
+end

data/lib/hecks/tools/site_routes/root_files.rb

@@ -0,0 +1,59 @@
+# frozen_string_literal: true
+
+require_relative "../../tools"
+
+module Hecks
+  module Tools
+    module SiteRoutes
+      # The files outside `generated/`: the project's root files and the content system's half of
+      # the admin sign-in.
+      module RootFiles
+        # The files at the project's root that its rows write: the settings template, the workflow,
+        # the content system's image and start-up script, and the files that drive the domain.
+        #
+        # @param dir [String] the directory they are written under, relative to the working
+        #   directory
+        # @param chapter [Bluebook::Chapter] the chapter that declares the route table
+        # @return [Hash{String => String}] each file's absolute path to its text; empty with no rows
+        def root_files(dir, chapter)
+          base = File.expand_path(dir)
+          files = Projector.call(:site_root, bluebook: chapter).merge(Projector.call(:site_host, bluebook: chapter))
+          files = files.merge(payload_files(base, chapter))
+          files.to_h { |name, text| [File.join(base, name), text] }
+        end
+
+        # The files that drive the project's domain from the content system, when it declares a
+        # `Payload` row.
+        #
+        # @param base [String] the directory the project's root files are written under
+        # @param chapter [Bluebook::Chapter] the chapter that declares the route table and the rows
+        # @return [Hash{String => String}] each file's path relative to `base` to its text
+        def payload_files(base, chapter)
+          row = Projections::Site::PayloadDriver::PAYLOAD.read(chapter).first
+          return {} unless row
+
+          domain_root = File.join(base, row[:domain])
+          domain = registry_for(domain_root).bluebooks.values.find { |candidate| candidate.name == row[:chapter] }
+          abort "project_site: #{domain_root} declares no chapter #{row[:chapter]}" unless domain
+          Projector.call(:payload_driver, bluebook: chapter, options: { domain_chapter: domain })
+        rescue ArgumentError => e
+          abort "project_site: #{e.message}"
+        end
+
+        # The content system's half of the admin sign-in: four files under the `--cms` directory.
+        #
+        # @param cms [String] the directory the files are written under
+        # @param chapter [Bluebook::Chapter] the chapter that declares the route table
+        # @param admin [Projections::Site::Admin, nil] the checked admin row
+        # @return [Hash{String => String}] each file's absolute path to its text
+        # @raise [SystemExit] when `--cms` is named and the project declares no `Admin` row
+        def cms_files(cms, chapter, admin)
+          abort "project_site: --cms names #{cms}, but the project declares no Admin row" if admin.nil?
+
+          files = Projector.call(:site_admin_cms, bluebook: chapter, options: { admin: admin })
+          files.to_h { |name, text| [File.join(File.expand_path(cms), name), text] }
+        end
+      end
+    end
+  end
+end

data/lib/hecks/tools/site_routes/templates.rb

@@ -0,0 +1,77 @@
+# frozen_string_literal: true
+
+require_relative "../../tools"
+
+module Hecks
+  module Tools
+    module SiteRoutes
+      # The edge's half of the projection: the project's template with its regions rewritten.
+      module Templates
+        # The template with the edge's regions rewritten, when the project declares an edge.
+        #
+        # @param root [String] the project directory
+        # @param out [String, nil] the directory to write to, or nil to rewrite the template in
+        #   place
+        # @param site [Site] the chapter that declares the route table, its checked table and
+        #   registry
+        # @param template [String, nil] a template named on the command line, rewritten in place
+        # @return [Hash{String => String}] the template's path to its text; empty with no edge
+        # @raise [SystemExit] when a template is named and the project declares no edge, the
+        #   template is missing or lacks a region it needs, or holds a region an edge without a load
+        #   balancer does not use
+        def template_files(root, out, site, template: nil)
+          edge = Projections::Site::Edge.read(site.chapter, table: site.table, template: template,
+                                                            vocabulary: Projections::Site::Table.vocabulary(site.registry))
+          return missing_edge(template) unless edge
+
+          regions = Projector.call(:site_cdn, bluebook: site.chapter, options: { table: site.table, edge: edge })
+          relative = template || edge.setting.template
+          source = template_source(root, template, relative)
+          text = rewritten(File.read(source), regions, relative, edge)
+          { destination(source, out, template, relative) => text }
+        end
+
+        # @param text [String] the template
+        # @param regions [Hash{String => String}] each region's name to the block that goes in it
+        # @param relative [String] the template's name, for a message
+        # @param edge [Projections::Site::Edge] the checked edge
+        # @return [String] the template with each region rewritten
+        # @raise [SystemExit] when a region is missing, or a listener_rules region is left behind
+        #   by an edge with no load balancer
+        def rewritten(text, regions, relative, edge)
+          if !edge.alb? && Projections::Site::Regions.region?(text, "listener_rules")
+            abort "project_site: #{relative} has a BEGIN/END GENERATED site_cdn listener_rules region, " \
+                  "and the Edge row says alb: false; remove the region"
+          end
+          regions.reduce(text) do |current, (name, block)|
+            unless Projections::Site::Regions.region?(current, name)
+              abort "project_site: #{relative} has no BEGIN/END GENERATED site_cdn #{name} region"
+            end
+
+            Projections::Site::Regions.replace(current, name, block)
+          end
+        end
+
+        # @return [Hash] nothing, after refusing a template named for a project with no edge
+        def missing_edge(template)
+          abort "project_site: --template names #{template}, but the project declares no Edge rows" if template
+          {}
+        end
+
+        # @return [String] the template's path, refusing one that does not exist
+        def template_source(root, template, relative)
+          source = template ? File.expand_path(template) : File.join(root, relative)
+          return source if File.file?(source)
+
+          abort "project_site: the template #{relative} does not exist#{" in #{root}" unless template}"
+        end
+
+        # @return [String] where the rewritten template goes: its own path, or under `out`
+        def destination(source, out, template, relative)
+          in_place = template || out.nil?
+          in_place ? source : File.join(File.expand_path(out), relative)
+        end
+      end
+    end
+  end
+end

data/lib/hecks/tools/site_routes.rb

@@ -7,15 +7,24 @@ require_relative "../tools"
 require_relative "../projections/site/routes_ts"
 require_relative "../projections/site/site_cdn"
 require_relative "../projections/site/regions"
+require_relative "../projections/site/admin"
+require_relative "../projections/site/site_admin"
+require_relative "../projections/site/admin_cms"
+require_relative "../projections/site/site_root"
+require_relative "../projections/site/site_host"
+require_relative "../projections/site/payload_driver"
+require_relative "site_routes/cli"
+require_relative "site_routes/templates"
+require_relative "site_routes/root_files"
 
 module Hecks
   module Tools
-    # Projects a project's route table into `routes.ts` (`Projections::Site::RoutesTs`) and, when
-    # it declares an edge, into the behaviours and listener rules of its template
-    # (`Projections::Site::SiteCdn`).
+    # Projects a project's route table into `routes.ts` (`Projections::Site::RoutesTs`), its edge
+    # into the behaviours and listener rules of its template (`Projections::Site::SiteCdn`) and its
+    # `Admin` row into `admin.ts` (`Projections::Site::SiteAdmin`), each when it declares one.
     #
     #   hecks site site_projection.project_site [<project>] [--out=<dir>] [--template=<file>]
-    #                                           [--extension=ts|mts] [--check]
+    #       [--cms=<dir>] [--root=<dir>] [--extension=ts|mts] [--check]
     #
     # `<project>` (default: the working directory) holds `bluebook/` and the `vendor/` it attaches
     # from. `routes.ts` goes to `<project>/generated` or to `--out`, anywhere. The template is the
@@ -30,7 +39,20 @@ module Hecks
       EXTENSIONS = %w[ts mts].freeze
 
       USAGE = "usage: hecks site site_projection.project_site [<project>] [--out=<dir>] " \
-              "[--template=<file>] [--extension=#{EXTENSIONS.join('|')}] [--check]".freeze
+              "[--template=<file>] [--cms=<dir>] [--root=<dir>] [--extension=#{EXTENSIONS.join("|")}] [--check]".freeze
+
+      # The directory `ports/` and `adapters/` live under, loaded into every project's registry.
+      LIB_HECKS = File.expand_path("..", __dir__)
+
+      # The keywords `projection` takes, each nil until given.
+      Settings = Struct.new(:out, :template, :extension, :cms, :root_dir, keyword_init: true)
+
+      # A project's route-table chapter with its checked table and the registry it booted into.
+      Site = Struct.new(:chapter, :table, :registry)
+
+      extend Cli
+      extend Templates
+      extend RootFiles
 
       module_function
 
@@ -43,107 +65,97 @@ module Hecks
       #   table is refused, or a flag is refused
       def main(argv, root: Dir.pwd)
         argv = argv.dup
-        out = template = extension = nil
-        check = false
-        OptionParser.new do |parser|
-          parser.on("--out=DIR") { |value| out = value }
-          parser.on("--template=FILE") { |value| template = value }
-          parser.on("--extension=EXT") { |value| extension = value }
-          parser.on("--check") { check = true }
-        end.parse!(argv)
+        options, check = parse_flags(argv)
         project = argv.empty? ? root : File.expand_path(argv.shift)
         abort USAGE unless argv.empty?
 
-        files = projection(project, out: out, template: template, extension: extension)
-        stale = files.reject { |path, text| File.file?(path) && File.read(path) == text }.keys
+        files = projection(project, **options)
+        stale = stale_paths(files)
         return report(stale, project, check) if check
 
-        stale.each do |path|
-          FileUtils.mkdir_p(File.dirname(path))
-          File.write(path, files.fetch(path))
-          puts "wrote #{display(path, project)}"
-        end
-        puts "project_site: #{files.size} #{files.size == 1 ? 'file' : 'files'}, current" if stale.empty?
+        write_stale(files, stale, project)
         0
       end
 
       # @param root [String] the project directory
-      # @param out [String, nil] the directory to write to; `generated/` of the project when nil
-      # @param template [String, nil] the template to rewrite in place, wherever it lies; the
-      #   `Edge` row's template, relative to the project, when nil
-      # @param extension [String, nil] `ts` (the default) or `mts`, the module's file extension
+      # @param options [Hash] the keywords, each optional:
+      #   `out:` the directory to write to; `generated/` of the project when nil
+      #   `template:` the template to rewrite in place, wherever it lies; the `Edge` row's
+      #   template, relative to the project, when nil
+      #   `extension:` `ts` (the default) or `mts`, the module's file extension
+      #   `cms:` the directory for the content system's half of the admin sign-in
+      #   `root_dir:` the directory for the project's root files
       # @return [Hash{String => String}] each file's absolute path to the text it should hold
       # @raise [SystemExit] when the project declares no route table, the table is refused, or a
       #   path or the extension is refused
-      def projection(root, out: nil, template: nil, extension: nil)
-        extension ||= EXTENSIONS.first
-        unless EXTENSIONS.include?(extension)
-          abort "project_site: --extension is one of #{EXTENSIONS.join(', ')}, not #{extension.inspect}"
-        end
-        dir = out ? File.expand_path(out) : File.join(root, DEFAULT_OUT)
-        abort "project_site: --out #{dir} is a file; it names the directory routes.#{extension} goes in" if File.file?(dir)
-
+      def projection(root, **)
+        settings = Settings.new(**)
+        settings.extension ||= EXTENSIONS.first
+        refuse_extension(settings.extension)
+        dir = output_dir(root, settings)
         registry = registry_for(root)
         chapter = Projections::Site::Table.chapter(registry)
-        table = Projections::Site::Table.read(chapter, registry: registry)
-        files = Projector.call(:site_routes_ts, bluebook: chapter, options: { table: table })
-        written = files.to_h { |name, text| [File.join(dir, name.sub(/\.ts\z/, ".#{extension}")), text] }
-        written.merge(template_files(root, out, chapter, table, registry, template: template))
+        site = Site.new(chapter, Projections::Site::Table.read(chapter, registry: registry), registry)
+        assemble(root, dir, site, settings)
       rescue Projections::Site::Table::Invalid => e
         abort "project_site: #{e.message}"
       end
 
-      # The template with the edge's regions rewritten, when the project declares an edge.
-      #
-      # @param root [String] the project directory
-      # @param out [String, nil] the directory to write to, or nil to rewrite the template in place
-      # @param chapter [Bluebook::Chapter] the chapter that declares the route table
-      # @param table [Projections::Site::Table] the checked table
-      # @param registry [Hecks::Runtime::Registry] the registry the project booted into
-      # @param template [String, nil] a template named on the command line, rewritten in place
-      # @return [Hash{String => String}] the template's path to its text; empty with no edge
-      # @raise [SystemExit] when a template is named and the project declares no edge, the
-      #   template is missing or lacks a region it needs, or holds a region an edge without a load
-      #   balancer does not use
-      def template_files(root, out, chapter, table, registry, template: nil)
-        edge = Projections::Site::Edge.read(chapter, table: table, template: template,
-                                                     vocabulary: Projections::Site::Table.vocabulary(registry))
-        unless edge
-          abort "project_site: --template names #{template}, but the project declares no Edge rows" if template
-          return {}
-        end
+      # @return [Hash{String => String}] every file the project's rows write, by absolute path
+      def assemble(root, dir, site, settings)
+        written = route_files(dir, site, settings.extension)
+        admin = Projections::Site::Admin.read(site.chapter, table: site.table)
+        written.merge!(admin_files(dir, site.chapter, admin, settings.extension))
+        written.merge!(optional_files(settings, site.chapter, admin))
+        written.merge(template_files(root, settings.out, site, template: settings.template))
+      end
 
-        regions = Projector.call(:site_cdn, bluebook: chapter, options: { table: table, edge: edge })
-        relative = template || edge.setting.template
-        source = template ? File.expand_path(template) : File.join(root, relative)
-        unless File.file?(source)
-          abort "project_site: the template #{relative} does not exist#{" in #{root}" unless template}"
-        end
+      # @return [Hash{String => String}] the route table module, by absolute path
+      def route_files(dir, site, extension)
+        files = Projector.call(:site_routes_ts, bluebook: site.chapter, options: { table: site.table })
+        renamed(dir, files, extension)
+      end
 
-        text = rewritten(File.read(source), regions, relative, edge)
-        in_place = template || out.nil?
-        { (in_place ? source : File.join(File.expand_path(out), relative)) => text }
+      # The content system's files and the project's root files, each when its flag was given.
+      def optional_files(settings, chapter, admin)
+        files = {}
+        files.merge!(cms_files(settings.cms, chapter, admin)) if settings.cms
+        files.merge!(root_files(settings.root_dir, chapter)) if settings.root_dir
+        files
       end
 
-      # @param text [String] the template
-      # @param regions [Hash{String => String}] each region's name to the block that goes in it
-      # @param relative [String] the template's name, for a message
-      # @param edge [Projections::Site::Edge] the checked edge
-      # @return [String] the template with each region rewritten
-      # @raise [SystemExit] when a region is missing, or a listener_rules region is left behind
-      #   by an edge with no load balancer
-      def rewritten(text, regions, relative, edge)
-        if !edge.alb? && Projections::Site::Regions.region?(text, "listener_rules")
-          abort "project_site: #{relative} has a BEGIN/END GENERATED site_cdn listener_rules region, " \
-                "and the Edge row says alb: false; remove the region"
-        end
-        regions.reduce(text) do |current, (name, block)|
-          unless Projections::Site::Regions.region?(current, name)
-            abort "project_site: #{relative} has no BEGIN/END GENERATED site_cdn #{name} region"
-          end
+      # @return [Hash{String => String}] `files` placed under `dir`, with the module extension
+      #   applied
+      def renamed(dir, files, extension)
+        files.to_h { |name, text| [File.join(dir, name.sub(/\.ts\z/, ".#{extension}")), text] }
+      end
 
-          Projections::Site::Regions.replace(current, name, block)
-        end
+      # @raise [SystemExit] when `extension` is not one the module may take
+      def refuse_extension(extension)
+        return if EXTENSIONS.include?(extension)
+
+        abort "project_site: --extension is one of #{EXTENSIONS.join(", ")}, not #{extension.inspect}"
+      end
+
+      # @return [String] the directory the route table module is written to
+      # @raise [SystemExit] when that path is a file
+      def output_dir(root, settings)
+        dir = settings.out ? File.expand_path(settings.out) : File.join(root, DEFAULT_OUT)
+        return dir unless File.file?(dir)
+
+        abort "project_site: --out #{dir} is a file; it names the directory routes.#{settings.extension} goes in"
+      end
+
+      # The admin sign-in module, when the project declares an `Admin` row.
+      #
+      # @param dir [String] the directory the route table module is written to
+      # @param chapter [Bluebook::Chapter] the chapter that declares the route table
+      # @param admin [Projections::Site::Admin, nil] the checked admin row
+      # @param extension [String] the extension the modules are written with
+      # @return [Hash{String => String}] the module's path to its text; empty with no admin row
+      def admin_files(dir, chapter, admin, extension)
+        files = Projector.call(:site_admin, bluebook: chapter, options: { admin: admin, extension: extension })
+        renamed(dir, files, extension)
       end
 
       # Loads the project's chapters the way a deploy does: the bluebooks, then the hecksagons that
@@ -159,35 +171,17 @@ module Hecks
         end
 
         registry = Hecks::Runtime::Registry.new(root: root)
-        lib_hecks = File.expand_path("..", __dir__)
-        Hecks.with_registry(registry) do
-          %w[ports/persistence.port ports/extraction.port adapters/driven/memory.adapter
-             adapters/driven/prism.adapter].each { |file| Kernel.load(File.join(lib_hecks, file)) }
-          Dir.glob(File.join(dir, "*.bluebook")).each { |file| Kernel.load(file) }
-          Dir.glob(File.join(dir, "*.hecksagon")).each { |file| Kernel.load(file) }
-        end
+        Hecks.with_registry(registry) { load_project(dir) }
         registry
       end
 
-      # @param stale [Array<String>] absolute paths whose text differs from the table
-      # @param project [String] the project directory
-      # @param check [Boolean] whether this is a `--check` run
-      # @return [Integer] 0 when current, else 1 with the stale files on stderr
-      def report(stale, project, _check)
-        if stale.empty?
-          puts "project_site: every file current"
-          return 0
-        end
-
-        warn "project_site: out of date: #{stale.map { |path| display(path, project) }.join(', ')} " \
-             "(run hecks site site_projection.project_site)"
-        1
+      # Loads the attached ports and adapters, then the project's bluebooks and hecksagons.
+      def load_project(dir)
+        %w[ports/persistence.port ports/extraction.port adapters/driven/memory.adapter
+           adapters/driven/prism.adapter].each { |file| Kernel.load(File.join(LIB_HECKS, file)) }
+        Dir.glob(File.join(dir, "*.bluebook")).each { |file| Kernel.load(file) }
+        Dir.glob(File.join(dir, "*.hecksagon")).each { |file| Kernel.load(file) }
       end
-
-      # @param path [String] an absolute path
-      # @param project [String] the project directory
-      # @return [String] the path relative to the project when it lies beneath it
-      def display(path, project) = path.delete_prefix("#{project}/")
     end
   end
 end

data/lib/hecks/tools/tail_merge.rb

@@ -28,14 +28,7 @@ module Hecks
         registry, bluebook = load_domain(domain_path)
         settings = lineage_settings(registry, bluebook)
         report_divergence(bluebook, settings)
-
-        begin
-          Hecks::Adapters::PostgresEra::LineageManager.merge!(
-            registry: registry, bluebook: bluebook, settings: settings, winners: winners
-          )
-        rescue Hecks::Runtime::WiringError => e
-          abort "REFUSED: #{e.message}"
-        end
+        merge_tail(registry, bluebook, settings, winners)
 
         puts "merged — the head now interleaves both worlds by their recorded ordinals"
         winners.each { |id, side| puts "  winner #{id}=#{side} appended as the newest row" }
@@ -46,53 +39,52 @@ module Hecks
       def parse(argv)
         domain_path = nil
         winners = {}
-        until argv.empty?
-          argument = argv.shift
-          if argument == "--winner"
-            declaration = argv.shift or abort "--winner needs <id>=old|new"
-            id, side = declaration.split("=", 2)
-            abort "--winner #{declaration}: the side must be `old` or `new`" unless %w[old new].include?(side)
-            winners[id] = side
-          else
-            domain_path = argument
-          end
-        end
+        domain_path = parse_word(argv.shift, argv, winners) || domain_path until argv.empty?
         abort USAGE unless domain_path
         [domain_path, winners]
       end
 
+      # Records a `--winner` declaration in `winners`, taking it from `rest`.
+      #
+      # @return [String, nil] the word, when it names the domain directory; nil after a winner
+      def parse_word(argument, rest, winners)
+        return argument unless argument == "--winner"
+
+        declaration = rest.shift or abort "--winner needs <id>=old|new"
+        id, side = declaration.split("=", 2)
+        abort "--winner #{declaration}: the side must be `old` or `new`" unless %w[old new].include?(side)
+        winners[id] = side
+        nil
+      end
+
       # @param domain_path [String] the domain directory
       # @return [Array] the registry and its bluebook
       def load_domain(domain_path)
         loading = Hecks::Ports::Loading.bootstrap
         directory = loading.bluebook_directory(domain_path)
         registry = Hecks::Runtime::Registry.new(root: File.dirname(directory))
-        begin
-          Hecks.with_registry(registry) do
-            loading.load_library
-            loading.load_project(loading.shared_root(nil, directory))
-            loading.load_domain(directory)
-          end
-        rescue Hecks::Bluebook::DSL::Malformed => e
-          abort "REFUSED at load: #{e.message}"
-        end
+        load_chapters(loading, registry, directory)
         bluebook = registry.bluebooks.values.first or abort "no bluebook in #{directory}"
         [registry, bluebook]
       end
 
+      # Loads the library, the project and the domain into `registry`.
+      def load_chapters(loading, registry, directory)
+        Hecks.with_registry(registry) do
+          loading.load_library
+          loading.load_project(loading.shared_root(nil, directory))
+          loading.load_domain(directory)
+        end
+      rescue Hecks::Bluebook::DSL::Malformed => e
+        abort "REFUSED at load: #{e.message}"
+      end
+
       # @return [Hash] the persistence binding's settings
       # @raise [SystemExit] when the bound adapter is not lineage-capable
       def lineage_settings(registry, bluebook)
         first = bluebook.aggregates.first or abort "#{bluebook.name} declares no aggregates"
         adapter_name = Hecks::Ports::Persistence::BindingPolicy.resolve(registry, bluebook.name, first).adapter
-        capable =
-          begin
-            adapter_class = registry.adapter_class(adapter_name)
-            adapter_class.respond_to?(:lineage_capable?) && adapter_class.lineage_capable?
-          rescue StandardError
-            false
-          end
-        unless capable
+        unless lineage_capable?(registry, adapter_name)
           abort "a tail-merge needs a lineage journal; #{bluebook.name} is bound to #{adapter_name}, " \
                 "not PostgresEra"
         end
@@ -100,6 +92,22 @@ module Hecks
         registry.binding_settings(bluebook.name, Hecks::Ports::Persistence::VERB, adapter_name)
       end
 
+      def lineage_capable?(registry, adapter_name)
+        adapter_class = registry.adapter_class(adapter_name)
+        adapter_class.respond_to?(:lineage_capable?) && adapter_class.lineage_capable?
+      rescue StandardError
+        false
+      end
+
+      # @raise [SystemExit] when the merge is refused
+      def merge_tail(registry, bluebook, settings, winners)
+        Hecks::Adapters::PostgresEra::LineageManager.merge!(
+          registry: registry, bluebook: bluebook, settings: settings, winners: winners
+        )
+      rescue Hecks::Runtime::WiringError => e
+        abort "REFUSED: #{e.message}"
+      end
+
       # @return [void]
       def report_divergence(bluebook, settings)
         db = Hecks::Adapters::PostgresEra.connect_for(bluebook.name, settings)
@@ -109,7 +117,7 @@ module Hecks
         diverged = eras.size > 1 ? (1...eras.last[:ordinal]).sum { |era| lineage.diverged_count(era) } : 0
         db.close
 
-        puts "#{bluebook.name}: #{diverged} post-cut write#{'s' unless diverged == 1} " \
+        puts "#{bluebook.name}: #{diverged} post-cut write#{"s" unless diverged == 1} " \
              "in ancestor eras before the merge"
       end
     end