testapp

#!/bin/bash
source ./buffermaker
## Example of buffermaker tui program

add-mode testui
	:: '[left]' format-left
	:: '[up]' format-up
	:: '[right]' format-right
	:: '[down]' format-down
	:: 'RET' link-enter
	:: '[next]' 'scroll-down'
	:: '[prior]' 'scroll-up'
	:: "$(kbd C-a)" 'move-beginning-of-line'
	:: "$(kbd C-e)" 'move-end-of-line'
	:: "$(kbd C-p)" 'previous-line'
	:: "$(kbd C-n)" 'next-line'
	:: "$(kbd C-f)" 'forward-char'
	:: "$(kbd M-f)" 'forward-word'
	:: "$(kbd C-b)" 'backward-char'
	:: "$(kbd M-b)" 'backward-word'
	:: "$(kbd M-v)" 'scroll-down'
	:: "$(kbd C-v)" 'scroll-up'
	:: "$(kbd C-c)" 'die'
	:: "$(kbd M-x)" 'execute-extended-command'
	mode-options
		:: else :
		:: disable-global 1

function testui {
	declare-new-buffer
		:: line 5
		:: column 0
		:: info "Testui"
		:: mode testui
		:: filetype 'format'
		:: file "testui"
		:: modified 0
		:: isfile 0
		:: syntax syntax-format
		:: syntax-exec 1
	size-full
	copy-array index buffer	
}

function inc {
	((incnum++))
	make-render-line 3
	redraw
}

function dec {
	((incnum--))
	make-render-line 3
	redraw
}

function show-more {
	buffer[7]="${buffer[6]}"
	buffer[6]='More: '\
'<o> id: setnum select: set-number redraw right: obj close left: : up: show-less down: show-less '\
'text: <f> link Set number </f> '\
'</o> '\
'<o> id: close select: show-less left: obj setnum right: : up: show-less down: show-less '\
'text: <f> light-red x </f> '\
'</o>'
	make-render-area 6 7
	redraw
	obj close
}
function show-less {
	buffer[6]="${buffer[7]}"
	unset buffer[7]
	make-render-area 6 7
	redraw
	obj more
}

incnum=0

index=(
''
'<h> Super number counter </h>'
''
'<-> <f> highlight <v> incnum </f>'
''
# controls
'<o> id: inc select: inc redraw right: obj dec left: : up: : down: obj quit '\
'text: <f> link Increase </f> '\
'</o> '\
'<o> id: dec select: dec left: obj inc right: obj more up: : down: obj quit '\
'text: <f> link Decrease </f> '\
'</o> '\
'<o> id: more select: show-more left: obj dec right: : up: : down: obj quit '\
'text: <f> title ... </f> '\
'</o>'
# quit button
'<o> id: quit select: die right: : left: down: : up: obj inc text: <f> red Quit </f> </o>'
)

load-default-config
init-var
testui
redraw
main