ferki

#!/bin/sh
IMAGE="/tmp/scrocr.png"

scrot -s ${IMAGE}
mogrify -modulate 100,0 -resize 400% ${IMAGE}
tesseract ${IMAGE} stdout | xsel -bi

rm ${IMAGE}

ferki

fun! Tidy()
    silent exe ":update"
    let pos1 = line(".")
    exe '%!perltidy'
    exe ':'.pos1
endfun
 
autocmd BufWrite *.t,*.pm,*.pl,Rexfile call Tidy()

if exists("b:did_spell")

ferki

#!/bin/sh
#check if i3lock is already running
pgrep i3lock > /dev/null && exit 1

#make screenshot
scrot ~/lockscreen.png

#apply blur
mogrify -filter Gaussian -resize 20% -define filter:sigma=1 -resize 500% ~/lockscreen.png
#mogrify -blur 0x8 ~/lockscreen.png

ferki

" perltest.vim - test driven development for Perl with vim
"
"     ,t   --  Run tests
"     ,w   --  Set current file as test file. Only this test will run.
"     ,W   --  Unset current test file. All tests will run.
"
" v1.02 - Updates at http://perlmonks.org/index.pl?node_id=434793

function! Prove ( verbose, silent )
    if ! exists("g:testfile")