use nom::{
    IResult, Parser,
    character::complete::{char, multispace0},
    combinator::opt,
    sequence::{delimited, preceded},
};

use crate::{
    ast::Link,
    parser::link_util::{link_destination, link_label, link_title},
};

pub(super) fn inline_link<'a>() -> impl FnMut(&'a str) -> IResult<&'a str, Link> {
    move |input: &'a str| {
        let (input, (children, (destination, title))) = (
            link_label(),
            delimited(
                char('('),
                (
                    preceded(multispace0, link_destination),
                    opt(preceded(multispace0, link_title)),
                ),
                preceded(multispace0, char(')')),
            ),
        )
            .parse(input)?;

        let link = Link {
            destination,
            title,
            children,
        };

        Ok((input, link))
    }
}