" #statusline format

function! GetStatus(isactive) "{{{
  " let l:linter = ale#statusline#Count(bufnr(''))
  let l:divider = '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - >'
  let l:separator = '%#StatusLineSeparator# '
  let l:normal = '%#StatusLineNormal#'
  let l:active = '%#StatusLineActive#'
  let l:bracket_open = '%#CRNoiseDark#('
  let l:bracket_close = '%#CRNoiseDark#) '
  let l:statusline = ''

  " file percentage
  let l:statusline .= '%#FoldColumn#: '
  if a:isactive
    let l:statusline .= '%#StatusLineNormal#'
  else
    let l:statusline .= '%#StatusLineDir#'
  endif
  let l:statusline .= '%P%* '


  " non-empty buftype (help, quickfix, etc)
  if a:isactive "{{{
    let l:statusline .= l:active . "%{&buftype == '' ? '' : ' '}%q%h%w%#StatusLineActiveNoText#"
  else
    let l:statusline .= l:normal . "%{&buftype == '' ? '' : ' '}%q%h%w%#StatusLineNormalNoText#"
  endif
  let l:statusline .= "%{&buftype == '' ? '' : '                                                                                                                                                                                                                                                '}%s"
"}}}

  " file info
  if a:isactive == 1 "{{{
    let l:statusline.=l:active
    let l:statusline.=" %{strlen(&ft)?&ft:'none'} "
    let l:statusline.=l:separator . l:active
    let l:statusline.=' %{strlen(&fenc)?&fenc:&enc} '
    let l:statusline.=l:separator . l:active
    let l:statusline.=' %{&fileformat} '
    let l:statusline.=l:separator . l:active
    let l:statusline.=' %{&spelllang} '
  else
    let l:statusline.=l:separator
  endif
"}}}

  " current register
  if a:isactive "{{{
    let l:statusline.=l:separator . l:active
    let l:statusline.=' %#StatusLineActiveQuotes#"' . l:active . '%{v:register}%#StatusLineActiveQuotes#" '
  endif
"}}}

  " session status
  if a:isactive "{{{
    let l:statusline.=l:separator . l:active
    let l:statusline.=" %{ObsessionStatus(fnamemodify(v:this_session,':t'),'---')} %*"
    let l:statusline.=l:separator . l:active
  endif
"}}}

  " right/left divider
  " modified version {{{
  let l:color = 'StatusLineDivMod' . (a:isactive?'Active':'')
  let l:statusline .= GetStatusFrag("&modified && mode() != 'i'", l:color, '%<', l:divider)
   
  " unmodified version
  let l:color = 'StatusLineDiv' . (a:isactive?'Active':'')
  let l:statusline .= GetStatusFrag("!&modified && mode() != 'i'", l:color, '%<', l:divider)
   
  " input mode version
  if a:isactive
    let l:statusline .= GetStatusFrag("mode() == 'i'", 'StatusLineDivInput', '%<', l:divider)
  endif

  let l:statusline.= l:separator . '%*%='

  if !a:isactive
    let l:statusline .= ' '
  endif
 
"}}}

  " path/filename.extension
  if a:isactive "{{{
    let l:statusline.='%#StatusLineDirActive# '
    let l:statusline.="%{expand('%:p:h:t')}/"
    let l:statusline.='%#StatusLineFileActive#'

    let l:statusline.="%{expand('%:t:r')}"

    let l:statusline.='%#StatusLineDotActive#'
    let l:statusline.="%{strlen(expand('%:e'))?'.':''}"
    let l:statusline.='%#StatusLineExtActive#'
    let l:statusline.="%{strlen(expand('%:e'))?expand('%:e'):expand('%:e')} "
  let l:statusline .= '%#InterfaceSignWarning# %R' " TODO 
    let l:statusline.=' %*'
  else
    let l:statusline.='%#StatusLineDir# '
    let l:statusline.="%{expand('%:p:h')}/"
    let l:statusline.='%#StatusLineFile#'

    let l:statusline.="%{expand('%:t:r')}"

    let l:statusline.='%#StatusLineDot#'
    let l:statusline.="%{strlen(expand('%:e'))?'.':''}"
    let l:statusline.='%#StatusLineExt#'
    let l:statusline.="%{strlen(expand('%:e'))?expand('%:e'):expand('%:e')} "
  let l:statusline .= '%#InterfaceSignWarning# %R' " TODO 
    let l:statusline.=' %*'
  endif
  "}}}

  " linter status "
  if a:isactive "{{{
    " errors
    let l:statusline .= " %#CRNoiseDark#%{(GetLinterStatus('error') == 0?'-':'')}"
    let l:statusline .= "%#InterfaceSignError#%{(GetLinterStatus('error') == 0?'':GetLinterStatus('error'))}"
    " style errors
    let l:statusline .= '%#CRNoiseDarker#|'
    let l:statusline .= "%#CRNoiseDark#%{(GetLinterStatus('style_error') == 0?'-':'')}"
    let l:statusline .= "%#InterfaceSignErrorDark#%{(GetLinterStatus('style_error') == 0?'':GetLinterStatus('style_error'))} "

    " warnings
    let l:statusline .= "%#CRNoiseDark#%{(GetLinterStatus('warning') == 0?'-':'')}"
    let l:statusline .= "%#InterfaceSignWarning#%{(GetLinterStatus('warning') == 0?'':GetLinterStatus('warning'))}"
    " style warnings
    let l:statusline .= '%#CRNoiseDarker#|'
    let l:statusline .= "%#CRNoiseDark#%{(GetLinterStatus('style_warning') == 0?'-':'')}"
    let l:statusline .= "%#InterfaceSignWarningDark#%{(GetLinterStatus('style_warning') == 0?'':GetLinterStatus('style_warning'))} "

    " info
    let l:statusline .= "%#CRNoiseDark#%{(GetLinterStatus('info') == 0?'-':'')}"
    let l:statusline .= "%#CRNoiseRed#%{(GetLinterStatus('info') == 0?'':GetLinterStatus('info'))}"
  else
    " errors
    let l:statusline .= " %#CRNoiseDarker#%{(GetLinterStatus('error') == 0?'-':'')}"
    let l:statusline .= "%#CRNoiseBright#%{(GetLinterStatus('error') == 0?'':GetLinterStatus('error'))}"
    " style errors
    let l:statusline .= '%#CRNoiseDarker#|'
    let l:statusline .= "%{(GetLinterStatus('style_error') == 0?'-':'')}"
    let l:statusline .= "%#CRNoiseBright#%{(GetLinterStatus('style_error') == 0?'':GetLinterStatus('style_error'))} "

    " warnings
    let l:statusline .= "%#CRNoiseDarker#%{(GetLinterStatus('warning') == 0?'-':'')}"
    let l:statusline .= "%#CRNoise#%{(GetLinterStatus('warning') == 0?'':GetLinterStatus('warning'))}"
    " style warnings
    let l:statusline .= '%#CRNoiseDarker#|'
    let l:statusline .= "%{(GetLinterStatus('style_warning') == 0?'-':'')}"
    let l:statusline .= "%#CRNoise#%{(GetLinterStatus('style_warning') == 0?'':GetLinterStatus('style_warning'))} "

    " info
    let l:statusline .= "%#CRNoiseDarker#%{GetLinterStatus('info') == 0 ? '-' : GetLinterStatus('info')}"
  endif
"}}}

  return l:statusline

endfunction "}}}

augroup status "{{{
  autocmd!
  autocmd WinEnter * setlocal statusline=%!GetStatus(1)
  autocmd WinLeave * setlocal statusline=%!GetStatus(0)
  " autocmd WinNew * setlocal statusline=%!GetStatus(1)
  " autocmd InsertChange * setlocal statusline=%!GetStatus(1)
augroup END"}}}

function! LinterStatus() abort "{{{
  let l:counts = ale#statusline#Count(bufnr(''))

  let l:all_errors = l:counts.error + l:counts.style_error
  let l:all_non_errors = l:counts.total - l:all_errors

  return l:counts.total == 0 ? 'OK' : printf('%dW %dE', l:all_non_errors, l:all_errors)
endfunction
"}}}



" vim: foldmethod=marker