module Lookbook
  class PreviewExample < Entity
    attr_reader :name, :preview
    delegate :position, :group, :notes, :hidden?, :source, :tags, :tag, to: :@example_inspector

    def initialize(name, preview, code_object)
      @name = name
      @preview = preview
      @example_inspector = SourceInspector.new(code_object, eval_scope: @preview.preview_class.new)
      super("#{@preview.path}/#{name}")
    end

    def id
      @example_inspector&.id || generate_id(@preview.id, name)
    end

    def url_path
      lookbook_inspect_path lookup_path
    end

    def label
      @example_inspector.label.presence || name.titleize
    end

    def display_options
      @preview.display_options.merge(@example_inspector.display_options)
    end

    def method_source
      @example_inspector.source.sub(/^def \w+\s?(\([^)]+\))?/m, "").split("\n")[0..-2].join("\n").strip_heredoc.strip
    end

    def lang
      Lookbook::Lang.find(:ruby)
    end

    def template_source(template_path)
      source_path = full_template_path(template_path)
      source_path ? File.read(source_path) : nil
    end

    def template_lang(template_path)
      Lookbook::Lang.guess(full_template_path(template_path)) || Lookbook::Lang.find(:html)
    end

    def type
      :example
    end

    def matchers
      normalize_matchers(@preview.label, label)
    end

    def hierarchy_depth
      @preview.hierarchy_depth + 1
    end

    protected

    def strip_ext(path)
      path.sub(/\..*$/, "")
    end

    def full_template_path(template_path)
      template_path = strip_ext template_path
      base_path = preview_paths.detect do |p|
        Dir["#{p}/#{template_path}.html.*"].first
      end
      path = Dir["#{base_path}/#{template_path}.html.*"].first
      path ? Pathname.new(path) : nil
    end

    def preview_paths
      PathUtils.normalize_all(Lookbook.config.preview_paths)
    end

    class << self
      def all
        Preview.all.map { |preview| preview.examples }.flatten
      end

      def find(path)
        all.find { |p| p.lookup_path == path }
      end

      def exists?(path)
        !!find(path)
      end
    end

    alias_method :lookup_path, :path
  end
end