"=======================================================================================================================
" HIGHLIGHT_WORD_UNDER_CURSOR:
"=======================================================================================================================

let w:m1 = 0
function! HighlightWordUnderCursor()
    if(exists('w:m1') && w:m1 > 0)
        silent! call matchdelete(w:m1)
        let w:m1 = 0
    endif
    let l:currentword = escape(expand('<cword>'), '.')
    if(strlen(l:currentword) > 0)
        let w:m1=100
        let l:q = matchstr(expand('<cword>'), '\x\{6\}')
        if(l:q != "")
            exec 'highlight! CurrentColor guibg=#'.l:q
            " call matchadd('CurrentColor', escape(expand('<cWORD>'), '.'), -1, w:m1)
            " if(match(expand('<cword>'), '^#\x\{6\}\|^0x\x\{6\}') == 0)
            hi CurrentColor
        else
            silent! call matchadd('Underline', '\<'.l:currentword.'\>', -1, w:m1)
        endif
    endif
endfunction

autocmd CursorHold,CursorHoldI * call HighlightWordUnderCursor()