www/test/test.cgi

#!/usr/bin/env ruby
PAGETITLE = "Example Whimsy Script With Styles" # Wvisible:tools Note: PAGETITLE must be double quoted

$LOAD_PATH.unshift File.realpath(File.expand_path('../../../lib', __FILE__))
require 'json'
require 'whimsy/asf'
require 'wunderbar'
require 'wunderbar/bootstrap'

def get_data(defaults: {})
  return {
    "Sample data processing here" => "row 1",
    "This could come from a file" => "row B"
  }
end

_html do
  _body? do
    _whimsy_body(
      title: PAGETITLE,
      subtitle: 'About This Example Script',
      relatedtitle: 'More Useful Links',
      related: {
        "/committers/tools" => "Whimsy Tool Listing",
        "https://incubator.apache.org/images/incubator_feather_egg_logo_sm.png" => "Incubator Logo, to show that graphics can appear",
        "https://community.apache.org/" => "Get Community Help",
        "https://github.com/apache/whimsy/blob/master/www#{ENV['SCRIPT_NAME']}" => "See This Source Code"
      },
      helpblock: -> {
        _p "This www/test/test.cgi script shows a canonical way to write a simple whimsy tool that processes data and then displays it."
        _p %{
          This helpblock appears at top left, and should explain to an end user what this script does for the user and why they might be interested.
          Any related whimsy or other (projects.a.o, etc.) links should be in the related: listing on the top right to help users find other useful things.
          This provides a consistent user experience.
        }
      },
      breadcrumbs: {
        dataflow: '/test/dataflow.cgi',
        testscript: '/test/test.cgi'
      }
    ) do
      # IF YOUR SCRIPT EMITS A LARGE TABLE
      _whimsy_panel_table(
        title: "Data Table H2 Title Goes Here",
        helpblock: -> {
          _p "If your script displays a sizeable table(s) of data, then use this area to provide a Key: to the data."
        }
      ) do
        # Gather or process your data **here**, so if an error is raised, the _body? 
        #   scope will trap it - and will then display the above help information 
        #   to the user before emitting a polite error traceback.
        datums = get_data()
        _table.table.table_hover.table_striped do
          _thead_ do
            _tr do
              _th 'Row Number'
              _th 'Column Two'
            end
            _tbody do
              datums.each do | key, val |
                _tr_ do
                  _td do
                    _ key
                  end
                  _td do
                    _ val
                  end
                end
              end
            end
          end
        end
      end
      # IF YOUR SCRIPT ONLY EMITS SIMPLE DATA
      _h2 "Simple Data Can Just Use A List"
      _ul do
        [1,2,3].each do |row|
          _li "This is row number #{row}."
        end
      end
    end
  end
end