function! whereami#pwdLoad()
    let g:whereami_pwdL=trim(system("pwd -L"))
    let g:whereami_pwdP=trim(system("pwd -P"))
endfunction

function! whereami#do(fmt) abort
    let fullpath = expand("%:p")
    if fullpath[:len(g:whereami_pwdP)-1] ==# g:whereami_pwdP
        let fullpath = g:whereami_pwdL . fullpath[len(g:whereami_pwdP):]
    endif
    let where = printf(a:fmt, fullpath, line("."))
    let @* = where
    echomsg where
endfunction