use std::borrow::Cow;

/// The mappings defined in this file where created from reading the alacritty source
use alacritty_terminal::term::TermMode;
use gpui::Keystroke;

#[derive(Debug, PartialEq, Eq)]
enum AlacModifiers {
    None,
    Alt,
    Ctrl,
    Shift,
    CtrlShift,
    Other,
}

impl AlacModifiers {
    fn new(ks: &Keystroke) -> Self {
        match (
            ks.modifiers.alt,
            ks.modifiers.control,
            ks.modifiers.shift,
            ks.modifiers.platform,
        ) {
            (false, false, false, false) => AlacModifiers::None,
            (true, false, false, false) => AlacModifiers::Alt,
            (false, true, false, false) => AlacModifiers::Ctrl,
            (false, false, true, false) => AlacModifiers::Shift,
            (false, true, true, false) => AlacModifiers::CtrlShift,
            _ => AlacModifiers::Other,
        }
    }

    fn any(&self) -> bool {
        match &self {
            AlacModifiers::None => false,
            AlacModifiers::Alt => true,
            AlacModifiers::Ctrl => true,
            AlacModifiers::Shift => true,
            AlacModifiers::CtrlShift => true,
            AlacModifiers::Other => true,
        }
    }
}

pub fn to_esc_str(
    keystroke: &Keystroke,
    mode: &TermMode,
    option_as_meta: bool,
) -> Option<Cow<'static, str>> {
    let modifiers = AlacModifiers::new(keystroke);

    // Manual Bindings including modifiers
    let manual_esc_str: Option<&'static str> = match (keystroke.key.as_ref(), &modifiers) {
        //Basic special keys
        ("tab", AlacModifiers::None) => Some("\x09"),
        ("escape", AlacModifiers::None) => Some("\x1b"),
        ("enter", AlacModifiers::None) => Some("\x0d"),
        ("enter", AlacModifiers::Shift) => Some("\x0a"),
        ("enter", AlacModifiers::Alt) => Some("\x1b\x0d"),
        ("backspace", AlacModifiers::None) => Some("\x7f"),
        //Interesting escape codes
        ("tab", AlacModifiers::Shift) => Some("\x1b[Z"),
        ("backspace", AlacModifiers::Ctrl) => Some("\x08"),
        ("backspace", AlacModifiers::Alt) => Some("\x1b\x7f"),
        ("backspace", AlacModifiers::Shift) => Some("\x7f"),
        ("space", AlacModifiers::Ctrl) => Some("\x00"),
        ("home", AlacModifiers::None) if mode.contains(TermMode::APP_CURSOR) => Some("\x1bOH"),
        ("home", AlacModifiers::None) if !mode.contains(TermMode::APP_CURSOR) => Some("\x1b[H"),
        ("end", AlacModifiers::None) if mode.contains(TermMode::APP_CURSOR) => Some("\x1bOF"),
        ("end", AlacModifiers::None) if !mode.contains(TermMode::APP_CURSOR) => Some("\x1b[F"),
        ("up", AlacModifiers::None) if mode.contains(TermMode::APP_CURSOR) => Some("\x1bOA"),
        ("up", AlacModifiers::None) if !mode.contains(TermMode::APP_CURSOR) => Some("\x1b[A"),
        ("down", AlacModifiers::None) if mode.contains(TermMode::APP_CURSOR) => Some("\x1bOB"),
        ("down", AlacModifiers::None) if !mode.contains(TermMode::APP_CURSOR) => Some("\x1b[B"),
        ("right", AlacModifiers::None) if mode.contains(TermMode::APP_CURSOR) => Some("\x1bOC"),
        ("right", AlacModifiers::None) if !mode.contains(TermMode::APP_CURSOR) => Some("\x1b[C"),
        ("left", AlacModifiers::None) if mode.contains(TermMode::APP_CURSOR) => Some("\x1bOD"),
        ("left", AlacModifiers::None) if !mode.contains(TermMode::APP_CURSOR) => Some("\x1b[D"),
        ("back", AlacModifiers::None) => Some("\x7f"),
        ("insert", AlacModifiers::None) => Some("\x1b[2~"),
        ("delete", AlacModifiers::None) => Some("\x1b[3~"),
        ("pageup", AlacModifiers::None) => Some("\x1b[5~"),
        ("pagedown", AlacModifiers::None) => Some("\x1b[6~"),
        ("f1", AlacModifiers::None) => Some("\x1bOP"),
        ("f2", AlacModifiers::None) => Some("\x1bOQ"),
        ("f3", AlacModifiers::None) => Some("\x1bOR"),
        ("f4", AlacModifiers::None) => Some("\x1bOS"),
        ("f5", AlacModifiers::None) => Some("\x1b[15~"),
        ("f6", AlacModifiers::None) => Some("\x1b[17~"),
        ("f7", AlacModifiers::None) => Some("\x1b[18~"),
        ("f8", AlacModifiers::None) => Some("\x1b[19~"),
        ("f9", AlacModifiers::None) => Some("\x1b[20~"),
        ("f10", AlacModifiers::None) => Some("\x1b[21~"),
        ("f11", AlacModifiers::None) => Some("\x1b[23~"),
        ("f12", AlacModifiers::None) => Some("\x1b[24~"),
        ("f13", AlacModifiers::None) => Some("\x1b[25~"),
        ("f14", AlacModifiers::None) => Some("\x1b[26~"),
        ("f15", AlacModifiers::None) => Some("\x1b[28~"),
        ("f16", AlacModifiers::None) => Some("\x1b[29~"),
        ("f17", AlacModifiers::None) => Some("\x1b[31~"),
        ("f18", AlacModifiers::None) => Some("\x1b[32~"),
        ("f19", AlacModifiers::None) => Some("\x1b[33~"),
        ("f20", AlacModifiers::None) => Some("\x1b[34~"),
        // NumpadEnter, Action::Esc("\n".into());
        //Mappings for caret notation keys
        ("a", AlacModifiers::Ctrl) => Some("\x01"), //1
        ("A", AlacModifiers::CtrlShift) => Some("\x01"), //1
        ("b", AlacModifiers::Ctrl) => Some("\x02"), //2
        ("B", AlacModifiers::CtrlShift) => Some("\x02"), //2
        ("c", AlacModifiers::Ctrl) => Some("\x03"), //3
        ("C", AlacModifiers::CtrlShift) => Some("\x03"), //3
        ("d", AlacModifiers::Ctrl) => Some("\x04"), //4
        ("D", AlacModifiers::CtrlShift) => Some("\x04"), //4
        ("e", AlacModifiers::Ctrl) => Some("\x05"), //5
        ("E", AlacModifiers::CtrlShift) => Some("\x05"), //5
        ("f", AlacModifiers::Ctrl) => Some("\x06"), //6
        ("F", AlacModifiers::CtrlShift) => Some("\x06"), //6
        ("g", AlacModifiers::Ctrl) => Some("\x07"), //7
        ("G", AlacModifiers::CtrlShift) => Some("\x07"), //7
        ("h", AlacModifiers::Ctrl) => Some("\x08"), //8
        ("H", AlacModifiers::CtrlShift) => Some("\x08"), //8
        ("i", AlacModifiers::Ctrl) => Some("\x09"), //9
        ("I", AlacModifiers::CtrlShift) => Some("\x09"), //9
        ("j", AlacModifiers::Ctrl) => Some("\x0a"), //10
        ("J", AlacModifiers::CtrlShift) => Some("\x0a"), //10
        ("k", AlacModifiers::Ctrl) => Some("\x0b"), //11
        ("K", AlacModifiers::CtrlShift) => Some("\x0b"), //11
        ("l", AlacModifiers::Ctrl) => Some("\x0c"), //12
        ("L", AlacModifiers::CtrlShift) => Some("\x0c"), //12
        ("m", AlacModifiers::Ctrl) => Some("\x0d"), //13
        ("M", AlacModifiers::CtrlShift) => Some("\x0d"), //13
        ("n", AlacModifiers::Ctrl) => Some("\x0e"), //14
        ("N", AlacModifiers::CtrlShift) => Some("\x0e"), //14
        ("o", AlacModifiers::Ctrl) => Some("\x0f"), //15
        ("O", AlacModifiers::CtrlShift) => Some("\x0f"), //15
        ("p", AlacModifiers::Ctrl) => Some("\x10"), //16
        ("P", AlacModifiers::CtrlShift) => Some("\x10"), //16
        ("q", AlacModifiers::Ctrl) => Some("\x11"), //17
        ("Q", AlacModifiers::CtrlShift) => Some("\x11"), //17
        ("r", AlacModifiers::Ctrl) => Some("\x12"), //18
        ("R", AlacModifiers::CtrlShift) => Some("\x12"), //18
        ("s", AlacModifiers::Ctrl) => Some("\x13"), //19
        ("S", AlacModifiers::CtrlShift) => Some("\x13"), //19
        ("t", AlacModifiers::Ctrl) => Some("\x14"), //20
        ("T", AlacModifiers::CtrlShift) => Some("\x14"), //20
        ("u", AlacModifiers::Ctrl) => Some("\x15"), //21
        ("U", AlacModifiers::CtrlShift) => Some("\x15"), //21
        ("v", AlacModifiers::Ctrl) => Some("\x16"), //22
        ("V", AlacModifiers::CtrlShift) => Some("\x16"), //22
        ("w", AlacModifiers::Ctrl) => Some("\x17"), //23
        ("W", AlacModifiers::CtrlShift) => Some("\x17"), //23
        ("x", AlacModifiers::Ctrl) => Some("\x18"), //24
        ("X", AlacModifiers::CtrlShift) => Some("\x18"), //24
        ("y", AlacModifiers::Ctrl) => Some("\x19"), //25
        ("Y", AlacModifiers::CtrlShift) => Some("\x19"), //25
        ("z", AlacModifiers::Ctrl) => Some("\x1a"), //26
        ("Z", AlacModifiers::CtrlShift) => Some("\x1a"), //26
        ("@", AlacModifiers::Ctrl) => Some("\x00"), //0
        ("[", AlacModifiers::Ctrl) => Some("\x1b"), //27
        ("\\", AlacModifiers::Ctrl) => Some("\x1c"), //28
        ("]", AlacModifiers::Ctrl) => Some("\x1d"), //29
        ("^", AlacModifiers::Ctrl) => Some("\x1e"), //30
        ("_", AlacModifiers::Ctrl) => Some("\x1f"), //31
        ("?", AlacModifiers::Ctrl) => Some("\x7f"), //127
        _ => None,
    };
    if let Some(esc_str) = manual_esc_str {
        return Some(Cow::Borrowed(esc_str));
    }

    // Automated bindings applying modifiers
    if modifiers.any() {
        let modifier_code = modifier_code(keystroke);
        let modified_esc_str = match keystroke.key.as_ref() {
            "up" => Some(format!("\x1b[1;{}A", modifier_code)),
            "down" => Some(format!("\x1b[1;{}B", modifier_code)),
            "right" => Some(format!("\x1b[1;{}C", modifier_code)),
            "left" => Some(format!("\x1b[1;{}D", modifier_code)),
            "f1" => Some(format!("\x1b[1;{}P", modifier_code)),
            "f2" => Some(format!("\x1b[1;{}Q", modifier_code)),
            "f3" => Some(format!("\x1b[1;{}R", modifier_code)),
            "f4" => Some(format!("\x1b[1;{}S", modifier_code)),
            "F5" => Some(format!("\x1b[15;{}~", modifier_code)),
            "f6" => Some(format!("\x1b[17;{}~", modifier_code)),
            "f7" => Some(format!("\x1b[18;{}~", modifier_code)),
            "f8" => Some(format!("\x1b[19;{}~", modifier_code)),
            "f9" => Some(format!("\x1b[20;{}~", modifier_code)),
            "f10" => Some(format!("\x1b[21;{}~", modifier_code)),
            "f11" => Some(format!("\x1b[23;{}~", modifier_code)),
            "f12" => Some(format!("\x1b[24;{}~", modifier_code)),
            "f13" => Some(format!("\x1b[25;{}~", modifier_code)),
            "f14" => Some(format!("\x1b[26;{}~", modifier_code)),
            "f15" => Some(format!("\x1b[28;{}~", modifier_code)),
            "f16" => Some(format!("\x1b[29;{}~", modifier_code)),
            "f17" => Some(format!("\x1b[31;{}~", modifier_code)),
            "f18" => Some(format!("\x1b[32;{}~", modifier_code)),
            "f19" => Some(format!("\x1b[33;{}~", modifier_code)),
            "f20" => Some(format!("\x1b[34;{}~", modifier_code)),
            "insert" => Some(format!("\x1b[2;{}~", modifier_code)),
            "pageup" => Some(format!("\x1b[5;{}~", modifier_code)),
            "pagedown" => Some(format!("\x1b[6;{}~", modifier_code)),
            "end" => Some(format!("\x1b[1;{}F", modifier_code)),
            "home" => Some(format!("\x1b[1;{}H", modifier_code)),
            _ => None,
        };
        if let Some(esc_str) = modified_esc_str {
            return Some(Cow::Owned(esc_str));
        }
    }

    if !cfg!(target_os = "macos") || option_as_meta {
        let is_alt_lowercase_ascii = modifiers == AlacModifiers::Alt && keystroke.key.is_ascii();
        let is_alt_uppercase_ascii =
            keystroke.modifiers.alt && keystroke.modifiers.shift && keystroke.key.is_ascii();
        if is_alt_lowercase_ascii || is_alt_uppercase_ascii {
            let key = if is_alt_uppercase_ascii {
                &keystroke.key.to_ascii_uppercase()
            } else {
                &keystroke.key
            };
            return Some(Cow::Owned(format!("\x1b{}", key)));
        }
    }

    None
}

///   Code     Modifiers
/// ---------+---------------------------
///    2     | Shift
///    3     | Alt
///    4     | Shift + Alt
///    5     | Control
///    6     | Shift + Control
///    7     | Alt + Control
///    8     | Shift + Alt + Control
/// ---------+---------------------------
/// from: https://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h2-PC-Style-Function-Keys
fn modifier_code(keystroke: &Keystroke) -> u32 {
    let mut modifier_code = 0;
    if keystroke.modifiers.shift {
        modifier_code |= 1;
    }
    if keystroke.modifiers.alt {
        modifier_code |= 1 << 1;
    }
    if keystroke.modifiers.control {
        modifier_code |= 1 << 2;
    }
    modifier_code + 1
}

#[cfg(test)]
mod test {
    use gpui::Modifiers;

    use super::*;

    #[test]
    fn test_plain_inputs() {
        let ks = Keystroke {
            modifiers: Modifiers {
                control: false,
                alt: false,
                shift: false,
                platform: false,
                function: false,
            },
            key: "🖖🏻".to_string(), //2 char string
            key_char: None,
        };
        assert_eq!(to_esc_str(&ks, &TermMode::NONE, false), None);
    }

    #[test]
    fn test_application_mode() {
        let app_cursor = TermMode::APP_CURSOR;
        let none = TermMode::NONE;

        let up = Keystroke::parse("up").unwrap();
        let down = Keystroke::parse("down").unwrap();
        let left = Keystroke::parse("left").unwrap();
        let right = Keystroke::parse("right").unwrap();

        assert_eq!(to_esc_str(&up, &none, false), Some("\x1b[A".into()));
        assert_eq!(to_esc_str(&down, &none, false), Some("\x1b[B".into()));
        assert_eq!(to_esc_str(&right, &none, false), Some("\x1b[C".into()));
        assert_eq!(to_esc_str(&left, &none, false), Some("\x1b[D".into()));

        assert_eq!(to_esc_str(&up, &app_cursor, false), Some("\x1bOA".into()));
        assert_eq!(to_esc_str(&down, &app_cursor, false), Some("\x1bOB".into()));
        assert_eq!(
            to_esc_str(&right, &app_cursor, false),
            Some("\x1bOC".into())
        );
        assert_eq!(to_esc_str(&left, &app_cursor, false), Some("\x1bOD".into()));

        let home = Keystroke::parse("home").unwrap();
        let end = Keystroke::parse("end").unwrap();
        assert_eq!(to_esc_str(&home, &none, false), Some("\x1b[H".into()));
        assert_eq!(to_esc_str(&end, &none, false), Some("\x1b[F".into()));
        assert_eq!(to_esc_str(&home, &app_cursor, false), Some("\x1bOH".into()));
        assert_eq!(to_esc_str(&end, &app_cursor, false), Some("\x1bOF".into()));

        let shift_home = Keystroke::parse("shift-home").unwrap();
        let shift_end = Keystroke::parse("shift-end").unwrap();
        assert_eq!(
            to_esc_str(&shift_home, &none, false),
            Some("\x1b[1;2H".into())
        );
        assert_eq!(
            to_esc_str(&shift_end, &none, false),
            Some("\x1b[1;2F".into())
        );
    }

    #[test]
    fn test_ctrl_codes() {
        let letters_lower = 'a'..='z';
        let letters_upper = 'A'..='Z';
        let mode = TermMode::ANY;

        for (lower, upper) in letters_lower.zip(letters_upper) {
            assert_eq!(
                to_esc_str(
                    &Keystroke::parse(&format!("ctrl-shift-{}", lower)).unwrap(),
                    &mode,
                    false
                ),
                to_esc_str(
                    &Keystroke::parse(&format!("ctrl-{}", upper)).unwrap(),
                    &mode,
                    false
                ),
                "On letter: {}/{}",
                lower,
                upper
            )
        }
    }

    #[test]
    fn alt_is_meta() {
        let ascii_printable = ' '..='~';
        for character in ascii_printable {
            assert_eq!(
                to_esc_str(
                    &Keystroke::parse(&format!("alt-{}", character)).unwrap(),
                    &TermMode::NONE,
                    true
                )
                .unwrap(),
                format!("\x1b{}", character)
            );
        }

        let gpui_keys = [
            "up", "down", "right", "left", "f1", "f2", "f3", "f4", "F5", "f6", "f7", "f8", "f9",
            "f10", "f11", "f12", "f13", "f14", "f15", "f16", "f17", "f18", "f19", "f20", "insert",
            "pageup", "pagedown", "end", "home",
        ];

        for key in gpui_keys {
            assert_ne!(
                to_esc_str(
                    &Keystroke::parse(&format!("alt-{}", key)).unwrap(),
                    &TermMode::NONE,
                    true
                )
                .unwrap(),
                format!("\x1b{}", key)
            );
        }
    }

    #[test]
    fn test_shift_enter_newline() {
        let shift_enter = Keystroke::parse("shift-enter").unwrap();
        let regular_enter = Keystroke::parse("enter").unwrap();
        let mode = TermMode::NONE;

        // Shift-enter should send line feed (newline)
        assert_eq!(to_esc_str(&shift_enter, &mode, false), Some("\x0a".into()));

        // Regular enter should still send carriage return
        assert_eq!(
            to_esc_str(&regular_enter, &mode, false),
            Some("\x0d".into())
        );
    }

    #[test]
    fn test_modifier_code_calc() {
        //   Code     Modifiers
        // ---------+---------------------------
        //    2     | Shift
        //    3     | Alt
        //    4     | Shift + Alt
        //    5     | Control
        //    6     | Shift + Control
        //    7     | Alt + Control
        //    8     | Shift + Alt + Control
        // ---------+---------------------------
        // from: https://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h2-PC-Style-Function-Keys
        assert_eq!(2, modifier_code(&Keystroke::parse("shift-a").unwrap()));
        assert_eq!(3, modifier_code(&Keystroke::parse("alt-a").unwrap()));
        assert_eq!(4, modifier_code(&Keystroke::parse("shift-alt-a").unwrap()));
        assert_eq!(5, modifier_code(&Keystroke::parse("ctrl-a").unwrap()));
        assert_eq!(6, modifier_code(&Keystroke::parse("shift-ctrl-a").unwrap()));
        assert_eq!(7, modifier_code(&Keystroke::parse("alt-ctrl-a").unwrap()));
        assert_eq!(
            8,
            modifier_code(&Keystroke::parse("shift-ctrl-alt-a").unwrap())
        );
    }
}
