functionnew_settings

function new_settings() result(s)
    type(settings_t) :: s
    integer :: values(8)

    call date_and_time(values=values)
    s%creation_date = '%Y-%m-%dT%H:%M:%S.%f%z'
    s%parallel = omp_get_num_procs()
    s%docmark = '!'
    s%docmark_alt = '*'
    s%predocmark = '>'
    s%predocmark_alt = '|'
    s%encoding = 'utf-8'
    s%preprocessor = 'pcpp -D__GFORTRAN__ --passthru-comments'
    s%project = 'Fortran Program'
    s%project_url = ''
    s%sort = 'src'
    s%year = to_s(values(1))
    s%doc_license = ''
    s%license = ''
    s%md_base_dir = '.'
    s%output_dir = './doc'
    s%display = [string_t('public'), string_t('protected')]
    s%src_dir = [string_t('./src')]
    s%extensions = [string_t('f90'), string_t('f95'), string_t('f03'), string_t('f08'), string_t('f15')]
    s%fixed_extensions = [string_t('f'), string_t('for'), string_t('F'), string_t('FOR')]
    s%fpp_extensions = [string_t('F90'), string_t('F95'), string_t('F03'), string_t('F08'), string_t('F15'), &
                        string_t('F'), string_t('FOR')]
    allocate (s%copy_subdir(0), s%exclude(0), s%exclude_dir(0), s%extra_vartypes(0), s%html_template_dir(0))
    allocate (s%include(0), s%macro(0), s%md_extensions(0))
    allocate (s%alias(0), s%external(0), s%extra_mods(0), s%extra_filetypes(0))
end function new_settings