mochigome 0.1.5 → 0.1.6

data/test/app_root/app/transforms/report.fo.via-html.xslt.haml

@@ -0,0 +1,173 @@
+-# FIXME Do this with xsl:attribute-set instead
+- block_attrs = {"font-family" => "Helvetica", "font-size" => "10pt", "start-indent" => "0pt", "end-indent" => "0pt"}
+- h_block_attrs = {"font-family" => "Helvetica", "space-before" => "6pt", "space-after" => "6pt"}
+- footer_block_attrs = block_attrs.merge({"font-size" => "9pt", "text-align" => "center"})
+
+!!! XML
+%xsl:stylesheet(version="1.0"
+xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+xmlns:fo="http://www.w3.org/1999/XSL/Format")
+
+  %xsl:template(match="/env/context")
+    -# Nothing
+
+  %xsl:template{:match => "/env/div[#{help.xpath_class("report")}]"}
+    %fo:root
+      %fo:layout-master-set
+        %fo:simple-page-master(master-name="content-page"
+        page-width="8.5in"
+        page-height="11in"
+        margin-top="0.25in"
+        margin-bottom="0.25in"
+        margin-left="0.4in"
+        margin-right="0.4in")
+          %fo:region-body(margin-top="0.25in" margin-bottom="0.25in")
+          %fo:region-before(extent="0.1in")
+          %fo:region-after(extent="0.1in")
+
+      %fo:bookmark-tree
+        %xsl:apply-templates(select="div[@id='floating-sidebar']/span/ul/li")
+
+      %fo:page-sequence(master-reference="content-page")
+        %fo:static-content(flow-name="xsl-region-before")
+          %fo:block{footer_block_attrs}
+            %xsl:value-of(select="/env/context/report_name")
+        %fo:static-content(flow-name="xsl-region-after")
+          %fo:block{footer_block_attrs}
+            Page
+            %fo:page-number
+        %fo:flow(flow-name="xsl-region-body")
+          %xsl:apply-templates(select="div[#{help.xpath_class("report-header")}]")
+          %xsl:apply-templates(select="img[#{help.xpath_class("chart")}]")
+          %xsl:apply-templates(select="div[#{help.xpath_class("node")}]")
+
+  %xsl:template{:match => "img[#{help.xpath_class("chart")}]"}
+    %fo:block{block_attrs.merge({"margin-left" => "18pt", "padding" => "4px"})}
+      %fo:external-graphic(content-height="scale-to-fit" content-width="scale-to-fit" scaling="uniform")
+        %xsl:attribute(name="src")
+          %xsl:value-of(select="@src")
+        %xsl:attribute(name="width")
+          -# FIXME This scaling results in ugly images...
+          %xsl:value-of(select="concat((number(@width) div 100), 'in')")
+
+  %xsl:template{:match => "div[#{help.xpath_class("node")}]"}
+    %fo:block{block_attrs.merge({"margin-left" => "18pt", "padding" => "4px"})}
+      %xsl:attribute(name="id")
+        %xsl:value-of(select="div[#{help.xpath_class("internal-jump-handle")}]/@id")
+      %xsl:choose
+        %xsl:when{:test => help.xpath_class("subtable-node")}
+          %xsl:attribute(name="border") solid 1px black
+          %xsl:attribute(name="margin-bottom") 15px
+        %xsl:otherwise
+          %xsl:attribute(name="border-left") solid 1px gray
+          %xsl:attribute(name="margin-bottom") 8pt
+      %xsl:apply-templates
+
+  %xsl:template{:match => "div[#{help.xpath_class("bad-print-warning")}]"}
+    -# Nothing
+
+  %xsl:template{:match => "div[#{help.xpath_class("report-header")}]"}
+    %fo:block{block_attrs.merge({"margin-left" => "18pt", "padding" => "4px"})}
+      %xsl:apply-templates
+
+  %xsl:template(match="h1|h2|h3|h4|h5|h6")
+    %fo:block{h_block_attrs}
+      %xsl:choose
+        %xsl:when(test="name()='h1'")
+          %xsl:attribute(name="font-size") 240%
+        %xsl:when(test="name()='h2'")
+          %xsl:attribute(name="font-size") 200%
+        %xsl:when(test="name()='h3'")
+          %xsl:attribute(name="font-size") 170%
+        %xsl:when(test="name()='h4'")
+          %xsl:attribute(name="font-size") 150%
+        %xsl:when(test="name()='h5'")
+          %xsl:attribute(name="font-size") 135%
+        %xsl:when(test="name()='h6'")
+          %xsl:attribute(name="font-size") 120%
+      %xsl:apply-templates
+
+  %xsl:template(match="table")
+    %xsl:if(test="count(*/tr|*/td)>0")
+      %fo:table(table-layout="fixed")
+        %xsl:choose
+          %xsl:when(test="count(tbody/tr[last()]/td) = 1")
+            %fo:table-column(column-width="proportional-column-width(1)")
+          %xsl:otherwise
+            %fo:table-column(column-width="2in")
+            %xsl:for-each(select="tbody/tr[last()]/td[position() > 1]")
+              %fo:table-column(column-width="proportional-column-width(1)")
+        %xsl:apply-templates
+
+  %xsl:template(match="thead")
+    %fo:table-header{"start-indent" => "0pt", "end-indent" => "0pt"}
+      %xsl:attribute(name="keep-together.within-page") always
+      %xsl:apply-templates
+
+  %xsl:template(match="tbody")
+    %fo:table-body{"start-indent" => "0pt", "end-indent" => "0pt"}
+      %xsl:apply-templates
+
+  %xsl:template(match="tr[#{help.xpath_class("subtable-name-row")}]")
+    %fo:table-row
+      %xsl:apply-templates
+        %xsl:with-param(name="tr-cls" select="'subtable-name-row'")
+
+  %xsl:template(match="tr[#{help.xpath_class("header-row")}]")
+    %fo:table-row
+      %xsl:apply-templates
+        %xsl:with-param(name="tr-cls" select="'header-row'")
+
+  %xsl:template(match="tr[#{help.xpath_class("subtable-datum-row")}]")
+    %fo:table-row
+      %xsl:apply-templates
+        %xsl:with-param(name="tr-cls" select="'subtable-datum-row'")
+
+  %xsl:template(match="tr")
+    %xsl:variable(name="rownum")
+      %xsl:number
+    %fo:table-row
+      -# The code below doesn't do what I was hoping; it does prevent
+      -# widowing of the first ten rows, but then the un-widowed
+      -# section just runs right through the footer and off the
+      -# page. :-\
+      -#%xsl:if(test="$rownum < 10")
+        -#%xsl:attribute(name="keep-with-previous.within-page") always
+      %xsl:apply-templates
+        %xsl:with-param(name="tr-cls" select="'detail-row'")
+
+  %xsl:template(match="td|th")
+    %xsl:param(name="tr-cls")
+    %fo:table-cell(border="1px solid gray")
+      %xsl:if(test="@colspan")
+        %xsl:attribute(name="number-columns-spanned")
+          %xsl:value-of(select="@colspan")
+      %xsl:if(test="name()='th'")
+        %xsl:attribute(name="font-style") italic
+      %xsl:if(test="$tr-cls='subtable-name-row'")
+        %xsl:attribute(name="background-color") #eee
+      %xsl:if(test="$tr-cls='header-row'")
+        %xsl:attribute(name="background-color") #ddd
+      %xsl:if(test="$tr-cls='subtable-datum-row'")
+        %xsl:attribute(name="background-color") #ddd
+        %xsl:attribute(name="font-weight") bold
+      %fo:block{block_attrs.merge({"padding" => "2pt", "margin-left" => "2pt"})}
+        %xsl:apply-templates
+
+  %xsl:template(match="li[#{help.xpath_class("toc-item")}]")
+    %fo:bookmark
+      %xsl:attribute(name="internal-destination")
+        -# Remove the hash symbol from the HTML internal href
+        %xsl:value-of(select="substring(a/@href, 2)")
+      %fo:bookmark-title
+        %xsl:value-of(select="a")
+      %xsl:apply-templates(select="ul/li")
+
+  %xsl:template(match="li")
+    %fo:block{block_attrs.merge({"start-indent" => "25pt"})}
+      %xsl:apply-templates
+
+  %xsl:template(match="label")
+    %fo:inline()
+      %xsl:apply-templates
+      \:

data/test/app_root/app/transforms/report.html.xslt.haml

@@ -0,0 +1,198 @@
+!!! XML
+%xsl:stylesheet(version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform")
+
+  %xsl:variable(name="detail_type" select="/env/context/layer_names/val[last()]")
+  %xsl:variable(name="subtable_type" select="/env/context/layer_names/val[last()-1]")
+
+  %xsl:template(match="/env/context")
+    -# Nothing
+
+  %xsl:template(match="/env/node")
+    %div.report
+      %xsl:choose
+        %xsl:when(test="string(/env/context/skip_root) = 'true'")
+          %xsl:apply-templates(select="node" mode="report-root")
+        %xsl:otherwise
+          %xsl:apply-templates(select="." mode="report-root")
+
+  -### REPORT CONTENT
+
+  %xsl:template(match="node" mode="report-root")
+    %xsl:call-template(name="print-warning")
+    %xsl:call-template(name="sidebar")
+    %xsl:call-template(name="report-header")
+    %xsl:call-template(name="charts")
+
+    %xsl:if(test="count(node)=0")
+      %tr.detail-row.no-data-row
+        %td
+          No data was found that matches this report's conditions.
+
+    %xsl:choose
+      %xsl:when(test="count(/env/context/layer_names/val) = 1")
+        %xsl:call-template(name="data-table")
+      %xsl:otherwise
+        %xsl:call-template(name="upper-node")
+
+  %xsl:template(name="report-header")
+    .report-header
+      %h1.node-name
+        %xsl:value-of(select="/env/context/report_name")
+      %xsl:if(test="count(/env/context/condition_descs/val) > 0")
+        %h3 Filtered by:
+        %ul.filter-list
+          %xsl:for-each(select="/env/context/condition_descs/val")
+            %li.filter
+              %xsl:value-of(select=".")
+      %xsl:if(test="count(datum) > 0")
+        %h3 Report totals:
+        %ul.data-list
+          %xsl:apply-templates(select="datum")
+
+  %xsl:template(name="charts")
+    %xsl:for-each(select="/env/context/charts/val")
+      %xsl:value-of(select="." disable-output-escaping="yes")
+
+  %xsl:template(match="node")
+    %xsl:choose
+      %xsl:when(test="@internal_type=$detail_type")
+        %tr.detail-row
+          %td.item-name
+            %xsl:value-of(select="@name")
+          %xsl:apply-templates
+      %xsl:when(test="@internal_type=$subtable_type")
+        %xsl:call-template(name="data-table")
+      %xsl:otherwise
+        %xsl:call-template(name="upper-node")
+
+  %xsl:template(name="upper-node")
+    %div.node
+      %div.internal-jump-handle
+        %xsl:attribute(name="id")
+          %xsl:value-of(select="generate-id(.)")
+      %xsl:variable(name="node_name" select="@name")
+      %xsl:if(test="@internal_type")
+        %xsl:variable(name="node_internal_type" select="@internal_type")
+        %xsl:for-each(select="/env/context/layer_names/val")
+          %xsl:if(test="$node_internal_type=string(.)")
+            %xsl:element(name="{concat('h',(position()+1))}")
+              %xsl:attribute(name="class") node-name
+              %xsl:value-of(select="$node_name")
+        %ul.data-list
+          %xsl:apply-templates(select="datum")
+      -# TODO: Do something to indicate that these datums are report
+      -# totals if this is the root node.
+      %xsl:apply-templates(select="node")
+
+  %xsl:template(match="datum")
+    %xsl:choose
+      %xsl:when(test="../@internal_type=$detail_type")
+        %td
+          %xsl:value-of(select=".")
+      %xsl:when(test="../@internal_type=$subtable_type")
+        -# Nothing, data was displayed in the subtable node template
+      %xsl:otherwise
+        %li.datum(class="datum-{@name}")
+          %label
+            %xsl:value-of(select="@name")
+          %span.value
+            %xsl:value-of(select=".")
+
+  %xsl:template(name="data-table")
+    %div.node.subtable-node
+      %div.internal-jump-handle
+        %xsl:attribute(name="id")
+          %xsl:value-of(select="generate-id(.)")
+      %table
+        %col.item-name
+        %thead
+          %tr.subtable-name-row
+            %th
+              %xsl:if(test="count(node)>0")
+                %xsl:attribute(name="colspan")
+                  %xsl:value-of(select="count(node[1]/datum)+1")
+              %xsl:value-of(select="@name")
+          %tr.header-row
+            %th.item-name
+              -# Skip this column
+            %xsl:for-each(select="node[1]/datum")
+              %th
+                %xsl:value-of(select="@name")
+          %xsl:if(test="count(node)>0")
+            %tr.subtable-datum-row
+              %td.item-name
+                %xsl:value-of(select="@type")
+                Total:
+                %xsl:value-of(select="count(node)")
+              %xsl:variable(name="node" select=".")
+              %xsl:for-each(select="node[1]/datum")
+                %td
+                  %xsl:variable(name="tgtname" select="@name")
+                  %xsl:if(test="$node/datum[@name=$tgtname]")
+                    %xsl:value-of(select="$node/datum[@name=$tgtname]")
+        %tbody
+          %xsl:if(test="count(node)=0")
+            %tr.detail-row.no-data-row
+              %td
+                No data
+          %xsl:apply-templates(select="node")
+
+  %xsl:template(name="print-warning")
+    %div.printonly.bad-print-warning
+      %p
+        %strong Warning:
+        This printout does not have correct formatting.
+      %p.tight
+        For better results, use the
+        %i Print
+        button in the report sidebar on the left,
+        %b not
+        your browser's print function.
+
+
+  -### REPORT SIDEBAR
+
+  %xsl:template(name="sidebar")
+    -# Hidden links to tell javascript about download targets
+    %xsl:for-each(select="/env/context/download_paths/val")
+      %a(style="display: none" class="report-download-link")
+        %xsl:attribute(name="id")
+          %xsl:value-of(select="concat('report-download-link-', ./ext)")
+        %xsl:attribute(name="href")
+          %xsl:value-of(select="./path")
+        %xsl:value-of(select="./name")
+
+    -# Sidebar with Print and download buttons, and a table of contents.
+    -# TODO Why is this even in XSLT? Should just put it in the view.
+    %div#sidebar
+      %span.sidebar-header Actions
+      %ul
+        %li
+          %a
+            %xsl:attribute(name="href")
+              %xsl:value-of(select="/env/context/print_path")
+            Print
+        %xsl:for-each(select="/env/context/download_paths/val")
+          %li
+            %a#sidebar-download-btn
+              %xsl:attribute(name="href")
+                %xsl:value-of(select="path")
+              Download
+              %xsl:value-of(select="name")
+      %span#sidebar-contents
+        %span.sidebar-header Report Contents
+        %ul#sidebar-node-list
+          %xsl:apply-templates(select="node" mode="toc")
+
+  %xsl:template(match="node" mode="toc")
+    %li.toc-item
+      %a
+        %xsl:attribute(name="href")
+          %xsl:value-of(select="concat('#',generate-id(.))")
+        %xsl:value-of(select="@name")
+      %xsl:if(test="count(node)>0 and node[1]/@internal_type!=$detail_type")
+        %ul
+          %xsl:apply-templates(mode="toc")
+
+  %xsl:template(match="datum" mode="toc")
+    -# Nothing

data/test/app_root/app/views/layouts/application.html.haml

@@ -0,0 +1,15 @@
+!!!
+%html{ "xml:lang" => "en", :lang => "en", :xmlns => "http://www.w3.org/1999/xhtml"}
+  %head
+    %meta{ :content => "text/html; charset=UTF-8", "http-equiv" => "Content-Type" }
+    %title
+      Mochigome Demo
+    = stylesheet_link_tag 'common.css'
+    = javascript_include_tag 'prototype.js', 'report_edit.js', :cache => true
+  %body
+    #flashbox
+      - [:alert, :warning, :notice].each do |key|
+        - next unless flash[key]
+        .flash{ :class => "flash_#{key}" }
+          = flash[key]
+    = yield

data/test/app_root/app/views/report/edit.html.haml

@@ -0,0 +1,56 @@
+- @possible_layer_models.each do |label, clsname|
+  :javascript
+    add_possible_layer("#{label}", "#{clsname}");
+
+- ReportController::AGGREGATE_SOURCES.each do |label, name|
+  :javascript
+    add_possible_aggregate_source("#{label}", "#{name}");
+
+- form_tag report_path, :method => :get, :id => 'report-edit-form' do
+  %div
+    %h5 Grouping
+    %ul#layer-list
+    :javascript
+      var layer_list =
+      new ReportSettingList('layer-list', 'l', function(rsl) {
+        var chosen = rsl.values_to_here();
+        return report_settings_possible_layers.reject(function(e) {
+          return chosen.any(function(c) {
+            return c == e[1];
+          })
+        })
+      }, {"label_f" : function(rsl) {
+        if (rsl.num_prev() == 0) {
+          return "Group first by"
+        } else {
+          return "Then by"
+        }
+      }, "limit": 4});
+    - @layer_names.each do |clsname|
+      :javascript
+        layer_list.preload_value("#{clsname}");
+  %div
+    %h5 Data
+    %ul#agg-list
+    :javascript
+      var agg_list = new ReportSettingList('agg-list', 'a', function(rsl) {
+        var chosen = rsl.values_to_here();
+        return report_settings_possible_aggregate_sources.reject(function(e) {
+          return chosen.any(function(c) {
+            return c == e[1];
+          })
+        })
+      }, {"limit": 2});
+    - @aggregate_source_names.each do |srcname|
+      :javascript
+        agg_list.preload_value("#{srcname}")
+  - unless @condition_params.empty?
+    %div
+      %h5 Filtering By
+      %ul#cond-list
+        - @condition_params.each_with_index do |c, i|
+          %ul= condition_desc(c)
+          - c.each do |k,v|
+            = hidden_field_tag "c[f#{i}][#{k}]", v
+
+  = submit_tag("Run Report")

data/test/app_root/app/views/report/show.html.haml

@@ -0,0 +1,6 @@
+- edit_params = params.dup
+- edit_params[:action] = "edit"
+
+#report-body
+  = link_to "Re-design this report", edit_report_path(edit_params)
+  = @report_html

data/test/app_root/config/database.yml

@@ -4,3 +4,10 @@ test:
   verbosity: quiet
   pool: 5
   timeout: 5000
+
+development:
+  adapter: sqlite3
+  database: "db/development.sqlite3"
+  verbosity: quiet
+  pool: 5
+  timeout: 5000

data/test/app_root/config/environments/development.rb

@@ -0,0 +1,17 @@
+# Settings specified here will take precedence over those in config/environment.rb
+
+# In the development environment your application's code is reloaded on
+# every request.  This slows down response time but is perfect for development
+# since you don't have to restart the webserver when you make code changes.
+config.cache_classes = false
+
+# Log error messages when you accidentally call methods on nil.
+config.whiny_nils = true
+
+# Show full error reports and disable caching
+config.action_controller.consider_all_requests_local = true
+config.action_view.debug_rjs                         = true
+config.action_controller.perform_caching             = false
+
+# Don't actually send out emails in development mode
+config.action_mailer.perform_deliveries = false

data/test/app_root/config/initializers/mime_types.rb

@@ -0,0 +1,8 @@
+# Be sure to restart your server when you modify this file.
+
+# Add new mime types for use in respond_to blocks:
+# Mime::Type.register "text/richtext", :rtf
+# Mime::Type.register_alias "text/html", :iphone
+
+Mime::Type.register "application/vnd.ms-excel", :xlsx
+Mime::Type.register "application/pdf", :pdf

data/test/app_root/config/routes.rb

@@ -1,4 +1,5 @@
 ActionController::Routing::Routes.draw do |map|
-  map.connect ':controller/:action/:id'
-  map.connect ':controller/:action/:id.:format'
+  map.report '/report', :controller => 'report', :action => 'show'
+  map.report '/report.:format', :controller => 'report', :action => 'show'
+  map.edit_report '/report/edit', :controller => 'report', :action => 'edit'
 end

data/test/app_root/lib/apache_fop.rb

@@ -0,0 +1,151 @@
+module ApacheFop
+  # Returns a closed Tempfile which contains the pdf
+  def self.generate_pdf(xsl_fo, options = {})
+    temp_files = Hash[[:fo, :pdf, :errout].map{|fn| [fn, Tempfile.new(fn.to_s)]}]
+    begin
+      temp_files[:fo].write(xsl_fo)
+      temp_files.each{|k,t| t.close}
+
+      # FIXME Should use FOP as an http service instead, it would be faster.
+      # Can I somehow forward its response directly to the client?
+      system(
+        "fop" +
+        " -fo \"#{temp_files[:fo].path}\" " +
+        " -pdf \"#{temp_files[:pdf].path}\" " +
+        " >\"#{temp_files[:errout].path}\" 2>&1"
+      )
+      fop_info = File.read(temp_files[:errout].path)
+      if fop_info =~ /SEVERE: Exception/
+        raise "Apache FOP raised an internal exception: #{fop_info}"
+      end
+
+      unless File.size?(temp_files[:pdf].path)
+        raise "Apache FOP failed to generate a PDF: #{fop_info}"
+      end
+
+      if options[:auto_print]
+        unless options[:from_url]
+          raise "The auto_print option requires the from_url option"
+        end
+        append_auto_print(temp_files[:pdf].path, options[:from_url])
+      end
+
+      return temp_files[:pdf]
+    ensure
+      [:fo, :errout].each{|sym| temp_files[sym].close!}
+    end
+  end
+
+  private
+
+  def self.append_auto_print(path, from_url)
+    # FIXME: All the parsing code below assumes single-char line endings
+    # Also assuming that the PDF doesn't already have secondary sections
+    catalog_obj = nil
+    catalog_obj_num = nil
+    catalog_obj_gen = nil
+    file_trailer = nil
+    orig_xref_pos = nil
+    orig_size = nil
+
+    File.open(path) do |fh|
+      # Extract the file trailer
+      fh.seek(-1024, IO::SEEK_END)
+      file_trailer = fh.read()
+      file_trailer.sub!(/.+^trailer/m, "trailer")
+      raise "Could not find PDF trailer section" unless file_trailer =~ /trailer/
+
+      if file_trailer =~ /^startxref\s*^(\d+)/m
+        orig_xref_pos = $1.to_i
+      else
+        raise "Could not find PDF xref position"
+      end
+
+      if file_trailer =~ /Size (\d+)/
+        orig_size = $1.to_i
+      else
+        raise "Could not find PDF obj count"
+      end
+
+      if file_trailer =~ /\/Root (\d+) (\d+) R/
+        catalog_obj_num = $1.to_i
+        catalog_obj_gen = $2.to_i
+      else
+        raise "Could not find PDF catalog obj num"
+      end
+
+      fh.seek(orig_xref_pos)
+      fh.gets # Skip the "xref" line
+      cur_num = 0
+      while fh.gets
+        if $_ =~ /^(\d+) \d+\s*$/
+          # Start of an xref section at the given number
+          cur_num = $1.to_i
+        elsif $_ =~ /^(\d+) (\d+) ([nf])\s*$/
+          offset, gen, xtype = $1.to_i, $2.to_i, $3
+          if xtype == "n" && cur_num == catalog_obj_num && gen = catalog_obj_gen
+            fh.seek(offset)
+            catalog_obj = ""
+            while fh.gets
+              catalog_obj += $_
+              break if catalog_obj =~ /\bendobj/
+            end
+            if catalog_obj !~ /\bendobj/
+              raise "No proper end found to PDF catalog section"
+            end
+            catalog_obj.sub!("endobj", "")
+            break
+          end
+          cur_num += 1
+        elsif $_ =~ /^trailer/
+          raise "Couldn't find root xref in PDF"
+        else
+          raise "Invalid xref line in PDF: '#{$_}'"
+        end
+      end
+      raise "Could not find PDF catalog section" unless catalog_obj
+    end
+
+    # Append the updated catalog section and new action objects
+    File.open(path, "a") do |fh|
+      new_catalog_pos = fh.pos
+      fh.puts catalog_obj.sub(">>", "  /OpenAction #{orig_size} 0 R\n>>")
+      fh.puts "endobj"
+
+      print_action_pos = fh.pos
+      fh.puts "#{orig_size} 0 obj"
+      fh.puts "<<"
+      fh.puts "  /Type /Action"
+      fh.puts "  /S /Named"
+      fh.puts "  /N /Print"
+      fh.puts "  /Next #{(orig_size+1).to_s} 0 R"
+      fh.puts ">>"
+      fh.puts "endobj"
+
+      uri_action_pos = fh.pos
+      fh.puts "#{orig_size+1} 0 obj"
+      fh.puts "<<"
+      fh.puts "  /Type /Action"
+      fh.puts "  /S /URI"
+      fh.puts "  /URI (#{from_url})"
+      fh.puts ">>"
+      fh.puts "endobj"
+
+      xref_pos = fh.pos
+      fh.puts "xref"
+      fh.puts "#{catalog_obj_num} 1"
+      fh.puts "%010u %05u n " % [new_catalog_pos, 0]
+      fh.puts "#{orig_size} 2"
+      fh.puts "%010u %05u n " % [print_action_pos, 0]
+      fh.puts "%010u %05u n " % [uri_action_pos, 0]
+
+      fh.puts file_trailer.sub(
+        ">>", "/Prev #{orig_xref_pos}\n>>"
+      ).sub(
+        /Size \d+/, "Size #{orig_size.to_i+2}" # 2 new objs
+      ).sub(
+        /startxref\s*^\d+/m, "startxref\n#{xref_pos}"
+      )
+    end
+  end
+end

data/test/app_root/public/index.html

@@ -0,0 +1,14 @@
+<p>
+Welcome to the Mochigome demo app (which also serves as the app used in the unit tests).
+</p>
+
+<p>
+The code in Mochigome itself is moderately clean, but this demo app's view and controller
+code is quite messy, so be careful if you decide to copy it into your own app and adapt.
+Furthermore, a lot of this demo app code will eventually be moved into some API-type stuff
+in the library proper.
+</p>
+
+<p>
+Anyways: <a href="/report">on to the demo!</a>
+</p>