subroutineset_textprivate

subroutine set_text(s, key, value)
    type(settings_t), intent(inout) :: s    !! the settings
    character(len=*), intent(in) :: key     !! the option
    character(len=*), intent(in) :: value   !! its value

    select case (key)
    case ('author'); s%author = value
    case ('author_description'); s%author_description = value
    case ('author_pic'); s%author_pic = value
    case ('bitbucket'); s%bitbucket = value
    case ('creation_date'); s%creation_date = value
    case ('doc_license'); s%doc_license = value
    case ('docmark'); s%docmark = value
    case ('docmark_alt'); s%docmark_alt = value
    case ('email'); s%email = value
    case ('encoding'); s%encoding = value
    case ('facebook'); s%facebook = value
    case ('github'); s%github = value
    case ('gitlab'); s%gitlab = value
    case ('gitter_sidecar'); s%gitter_sidecar = value
    case ('google_plus'); s%google_plus = value
    case ('license'); s%license = value
    case ('linkedin'); s%linkedin = value
    case ('predocmark'); s%predocmark = value
    case ('predocmark_alt'); s%predocmark_alt = value
    case ('preprocessor'); s%preprocessor = value
    case ('privacy_policy_url'); s%privacy_policy_url = value
    case ('project'); s%project = value
    case ('project_bitbucket'); s%project_bitbucket = value
    case ('project_download'); s%project_download = value
    case ('project_github'); s%project_github = value
    case ('project_gitlab'); s%project_gitlab = value
    case ('project_sourceforge'); s%project_sourceforge = value
    case ('project_url'); s%project_url = value
    case ('project_website'); s%project_website = value
    case ('revision'); s%revision = value
    case ('sort'); s%sort = value
    case ('summary'); s%summary = value
    case ('terms_of_service_url'); s%terms_of_service_url = value
    case ('twitter'); s%twitter = value
    case ('version'); s%version = value
    case ('website'); s%website = value
    case ('year'); s%year = value
    case ('css'); s%css = value
    case ('favicon'); s%favicon = value
    case ('logo'); s%logo = value
    case ('graph_dir'); s%graph_dir = value
    case ('mathjax_config'); s%mathjax_config = value
    case ('md_base_dir'); s%md_base_dir = value
    case ('media_dir'); s%media_dir = value
    case ('output_dir'); s%output_dir = value
    case ('page_dir'); s%page_dir = value
    end select
end subroutine set_text