//! Headline

use memchr::{memchr, memchr2, memrchr};

pub(crate) const DEFAULT_KEYWORDS: &[&str] =
    &["TODO", "DONE", "NEXT", "WAITING", "LATER", "CANCELLED"];

#[cfg_attr(test, derive(PartialEq))]
#[derive(Debug)]
pub struct Headline<'a> {
    /// headline level, number of stars
    pub level: usize,
    /// priority cookie
    pub priority: Option<char>,
    /// headline tags, including the sparated colons
    pub tags: Option<&'a str>,
    /// headline title
    pub title: &'a str,
    /// headline keyword
    pub keyword: Option<&'a str>,
}

impl<'a> Headline<'a> {
    pub(crate) fn parse(text: &'a str, keywords: &'a [&'a str]) -> (Headline<'a>, usize, usize) {
        let level = memchr2(b'\n', b' ', text.as_bytes()).unwrap_or_else(|| text.len());

        debug_assert!(level > 0);
        debug_assert!(text.as_bytes()[0..level].iter().all(|&c| c == b'*'));

        let (off, end) = memchr(b'\n', text.as_bytes())
            .map(|i| (i, Headline::find_level(&text[i..], level) + i))
            .unwrap_or_else(|| (text.len(), text.len()));

        if level == off {
            return (
                Headline {
                    level,
                    keyword: None,
                    priority: None,
                    title: "",
                    tags: None,
                },
                off,
                end,
            );
        }

        let tail = text[level + 1..off].trim();

        let (keyword, tail) = {
            let (word, off) = memchr(b' ', tail.as_bytes())
                .map(|i| (&tail[0..i], i + 1))
                .unwrap_or_else(|| (tail, tail.len()));
            if keywords.contains(&word) {
                (Some(word), &tail[off..])
            } else {
                (None, tail)
            }
        };

        let (priority, tail) = {
            let bytes = tail.as_bytes();
            if bytes.len() > 4
                && bytes[0] == b'['
                && bytes[1] == b'#'
                && bytes[2].is_ascii_uppercase()
                && bytes[3] == b']'
                && bytes[4] == b' '
            {
                (Some(bytes[2] as char), tail[4..].trim_start())
            } else {
                (None, tail)
            }
        };

        let (title, tags) = if let Some(i) = memrchr(b' ', tail.as_bytes()) {
            let last = &tail[i + 1..];
            if last.len() > 2 && last.starts_with(':') && last.ends_with(':') {
                (tail[..i].trim(), Some(last))
            } else {
                (tail, None)
            }
        } else {
            (tail, None)
        };

        (
            Headline {
                level,
                keyword,
                priority,
                title,
                tags,
            },
            off,
            end,
        )
    }

    pub(crate) fn find_level(text: &str, level: usize) -> usize {
        use jetscii::ByteSubstring;

        let bytes = text.as_bytes();
        if bytes[0] == b'*' {
            if let Some(stars) = memchr2(b'\n', b' ', bytes) {
                if stars <= level && bytes[0..stars].iter().all(|&c| c == b'*') {
                    return 0;
                }
            }
        }

        let mut pos = 0;
        while let Some(off) = ByteSubstring::new(b"\n*").find(&bytes[pos..]) {
            pos += off + 1;
            if let Some(stars) = memchr2(b'\n', b' ', &bytes[pos..]) {
                if stars > 0 && stars <= level && bytes[pos..pos + stars].iter().all(|&c| c == b'*')
                {
                    return pos;
                }
            }
        }

        text.len()
    }

    /// checks if this headline is "commented"
    pub fn is_commented(&self) -> bool {
        self.title.starts_with("COMMENT ")
    }

    /// checks if this headline is "archived"
    pub fn is_archived(&self) -> bool {
        self.tags
            .map(|tags| tags[1..].split_terminator(':').any(|t| t == "ARCHIVE"))
            .unwrap_or(false)
    }
}

#[cfg(test)]
mod tests {
    use super::*;

    #[test]
    fn parse() {
        assert_eq!(
            Headline::parse("**** TODO [#A] COMMENT Title :tag:a2%:", DEFAULT_KEYWORDS).0,
            Headline {
                level: 4,
                priority: Some('A'),
                keyword: Some("TODO"),
                title: "COMMENT Title",
                tags: Some(":tag:a2%:"),
            },
        );
        assert_eq!(
            Headline::parse("**** ToDO [#A] COMMENT Title :tag:a2%:", DEFAULT_KEYWORDS).0,
            Headline {
                level: 4,
                priority: None,
                tags: Some(":tag:a2%:"),
                title: "ToDO [#A] COMMENT Title",
                keyword: None,
            },
        );
        assert_eq!(
            Headline::parse("**** T0DO [#A] COMMENT Title :tag:a2%:", DEFAULT_KEYWORDS).0,
            Headline {
                level: 4,
                priority: None,
                tags: Some(":tag:a2%:"),
                title: "T0DO [#A] COMMENT Title",
                keyword: None,
            },
        );
        assert_eq!(
            Headline::parse("**** TODO [#1] COMMENT Title :tag:a2%:", DEFAULT_KEYWORDS).0,
            Headline {
                level: 4,
                priority: None,
                tags: Some(":tag:a2%:"),
                title: "[#1] COMMENT Title",
                keyword: Some("TODO")
            },
        );
        assert_eq!(
            Headline::parse("**** TODO [#a] COMMENT Title :tag:a2%:", DEFAULT_KEYWORDS).0,
            Headline {
                level: 4,
                priority: None,
                tags: Some(":tag:a2%:"),
                title: "[#a] COMMENT Title",
                keyword: Some("TODO")
            },
        );
        assert_eq!(
            Headline::parse("**** TODO [#A] COMMENT Title :tag:a2%", DEFAULT_KEYWORDS).0,
            Headline {
                level: 4,
                priority: Some('A'),
                tags: None,
                title: "COMMENT Title :tag:a2%",
                keyword: Some("TODO"),
            },
        );
        assert_eq!(
            Headline::parse("**** TODO [#A] COMMENT Title tag:a2%:", DEFAULT_KEYWORDS).0,
            Headline {
                level: 4,
                priority: Some('A'),
                tags: None,
                title: "COMMENT Title tag:a2%:",
                keyword: Some("TODO"),
            },
        );
        assert_eq!(
            Headline::parse("**** COMMENT Title tag:a2%:", DEFAULT_KEYWORDS).0,
            Headline {
                level: 4,
                priority: None,
                tags: None,
                title: "COMMENT Title tag:a2%:",
                keyword: None,
            },
        );

        assert_eq!(
            Headline::parse("**** TODO [#A] COMMENT Title :tag:a2%:", &[]).0,
            Headline {
                level: 4,
                priority: None,
                keyword: None,
                title: "TODO [#A] COMMENT Title",
                tags: Some(":tag:a2%:"),
            },
        );
        assert_eq!(
            Headline::parse("**** TASK [#A] COMMENT Title :tag:a2%:", &["TASK"]).0,
            Headline {
                level: 4,
                priority: Some('A'),
                keyword: Some("TASK"),
                title: "COMMENT Title",
                tags: Some(":tag:a2%:"),
            },
        );
    }

    #[test]
    fn is_commented() {
        assert!(Headline::parse("* COMMENT Title", DEFAULT_KEYWORDS)
            .0
            .is_commented());
        assert!(!Headline::parse("* Title", DEFAULT_KEYWORDS)
            .0
            .is_commented());
        assert!(!Headline::parse("* C0MMENT Title", DEFAULT_KEYWORDS)
            .0
            .is_commented());
        assert!(!Headline::parse("* comment Title", DEFAULT_KEYWORDS)
            .0
            .is_commented());
    }

    #[test]
    fn is_archived() {
        assert!(Headline::parse("* Title :ARCHIVE:", DEFAULT_KEYWORDS)
            .0
            .is_archived());
        assert!(Headline::parse("* Title :tag:ARCHIVE:", DEFAULT_KEYWORDS)
            .0
            .is_archived());
        assert!(Headline::parse("* Title :ARCHIVE:tag:", DEFAULT_KEYWORDS)
            .0
            .is_archived());
        assert!(!Headline::parse("* Title", DEFAULT_KEYWORDS)
            .0
            .is_commented());
        assert!(!Headline::parse("* Title :ARCHIVED:", DEFAULT_KEYWORDS)
            .0
            .is_archived());
        assert!(!Headline::parse("* Title :ARCHIVES:", DEFAULT_KEYWORDS)
            .0
            .is_archived());
        assert!(!Headline::parse("* Title :archive:", DEFAULT_KEYWORDS)
            .0
            .is_archived());
    }

    #[test]
    fn find_level() {
        assert_eq!(
            Headline::find_level(
                r#"
** Title
* Title
** Title"#,
                1
            ),
            10
        );
    }
}