geoblacklight 6.0.0.pre.alpha.7 → 6.0.0.pre.beta.2

data/lib/geoblacklight/configuration/leaflet_layers_config.rb

@@ -1,33 +0,0 @@
-# frozen_string_literal: true
-
-module Geoblacklight
-  class Configuration
-    class LeafletLayersConfig
-      include ActiveModel::Model
-      include ActiveModel::Attributes
-
-      attribute :detect_retina, :boolean, default: true
-
-      attr_reader :index
-
-      def initialize(attributes = {})
-        super
-        self.index = attributes[:index]
-      end
-
-      def index=(values)
-        @index = (values || {}).transform_values do |val|
-          if val.is_a?(LayerConfig)
-            val
-          else
-            LayerConfig.new(val)
-          end
-        end
-      end
-
-      def to_h
-        attributes.merge({"index" => index.transform_values(&:to_h)})
-      end
-    end
-  end
-end

data/lib/geoblacklight/configuration/leaflet_sleep_config.rb

@@ -1,20 +0,0 @@
-module Geoblacklight
-  class Configuration
-    class LeafletSleepConfig
-      include ActiveModel::Model
-      include ActiveModel::Attributes
-
-      attribute :sleep, :boolean, default: true # set to false to disable
-      attribute :margin_distance, :integer, default: 100 # set to zero / false if you want to disable this check
-      attribute :sleeptime, :integer, default: 750
-      attribute :waketime, :integer, default: 750
-      attribute :hovertowake, :boolean, default: false
-      attribute :message, :string, default: -> { I18n.t("geoblacklight.map.sleep.click_to_wake") }
-      attribute :background, :string, default: "rgba(214, 214, 214, .7)"
-
-      def to_h
-        attributes
-      end
-    end
-  end
-end

data/lib/geoblacklight/relation/ancestors.rb

@@ -1,31 +0,0 @@
-# frozen_string_literal: true
-
-module Geoblacklight
-  module Relation
-    class Ancestors
-      def initialize(id, field, repository)
-        @search_id = id
-        @field = field
-        @repository = repository
-      end
-
-      def create_search_params
-        {fq: ["{!join from=#{@field} to=#{Geoblacklight.configuration.fields.id}}#{Geoblacklight.configuration.fields.id}:#{@search_id}"],
-         fl: [Geoblacklight.configuration.fields.title, Geoblacklight.configuration.fields.id,
-           Geoblacklight.configuration.fields.resource_type]}
-      end
-
-      def execute_query
-        @repository.connection.send_and_receive(
-          @repository.blacklight_config.solr_path,
-          params: create_search_params
-        )
-      end
-
-      def results
-        response = execute_query
-        response["response"]
-      end
-    end
-  end
-end

data/lib/geoblacklight/relation/descendants.rb

@@ -1,31 +0,0 @@
-# frozen_string_literal: true
-
-module Geoblacklight
-  module Relation
-    class Descendants
-      def initialize(id, field, repository)
-        @search_id = id
-        @field = field
-        @repository = repository
-      end
-
-      def create_search_params
-        {fq: "#{@field}:#{@search_id}",
-         fl: [Geoblacklight.configuration.fields.title, Geoblacklight.configuration.fields.id,
-           Geoblacklight.configuration.fields.resource_type]}
-      end
-
-      def execute_query
-        @repository.connection.send_and_receive(
-          @repository.blacklight_config.solr_path,
-          params: create_search_params
-        )
-      end
-
-      def results
-        response = execute_query
-        response["response"]
-      end
-    end
-  end
-end

data/lib/geoblacklight/routes/wms.rb

@@ -1,15 +0,0 @@
-# frozen_string_literal: true
-
-module Geoblacklight
-  module Routes
-    class Wms
-      def initialize(defaults = {})
-        @defaults = defaults
-      end
-
-      def call(mapper, _options = {})
-        mapper.post "handle"
-      end
-    end
-  end
-end

data/lib/geoblacklight/wms_layer/feature_info_response.rb

@@ -1,37 +0,0 @@
-# frozen_string_literal: true
-
-module Geoblacklight
-  class FeatureInfoResponse
-    def initialize(response)
-      @response = response
-    end
-
-    def check
-      if error?
-        @response
-      else
-        format
-      end
-    end
-
-    def format
-      JSON.parse(@response.body)
-    rescue
-      page = Nokogiri::HTML(@response.body)
-      properties = {}
-      values = {}
-      page.css("td").each_with_index do |td, index|
-        values[index] = td.text
-      end
-      page.css("th").each_with_index do |th, index|
-        properties[th.text] = values[index] unless index >= values.keys.count
-      end
-      {features: [{properties: properties, isHTML: true}]}
-    end
-
-    def error?
-      @response[:error] ||
-        @response.headers["content-type"].slice(0, 9) == "text/xml"
-    end
-  end
-end

data/lib/geoblacklight/wms_layer.rb

@@ -1,34 +0,0 @@
-# frozen_string_literal: true
-
-module Geoblacklight
-  class WmsLayer
-    def initialize(params)
-      @params = params.to_h.merge(Geoblacklight.configuration.wms_params)
-      @response = Geoblacklight::FeatureInfoResponse.new(request_response)
-    end
-
-    def url
-      @params["URL"]
-    end
-
-    def search_params
-      @params.except("URL")
-    end
-
-    def feature_info
-      @response.check
-    end
-
-    def request_response
-      conn = Faraday.new(url: url)
-      conn.get do |request|
-        request.params = search_params
-        request.options.timeout = Geoblacklight.configuration.timeout_wms
-        request.options.open_timeout = Geoblacklight.configuration.timeout_wms
-      end
-    rescue Faraday::ConnectionFailed, Faraday::TimeoutError => error
-      Geoblacklight.logger.error error.inspect
-      {error: error.inspect}
-    end
-  end
-end

data/spec/components/geoblacklight/attribute_table_component_spec.rb

@@ -1,36 +0,0 @@
-# frozen_string_literal: true
-
-require "spec_helper"
-
-RSpec.describe Geoblacklight::AttributeTableComponent, type: :component do
-  let(:document) { instance_double(SolrDocument, inspectable?: true) }
-
-  before do
-    allow_any_instance_of(GeoblacklightHelper).to receive(:document_available?).and_return(true)
-  end
-
-  it "displays attribute table body element" do
-    render_inline(described_class.new(document:))
-    expect(page).to have_selector(".attribute-table-body")
-  end
-
-  context "when the document is not inspectable" do
-    before { allow(document).to receive(:inspectable?).and_return(false) }
-
-    it "does not render the attribute table" do
-      render_inline(described_class.new(document:))
-      expect(page).not_to have_selector(".attribute-table-body")
-    end
-  end
-
-  context "when the document is not available" do
-    before do
-      allow_any_instance_of(GeoblacklightHelper).to receive(:document_available?).and_return(false)
-    end
-
-    it "does not render the attribute table" do
-      render_inline(described_class.new(document:))
-      expect(page).not_to have_selector(".attribute-table-body")
-    end
-  end
-end

data/spec/components/geoblacklight/index_map_legend_component_spec.rb

@@ -1,29 +0,0 @@
-# frozen_string_literal: true
-
-require "spec_helper"
-
-RSpec.describe Geoblacklight::IndexMapLegendComponent, type: :component do
-  let(:document) { instance_double(SolrDocument) }
-
-  context "when the document has an index map" do
-    before do
-      allow(document).to receive_message_chain(:item_viewer, :index_map).and_return(true)
-    end
-
-    it "renders the legend" do
-      render_inline(described_class.new(document:))
-      expect(page.text.strip).to include "Green tile indicates Map held by collection"
-    end
-  end
-
-  context "when the document does not have an index map" do
-    before do
-      allow(document).to receive_message_chain(:item_viewer, :index_map).and_return(false)
-    end
-
-    it "does not render" do
-      render_inline(described_class.new(document:))
-      expect(page.text.strip).to be_empty
-    end
-  end
-end

data/spec/components/geoblacklight/viewer_help_text_component_spec.rb

@@ -1,27 +0,0 @@
-# frozen_string_literal: true
-
-require "spec_helper"
-
-RSpec.describe Geoblacklight::ViewerHelpTextComponent, type: :component do
-  let(:feature) { "viewer_protocol" }
-  let(:key) { "wms" }
-
-  context "when the help text exists for an existing viewer protocol" do
-    it "shows correct help text title for wms" do
-      render_inline(described_class.new(feature, key))
-      expect(page).to have_css(".help-text", count: 1)
-      expect(page).to have_text(I18n.t("geoblacklight.help_text.viewer_protocol.wms.title"))
-    end
-  end
-
-  context "when the help text is missing for a viewer protocol that exists" do
-    before do
-      allow(I18n).to receive(:exists?).and_return(false)
-    end
-
-    it "shows missing help text class" do
-      render_inline(described_class.new(feature, key))
-      expect(page).to have_css(".translation-missing")
-    end
-  end
-end

data/spec/controllers/wms_controller_spec.rb

@@ -1,34 +0,0 @@
-# frozen_string_literal: true
-
-require "spec_helper"
-
-RSpec.describe WmsController, type: :controller do
-  let(:wms_layer) { instance_double(Geoblacklight::WmsLayer) }
-  let(:feature_info) { {values: ["fid", "layer:example"]} }
-  let(:params) do
-    {"format" => "json", "URL" => "http://www.example.com/", "LAYERS" => "layer:example",
-     "BBOX" => "-74, 40, -68, 43", "WIDTH" => "500", "HEIGHT" => "400",
-     "QUERY_LAYERS" => "layer:example", "X" => "277", "Y" => "195"}
-  end
-
-  before do
-    allow(Geoblacklight::WmsLayer).to receive(:new).and_return(wms_layer)
-    allow(wms_layer).to receive(:feature_info).and_return(feature_info)
-  end
-
-  describe "#handle" do
-    it "returns feature info as json" do
-      get :handle, params: params
-      expect(response.body).to eq(feature_info.to_json)
-    end
-  end
-
-  describe "#wms_params" do
-    let(:wms_params) { controller.instance_eval { wms_params } }
-
-    it "returns only permitted params" do
-      get :handle, params: params
-      expect(wms_params.to_h).to eq(params)
-    end
-  end
-end

data/spec/features/configurable_basemap_spec.rb

@@ -1,40 +0,0 @@
-# frozen_string_literal: true
-
-require "spec_helper"
-
-RSpec.feature "Configurable basemap", js: true do
-  scenario "defaults to positron" do
-    visit root_path
-    expect(page).to have_css "img[src*='carto']", visible: :all
-  end
-
-  feature "without provided basemap config" do
-    before do
-      Geoblacklight.configuration.basemap_provider = nil
-    end
-    scenario "has Carto map" do
-      visit root_path
-      expect(page).to have_css "img[src*='carto']", visible: :all
-    end
-  end
-
-  feature "using dark matter" do
-    before do
-      Geoblacklight.configuration.basemap_provider = "dark_matter"
-    end
-    scenario "has dark matter map" do
-      visit root_path
-      expect(page).to have_css "img[src*='dark_all']", visible: :all
-    end
-  end
-
-  feature "using openstreetmap hot" do
-    before do
-      Geoblacklight.configuration.basemap_provider = "openstreetmap_hot"
-    end
-    scenario "has openstreetmap hot map" do
-      visit root_path
-      expect(page).to have_css "img[src*='hot']", visible: :all
-    end
-  end
-end

data/spec/features/full_screen_control_spec.rb

@@ -1,15 +0,0 @@
-# frozen_string_literal: true
-
-require "spec_helper"
-
-RSpec.feature "IIIF fullscreen control", js: true do
-  scenario "IIIF layer should have full screen control" do
-    visit solr_document_path("princeton-sx61dn82p")
-    expect(page).to have_button("Full screen")
-  end
-
-  scenario "IIIF image should have full screen control" do
-    visit solr_document_path("princeton-02870w62c")
-    expect(page).to have_css("img[alt='Toggle full page']")
-  end
-end

data/spec/features/layer_inspection_spec.rb

@@ -1,12 +0,0 @@
-# frozen_string_literal: true
-
-require "spec_helper"
-
-RSpec.feature "Layer inspection", js: true do
-  scenario "clicking map should trigger inspection" do
-    visit solr_document_path("tufts-cambridgegrid100-04")
-    expect(page).to have_css("th", text: "Attribute")
-    find("#leaflet-viewer").click
-    expect(page).not_to have_css("td.default-text")
-  end
-end

data/spec/features/layer_opacity_spec.rb

@@ -1,16 +0,0 @@
-# frozen_string_literal: true
-
-require "spec_helper"
-
-RSpec.feature "Layer opacity", js: true do
-  scenario "WMS layer should have opacity control" do
-    visit solr_document_path("mit-f6rqs4ucovjk2")
-    expect(page).to have_css("div.opacity-text", text: "75%")
-    expect(page.all("div.leaflet-layer")[1][:style]).to match(/opacity: 0.75;/)
-  end
-
-  scenario "IIIF layer should not have opacity control" do
-    visit solr_document_path("princeton-02870w62c")
-    expect(page).not_to have_css("div.opacity-text", text: "75%")
-  end
-end

data/spec/fixtures/solr_documents/harvard_raster.json

@@ -1,39 +0,0 @@
-{
-  "dct_title_s": "Saint Petersburg Region, Russia, 1834 (Raster Image)",
-  "dct_alternative_sm": ["harvard_raster"],
-  "dct_description_sm": [
-    "This layer is a georeferenced raster image of the historic paper map entitled: [Karta mesta zanimaemago Sanktpeterburgom : v tom vide v kakom onoe nakhodilos' za god do osnovaniia goroda; sostavlena dlia panoramy S. Peterburga, 1834]. It was published in 1834. Scale [ca. 1:76,000]. Covers Saint Petersburg Region, Russia. Map in Russian and Swedish.\\n\\nThe image inside the map neatline is georeferenced to the surface of the earth and fit to the 'Pulkovo 1995 Gauss Kruger Zone 6N' coordinate system. All map collar and inset information is also available as part of the raster image, including any inset maps, profiles, statistical tables, directories, text, illustrations, index maps, legends, or other information associated with the principal map.\\n\\nThis map shows features such as roads, drainage, built-up areas and selected buildings, ground cover, and more. Relief is shown by hachures. Depths shown by soundings. Includes insets: [Retusari island] -- [Sluselberg]. \\n\\nThis layer is part of a selection of digitally scanned and georeferenced historic maps from The Harvard Map Collection as part of the Imaging the Urban Environment project.  Maps selected for this project represent major urban areas and cities of the world, at various time periods.  These maps typically portray both natural and manmade features at a large scale. The selection represents a range of regions, originators, ground condition dates, scales, and purposes."
-  ],
-  "dct_language_sm": ["eng"],
-  "dct_publisher_sm": ["Harvard Map Collection, Harvard College Library"],
-  "schema_provider_s": "Harvard",
-  "gbl_resourceClass_sm": ["Datasets"],
-  "gbl_resourceType_sm": ["Raster data"],
-  "dct_subject_sm": [
-    "Human settlements",
-    "Cities and towns",
-    "Land use",
-    "Landforms",
-    "Infrastructure",
-    "Economics",
-    "Bodies of water"
-  ],
-  "dcat_theme_sm": ["Imagery", "Transportation"],
-  "dcat_keyword_sm": ["GBL Fixture records"],
-  "dct_temporal_sm": ["1834"],
-  "dct_issued_s": "1905-06-22",
-  "gbl_indexYear_im": [1834],
-  "gbl_dateRange_drsim": ["[1834 TO 1834]"],
-  "dct_spatial_sm": ["Russia Saint Petersburg"],
-  "locn_geometry": "ENVELOPE(30.013108,30.875309,60.041712,59.669749)",
-  "dcat_bbox": "ENVELOPE(30.013108,30.875309,60.041712,59.669749)",
-  "dcat_centroid": "59.8557305,30.444208500000002",
-  "dct_accessRights_s": "Public",
-  "dct_format_s": "GeoTIFF",
-  "gbl_wxsIdentifier_s": "cite:G7064_S2_1834_K3",
-  "dct_references_s": "{\"http://www.opengis.net/def/serviceType/ogc/wcs\":\"http://pelham.lib.harvard.edu:8090/geoserver/wcs\",\"http://www.opengis.net/def/serviceType/ogc/wms\":\"http://pelham.lib.harvard.edu:8090/geoserver/wms\",\"http://www.opengis.net/cat/csw/csdgm\":\"https://raw.githubusercontent.com/OpenGeoMetadata/edu.harvard/master/217/121/227/77/fgdc.xml\"}",
-  "id": "harvard-g7064-s2-1834-k3",
-  "dct_identifier_sm": ["urn:hul.harvard.edu:HARVARD.SDE2.G7064_S2_1834_K3"],
-  "gbl_mdModified_dt": "2021-06-01T22:14:15Z",
-  "gbl_mdVersion_s": "Aardvark"
-}

data/spec/fixtures/solr_documents/public_polygon_mit.json

@@ -1,23 +0,0 @@
-{
-  "dct_title_s": "Massachusetts (ZCTA - 5 digit zip code tabulation area, 2000)",
-  "dct_alternative_sm": ["public_polygon_mit"],
-  "dct_description_sm": ["Polygon shapefile with WMS and WFS"],
-  "dct_creator_sm": ["United States. Bureau of the Census"],
-  "dct_publisher_sm": ["United States. Bureau of the Census"],
-  "schema_provider_s": "MIT",
-  "gbl_resourceClass_sm": ["Maps"],
-  "gbl_resourceType_sm": ["Polygon data"],
-  "dct_subject_sm": ["Zip codes", "Census data", "Demographic surveys", "Population"],
-  "dcat_keyword_sm": ["GBL Fixture records"],
-  "dct_spatial_sm": ["Massachusetts"],
-  "locn_geometry": "ENVELOPE(-73.533237,-69.898565,42.888068,41.230345)",
-  "dcat_bbox": "ENVELOPE(-73.533237,-69.898565,42.888068,41.230345)",
-  "dcat_centroid": "42.0592065,-71.715901",
-  "dct_accessRights_s": "Public",
-  "dct_format_s": "Shapefile",
-  "gbl_wxsIdentifier_s": "mit:SDE_DATA_US_MA_E25ZCTA5DCT_2000",
-  "dct_references_s": "{\"http://www.opengis.net/def/serviceType/ogc/wfs\":\"https://geodata.mit.edu/geoserver/wfs\",\"http://www.opengis.net/def/serviceType/ogc/wms\":\"https://geodata.mit.edu/geoserver/wms\"}",
-  "id": "mit-f6rqs4ucovjk2",
-  "gbl_mdModified_dt": "2021-06-11T18:42:45Z",
-  "gbl_mdVersion_s": "Aardvark"
-}

data/spec/fixtures/solr_documents/uva_slug_colon.json

@@ -1,29 +0,0 @@
-{
-  "dct_title_s": "Norfolk 2005 Police Stations",
-  "dct_alternative_sm": ["uva_slug_colon"],
-  "dct_description_sm": [
-    "Multipoint dataset with WMS and WFS and a colon in the slug and layer ID. ",
-    "Police stations for Norfolk, Virginia."
-  ],
-  "dct_language_sm": ["eng"],
-  "schema_provider_s": "UVa",
-  "gbl_resourceClass_sm": ["Datasets"],
-  "gbl_resourceType_sm": ["Multipoint data"],
-  "dcat_theme_sm": ["Location"],
-  "dcat_keyword_sm": ["GBL Fixture records"],
-  "dct_temporal_sm": ["2015-2018"],
-  "dct_issued_s": "2008-10-17",
-  "gbl_indexYear_im": [2015],
-  "gbl_dateRange_drsim": ["[2015 TO 2018]"],
-  "locn_geometry": "ENVELOPE(-76.346,-76.176,36.971,36.82)",
-  "dcat_bbox": "ENVELOPE(-76.346,-76.176,36.971,36.82)",
-  "dcat_centroid": "36.8955,-76.261",
-  "dct_accessRights_s": "Public",
-  "dct_format_s": "Shapefile",
-  "gbl_wxsIdentifier_s": "Norfolk:police_point",
-  "dct_references_s": "{\"http://schema.org/downloadUrl\":\"https://gis.lib.virginia.edu/geoserver/ows?service=WFS\\\\u0026typeName=Norfolk:police_point\\\\u0026request=GetFeature\\\\u0026outputFormat=shape-zip\",\"http://www.isotc211.org/schemas/2005/gmd/\":\"https://opengeometadata.github.io/edu.virginia/382/13/iso19139.xml\",\"http://www.opengis.net/def/serviceType/ogc/wfs\":\"http://gis.lib.virginia.edu/geoserver/wfs\",\"http://www.opengis.net/def/serviceType/ogc/wms\":\"http://www.opengis.net/def/serviceType/ogc/wms:http://gis.lib.virginia.edu/geoserver/wms\"}",
-  "id": "uva-Norfolk:police_point",
-  "dct_identifier_sm": ["315fc8ee-3b57-4ebb-aa24-4300f1c42dc9-13"],
-  "gbl_mdModified_dt": "2021-06-01T22:14:17Z",
-  "gbl_mdVersion_s": "Aardvark"
-}

data/spec/javascripts/geoblacklight_spec.js

@@ -1,11 +0,0 @@
-describe("GeoBlacklight", function () {
-  describe("loads and makes available libraries", function () {
-    it("Leaflet is defined", function () {
-      expect(L).toBeDefined()
-    })
-
-    it("History.js is defined", function () {
-      expect(History).toBeDefined()
-    })
-  })
-})

data/spec/lib/geoblacklight/configuration/layer_config_spec.rb

@@ -1,71 +0,0 @@
-# frozen_string_literal: true
-
-require "spec_helper"
-
-RSpec.describe Geoblacklight::Configuration::LayerConfig do
-  subject(:config) { described_class.new(attributes) }
-
-  let(:attributes) { {} }
-
-  describe "defaults" do
-    it "has weight defaulting to 1" do
-      expect(config.weight).to eq(1)
-    end
-
-    it "has radius defaulting to 4" do
-      expect(config.radius).to eq(4)
-    end
-
-    it "has color defaulting to nil" do
-      expect(config.color).to be_nil
-    end
-
-    it "has sr_color_name defaulting to nil" do
-      expect(config.sr_color_name).to be_nil
-    end
-  end
-
-  describe "with attributes" do
-    let(:attributes) { {color: "#FF0000", sr_color_name: "Red", weight: 2, radius: 5} }
-
-    it "sets the passed-in attributes" do
-      expect(config.color).to eq("#FF0000")
-      expect(config.sr_color_name).to eq("Red")
-      expect(config.weight).to eq(2)
-      expect(config.radius).to eq(5)
-    end
-  end
-
-  describe "hash-like access []" do
-    let(:attributes) { {color: "#00FF00", sr_color_name: "Green"} }
-
-    it "supports key lookup with symbols" do
-      expect(config[:color]).to eq("#00FF00")
-      expect(config[:weight]).to eq(1)
-      expect(config[:sr_color_name]).to eq("Green")
-    end
-
-    it "supports key lookup with strings" do
-      expect(config["color"]).to eq("#00FF00")
-      expect(config["weight"]).to eq(1)
-      expect(config["sr_color_name"]).to eq("Green")
-    end
-
-    it "returns nil for non-existent attributes" do
-      expect(config[:foo]).to be_nil
-    end
-  end
-
-  describe "#to_h" do
-    let(:attributes) { {color: "#FFFF00", sr_color_name: "Yellow"} }
-
-    it "returns symbolized attributes hash" do
-      expect(config.to_h).to eq(
-        color: "#FFFF00",
-        weight: 1,
-        radius: 4,
-        sr_color_name: "Yellow"
-      )
-    end
-  end
-end