use crate::Transformation;

use iced_graphics::font;

use glow_glyph::ab_glyph;
use std::{cell::RefCell, collections::HashMap};

pub use iced_native::text::Hit;

#[derive(Debug)]
pub struct Pipeline {
    draw_brush: RefCell<glow_glyph::GlyphBrush>,
    draw_font_map: RefCell<HashMap<String, glow_glyph::FontId>>,
    measure_brush: RefCell<glyph_brush::GlyphBrush<()>>,
}

impl Pipeline {
    pub fn new(
        gl: &glow::Context,
        default_font: Option<&[u8]>,
        multithreading: bool,
    ) -> Self {
        let default_font = default_font.map(|slice| slice.to_vec());

        // TODO: Font customization
        #[cfg(feature = "default_system_font")]
        let default_font = {
            default_font.or_else(|| {
                font::Source::new()
                    .load(&[font::Family::SansSerif, font::Family::Serif])
                    .ok()
            })
        };

        let default_font =
            default_font.unwrap_or_else(|| font::FALLBACK.to_vec());

        let font = ab_glyph::FontArc::try_from_vec(default_font)
            .unwrap_or_else(|_| {
                log::warn!(
                    "System font failed to load. Falling back to \
                    embedded font..."
                );

                ab_glyph::FontArc::try_from_slice(font::FALLBACK)
                    .expect("Load fallback font")
            });

        let draw_brush_builder =
            glow_glyph::GlyphBrushBuilder::using_font(font.clone())
                .initial_cache_size((2048, 2048))
                .draw_cache_multithread(multithreading);

        #[cfg(target_arch = "wasm32")]
        let draw_brush_builder = draw_brush_builder.draw_cache_align_4x4(true);

        let draw_brush = draw_brush_builder.build(&gl);

        let measure_brush =
            glyph_brush::GlyphBrushBuilder::using_font(font).build();

        Pipeline {
            draw_brush: RefCell::new(draw_brush),
            draw_font_map: RefCell::new(HashMap::new()),
            measure_brush: RefCell::new(measure_brush),
        }
    }

    pub fn queue(&mut self, section: glow_glyph::Section<'_>) {
        self.draw_brush.borrow_mut().queue(section);
    }

    pub fn draw_queued(
        &mut self,
        gl: &glow::Context,
        transformation: Transformation,
        region: glow_glyph::Region,
    ) {
        self.draw_brush
            .borrow_mut()
            .draw_queued_with_transform_and_scissoring(
                gl,
                transformation.into(),
                region,
            )
            .expect("Draw text");
    }

    pub fn measure(
        &self,
        content: &str,
        size: f32,
        font: iced_native::Font,
        bounds: iced_native::Size,
    ) -> (f32, f32) {
        use glow_glyph::GlyphCruncher;

        let glow_glyph::FontId(font_id) = self.find_font(font);

        let section = glow_glyph::Section {
            bounds: (bounds.width, bounds.height),
            text: vec![glow_glyph::Text {
                text: content,
                scale: size.into(),
                font_id: glow_glyph::FontId(font_id),
                extra: glow_glyph::Extra::default(),
            }],
            ..Default::default()
        };

        if let Some(bounds) =
            self.measure_brush.borrow_mut().glyph_bounds(section)
        {
            (bounds.width().ceil(), bounds.height().ceil())
        } else {
            (0.0, 0.0)
        }
    }

    pub fn hit_test(
        &self,
        content: &str,
        size: f32,
        font: iced_native::Font,
        bounds: iced_native::Size,
        point: iced_native::Point,
        nearest_only: bool,
    ) -> Option<Hit> {
        use glow_glyph::GlyphCruncher;

        let glow_glyph::FontId(font_id) = self.find_font(font);

        let section = glow_glyph::Section {
            bounds: (bounds.width, bounds.height),
            text: vec![glow_glyph::Text {
                text: content,
                scale: size.into(),
                font_id: glow_glyph::FontId(font_id),
                extra: glow_glyph::Extra::default(),
            }],
            ..Default::default()
        };

        let mut mb = self.measure_brush.borrow_mut();

        // The underlying type is FontArc, so clones are cheap.
        use ab_glyph::{Font, ScaleFont};
        let font = mb.fonts()[font_id].clone().into_scaled(size);

        // Implements an iterator over the glyph bounding boxes.
        let bounds = mb.glyphs(section).map(
            |glow_glyph::SectionGlyph {
                 byte_index, glyph, ..
             }| {
                (
                    *byte_index,
                    iced_native::Rectangle::new(
                        iced_native::Point::new(
                            glyph.position.x - font.h_side_bearing(glyph.id),
                            glyph.position.y - font.ascent(),
                        ),
                        iced_native::Size::new(
                            font.h_advance(glyph.id),
                            font.ascent() - font.descent(),
                        ),
                    ),
                )
            },
        );

        // Implements computation of the character index based on the byte index
        // within the input string.
        let char_index = |byte_index| {
            let mut b_count = 0;
            for (i, utf8_len) in
                content.chars().map(|c| c.len_utf8()).enumerate()
            {
                if byte_index < (b_count + utf8_len) {
                    return i;
                }
                b_count += utf8_len;
            }
            return byte_index;
        };

        if !nearest_only {
            for (idx, bounds) in bounds.clone() {
                if bounds.contains(point) {
                    return Some(Hit::CharOffset(char_index(idx)));
                }
            }
        }

        let nearest = bounds
            .map(|(index, bounds)| (index, bounds.center()))
            .min_by(|(_, center_a), (_, center_b)| {
                center_a
                    .distance(point)
                    .partial_cmp(&center_b.distance(point))
                    .unwrap_or(std::cmp::Ordering::Greater)
            });

        nearest.map(|(idx, center)| {
            Hit::NearestCharOffset(char_index(idx), point - center)
        })
    }

    pub fn trim_measurement_cache(&mut self) {
        // TODO: We should probably use a `GlyphCalculator` for this. However,
        // it uses a lifetimed `GlyphCalculatorGuard` with side-effects on drop.
        // This makes stuff quite inconvenient. A manual method for trimming the
        // cache would make our lives easier.
        loop {
            let action = self
                .measure_brush
                .borrow_mut()
                .process_queued(|_, _| {}, |_| {});

            match action {
                Ok(_) => break,
                Err(glyph_brush::BrushError::TextureTooSmall { suggested }) => {
                    let (width, height) = suggested;

                    self.measure_brush
                        .borrow_mut()
                        .resize_texture(width, height);
                }
            }
        }
    }

    pub fn find_font(&self, font: iced_native::Font) -> glow_glyph::FontId {
        match font {
            iced_native::Font::Default => glow_glyph::FontId(0),
            iced_native::Font::External { name, bytes } => {
                if let Some(font_id) = self.draw_font_map.borrow().get(name) {
                    return *font_id;
                }

                let font = ab_glyph::FontArc::try_from_slice(bytes)
                    .expect("Load font");

                let _ = self.measure_brush.borrow_mut().add_font(font.clone());

                let font_id = self.draw_brush.borrow_mut().add_font(font);

                let _ = self
                    .draw_font_map
                    .borrow_mut()
                    .insert(String::from(name), font_id);

                font_id
            }
        }
    }
}