parseCslTerm :: Cursor -> CslTerm
parseCslTerm cur =
    let body = trim . T.concat $ cur $/ content
    in CT
      { cslTerm        = stringAttr "name" cur
      , termForm       = attrWithDefault "form" Long cur
      , termGender     = attrWithDefault "gender" Neuter cur
      , termGenderForm = attrWithDefault "gender-form" Neuter cur
      , termSingular   = if T.null body
                            then T.concat $ cur $/ get "single" &/ content
                            else body
      , termPlural     = if T.null body
                            then T.concat $ cur $/ get "multiple" &/ content
                            else body
      , termMatch      = stringAttr "match" cur
      }
parseCslTerm :: Cursor -> CslTerm
parseCslTerm cur =
    let body = trim . T.concat $ cur $/ content
    in CT
      { cslTerm        = stringAttr "name" cur
      , termForm       = attrWithDefault "form" Long cur
      , termGender     = attrWithDefault "gender" Neuter cur
      , termGenderForm = attrWithDefault "gender-form" Neuter cur
      , termSingular   = if T.null body
                            then T.concat $ cur $/ get "single" &/ content
                            else body
      , termPlural     = if T.null body
                            then T.concat $ cur $/ get "multiple" &/ content
                            else body
      , termMatch      = stringAttr "match" cur
      }
parseCslTerm cur =
    let body = trim . T.concat $ cur $/ content
    in CT
      { cslTerm        = stringAttr "name" cur
      , termForm       = attrWithDefault "form" Long cur
      , termGender     = attrWithDefault "gender" Neuter cur
      , termGenderForm = attrWithDefault "gender-form" Neuter cur
      , termSingular   = if T.null body
                            then T.concat $ cur $/ get "single" &/ content
                            else body
      , termPlural     = if T.null body
                            then T.concat $ cur $/ get "multiple" &/ content
                            else body
      , termMatch      = stringAttr "match" cur
      }