use std::{
    cmp,
    fmt,
    time::Instant,
};

use crate::{FontLayoutLine, FontMatches, FontShapeLine};

/// An action to perform on a [TextBuffer]
#[derive(Clone, Copy, Debug, Eq, PartialEq)]
pub enum TextAction {
    /// Move cursor left
    Left,
    /// Move cursor right
    Right,
    /// Move cursor up
    Up,
    /// Move cursor down
    Down,
    /// Move cursor to start of line
    Home,
    /// Move cursor to end of line
    End,
    /// Scroll up one page
    PageUp,
    /// Scroll down one page
    PageDown,
    /// Insert character at cursor
    Insert(char),
    /// Create new line
    Enter,
    /// Delete text behind cursor
    Backspace,
    /// Delete text in front of cursor
    Delete,
    /// Mouse click at specified position
    Click { x: i32, y: i32 },
    /// Mouse drag to specified position
    Drag { x: i32, y: i32 },
    /// Scroll specified number of lines
    Scroll { lines: i32 },
}

/// Current cursor location
#[derive(Clone, Copy, Debug, Default, Eq, PartialEq)]
pub struct TextCursor {
    /// Text line the cursor is on
    pub line: TextLineIndex,
    /// Start of glyph (behind cursor)
    pub start: usize,
    /// End of glyph (after cursor)
    pub end: usize,
}

impl TextCursor {
    pub const fn new(line: TextLineIndex, start: usize, end: usize) -> Self {
        Self { line, start, end }
    }
}

/// Index of a text line
#[derive(Clone, Copy, Debug, Default, Eq, PartialEq, Ord, PartialOrd)]
pub struct TextLineIndex(usize);

impl TextLineIndex {
    pub fn new(index: usize) -> Self {
        Self(index)
    }

    pub fn get(&self) -> usize {
        self.0
    }
}

/// Metrics of text
#[derive(Clone, Copy, Debug, Default, Eq, PartialEq)]
pub struct TextMetrics {
    /// Font size in pixels
    pub font_size: i32,
    /// Line height in pixels
    pub line_height: i32,
}

impl TextMetrics {
    pub const fn new(font_size: i32, line_height: i32) -> Self {
        Self { font_size, line_height }
    }

    pub const fn scale(self, scale: i32) -> Self {
        Self {
            font_size: self.font_size * scale,
            line_height: self.line_height * scale,
        }
    }
}

impl fmt::Display for TextMetrics {
    fn fmt(&self, f: &mut fmt::Formatter) -> fmt::Result {
        write!(f, "{}px / {}px", self.font_size, self.line_height)
    }
}

pub struct TextBufferLine<'a> {
    text: String,
    shape_opt: Option<FontShapeLine<'a>>,
    layout_opt: Option<Vec<FontLayoutLine<'a>>>,
}

impl<'a> TextBufferLine<'a> {
    pub fn new(text: String) -> Self {
        Self {
            text,
            shape_opt: None,
            layout_opt: None,
        }
    }

    pub fn text(&self) -> &str {
        &self.text
    }

    pub fn reset(&mut self) {
        self.shape_opt = None;
        self.layout_opt = None;
    }

    pub fn shape(&mut self, font_matches: &'a FontMatches<'a>) -> &FontShapeLine<'a> {
        if self.shape_opt.is_none() {
            self.shape_opt = Some(font_matches.shape_line(&self.text));
            self.layout_opt = None;
        }
        self.shape_opt.as_ref().unwrap()
    }

    pub fn layout(&mut self, font_matches: &'a FontMatches<'a>, font_size: i32, width: i32) -> &[FontLayoutLine<'a>] {
        if self.layout_opt.is_none() {
            let mut layout = Vec::new();
            let shape = self.shape(font_matches);
            shape.layout(
                font_size,
                width,
                &mut layout,
                0,
            );
            self.layout_opt = Some(layout);
        }
        self.layout_opt.as_ref().unwrap()
    }
}

/// A buffer of text that is shaped and laid out
pub struct TextBuffer<'a> {
    font_matches: &'a FontMatches<'a>,
    lines: Vec<TextBufferLine<'a>>,
    metrics: TextMetrics,
    width: i32,
    height: i32,
    scroll: i32,
    cursor: TextCursor,
    select_opt: Option<TextCursor>,
    pub redraw: bool,
}

impl<'a> TextBuffer<'a> {
    pub fn new(
        font_matches: &'a FontMatches<'a>,
        metrics: TextMetrics,
    ) -> Self {
        let mut buffer = Self {
            font_matches,
            lines: Vec::new(),
            metrics,
            width: 0,
            height: 0,
            scroll: 0,
            cursor: TextCursor::default(),
            select_opt: None,
            redraw: false,
        };
        buffer.set_text("");
        buffer
    }

    /// Pre-shape lines in the buffer, up to `lines`, return actual number of layout lines
    pub fn shape_until(&mut self, lines: i32) -> i32 {
        let instant = Instant::now();

        let mut reshaped = 0;
        let mut total_layout = 0;
        for line in self.lines.iter_mut() {
            if total_layout >= lines {
                break;
            }

            if line.shape_opt.is_none() {
                reshaped += 1;
            }
            let layout = line.layout(
                self.font_matches,
                self.metrics.font_size,
                self.width
            );
            total_layout += layout.len() as i32;
        }

        let duration = instant.elapsed();
        if reshaped > 0 {
            log::debug!("shape_until {}: {:?}", reshaped, duration);
            self.redraw = true;
        }

        total_layout
    }

    fn shape_until_scroll(&mut self) {
        let lines = self.lines();

        let scroll_end = self.scroll + lines;
        let total_layout = self.shape_until(scroll_end);

        self.scroll = cmp::max(
            0,
            cmp::min(
                total_layout - (lines - 1),
                self.scroll,
            ),
        );
    }

    fn relayout(&mut self) {
        let instant = Instant::now();

        for line in self.lines.iter_mut() {
            if line.shape_opt.is_some() {
                line.layout_opt = None;
                line.layout(
                    self.font_matches,
                    self.metrics.font_size,
                    self.width
                );
            }
        }

        self.redraw = true;

        let duration = instant.elapsed();
        log::debug!("relayout: {:?}", duration);
    }

    /// Get the current cursor position
    pub fn cursor(&self) -> TextCursor {
        self.cursor
    }

    /// Get the current [TextMetrics]
    pub fn metrics(&self) -> TextMetrics {
        self.metrics
    }

    /// Set the current [TextMetrics]
    pub fn set_metrics(&mut self, metrics: TextMetrics) {
        if metrics != self.metrics {
            self.metrics = metrics;
            self.relayout();
            self.shape_until_scroll();
        }
    }

    /// Get the current buffer dimensions (width, height)
    pub fn size(&self) -> (i32, i32) {
        (self.width, self.height)
    }

    /// Set the current buffer dimensions
    pub fn set_size(&mut self, width: i32, height: i32) {
        if width != self.width {
            self.width = width;
            self.relayout();
            self.shape_until_scroll();
        }

        if height != self.height {
            self.height = height;
            self.shape_until_scroll();
        }
    }

    /// Get the current scroll location
    pub fn scroll(&self) -> i32 {
        self.scroll
    }

    /// Get the number of lines that can be viewed in the buffer
    pub fn lines(&self) -> i32 {
        self.height / self.metrics.line_height
    }

    /// Set text of buffer
    pub fn set_text(&mut self, text: &str) {
        self.lines.clear();
        for line in text.lines() {
            self.lines.push(TextBufferLine::new(line.to_string()));
        }
        // Make sure there is always one line
        if self.lines.is_empty() {
            self.lines.push(TextBufferLine::new(String::new()));
        }

        self.scroll = 0;
        self.cursor = TextCursor::default();
        self.select_opt = None;

        self.shape_until_scroll();
    }

    /// Get the lines of the original text
    pub fn text_lines(&self) -> &[TextBufferLine<'a>] {
        &self.lines
    }

    /// Perform a [TextAction] on the buffer
    pub fn action(&mut self, action: TextAction) {
        match action {
            TextAction::Left => {
                todo!("left");
            },
            TextAction::Right => {
                todo!("right");
            },
            TextAction::Up => {
                todo!("up");
            },
            TextAction::Down => {
                todo!("down");
            },
            TextAction::Home => {
                todo!("home");
            },
            TextAction::End => {
                todo!("end");
            }
            TextAction::PageUp => {
                self.scroll -= self.lines();
                self.redraw = true;

                self.shape_until_scroll();
            },
            TextAction::PageDown => {
                self.scroll += self.lines();
                self.redraw = true;

                self.shape_until_scroll();
            },
            TextAction::Insert(character) => if character.is_control() {
                // Filter out special chars, use TextAction instead
                log::debug!("Refusing to insert control character {:?}", character);
            } else {
                let line = &mut self.lines[self.cursor.line.get()];
                line.reset();
                line.text.insert(self.cursor.end, character);

                self.cursor.start = self.cursor.end;
                self.cursor.end += character.len_utf8();

                self.shape_until_scroll();
            },
            TextAction::Enter => {
                let next_line = self.cursor.line.get() + 1;
                self.lines.insert(next_line, TextBufferLine::new(String::new()));

                self.cursor.line = TextLineIndex::new(next_line);
                self.cursor.start = 0;
                self.cursor.end = 0;

                self.shape_until_scroll();
            },
            TextAction::Backspace => {
                if self.cursor.end > 0 {
                    let line = &mut self.lines[self.cursor.line.get()];
                    line.reset();
                    line.text.remove(self.cursor.start);

                    self.cursor.end = self.cursor.start;
                    self.cursor.start = 0;
                    for (i, _) in line.text.char_indices() {
                        if i == self.cursor.end {
                            break;
                        } else {
                            self.cursor.start = i;
                        }
                    }

                    self.shape_until_scroll();
                } else if self.cursor.line.get() > 0 {
                    let mut line_index = self.cursor.line.get();
                    let old_line = self.lines.remove(line_index);
                    line_index -= 1;

                    let line = &mut self.lines[line_index];
                    line.reset();

                    self.cursor.line = TextLineIndex::new(line_index);
                    self.cursor.end = line.text.len();
                    self.cursor.start = 0;
                    for (i, _) in line.text.char_indices() {
                        if i == self.cursor.end {
                            break;
                        } else {
                            self.cursor.start = i;
                        }
                    }

                    line.text.push_str(&old_line.text);

                    self.shape_until_scroll();
                }
            },
            TextAction::Delete => {
                todo!("delete");
            },
            TextAction::Click { x, y } => {
                self.select_opt = None;

                self.click(x, y);
            },
            TextAction::Drag { x, y } => {
                if self.select_opt.is_none() {
                    self.select_opt = Some(self.cursor);
                    self.redraw = true;
                }

                self.click(x, y);
            },
            TextAction::Scroll { lines } => {
                self.scroll += lines;
                self.redraw = true;

                self.shape_until_scroll();
            }
        }
    }

    fn click(&mut self, mouse_x: i32, mouse_y: i32) {
        todo!("click");
        /*
        let instant = Instant::now();

        let font_size = self.metrics.font_size;
        let line_height = self.metrics.line_height;

        let mut new_cursor_opt = None;

        let mut line_y = font_size;
        for (line_i, line) in self.layout_lines.iter()
            .skip(cmp::max(0, self.scroll()) as usize)
            .take(cmp::max(0, self.lines()) as usize)
            .enumerate()
        {
            if mouse_y >= line_y - font_size
            && mouse_y < line_y - font_size + line_height
            {
                let new_cursor_line = line_i + self.scroll() as usize;
                let mut new_cursor_glyph = line.glyphs.len();
                for (glyph_i, glyph) in line.glyphs.iter().enumerate() {
                    if mouse_x >= glyph.x as i32
                        && mouse_x <= (glyph.x + glyph.w) as i32
                    {
                        let right_half = mouse_x >= (glyph.x + glyph.w / 2.0) as i32;
                        if right_half == !line.rtl {
                            // If clicking on last half of glyph, move cursor past glyph
                            new_cursor_glyph = glyph_i + 1;
                        } else {
                            new_cursor_glyph = glyph_i;
                        }
                    }
                }
                new_cursor_opt = Some(TextCursor::new(new_cursor_line, new_cursor_glyph));

                if let Some(glyph) = line.glyphs.get(new_cursor_glyph) {
                    let text_line = &self.lines[line.line_i.get()].text;
                    let text_glyph = &text_line[glyph.start..glyph.end];
                    log::debug!(
                        "{}, {}: '{}' ('{}'): '{}' ({:?})",
                        new_cursor_line,
                        new_cursor_glyph,
                        glyph.font.info.family,
                        glyph.font.info.post_script_name,
                        text_glyph,
                        text_glyph
                    );
                }
            }

            line_y += line_height;
        }

        if let Some(new_cursor) = new_cursor_opt {
            if new_cursor != self.cursor {
                self.cursor = new_cursor;
                self.redraw = true;
            }
        }

        let duration = instant.elapsed();
        log::trace!("click({}, {}): {:?}", mouse_x, mouse_y, duration);
        */
    }

    /// Draw the buffer
    pub fn draw<F>(&self, color: u32, mut f: F)
        where F: FnMut(i32, i32, u32, u32, u32)
    {
        let font_size = self.metrics.font_size;
        let line_height = self.metrics.line_height;

        let mut line_y = font_size;
        let mut layout_i = 0;
        for line in self.lines.iter() {
            let layout = match line.layout_opt.as_ref() {
                Some(some) => some,
                None => {
                    return
                },
            };

            for layout_line in layout {
                let scrolled = layout_i < self.scroll;
                layout_i += 1;

                if scrolled {
                    continue;
                }

                if line_y > self.height {
                    return;
                }

                /*TODO
                // Highlight selection (TODO: HIGHLIGHT COLOR!)
                if let Some(select) = self.select_opt {
                    let (start, end) = if select.line < self.cursor.line {
                        (select, self.cursor)
                    } else if select.line > self.cursor.line {
                        (self.cursor, select)
                    } else {
                        /* select.line == self.cursor.line */
                        if select.glyph < self.cursor.glyph {
                            (select, self.cursor)
                        } else {
                            /* select.glyph >= self.cursor.glyph */
                            (self.cursor, select)
                        }
                    };

                    if line_i_scrolled >= start.line && line_i_scrolled <= end.line {
                        let start_glyph = if start.line == line_i_scrolled {
                            start.glyph
                        } else {
                            0
                        };

                        let end_glyph = if end.line == line_i_scrolled {
                            end.glyph
                        } else {
                            line.glyphs.len() + 1
                        };

                        if end_glyph > start_glyph {
                            let (left_x, right_x) = if line.rtl {
                                (
                                    line.glyphs.get(end_glyph - 1).map_or(0, |glyph| {
                                        glyph.x as i32
                                    }),
                                    line.glyphs.get(start_glyph).map_or(self.width, |glyph| {
                                        (glyph.x + glyph.w) as i32
                                    }),
                                )
                            } else {
                                (
                                    line.glyphs.get(start_glyph).map_or(0, |glyph| {
                                        glyph.x as i32
                                    }),
                                    line.glyphs.get(end_glyph - 1).map_or(self.width, |glyph| {
                                        (glyph.x + glyph.w) as i32
                                    }),
                                )
                            };

                            f(
                                left_x,
                                line_y - font_size,
                                cmp::max(0, right_x - left_x) as u32,
                                line_height as u32,
                                0x33_00_00_00 | (color & 0xFF_FF_FF)
                            );
                        }
                    }
                }

                // Draw cursor
                if self.cursor.line == line_i_scrolled {
                    if self.cursor.glyph >= line.glyphs.len() {
                        let x = match line.glyphs.last() {
                            Some(glyph) => glyph.x + glyph.w,
                            None => 0.0,
                        };

                        f(
                            x as i32,
                            line_y - font_size,
                            1,
                            line_height as u32,
                            color,
                        );
                    } else {
                        let glyph = &line.glyphs[self.cursor.glyph];
                        let x = if line.rtl {
                            (glyph.x + glyph.w) as i32
                        } else {
                            glyph.x as i32
                        };

                        f(
                            x,
                            line_y - font_size,
                            1,
                            line_height as u32,
                            color,
                        );
                    }
                }
                */

                layout_line.draw(color, |x, y, color| {
                    f(x, line_y + y, 1, 1, color);
                });

                line_y += line_height;
            }
        }
    }
}