reasymotion.kak

decl -hidden str _scrolloff

decl -hidden range-specs reasymotionselections

decl -hidden str reasymotion_keys

set-option global reasymotion_keys "abcdefghijklmnopqrstuvwxyz"

face global REasymotionBackground rgb:aaaaaa
face global REasymotionForeground white,red+F

def reasymotion-select-screen -params 1 %{
    set-option window _scrolloff %opt{scrolloff}
    set-option window scrolloff 0,0

    execute-keys "gbGt%arg{1}<a-:>"

    reasymotion-selection

    hook window -once NormalKey .* %{
        set-option window scrolloff %opt{_scrolloff}
    }
    hook window -once NormalIdle .* %{
        set-option window scrolloff %opt{_scrolloff}
    }}

# gbGt to select whole screen
def reasymotion-selection %{

    add-highlighter buffer/reasymotionselections replace-ranges reasymotionselections
    add-highlighter buffer/reasymotionbackground fill REasymotionBackground


    evaluate-commands %sh{
        # need enviroment variables
        # (can't remove because otherwise kak doesn't export them so the program can't access them)
        # $kak_selections_desc $kak_opt_reasymotion_keys
        /home/charles/.config/zsh/bin/rkak_easymotion start
        }

}

def reasymotion-line %{
    reasymotion-select-screen <a-s>x
}

def reasymotion-word %{
    reasymotion-select-screen s\w+<ret>
}

def reasymotion-on-letter-to-word %{
    on-key %{
        reasymotion-select-screen "s\b%val{key}\w*<ret>"
    }
}

def reasymotion-on-letter-to-letter %{
    on-key %{
        reasymotion-select-screen "s%val{key}<ret>"
    }
}


declare-user-mode easymotion
map global user   'e' ': enter-user-mode easymotion<ret>'            -docstring 'enter easymotion mode'
map global easymotion 'e' ': reasymotion-word<ret>'                  -docstring 'by words'
map global easymotion 'l' ': reasymotion-on-letter-to-letter<ret>'   -docstring 'by letter'
map global easymotion 'L' ': reasymotion-line<ret>'                  -docstring 'by Line'