" Enable syntax highlighting
syntax enable

" Put tabspace to 4 positions
set sts=4

" backspace and cursor keys wrap to previous/next line
set backspace=indent,eol,start whichwrap+=<,>,[,]

" backspace in Visual mode deletes selection
vnoremap <BS> d

"For VIM 7.x, always show tabs
set stal=2

" Enable line numbering
set nu

" Do not wrap lines
set nowrap

" Set fileformat to Unix
set fileformat=unix

" Set horizontal bar
set guioptions+=b

" Set splitoptions
set nosplitbelow
set splitright

" Set layout
set lines=50
set columns=140

" Set statusline options
set laststatus=2
set statusline=%<Type:%Y\ %=ASCII:%b\ Column:%c\ Where:%P

" Highlight searched text, increment search enabled
set hlsearch
set incsearch

" Execute current newLisp file - command: Run
function! NewlispRun()
    !newlisp "%"
endfunction
command! -complete=function Run :call NewlispRun()

" Link to newLisp standalone executable - command: Link
function! NewlispLink()
    let orgExe = system("which newlisp")
    if strpart(orgExe, 0, 6) == "which:"
	let result = confirm("ERROR: newLisp binary not found in your PATH!", "", "", "Error")
    else
	let orgExe = substitute(orgExe, '\n\|\r', "", "g")
	if has("win32") || has("win64")
	    let newExeName = fnamemodify(bufname(""), ":r") . ".exe"
	    let orgExe = substitute(orgExe, '/', "\\", "g")
	    let result = system('copy "' . orgExe . '" "' . newExeName . '"')
	    let orgExe = substitute(orgExe, '\\', "/", "g")
	    let prog = '(silent (setq f \"' . orgExe . '\")'
	    let prog = prog . '(replace \"/\" f \"\\\\\")'
	    let prog = prog . '(setq size (first (file-info f)))'
	    let prog = prog . '(setq buff (pack \"ld\" size))'
	    let prog = prog . '(setq handle (open \"' . newExeName . '\" \"u\"))'
	    let prog = prog . '(search handle \"@@@@@@@@\")'
	    let prog = prog . '(write-buffer handle buff 4)'
	    let prog = prog . '(setq buff (read-file \"' . bufname("") . '\"))'
	    let prog = prog . '(setq keylen (pack \"ld\" (length buff)))'
	    let prog = prog . '(write-buffer handle keylen 4)'
	    let prog = prog . '(seek handle size)'
	    let prog = prog . '(setq buff (encrypt buff (string (length buff))))'
	    let prog = prog . '(write-buffer handle buff (length buff))'
	    let prog = prog . '(close handle))'
	    let result = system('newlisp -e "' . prog . '"')
	else
	    let newExeName = fnamemodify(bufname(""), ":r")
	    let result = system('cp "' . orgExe . '" "' . newExeName . '"')
	    let prog = '(silent (setq size (first (file-info "' . orgExe . '")))'
	    let prog = prog . '(setq buff (pack "ld" size))'
	    let prog = prog . '(setq handle (open "' . newExeName . '" "u"))'
	    let prog = prog . '(search handle "@@@@@@@@")'
	    let prog = prog . '(write-buffer handle buff 4)'
	    let prog = prog . '(setq buff (read-file "' . bufname("") . '"))'
	    let prog = prog . '(setq keylen (pack "ld" (length buff)))'
	    let prog = prog . '(write-buffer handle keylen 4)'
	    let prog = prog . '(seek handle size)'
	    let prog = prog . '(setq buff (encrypt buff (string (length buff))))'
	    let prog = prog . '(write-buffer handle buff (length buff))'
	    let prog = prog . '(close handle))'
	    let result = system("newlisp -e '" . prog . "'")
	endif
	if result == ""
	    let result = confirm("Linking ready!\n\nFile created: \"" . newExeName . '"', "", "", "Info")
	else
	    let result = confirm("ERROR: Linking did not succeed!", "", "", "Error")
	endif
    endif
endfunction
command! -complete=function Link :call NewlispLink()

" Force newLisp syntax
function! NewlispSyntax()
    set syntax=newlisp
endfunction
command! -complete=function Syntax :call NewlispSyntax()

" Help for a newLisp command - idea by Cormullion
function! NewlispHelp(func)
    if has("unix")
        let str = substitute(a:func, '?', "p", "")
	let prog = '(silent (setq file (open {/usr/doc/newlisp/newlisp_manual.html} {read}))'
	let prog = prog . '(if (not file) (setq file (open {/usr/share/doc/newlisp/newlisp_manual.html} {read})))'
	let prog = prog . '(setq pos (search file (append {<a name="} "' . str . '" {">} ) ))'
        let prog = prog . '(read-line file)'
	let prog = prog . '(read-line file)'
        let prog = prog . '(read-buffer file buff 1000 {<a name})'
	let prog = prog . '(replace {<.+>} buff {} 512)'
        let prog = prog . '(replace {&gt;} buff {>})'
	let prog = prog . '(replace {&lt;} buff {<})'
	let prog = prog . '(replace {&mdash;} buff {})'
	let prog = prog . '(replace {&rarr;} buff {->})'
        let prog = prog . '(replace "\t" buff {})'
	let prog = prog . '(replace {example:} buff "example:\n")'
	let prog = prog . '(replace {<a name} buff {})'
        let prog = prog . '(if (< (length buff) 5)'
	let prog = prog . '(println {Primitive not found!})'
        let prog = prog . '(print buff {...}))'
	let prog = prog . '(close file))'
        let result = system("newlisp -e '" . prog . "'")
    endif
    return result
endfunction

" Print on console
function! WrapNewlispHelp(func)
    let result = NewlispHelp(a:func)
    echo result
endfunction

" Define command for help
command! -complete=function -nargs=1 Help :call WrapNewlispHelp(<f-args>)

" For GUI
function! GuiNewlispHelp()
    let txt = inputdialog("Enter the command to lookup:", "")
    if txt != ""
	let result = NewlispHelp(txt)
	let choice = confirm(result)
    endif
endfunction

" Setup menus
amenu 80.10 &newLisp.&Run\ current\ program :call NewlispRun()<CR>
amenu 80.20 &newLisp.&Link\ to\ executable :call NewlispLink()<CR>
amenu 80.30 &newLisp.-Sep1- :
amenu 80.40 &newLisp.&Help\ on\ command :call GuiNewlispHelp()<CR>
amenu 80.50 &newLisp.-Sep2- :
amenu 80.60 &newLisp.&Set\ syntax\ to\ newLisp :call NewlispSyntax()<CR>

" Setup Toolbar
amenu ToolBar.-Sep- :
tmenu ToolBar.Exe Run current newLISP file
amenu ToolBar.Exe :call NewlispRun()<CR>