local Numword = require 'pls-numword'
print( Numword.to_s(arg[1]) )

--package.cpath = package.cpath .. ';../bin/?.so;/usr/lib/lua/5.3/nylabind/?.so'
require 'site'
--require 'clibs'
if not NylonSysCore then
   require 'nylon.core'()
end
if not Pdcurses then
   require 'LbindPdcurses'
end
local Sqlite  = require 'NylonSqlite'
require 'NylonOs'
-- local nylonin = require 'nylon.core'
-- local Curses  = require 'LbindPdcurses'
--local x = Sqlite:new 'plstest.db'
print( 'Pdcurses=', Pdcurses )
print( 'NylonSqlite=', NylonSqlite )
print( 'NylonSysCore=', NylonSysCore )
print( 'NylonOs=', NylonOs )
Pdcurses.Static.initscr()
local db = NylonSqlite 'fts-test.db'
print('db=', type(db))
print('selectOne=', db.selectOne)
-- os.execute('stty sane')
print 'done'
       

require 'site'
local Nylon = require 'nylon.core'()
local Store = require 'pls-buffer'
   local function cursorpos( buffer, ptTopLeft, thePoint, wdim )
      local charsInto = thePoint - ptTopLeft
      local ptRow, ptCol
      local drow = 0
      local dcol = 0
      local charsDrawn = 0
--      local nextiseol
      for l, col, eol in buffer:walkFragmentsEOL( ptTopLeft ) do
         local toDraw = eol and (eol - col) or #l
--         if nextiseol then drow = drow + 1; nextiseol = false end
         if ((charsDrawn + toDraw) >= charsInto) then
            return (dcol + charsInto-charsDrawn), drow
         else
            charsDrawn = charsDrawn + toDraw
         end
         if eol then
            charsDrawn = charsDrawn + 1
            dcol = 0
            drow = drow + 1
--            nextiseol = true
         else
            dcol = dcol + toDraw
         end
      end
   end
local function mysert_eq( v, shouldbe )
   if v ~= shouldbe then
      print(string.format('expected value=%d got=%d',shouldbe,v))
      assert(false)
   end
end
local b = Store.withText('12345678a\n')
b:append('12345678b\n')
b:append('12345678c\n')
-- local n,c = b:lcol4point(21)
mysert_eq(b:end_point(),30)
b:insert(11,'12345678x\n')
mysert_eq(b:end_point(),40)
-- os.exit()
assert(b:char_at_point(3)=='3')
assert(b:char_at_point(14)=='4')
assert(b:char_at_point(25)=='5')
assert(b:char_at_point(36)=='6')
-- for l, col, eol in b:walkFragmentsEOL( 1 ) do
--    print( 'walk', #l, col, eol, l )
-- end
local function test_buffer( t, buflen)
   local b = Store.withText()
   b.setIdealStringLength(buflen)
   b:insert(1,t)
   local re = {}
   local rcvd = {}
   for l, col, eol in b:walkFragmentsEOL(1) do
      table.insert(rcvd, {col,l,eol} )
      table.insert(re, l:sub(col,eol))
   end
   local JSON = require 'JSON'
   if true or ( table.concat(re) ~= t ) then
      for i, v in ipairs(re) do
         print(i,JSON:encode(v))
         print(i,JSON:encode(rcvd[i]) )
      end
   end
   -- b:dump()
   assert(table.concat(re)==t)
   return b
end
if true then
   local t = 'hello\nthere\nbuddy\nroo\n' 
   test_buffer( t, 99 )
   test_buffer( t, 10 )
   local t = '0123456789'
   test_buffer( t, 5 )
   test_buffer( t, 3 )
   test_buffer( t, 2 )
   test_buffer( t, 1 )
end
--local b = 
local t = '0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789'
test_buffer( t, 100 )
test_buffer( t, 10 )
test_buffer( t, 2 )
test_buffer( t, 1 )
--print 'adding 4'
--b:insert(5,'4')
--b:dump()
-- os.exit(0)
--- fail
local t = '0123456789'
test_buffer( t, 2 )
-- print( 'walk a01', #l, col, eol, l ) end
--for i = 1,40 do
--   local cx,cy = cursorpos(b,1,i)
--   print('cx=',cx,'cy=',cy)
----   assert(n==math.floor((i-1)/10)+1)
----   assert(c==((i-1)%10)+1)
--end
-- local b2 = Store.withText('12345678a\n12345678x\n12345678b\n12345678c\n')
-- for l, col, eol in b2:walkFragmentsEOL( 3 ) do
--    print( 'walk b2', l, col, eol )
-- end

local Sqlite  = require 'sqlite'
local context_t = {
   url = 1,
   plsupdate = 2,
   plsnew = 3,
}
local db = Sqlite:new 'db-contexts.db'
local function addNewClipText( clip )
   if string.find( clip, '^http://') or string.find( clip, '^https://') then
      print('got URL clip=', clip)
      wv.log('debug', 'got URL clip=%s', clip)
      db:exec('insert into context (context_t, dt_created, data) values(?, DATETIME("NOW"), ?)',
              context_t.url, clip)
   end
end
local function cord_clipboard_monitor( cord )
   require 'NylonOs'
   local lastClip
   while true do
      -- wv.log('debug', 'clipboard monitor running')
      local clip = NylonOs.Static.getclipboard()
      if clip ~= lastClip then
         lastClip = clip
         addNewClipText( clip )
      end
      cord:sleep(0.3)
   end
end
local cb_cord = Nylon.cord('clipboard-mon', cord_clipboard_monitor )
local Table = require 'extable'
function cleanupctxrecord( record )
   if record.extern_id then
      record.extern_id = tonumber(record.extern_id)
   end
   if record.context_t then
      record.context_t = tonumber(record.context_t)
   end
   return record
end
local RPC = {}
function RPC.getContext()
   wv.log('debug', 'got call to getContext')
   local many = db:selectMany( 'select * from context where dt_created > (datetime("NOW")-14) order by dt_created desc' )
   --local many = db:selectMany( 'select * from context order by dt_created desc where dt_created limit 100' )
   return Table.map( cleanupctxrecord, many )
end
function RPC.getRecentContext( N )
   N = N or 20
   wv.log('debug', 'got call to getRecentContext, N=%d', N)
   local many = db:selectMany( 'select * from context where dt_created > (datetime("NOW")-14) order by dt_created desc limit ?', N )
   --local many = db:selectMany( 'select * from context order by dt_created desc where dt_created limit 100' )
   return Table.map( cleanupctxrecord, many )
end
function RPC.updatePlsRecord( recordId )
   wv.log('debug', 'PLS edit, record id=%d', recordId)
   print('PLS edit, record id=', recordId)
   db:exec('insert into context (context_t, dt_created, extern_id) values(?, DATETIME("NOW"), ?)',
           context_t.plsupdate, recordId)
end
function RPC.newPlsRecord( recordId )
   wv.log('debug', 'NEW PLS record, record id=%d', recordId)
   print('NEW PLS record, record id=', recordId)
   db:exec('insert into context (context_t, dt_created, extern_id) values(?, DATETIME("NOW"), ?)',
           context_t.plsnew, recordId)
end
return RPC

--[[--
   Provides file archiving services for PLS system; send a list of file names, they will be copied to
   an archive directory and a URL path (from localhost) is returned.
   This is used by PLS system e.g., when copying a CF_HDROP file list from the clipboard.
--]]--
local config = {
   archiveDir = 'c:/m/notes/monthly',
   archiveUrl = '/notes/monthly',
}
local File = require 'filelib'
local Table = require 'extable'
local Numword = require 'numword'
math.randomseed(os.time())
require 'psbind'
local function runshell(shell, cord, cmd)
   local results = {}
--   local function runone(cord)
      wv.log('debug','Invoking powershell, cmd=%s',cmd)
      cord:cthreaded_multi(
         shell:cthread_invoke(cmd),
         function( rc ) table.insert(results,rc) end )
      wv.log('debug','Powershell invocation returned')
--   end
--   wv.log('debug','starting pshell request cord, cmd=%s', cmd)
--   local cord = Nylon.cord('pshell-request', runone)
--   Nylon.self:waiton(cord)
   return results
end
local function cordfn_bg_copy( cord )
   while true do
      collectgarbage()
      local msg = cord:getmsg()
      local shell = Psbind.Shell() -- shell is created here so that it will be closed while idle; these things suck memory
      for _, v in ipairs(msg) do
         local store = v.archpath
         local item = v.item
         wv.log('debug','copying "%s" to "%s"', item, store )
         runshell( shell, cord, string.format( 'mkdir %s', store ) )
         runshell( shell, cord, string.format( 'copy-item "%s" %s/', item, store ) )
      end
   end
end
local cord_bg_copy = Nylon.cord( 'bgcopy', cordfn_bg_copy )
local RPC = {}
function RPC.archiveFileList(fileList)
   local date = os.date( '%y.%m/%d', os.time() )
   local rand = Numword.to_s( math.random(6400) + 1376 )
   local docopies = {}
   local results = Table.map( function(item)
                            local base = File.leaf(item)
                            local subdir = date .. '/' .. rand
                            local store = File.joinpath( config.archiveDir, subdir )
                            table.insert( docopies, { item = item, archpath = store } )
                            local url = table.concat( { config.archiveUrl, subdir, base }, '/' )
                            return url
                          end, fileList )
   cord_bg_copy:msg( docopies )
   return results
end
return RPC

require 'site'
package.path = package.path .. ';../nylabus/?.lua'
print 'Nylabus PLS Record Service'
local Nylon = require 'nylon.core'()
local wv = require 'nylon.debug'{ name = 'l-svc-plsrecord' }
local Sqlite  = require 'sqlite'
local db = Sqlite:new 'plstest.db'
local RPC = { identity = function(a) return a end }
local function getMetadataForId( oneId  )
   local recid = (db:selectOne('select title, dt_modified, dt_created from note where ROWID=?', oneId))
   recid.id = recid.ROWID
   recid.ROWID = nil
   return recid
end
local function getFullRecordForId( oneId  )
   local recid = (db:selectOne('select * from note where ROWID=?', oneId))
   recid.id = recid.ROWID
   recid.ROWID = nil
   return recid
end
local Table = require 'extable'
function RPC.getRecordMetadata( id )
   if type(id) == 'number' then -- single id
      return getMetadataForId( id )
   elseif type(id) == 'table' then -- todo: to optimize, use one SQL query
      if type(id[1]) == 'number' then -- found a list of ids
         return Table.map( getMetadataForId, id )
      end
   end
end
function RPC.getFullRecord( id )
   if type(id) == 'number' then -- single id
      return getFullRecordForId( id )
   elseif type(id) == 'table' then
      if type(id[1]) == 'number' then -- found a list of ids
         return Table.map( getFullRecordForId, id )
      end
   end
end
local Services = require 'nylaservice-svc'
Services.register( 'plsrecord', RPC )
Nylon.run()

local Nylon = require 'nylon.core'()
require 'NylonSqlite'
wv = require 'nylon.debug' { name = 'pls-sqlite' }
local Sqlite = {}
function Sqlite:new(dbname)
   local db = NylonSqlite(dbname)
   if not db then
      wv.log('error', 'db could not open name=%s', dbname)
      error 'no database'
   else
      wv.log('debug', 'db opened with success name=%s', dbname)
   end
   return setmetatable({ db = db }, { __index = Sqlite })
--   -- print(string.format("Sqlite:new db=%s", dbname))
--   return setmetatable({ 
--      db = NylonSqlite(dbname)
--    }, { __index = Sqlite })
end
function Sqlite:selectOne(sql,...)
   local rc
   if not self.db then
      wv.log('error', 'db invalid db=%s db.db = %s', tostring(self), type(self.db))
      -- error 'no database'
   end
--print( 'Pdcurses=', Pdcurses )
--print( 'NylonSqlite=', NylonSqlite )
--print( 'NylonSysCore=', NylonSysCore )
--print( 'NylonOs=', NylonOs )
--local db = NylonSqlite 'fts-test.db'
--print('db=', type(db))
--print('selectOne=', db.selectOne)
--
--   self.db:selectOne({}, 'select count(*) from notes', {})
   --
   wv.log('debug', 'select one sql=%s', sql);
   self.db:selectOne( function(r) rc = r end, sql, {...} )
   if not rc then
      -- 
   elseif rc.ROWID then
      rc.ROWID = tonumber(rc.ROWID)
   end
   return rc
end
function Sqlite:selectMany(sql,...)
   local results = {}
   self.db:selectMany( function(row)
                          table.insert(results,row) 
                       end, sql, {...} )
   return results
end
function Sqlite:exec(sql,...)
   return self.db:exec( sql, {...} )
end
function Sqlite:retryexec(sql,...)
   local dbrc
   local args = { ... }
   for i = 1, 7 do
      local rc, err = pcall(function()
                          dbrc = self.db:exec( sql, args )
      end)
      if rc then
         break
      end
      wv.log('error','could not exec [try %d, sql=%s], e=%s', i, sql, err)
      Nylon.self:sleep( 0.05 * (2 ^ i) )
   end
   return dbrc
end
function Sqlite:lastRowId()
   return self.db:lastRowId()
end
return Sqlite

--package.path=package.path .. ';/usr/share/lua5.1/site/?.lua;../nylon-lua/?.lua;c:/pf32/Lua/5.1/lua/?.lua;../Debug/*.lua'
--package.cpath=package.cpath .. ';/usr/share/lua5.1/clib/?.dll;c:/pf32/Lua/5.1/clibs/?.dll;../Debug/?.dll'
-- package.path=package.path .. ';' .. (os.getenv 'HOME' or 'c:') .. '/.uswmini/?.lua'
if true then
   loadfile '../site.lua'()
else -- linux-ish
--   package.path  = package.path .. ';../../n3/?.lua;../../nylon/?.lua;../site/?.lua'
--   package.cpath = package.cpath .. ';../bin/?.so;/usr/lib/lua/5.3/nylabind/?.so'
package.path  = package.path .. '../site/?.lua'
package.cpath = package.cpath .. ';../bin/?.so;/usr/lib/lua/5.3/nylabind/?.so'
end

--[[--
   Demonstrates application of diffs to restore record text from zero.
   Maybe useful for calling from external program, ie, ruby script
--]]--
require 'site'
local Nylon = require 'nylon.core'()
--local wv = require 'nylon.debug' { name = 'pls-main' }
local Sqlite  = require 'sqlite'
local Numword = require 'pls-numword'
local JSON    = require 'JSON' -- for debugging
local db = Sqlite:new 'plstest.db'
local nwid = arg[1]
local recid = string.match(nwid,'^%d') and tonumber(nwid) or Numword.to_i(nwid)
local Diff = require 'diff_match_patch'
--local rev = tonumber(arg[2])
local inittext = ''
local s = Nylon.uptime()
local patches = db:selectMany('select rcontent from patch where id_note=? order by revision asc', recid)
for ndx, patch in ipairs(patches) do
   local gdiff = Diff.patch_fromText( patch.rcontent )
   inittext = Diff.patch_apply( gdiff, inittext )
end
local e = Nylon.uptime()
print(inittext)
print(string.format('Time: %f\n',(e-s)))

local Nylon = require 'nylon.core'()
local wv = require 'nylon.debug' { name = 'pls-winman' }
local function WindowDim( x, y, w, h )
   return { x = x, y = y, w = w, h = h }
end
local function WindowMoveResize( w, dim )
   w:resize( dim.h, dim.w )
   w:mvwin( dim.y, dim.x )
end
local win_focused
local function entryfn_winman( cord, env )
   local tiled = {}
   local modal = {}
   local landscape = false
   local fullscreened = false
   local function moveTiledRight_portrait(nexisting)
      local halfscreen = math.floor(env.curses.ncols/2)
      local h = env.curses.nrows / nexisting
      local lasttop = env.curses.nrows
      for i = 1, nexisting do
         local prev = tiled[i]
         local newtop = math.floor(env.curses.nrows-(i*h))
         local newdim = WindowDim( halfscreen, newtop, halfscreen, (lasttop-newtop) )
         lasttop = newtop
         WindowMoveResize( prev.win, newdim )
         wv.log('debug','moveTiledRight resized')
         prev.on.resized( newdim )
      end
   end
   local function moveTiledRight_landscape(nexisting)
      local halfscreen = math.floor(env.curses.nrows/2)
      local width = env.curses.ncols / nexisting
      local lasttop = env.curses.ncols
      for i = 1, nexisting do
         local prev = tiled[i]
         local newtop = math.floor(env.curses.ncols-(i*width))
         local newdim = WindowDim( newtop, halfscreen, (lasttop-newtop), halfscreen )
         lasttop = newtop
         WindowMoveResize( prev.win, newdim )
         wv.log('debug','moveTiledRight resized')
         prev.on.resized( newdim )
      end
   end
   local function moveTiledRight(nexisting)
      if  landscape then
         moveTiledRight_landscape(nexisting)
      else
         moveTiledRight_portrait(nexisting)
      end
   end
   local function resizeAllTiled_portrait()
      local top = tiled[#tiled]
      local halfscreen = math.floor(env.curses.ncols/2)
      local newdim = WindowDim(0,0,halfscreen,env.curses.nrows)
      WindowMoveResize( top.win, newdim )
      local nexisting = #tiled -1
      moveTiledRight(nexisting)
      if nexisting > 0 then
         moveTiledRight( nexisting )
      else
         env.curses.screen:clear()
         env.curses.screen:refresh()
      end
      
      top.on.resized( newdim )
   end
   local function resizeAllTiled_landscape()
      local top = tiled[#tiled]
      local halfscreen = math.floor(env.curses.nrows/2)
      local newdim = WindowDim(0,0,env.curses.ncols,halfscreen)
      WindowMoveResize( top.win, newdim )
      local nexisting = #tiled -1
      moveTiledRight(nexisting)
      if nexisting > 0 then
         moveTiledRight( nexisting )
      else
         env.curses.screen:clear()
         env.curses.screen:refresh()
      end
      
      top.on.resized( newdim )
   end
   local function fullscreen_thisWindow( top )
      local newdim = WindowDim(0,0,env.curses.ncols,env.curses.nrows)
      if top.win then
         WindowMoveResize( top.win, newdim )
      else
         wv.log('debug','weird, window has no window top=%s', top)
      end
      if top.on and top.on.resized then
         top.on.resized( newdim )
      else
         wv.log('debug','weird, th top=%s', top)
      end
   end
   local d_minimized = WindowDim( 0, 0, 1, 1 )
   
   local function resizeAllTiled()
      if not tiled[1] then -- no windows
         env.curses.screen:mvaddstr(0,0,"No buffers; press C-l to open or create new record")
         env.curses.screen:refresh()
         return 
      end
      if #tiled > 1 then
         if fullscreened then
            fullscreen_thisWindow( fullscreened )
--            for _, w in ipairs(tiled) do
--               if w ~= fullscreened then
--                  WindowMoveResize(w.win, d_minimized)
--                  if w.on.resized then w.on.resized(d_minimized) end
--               end
--            end
         elseif landscape then
            resizeAllTiled_landscape()
         else
            resizeAllTiled_portrait()
         end
      else -- only one window
         fullscreen_thisWindow( tiled[1] )
      end
      for _, w in ipairs(modal) do
         if w.on.resized then
            w.on.resized()
         end
      end
   end
   local function change_focus(towin)
      if win_focused ~= towin then
         local prev = win_focused
         win_focused = towin
         local _ = prev and prev.on.resized and prev.on.resized()
         local _ = towin and towin.on.resized and towin.on.resized()
      end
   end
   local function set_best_focus()
      change_focus( (#modal > 0) and modal[#modal] or tiled[#tiled] )
   end
   ------------------------------------------------------------------
   ------------------------------------------------------------------
   function cord.event.toggle_landscape()
      landscape = not landscape
      resizeAllTiled()
   end
   function cord.event.toggle_fullscreen()
      if fullscreened then
         fullscreened = false
      else
         if #tiled > 0 then
            fullscreened = tiled[#tiled]
         end
      end
      resizeAllTiled()
   end
   function cord.event.focused_window_to_primary()
      for i, w in ipairs(tiled) do
         if w == win_focused then
            table.remove(tiled,i)
            table.insert(tiled,win_focused)
            resizeAllTiled()
            return
         end
      end
   end
   function cord.event.this_window_to_primary(win)
      for i, w in ipairs(tiled) do
         if w == win then
            table.remove(tiled,i)
            table.insert(tiled,win)
            resizeAllTiled()
            return
         end
      end
   end
   
   function cord.event.other_window()
      if #modal > 0 then
         wv.log('debug','no window switching when modal dialog is up')
      elseif win_focused and #tiled > 1 then
         local donext = false
         for n = #tiled, 1, -1 do
            if donext then
               change_focus( tiled[n] )
               return
            end
            donext = (win_focused == tiled[n])
         end
         change_focus(tiled[#tiled]) -- we wrapped, last focused was probably window 1
      end
   end
   -- add a managed window to the tiled list
   function cord.event.push_tiled( mw )
--      if #tiled > 0 then
--         moveTiledRight(#tiled)
--         -- mw.cord.event.refresh(true)
--      end
      table.insert( tiled, mw )
      resizeAllTiled()
      change_focus( mw )
   end
   function cord.event.remove_tiled( mw )
      local remain = {}
      for i, v in ipairs(tiled) do
         wv.log('debug','winman remove_tiled mw=%s v=%s',mw, v)
         if v ~= mw then
            table.insert( remain, v )
         end
      end
      tiled = remain
      resizeAllTiled()
      set_best_focus()
   end
   function cord.event.Refresh()
      resizeAllTiled()
   end
   function cord.event.swap_tiled()
      wv.log('debug','cord.event.swap_tiled #tiled=%d',#tiled)
      if #tiled > 1 then
         local prevtop = tiled[#tiled]
         tiled[#tiled] = tiled[#tiled-1]
         tiled[#tiled-1] = prevtop
         if fullscreened == prevtop then
            fullscreened = tiled[#tiled]
         end
         resizeAllTiled()
         set_best_focus()
      end
   end
   function cord.event.push_modal( mw )
      table.insert( modal, mw )
      change_focus( mw )
   end
   function cord.event.remove_modal( mw )
      if modal[#modal] ~= mw then
         wv.log('error','removed modal dialog not active, fixme')
      else
         table.remove(modal,#modal)
         resizeAllTiled() -- just to force refresh
         set_best_focus()
      end
   end
   while true do
      cord:sleep(1)
   end
end
local Malwin = {}
--[[--
-- "opt" fields
---- :win    pdcurses window
---- :on     table of event callbacks (see below)
---- :parent receives 'bubble up' of unhandled keys
---- :modal? indicates this window should grab input events first while it is active; also,
             this probably indicates the window should be kept free-floating and not be
             managed by the tiler.
-- "opt.on" callbacks
---- hidden
---- shown
---- resized
---- destroyed
---- links   : window should return a list of x,y coordinates which are links.  When user requests
               visual link activation, all visible windows are queried for targets and assigned 
               a alphanumeric sequence.  If more than 36 links are active, all links must be
               two characters.  Generally, link enumeration should increase left to right and
               then top to bottom within a window.  < WATCHU TALKING BOUT WILLIS ???
--]]--
function Malwin:new( opt )
   local o = setmetatable( {}, { __index = self } )
   if not opt.win then
      wv.log('abnorm','creating winman managed window with no curses window?')
   end
   
   o.win = opt.win
   o.on  = opt.on or {}
   return o
end
local function entryfn_key( cord, mainkeyhandler, unhandled_keys )
   wv.log '001 entryfn_key'
   cord.event.key = function(k)
         local mapped = mainkeyhandler(k)
         
         if mapped then -- not handled or mapped by main key handle
            if win_focused and win_focused.on.key then
               wv.log('norm','input key/map [%s->%s] not handled by main app, passing to focused win',k,mapped)
               local rc = win_focused.on.key(mapped)
               if rc and unhandled_keys then
                  unhandled_keys(rc)
               end
            else
               wv.log('abnorm','input key/map [%s->%s] not handled by main app, no focused win with keyhandler',k,mapped)
            end
         else
            wv.log('norm','input key/map [%s] handled by main app',k)
         end
   end
   cord.event.never.wait()
end
local function entryfn_input( cord, cord_key )
   wv.log '001 entryfn_input'
   Pdcurses.Static.keypad(true);
   cord:cthreaded_multi( Pdcurses.Static.cthread_getch_loop(), 
      function( k )
         cord_key.event.key( k )
      end )
end
local cord_key
local module = {
   win = Malwin,
   set_input = function(mainkeyhandler,unhandled_keys)
      cord_key = Nylon.cord( 'key', entryfn_key, mainkeyhandler,unhandled_keys )
      local cord_input = Nylon.cord( 'input', entryfn_input, cord_key )
      -- return cord_key
   end,
   
   inject_key = function(k)
      cord_key.event.key(k)
   end
}
local function malwin_cleanup(malwin)
   if not malwin.win then
      wv.log('abnorm','removing win twice')
   else
      malwin.win:clear()
      malwin.win:refresh()
      malwin.win:forcedelete()
      malwin.win = nil
   end
end
function module.create( env )
   local cord_winman = Nylon.cord( 'winman', entryfn_winman, env )
   function module.push(malwin)
      cord_winman.event.push_tiled(malwin)
      return function()
         wv.log('debug','remove pushed win=%s',malwin)
         cord_winman.event.remove_tiled(malwin)
         malwin_cleanup(malwin)
      end
   end
   function module.swap_tiled()
      wv.log('debug','Winman.swap_tiled fn')
      cord_winman.event.swap_tiled()
   end
   function module.remove_focused()
      cord_winman.event.remove_focused()
   end
   -- returns a function which can be used to remove the window
   function module.push_modal(malwin)
      cord_winman.event.push_modal( malwin )
      return function()
         wv.log('debug','remove modal win=%s',malwin)
         cord_winman.event.remove_modal(malwin)
         malwin_cleanup( malwin )
      end
   end
   function module.other_window()
      cord_winman.event.other_window()
   end
   function module.toggle_landscape()
      cord_winman.event.toggle_landscape()
   end
   function module.toggle_fullscreen()
      cord_winman.event.toggle_fullscreen()
   end
   function module.isFocused(w)
      return w == win_focused
   end
   function module.Refresh()
      cord_winman.event.Refresh()
   end
   function module.focused_window_to_primary()
      cord_winman.event.focused_window_to_primary()
   end
   function module.this_window_to_primary(win)
      cord_winman.event.this_window_to_primary(win)
   end
   
end
return module

local wv = require 'nylon.debug'{ name = 'pls-theme' }
pcall( function() require 'NylonOs' end ) -- just to test for windows / not windows
local WINDOWS = (NylonOs and NylonOs.IsWindows())
local maxpairs = Pdcurses.Static.color_pairs()
wv.log('debug','WINDOWS=%s color_pairs returned=%d', WINDOWS, maxpairs)
--if maxpairs < 1 then -- linux curses returns 0, no idea why but it seems 
--   maxpairs = 8      -- to work if I say 8 anyway.  Maybe because I was
--end                  -- loading this file before calling curses init?
local assigned_pairs = {}
local free_pairs = {}
for i = 1,(maxpairs-1) do
   table.insert(free_pairs,i)
end
wv.log 'welcome to pls-theme'
local function get_color( fg, bg )
   local key = fg * 0x100000 + bg
   if assigned_pairs[key] then
      return assigned_pairs[key][1]
   else
      local pair = free_pairs[#free_pairs]
      table.remove(free_pairs,#free_pairs)
      wv.log('debug', 'add color theme, pair=%d fg=%d bg=%d',
             pair, fg, bg )
      local color = Pdcurses.Color(pair, fg, bg)
      assigned_pairs[key] = { color, pair }
      return color
   end
end
-- weird Windows/Pdcurses color things:
-- 
-- Pdcurses.Color.yellow is actually bright white, whereas 'white' is more like grey.
-- To get actual yellow, use color 'yellow' + 8
-- These Pdcurses colors are really messed up on windows.  Here's what they really
-- seem to be:
--
-- white => white
-- black => black
-- red => red
-- green => green
-- blue => blue
-- cyan => sort of teal?
-- magenta -> indigo?
-- yellow => bright white (??)
--
-- With bold attr,
-- white => bright white
-- black => gray
-- red => bright red
-- blue => bright blue
-- green => bright green
-- cyan => actually looks like cyan
-- magenta => actually looks like magenta
-- yellow => actually looks like yellow
-- 
-- red, blue, green seem correct but are dull.
local theme = {
   --               Foreground                 Background            bold
   normal  =     { Pdcurses.Color.white,    Pdcurses.Color.black,    false },
   inverse =     { Pdcurses.Color.black,    Pdcurses.Color.white,    false },
   inversehot =  { Pdcurses.Color.red,      Pdcurses.Color.white,    true },
   heading  =    { Pdcurses.Color.white,    Pdcurses.Color.black,    true },
   classicmenu = { Pdcurses.Color.yellow,   Pdcurses.Color.cyan ,    true },
   autotext =    { Pdcurses.Color.cyan,     Pdcurses.Color.black,    false },
   focuswinborder = { Pdcurses.Color.white,  Pdcurses.Color.black,   true },
}
if not WINDOWS then
--   theme.classicmenu = { Pdcurses.Color.black, Pdcurses.Color.cyan }
   theme.autotext = { Pdcurses.Color.cyan, Pdcurses.Color.black }
end	
local with = setmetatable( {}, {
      __index = function(t,v)
         local fgbg = theme[v]
         if fgbg then
            local color = get_color( fgbg[1], fgbg[2] )
            return function(win,withfun)
               if win then
                  win:attron( color )
                  if fgbg[3] then
                     win:attron( Pdcurses.Color.a_bold )
                  end
               end
               withfun()
               if win then
                  if fgbg[3] then
                     win:attroff( Pdcurses.Color.a_bold )
                  end
                  win:attroff( color )
               end
            end -- end, 'with' function
         end
      end })
return setmetatable( {
                        color = get_color,
                        with = with,
                     }, {
   __index = function(t,v)
      --wv.log('debug', 'request theme color=%s', v)
      local fgbg = theme[v]
      --wv.log('debug', 'request theme color=%s fgbg=%s', v, fgbg)
      if fgbg then
         return get_color( fgbg[1], fgbg[2] )
      end
   end } )

local kIdealStringLength=768
local wv = require 'nylon.debug' { name = 'pls-bbuf' }
local Bbuf = {}
function Bbuf.setIdealStringLength( n )
   kIdealStringLength = n
end
function Bbuf:_invalidateOnEdit()
   self.cachept = 9.0E99
end
local function Node(text)
   return { height = 0, v = text, len=#text }
end
local function tree_delta( self )
   return (self.l and self.l.height or 0) - (self.r and self.r.height or 0)
end
local tree_balance
local function tree_rotl(self)
   local r = self.r
   self.r = r.l
   r.l = tree_balance(self)
   return tree_balance(r)
end
local function tree_rotr( self )
   local l = self.l
   self.l = l.r
   l.r = tree_balance(self)
   return tree_balance(l)
end
local function node_setlen( node )
   node.len = (node.l and node.l.len or 0) -- 
   node.len = node.len + #node.v
   node.len = node.len + (node.r and node.r.len or 0)
end
tree_balance = function(self)
   local delta = tree_delta(self)
   if delta < -1 then
      self.r = tree_delta(self.r) > 0 and tree_rotr(self.r) or self.r
      return tree_rotl(self)
   elseif delta > 1 then
      self.l = tree_delta(self.l) < 0 and tree_rotl(self.l) or self.l
      return tree_rotr(self)
   end
   self.height = 0
   if self.l and self.l.height > self.height then
      self.height = self.l.height
   end
   if self.r and self.r.height > self.height then
      self.height = self.r.height
   end
   self.height = self.height + 1
   node_setlen(self)
   return self
end
local function tree_insert( self, pos, elm )
--   wv.log('debug','tree insert, e=%s', elm.v)
   if not self then
      return elm
   end
   if self.l then
      if pos <= self.l.len then
         self.l = tree_insert(self.l, pos, elm)
         node_setlen(self)
         return tree_balance(self)
      else
         pos = pos - self.l.len
      end
   elseif pos <= 1 then
      self.l = tree_insert( self.l, pos, elm )
      node_setlen(self)
      return tree_balance( self )
   end
   if pos <= (#self.v+1) then
      local modified = self.v:sub( 1, pos-1 ) .. elm.v .. self.v:sub(pos)
      -- no nodes change, but in full implementation, we should (possibly) split
      -- the strings here to make a new node, which I guess would be
      -- inserted to the right??
      if #modified < kIdealStringLength then
         self.v = modified
         node_setlen(self)
         return self
      else
         local lideal = math.floor(kIdealStringLength * 5.0 / 6.0)
         self.v = modified:sub(1,lideal)
         -- wv.log('debug','avl text tree split string=%d -> %d',#modified, lideal)
         self.r = tree_insert( self.r, 0, Node(modified:sub(lideal+1)) )
         node_setlen( self )
         return tree_balance(self)
      end
   end
   pos = pos - #self.v
   self.r = tree_insert( self.r, pos, elm )
   node_setlen(self)
   return tree_balance(self)
end
local function tree_delete( self, posbeg, len )
   if not self then
      return
   end
   wv.log('debug','tree_delete, self=%s posbeg=%d len=%d #l=%d #v=%d',
          self, posbeg, len, self.l and self.l.len or -1, #self.v)
   if self.l then
      if posbeg <= self.l.len then
         local remain = tree_delete(self.l, posbeg, len)
         if remain then
            posbeg = 1
            len = remain
            wv.log('debug','back to clip more, remain=%d #v=%d',remain,#self.v)
         else
            node_setlen(self)
            return -- tree_balance(self)
         end
      else
         posbeg = posbeg - self.l.len
      end
   end
   if posbeg <= #self.v then
      local remain = #self.v - posbeg - len + 1
      if remain > 0 then
         local modified = self.v:sub( 1, posbeg-1 ) .. self.v:sub(posbeg+len)
         self.v = modified
         node_setlen(self)
         return
      else
         local modified = self.v:sub( 1, posbeg-1 )
         local removed = #self.v - posbeg + 1
         self.v = modified
         len = len - removed
         posbeg = 1
         -- tree_delete( self.r, 1, len-removed )
         
--         local lideal = math.floor(#modified / 2)
--         self.v = modified:sub(1,lideal)
--         -- wv.log('debug','avl text tree split string=%d -> %d',#modified, lideal)
--         self.r = tree_insert( self.r, 0, Node(modified:sub(lideal+1)) )
--         node_setlen( self )
--         return -- tree_balance(self)
      end
   else
      posbeg = posbeg - #self.v
   end
   if self.r then
      local remain = tree_delete( self.r, posbeg, len )
      node_setlen(self)
      return remain -- tree_balance(self)
   else
      wv.log('debug','need to clip more on return, posbeg=%d len=%d', posbeg, len)
      node_setlen(self)
      return len
   end
end
function treewalk_to( self, point )
   if not self then -- out of bounds or something
      wv.log('abnorm','avl text search out of bounds, point=%d',point)
      return
   end
   
   if self.l then
      if point <= self.l.len then
         return treewalk_to( self.l, point )
      else
         point = point - self.l.len
      end
   end
   if point <= #self.v then
      -- wv.log('debug','treewalk_to point=%d #l=%d',point,#self.v)
      return self.v, point
   end
   return treewalk_to( self.r, point - #self.v )
end
function tree_traverse( self, point, cbfun )
--   wv.log('debug','tree_traverse point=%d cbfun=%s', point, cbfun )
   if not self then
      return
   end
   if self.l then
      if point <= self.l.len then
         tree_traverse( self.l, point, cbfun )
      end
      point = point - self.l.len
   end
   if point <= #self.v then
      cbfun( self.v, (point < 1 and 1 or point) )
   end
   point = point - #self.v
   return tree_traverse( self.r, point, cbfun )
end
--function Bbuf:lcol4point(point)
--   local ndx = 1
--   if not point or point < 1 then
--      wv.log('abnorm','invalid point=%s',point)
--      error('invalid point')
--   end
--   if point >= self.cachept and (point < (self.cachept+self.cachelen)) then
--      return self.cachel, (point-self.cachept+1)
--   end
--   local startPoint = point
--   while ndx <= #self.lines do
--      local llen = #(self.lines[ndx])
--      -- wv.log('debug','ndx=%d llen=%d point=%d line=%s',ndx,llen,point,self.lines[ndx])
--      if llen >= point then
--         self.cachept = startPoint - point + 1
--         self.cachel = ndx
--         self.cachelen = #self.lines[1]
--         return ndx, point
--      else
--         point = point - llen
--         ndx = ndx + 1
--      end
--   end
--   wv.log('error','point=%d, max=%d #lines=%d',point,self.max,#self.lines)
--end
--
function Bbuf:end_point()
   return self.max
end
function Bbuf:char_at_point_dec( point )
   local l, col = treewalk_to( self.textavlroot, point )
   if not l then
      wv.log('error','point maybe out of range? point=%d max=%d',point or -99,self:end_point())
      return string.byte(' ',1)
   else
      return string.byte(l,col)
   end
end
function Bbuf:char_at_point( point )
   return string.char( self:char_at_point_dec(point) )
end
function Bbuf:append( text )
   -- this could probably be optimized with an optimized AVL
   -- "insert all the way to the right" operation that avoids
   -- all the un-needed comparisons...
   -- but for now, it is okay
   self:_insert_int( self.max + 1, text )
end
function Bbuf:walkFragments( point )
   local co = coroutine.create(function()
                                  tree_traverse( self.textavlroot, point, 
                                                 function(t,point)
                                                    coroutine.yield(t,point)
                                  end )
   end)
   return function()
      --wv.log('debug','walkFragments resuming point=%d',point)
      local ok, t, point = coroutine.resume(co)
      -- wv.log('debug','walkFragments resumed=%s / %s / %s',ok, tostring(point), tostring(t))
      if ok then
         return t, point
      end
--      local t = {}
--      while point < self:end_point() do
--         table.insert(t,self:char_at_point(point))
--         point = point + 1
--         if t[#t] == '\n' then
--            break
--         end
--      end
--      if #t > 0 then
--         local str = table.concat(t)
--         wv.log('debug','walkfrag, t=%d str=%s', #t,str)
--         return str, 1, #t
--      else
--         wv.log('debug','walkfrag END, t=%d', #t)
--      end
   end
end
function Bbuf:walkFragmentsEOL( point )
   local fn = self:walkFragments(point)
   local lastt,lasteol
   return function()
      local t, point
      if lasteol and (lasteol+1) <= #lastt then
         t = lastt
         point = lasteol + 1
         lasteol = nil
      else
         t, point = fn()
      end
      if t then
         local eol = string.find(t,'\n',point)
--         wv.log('debug','walkFragmentsEOL, [b,e] = [%d,%d] t[]=%s',
--                point, (eol or -1), t:sub(point,eol) )
         if eol then
            lastt = t
            lasteol = eol
            return t, point, eol
         else
            return t, point
         end
      end
   end
--   local ndx, col = self:lcol4point(point)
--   return function()
--      local rcl ,rccol = self.lines[ndx], col
--      if not rcl then
--         return
--      end
--      local nl = string.find( rcl, '\n', rccol )
--      if nl then
--         col = nl+1
--         if col > #rcl then
--            col = 1
--            ndx = ndx + 1
--         end
--         return rcl,rccol,nl
--      else -- no EOL, go to next fragment
--         col = 1
--         ndx = ndx + 1
--         if self.lines[ndx] then
--            return rcl,rccol
--         else
--            return rcl,rccol,(#rcl+1)
--         end
--      end
--   end
end
function Bbuf:walkFragmentsEOL_orWidth( point, width )
   local fn = self:walkFragmentsEOL(point)
   local t, col, eol
   local remain = width
   return function()
      if not t then
         t,col,eol = fn()
         if not t then
            return
         end
      end
      local w = (eol and eol or #t) - col + 1
      if w > remain then
         local oldcol = col
         local nextcol = col+remain
         if nextcol > #t then
            t = nil
         else
            col = nextcol
         end
         return t, oldcol, nextcol
      else
         local savet = t
         t = nil
         if eol then
            remain = width
         end
         return savet, col, eol
      end
   end
end
function Bbuf:searchPointsCharBackward(point)
   local ndx, col = self:lcol4point(point)
   return function()
      local rcl ,rccol = self.lines[ndx], col
   end
end
function tree_dump(self,path)
   path = path or '[root'
   if self.l then 
      tree_dump( self.l, path .. ', left' )
   end
   print( string.format('node %s %s] #=%d l=%s r=%s v="%s"', 
                        self, path, self.len, self.l, self.r, self.v ))
   if self.r then 
      tree_dump( self.r, path .. ', right' )
   end
end
function Bbuf:dump()
   tree_dump( self.textavlroot )
end
function Bbuf:new()
   return setmetatable({
                   -- lines = {},
                   --  textavlroot = Node(''),
                   max = 0,
                   cachept = 9.0E99,
                   operations = {},
                   unmodified_operation_index = 0,
                       }, { __index = self })
end
function Bbuf:sub( l, r )
   local substrleft = (r-l)
   local frags = {}
   for line, col in self:walkFragments(l) do
      local llen = #line-col+1
      if llen > substrleft then
         table.insert(frags,line:sub(col,col+substrleft))
         break
      else
         table.insert(frags,line:sub(col))
         substrleft = substrleft - llen
      end
   end
   return table.concat(frags)
end
-- returns some point near where the undone operation occurred or something
function Bbuf:undo()
   if #self.operations < 1 then
      return
   end
   local last = self.operations[#self.operations]
   table.remove( self.operations, #self.operations )
   if last.removed then
      self:_insert_int( last.l, last.text )
      return last.l
   elseif last.inserted then
      self:_remove_int( last.point, last.point + last.len - 1 )
      return last.point
   end
end
function Bbuf:isModified()
   return self.unmodified_operation_index ~= #self.operations
end
function Bbuf:setUnmodified()
   self.unmodified_operation_index = #self.operations
end
function Bbuf:_addoperation( o )
   local last = self.operations[#self.operations]
   if last and o.inserted and last.inserted and
              (o.point == last.point + last.len) then
      last.len = last.len + o.len
   else
      table.insert( self.operations, o )
   end
end
function Bbuf:remove( l, r )
   l = (l < 1) and 1 or l
   r = r or l
   r = (r > self.max) and self.max or r
   if r < l then -- possibly if self.max = 0
      return
   end
   if self.textavlroot then
      self:_addoperation{ removed = true, text = self:sub(l,r), l = l, r = r }
      self:_remove_int( l, r )
   end
--   return self:_remove_int( l, r )
end
function Bbuf:_remove_int( l, r )
   local len = (r-l)+1
   tree_delete( self.textavlroot, l, len )
   self.max = self.max - len
end
function Bbuf:_old_remove_int( l, r )
   local lndx, lcol = self:lcol4point(l)
   local rndx, rcol = self:lcol4point(r)
--   wv.log( 'debug', 'remove [%d-%d] :: end=%d :: [%d,%d]->[%d,%d]',
--           l, r, self:end_point(),
   --           lndx or -99,lcol or -99, rndx or -99, rcol or -99)
   if lndx == rndx then
      if lndx then
         local line = self.lines[lndx]
         self.lines[lndx] = line:sub(1,lcol-1) .. line:sub(rcol+1)
         self.max = self.max - (r-l+1)
      end
   else
      if r > self:end_point() and lndx == #self.lines then
         local line = self.lines[lndx]
         self.max = self.max - (#line-lcol+1)
         self.lines[lndx] = line:sub(1,lcol-1)
      else
         error( string.format('multi-line remove not implemented [%d,%d]->[%d,%d]',
                              lndx or -99,lcol or -99, rndx or -99, rcol or -99))              
      end
   end
   self:_invalidateOnEdit()
end
function Bbuf:insert( point, text )
   if point > self:end_point() + 1 and self:char_at_point_dec(self:end_point()) ~= 10 then
      self:insert( self:end_point()+1, '\n' )
   end
   if #text > 0 then
      self:_addoperation{ inserted = true, point = point, len = #text }
   end
   return self:_insert_int( point, text )
end
function Bbuf:_insert_int( point, text )
--   if point > self:end_point() then
--      return self:append(text)
--   else
   local full = #text
   -- wv.log('debug','insert point=%d max=%d #text=%d', point or -99, self.max, #text)
   local off = 0
   while #text > kIdealStringLength do
      self.textavlroot = tree_insert( self.textavlroot, point+off, Node(text:sub(1,kIdealStringLength)) )
      off = off + kIdealStringLength
      text = text:sub(kIdealStringLength+1)
   end
   if #text > 0 then
      self.textavlroot = tree_insert( self.textavlroot, point+off, Node(text:sub(1)) )
   end
   self.max = self.max + full
   self:_invalidateOnEdit()
--   end
end
function Bbuf:replace( ptl, ptr, text )
   -- making this a primitive because it is a good candidate for optimization,
   -- but for now it is just implemented as 'remove' + insert
   self:remove(ptl,ptr)
   self:insert(ptl,text)
end
-- local subbed = l:gsub('\t','    '):gsub('\n','')
return Bbuf

local function stringsplit(str)
   if #str > 1 then
      return str:sub(1,1), stringsplit(str:sub(2))
   else
      return str
   end
end
-- this is shameful how long it took to write.
-- I think a better general thing would be to write it as
-- 1377 => { 1, 1, 1, 1 }
-- 1378 => { 1, 1, 1, 2 } etc. where the table is {base #cstr, base #vstr, base #cstr}
local cstr = 'bdfghjklmnprstvw'
local vstr = 'aeiou'
local cons  = { stringsplit(cstr) }
local vowel = { stringsplit(vstr) }
-- four places is 1377 (abab)  "lett"
-- five places is 7777 (babab) "7777" hahaha
local function number2string( num, which )
--   print( 'number2string', num, which == vowel and 'vowel' or 'cons' )
   if not which then
      which = cons
      num = tonumber(num) -- protect against receiving number as string, e.g, "8192" rather than 8192
   else
      if num <= 0 then return '' end
   end
   num = num - 1
   local mod = num % #which
   return (  number2string( math.floor(num/#which),
                            which == cons and vowel or cons ) .. which[mod+1] )
end
local function string2number( str, prior, which )
--   print('string2number', str, prior )
   if not str then return end
   if not string.find(cstr,str:sub(#str)) then return end -- last letter must be consonant
   prior = prior or 0
   local check = which or vstr
   local other = (check == vstr) and cstr or vstr
   local first = str:sub(1,1)
   local f = string.find(check,first)
   if f then
      local acc = (prior*#check) + f
      return (#str <= 1) and acc or string2number(str:sub(2), acc, other)
   elseif not which then
      f = string.find(other,first)
      if not f then
         return -- invalid string
      end
      local acc = prior*#other + f
      return (#str <= 1) and acc or string2number(str:sub(2),acc,check)
   end
end
local function isvalid( str )
   local len = #str
   if len < 1 then
      return false
   end
   
   -- last letter must be consonant.
   local which = cstr
   for i = len, 1, -1 do
      if not string.find(which,str:sub(i,i)) then
         return false
      end
      -- must alternate consonant->vowel->consonant->vowel etc.
      which = (which == cstr) and vstr or cstr
   end
   return true
end
--if string.find(arg[1],'%d') then
--   local n = number2string(arg[1])
--   print(n,string2number(n))
--else
--   local n = string2number(arg[1])
--   print( n, number2string(n))
--end
return { 
   to_s = number2string,
   to_i = string2number,
   isvalid = isvalid
}

require 'clibs' -- for nylono
local Keys = {}
local WINDOWS = (NylonOs and NylonOs.IsWindows())
   --[[-- Free Ctrl keys:
      C-c (emacs this is a user prefix or something)
      C-l (i associate with window mgmt)
      C-o (emacs = "open line"? I've never used that)
      C-q (usally means insert literal)
      C-u (emacs = numbered prefix)
      C-w (emacs = kill-region)
   --]]--
--[[--
 useful keys
   [27] C-[ (esc)
   [28] C-\
   [29] C-]
   [30] C-^
   [31] C-_ (underscore)
   [417]   M-a (418=M-b, 419=M-c, 442=M-z, etc)
   [423]   M-g for M-g n and M-g p to move through search results
   [428]   M-l might be better for the app menu than C-l
           For some reason, in windows, right alt key doesn't work,
           only left key.  so I am inclined against Alt+# key combos now.
--]]--
Keys.control = {
--   menu = 12, -- C-l -- conflicts with Ion WM
--   menu = 17, -- C-q
--   menu = 20, -- C-t -- conlicts with buffer mgmt, C-t k, C-t o (Keys.command_prefix)
   menu = 429, -- M-m
   editTitle = 436, -- M-t
}
Keys.edit = {
   [18] = 'isearch_backward',        -- C-r
   [19] = 'isearch_forward',         -- C-s
   [1]   = 'move_beginning_of_line', -- C-a
   [5]   = 'move_end_of_line',       -- C-e
   [6]   = 'forward_char',           -- C-f
   [2]   = 'backward_char',          -- C-b
   [Pdcurses.key.right] = 'forward_char',  -- C-f
   [Pdcurses.key.left]  = 'backward_char', -- C-f
   [7]   = 'ctrlg',
   [422] = 'forward_word',           -- M-f
   [418] = 'backward_word',          -- M-b
   [437] = 'upcase_word',            -- M-u
   [428] = 'downcase_word',          -- M-d
   [419] = 'capitalize_word',        -- M-c
   [22]  = 'scroll_up_command',                   -- C-v
   [Pdcurses.key.npage]  = 'scroll_up_command',   -- pgdn
   [438] = 'scroll_down_command',                 -- M-v
   [Pdcurses.key.ppage]  = 'scroll_down_command', -- pgup
   [Pdcurses.key.dc] = 'delete_char', -- [Delete] 
   [4]   = 'delete_char',             -- C-d
   [8]   = 'delete_backward_char',    -- bksp
   -- 161217 not exactly sure why this is; on linux I get 263 for backspace key.
   [263]  = 'delete_backward_char',        -- C-z
   [420] = 'delete_word', -- M-d
   [11]  = 'kill_line',   -- C-k
   [441] = 'yank_pop',    -- M-y
   [26]  = 'undo',        -- C-z
   [445] = 'scroll_right',        -- C-pgup
   [446] = 'scroll_left',         -- C-pgdb
   [9]   = 'indent_for_tab_command', -- bksp
   [10]  = 'newline',                -- Enter
   [25]  = 'yank',        -- C-y
   [27]  = 'escape'
}
Keys.everybody = {
      [Pdcurses.key.down] = 'next_line',
      [Pdcurses.key.up]   = 'previous_line',
   [22]  = 'scroll_up_command',                   -- C-v
   [Pdcurses.key.npage]  = 'scroll_up_command',   -- pgdn
   [438] = 'scroll_down_command',                 -- M-v
   [Pdcurses.key.ppage]  = 'scroll_down_command', -- pgup
      
      [14]  = 'next_line',        -- C-n
      [15]  = 'context_menu',     -- C-o
      [16]  = 'previous_line',    -- C-p
      [23]  = 'kill_region',      -- C-w
      [431] = 'toggle_landscape', -- M-o
--      [431] = 'toggle_fullscreen', -- M-o
      [439] = 'kill_ring_save',   -- M-w
}
if WINDOWS then
   local keymap_everybody_windows = {
      [Pdcurses.key.ctl_tab] = 'other_window',
      [Pdcurses.key.ctl_enter]  = 'focused_window_to_primary', -- 
      [Pdcurses.key.ctl_home] = 'beginning_of_buffer', -- C-Home
      [Pdcurses.key.ctl_end] = 'end_of_buffer',       -- C-end
      [Pdcurses.key.sdown] = 'xyz', -- Shift-down
      [Pdcurses.key.sup]   = 'xyz', -- Shift-up
      [13] = 10,
   }
   for i,v in pairs(keymap_everybody_windows) do
     Keys.everybody[i] = v
   end	
end	
-- C-x prefix (or C-t, if you're me)
Keys.command_prefix = {
   [3] = 'save_buffers_kill_terminal',        -- C-x C-c
   [19] = 'save_buffer',                      -- C-x C-s
   [string.byte('k',1)] = 'kill_buffer',      -- C-x k
   [string.byte('u',1)] = 'undo',             -- C-x u
   [string.byte('o',1)] = 'other_window',     -- C-x o
   [string.byte('i',1)] = 'insert_file',      -- C-x o
   [string.byte('m',1)] = 'mail_record',      -- C-x k
   [string.byte(' ',1)] = 'set_mark_command', -- C-x k
}
-- C-c prefix
Keys.personal_prefix = {
   [string.byte('.',1)] = 'jumptotag', -- C-c .
   [3] = 'query_citations',            -- C-c C-c
   [string.byte('>',1)] = 'extract_to_new_record',
   [string.byte('n',1)] = 'insert_ref_to_new_record',
   [string.byte('y',1)] = 'special_yank',
}
-- abandoned
--   [string.byte('s',1)] = 'start_snipping_tool',
Keys.esc_prefix = { -- Duplicate Pdcurses' M-[a-z] mappings
   [string.byte('a',1)] = 417,
   [string.byte('b',1)] = 418,
   [string.byte('c',1)] = 419,
   [string.byte('d',1)] = 420,
   [string.byte('e',1)] = 421,
   [string.byte('f',1)] = 422,
   [string.byte('g',1)] = 423,
   [string.byte('l',1)] = 428,
   [string.byte('o',1)] = 431,
   [string.byte('s',1)] = 435,
   [string.byte('t',1)] = 436,
   [string.byte('u',1)] = 437,
   [string.byte('w',1)] = 439,
   [string.byte('y',1)] = 441,
}
return Keys

------------------------------------------------------------------
-- @todo:
-- kill ring gc?
local wv = require 'nylon.debug' { name = 'pls-ed' }
local ok,e = pcall(function()
                      require 'NylonOs'
                   end)
if not ok then
   wv.log('abnorm','NylonOs not found')
end
local Nylon = require 'nylon.core'()
local edopts = {
   replaceMark = true
}
local function wait_first_event( cord, handlers )
   
   local rc
   local done = false
   -- setup event handlers
   for nEvent, fHandler in pairs(handlers) do
      -- wv.log('debug','set event handler for nEvent=%s',nEvent)
      cord.event[nEvent] = function(...)
         rc = fHandler(...)
         done = true
      end
   end
   while not done do
      cord:yield_to_sleep()
   end
   -- remove event handlers
   for k, v in pairs(handlers) do
      cord.event[k] = nil
   end
   return rc
end
local killring = {}
local killring_yankndx = 0
local function killring_add( t )
   table.insert( killring, t )
   killring_yankndx = #killring
   if NylonOs then
      NylonOs.Static.setclipboard(killring[#killring])
   end
end
local function killring_append(t)
   killring[#killring] = killring[#killring] .. t
   if NylonOs then
      NylonOs.Static.setclipboard(killring[#killring])
   end
end
local function killring_getyanktext()
   if NylonOs then
      return NylonOs.Static.getclipboard()
   else
      return killring[killring_yankndx]
   end
end
local function watch_cursor_pos( ptTopLeft, thePoint, wdim )
   local charsInto = thePoint - ptTopLeft
   local ptRow, ptCol
   local drow = 0
   local dcol = 0
   local charsDrawn = 0
   return function( l, col, eol )
      local toDraw = eol and (eol - col + 1) or (#l-col+1) -- was #l
      if (charsDrawn + toDraw) > charsInto then
         return (dcol + charsInto-charsDrawn), drow
      else
         charsDrawn = charsDrawn + toDraw
      end
      if eol then
         dcol = 0
         drow = drow + 1
      else
         dcol = dcol + toDraw
      end
   end
end
local Theme = require 'pls-theme'
--# [[View]]
--# A view is completely described by:
--# The ncurses window (and dimensions), buffer, topleft, and point
--# incremental search, e.g., is unique to a view.
-- (and maybe some internal stuff? like "last_col", though that has to do
-- only with _movement/key interaction_ and not display; same might be true
-- of e.g., things like 'last i-search start point" or something).
local function entryfn_edit( cord, env, buffer, opt )
   
   local wdim = opt.wdim
   local w = env.w
   env.on = env.on or {} -- ensure table exists, to make test easier
   env.report = env.report or function() end
   opt.plug = opt.plug or {}
   local wordWrap = false
   local walkFun = wordWrap and buffer.walkFragmentsEOL_orWidth or buffer.walkFragmentsEOL
   -- add refresh every 2s
   if true then
      local refresh_cord = Nylon.cord('refreshedit', function(refcord)
                                     while true do
                                        refcord:sleep(10)
                                        cord.event.refresh()
                                     end
      end )
   end
   local function cursorpos( ptTopLeft, thePoint, wdim )
      local f = watch_cursor_pos(ptTopLeft,thePoint,wdim)
      for l, col, eol in walkFun(buffer, ptTopLeft, wdim.w) do
         local cx, cy = f( l, col, eol )
         if cx then
            return cx, cy
         end
      end
   end
   
   local ptTopLeft = 1
   local thePoint = 1
   local theMark
   local isearch_fstring = nil
   local wasding -- true when last event was a "ding", should prevent status
                 -- update from overriding ding message
   local function get_marked()
      local markbeg = theMark and (thePoint < theMark) and thePoint or theMark
      local markend = theMark and (theMark < thePoint) and thePoint or theMark
      return markbeg, markend
   end
   local function get_line_marked( drawPoint, drawPointAfterLine )
      local markbeg, markend = get_marked()
      local lineMarkBeg, lineMarkEnd 
      if markbeg and drawPointAfterLine > markbeg and drawPoint < markend then
         lineMarkBeg = drawPoint >= markbeg and 1 or (markbeg-drawPoint+1)
         lineMarkEnd = drawPointAfterLine <= markend and (drawPointAfterLine-drawPoint) or (markend - drawPoint)
      end
      return lineMarkBeg, lineMarkEnd
   end
   local function pdcur_draw_window( wdim )
      local charsInto = thePoint - ptTopLeft
      local c = opt and opt.theme and opt.theme.text and Theme[opt.theme.text] or Theme.normal
      w:attron( c )
      local function draw_line( drow, l, markBeg, markEnd )
         w:move(drow+wdim.y,wdim.x)
         local s, e
         if isearch_fstring and #isearch_fstring > 0 then
            if isearch_fstring:find '[A-Z]' then
               s,e = l:find(isearch_fstring) 
            else
               s,e = l:lower():find(isearch_fstring) 
            end
         end
         local ndrawn = #l
         if s then
            local Theme = require 'pls-theme'
            w:addstr( l:sub(1,s-1) )
            w:attroff( c )
            Theme.with.classicmenu( w, function()
                                       w:addstr( l:sub(s,e) )
            end )
            w:attron( c )
            w:addstr( l:sub(e+1,wdim.w) )
         else
            if opt.plug.drawline then
               ndrawn = opt.plug.drawline( w, wdim.x, drow+wdim.y, l, markBeg, markEnd  ) or ndrawn
            else
               if not markBeg then
                  w:addstr((#l > wdim.w) and l:sub(1,wdim.w) or l)
               else
                  local endPoint = markEnd > wdim.w and wdim.w or markEnd
                  w:addstr( l:sub(1,markBeg-1) )
                  local function drawMarked() w:addstr( l:sub(markBeg,endPoint) ) end
                  
                  if opt and opt.theme and opt.theme.text == 'inverse' then
                     -- 160518 bah, this is not working as i expect
                     w:attroff(c)
                     Theme.with.classicmenu( w, drawMarked )
                     w:attron(c)
                  else
--                     w:attroff(c)
                     Theme.with.inverse( w, drawMarked )
--                     w:attron(c)
                  end
                  w:addstr( l:sub(endPoint+1,wdim.w) )
               end
            end
         end
         if ndrawn < wdim.w then
            -- wv.log('debug','eol drawn=%d w=%d', drawn, wdim.w)
            --w:mvaddstr( drow,drawn,string.rep(string.char(test1), (wdim.w-drawn)) )
            w:mvaddstr( drow+wdim.y,wdim.x+ndrawn,string.rep(' ', (wdim.w-ndrawn)) )
         end
      end
      local drow = 0
      local linefrags = {}
      local drawPoint = ptTopLeft
      for l, col, eol in walkFun( buffer, ptTopLeft, wdim.w ) do
         -- wv.log('debug','pdcur_draw_window walk win=%dx%d@%d,%d #l=%d d=%d,%d text col=%d eol=%d', wdim.w, wdim.h, wdim.x, wdim.y, #l, drow, dcol, col or -99, eol or -99)
         if eol then
            table.insert( linefrags, l:sub(col,eol-1) )
            local wholeLine = table.concat(linefrags)
            local drawPointAfterLine = drawPoint + #wholeLine + 1
            local lineMarkBeg, lineMarkEnd = get_line_marked( drawPoint, drawPointAfterLine )
            draw_line( drow, wholeLine, lineMarkBeg, lineMarkEnd )
            drawPoint = drawPointAfterLine
            drow = drow + 1
            linefrags = {}
         elseif col > 1 then
            table.insert( linefrags, l:sub(col) )
         else
            table.insert( linefrags, l )
         end
         if drow >= wdim.h then
            break
         end
      end
      if #linefrags > 0 then
         draw_line( drow, table.concat(linefrags) )
         drow = drow + 1
      end
      while drow < wdim.h do
         w:mvaddstr(drow+wdim.x,wdim.y,string.rep(' ',wdim.w))
         drow = drow + 1
      end
      local cx,cy=cursorpos(ptTopLeft,thePoint,wdim)
--      if cx > wdim.w then -- hack!
--         local exceeded = (cx-wdim.w)+5
--         local str = w:mvgetstr( cy, exceeded )
--         wv.log('debug','exceeded screen cx=%d wdim.w=%d str=%s', cx, wdim.w, str)
--         w:mvaddstr( cy, 0, str:sub(1,wdim.w) )
--      end
      w:attroff(c)
      if isearch_fstring then
         env.report('isearch','i-search: ' .. isearch_fstring)
      else
         --local ndx,col = buffer:lcol4point(thePoint)
         if not wasding then
            env.report( 'navstatus', string.format('sz=%d pt=%d top=%d x,y=%02d,%02d',
                                                   buffer:end_point(), thePoint, ptTopLeft, cx or -1, cy or -1))
         end
      end
   end
   local keybindings  = (require 'pls-keys').edit
   local function ding(msg,p,...)
      Pdcurses.Static.beep()
      if msg then
         wasding = true
         env.report('oops',p and string.format(msg,p,...) or msg)
      end
   end
   local function report(...)
      env.report(...)
      wasding = true
   end
   local function next_isearch_forward( startPoint )
      local nextpoint = buffer:search_forward_to( startPoint, isearch_fstring )
      wv.log('debug','isearch got nextpoint=%s pt=%d', nextpoint, thePoint)
      if nextpoint then
         thePoint = nextpoint
         local cx, cy = cursorpos(ptTopLeft,thePoint,wdim)
         if cy >= wdim.h then -- ran off screen
            local adjust = math.floor(cy - (wdim.h / 3)) -- put next point at top 1/3 of screen
            wv.log('debug','isearch moved beyond screen! wdim.h=%d cy=%d adjust=%d', wdim.h, cy, adjust)
            local st = buffer:forward_lines(ptTopLeft, adjust)
            if st then
               ptTopLeft = st
            end
         end
      else
         ding 'i-search failed'
      end
      cord.event.refresh()
   end
   -- Warning!! This function does not communicate back with input handling framework.
   -- for the actual key handler look at the setup in [main.lua::make_editor()]
   cord.event.key = function(k)
      wv.log('debug','edit got key=%s => %s', k, keybindings[k] )
      if keybindings[k] then
         cord.event[ keybindings[k] ]()
      elseif type(k) == 'number' then
         if k < 256 and k >= 32 then -- don't insert meta chars and ctrl chars
            if isearch_fstring then
               isearch_fstring = isearch_fstring .. string.char(k)
               next_isearch_forward( thePoint )
               cord.event.refresh()
            else
               cord.event.text(k) 
            end
         elseif k == 27 then -- don't insert meta chars and ctrl chars
            if isearch_fstring then
               isearch_fstring = nil
               cord.event.refresh()
            else
               return k
            end
         else
            return k
         end
      end
   end
   
   local baseline = 1
   local ccol = 1
   local crow = 1
   local function cursor_line()
      return buffer[crow+baseline-1] or ''
   end
   local function char_at_point()
      return buffer:char_at_point(thePoint)
   end
   local function insert_at_point(t)
      -- wv.log('debug','insert at pt=%d str=[%s]',thePoint, t)
      buffer:insert( thePoint, t )
      thePoint = thePoint + #t
      if env.on.modified then
         env.on.modified()
      end
--      local l = cursor_line()
--      if ccol > #l+1 then
--         ccol = #l+1
--      end
--      buffer[crow+baseline-1] = l:sub(1,ccol-1) .. t .. l:sub(ccol)
--      ccol = ccol + #t
   end
   function cord.event.getPoint(ret)
      ret(thePoint)
   end
   function cord.event.replace_marked(cbfun)
      if cbfun then
         local mb, me = get_marked()
         if mb and me > mb then
            local rc = cbfun( buffer:sub(mb,me-1) )
            if rc ~= false then -- false return code means abort operation
               buffer:remove(mb,me-1)
               buffer:insert(mb,rc or '')
               theMark = nil
               cord.event.refresh()
            end
         else
            cbfun() -- callback with no params to indicate no marked region
         end
      end
   end
   function cord.event.kill_buffer()
      if env.on.kill_buffer then
         env.on.kill_buffer()
      else
         ding 'kill-buffer not implemented'
      end
   end
   function cord.event.undo()
      local undopoint = buffer:undo() 
      if undopoint then
         thePoint = undopoint
         if env.on.modified then
            env.on.modified()
         end
         cord.event.refresh()
      else 
         ding 'No further undo information'
      end
   end
   function cord.event.isearch_forward()
      -- ding 'isearch_forward not implemented'
      -- emacs search forward uses 'ctrl-g' to clear broken chars back to
      -- last match, and esc exits the search altogether
      if isearch_fstring then -- search for next match
         next_isearch_forward( thePoint + 1 )
      else -- start new search 
         isearch_fstring = ''
      end
      cord.event.refresh()
   end
   
   function cord.event.ctrlg()
      isearch_fstring = nil
      theMark = nil
      cord.event.refresh()
   end
   function cord.event.isearch_backward()
      ding 'isearch_backward not implemented'
   end
   function cord.event.jumptotag()
      local w = buffer:word_at_point(thePoint > 1 and (thePoint-1) or thePoint)
      local w2 = buffer:word_at_point( buffer:end_of_line(thePoint)-1 )
      local _ = env.on.tagActivated and env.on.tagActivated( w, w2 )
   end
   function cord.event.query_citations()
      local _ = env.on.queryCitations and env.on.queryCitations()
   end
   
   function cord.event.save_buffer()
      if env.on.save then
         report('major','Saving buffer')
         local one = buffer:asOneString()
         if true then -- create temp record to save my sanity maybe
            local f = io.open(string.format('/tmp/pls-r-%f.txt',Nylon.uptime()),"w")
            f:write(one)
            f:close()
         end
         env.on.save( one )
         report('major','Buffer saved')
      else
         report('warn','No buffer save handler')
      end
   end
   function cord.event.insert_at_point( t )
      insert_at_point( t )
      cord.event.refresh()
   end
   local function do_yank( special )
      if env.on.yank and env.on.yank( special ) then
         return
      end
      local yanktext = killring_getyanktext() 
      insert_at_point( yanktext )
      cord.event.refresh()
   end
   function cord.event.yank()
      do_yank()
   end
   
   function cord.event.special_yank() -- typically allows paste of html
      do_yank(true)
   end
   function cord.event.text(t)
      if t < 256 then
         local theString = string.char(t)
         if theMark and edopts.replaceMark then
            local markbeg = get_marked()
            cord.event.replace_marked( function()
                                         thePoint = markbeg + 1
                                         return theString
            end)
         else
            insert_at_point(theString)
         end
         save_col = true
      else
         ding("unrecognized key=%d",t)
      end
      cord.event.refresh()
   end
   function cord.event.indent_for_tab_command()
      insert_at_point('   ')
      cord.event.refresh()
   end
   function cord.event.delete_char()
      buffer:remove(thePoint)
      cord.event.refresh()
   end
   local lastkill
   local function killring_addorappend(t)
      wv.log('debug','killring_addorappend lastkill=%s',lastkill)
      if lastkill then
         killring_append(t)
      else
         killring_add(t)
      end
   end
   function cord.event.kill_line()
      if buffer:char_at_point(thePoint) == '\n' then
         buffer:remove(thePoint)
         killring_addorappend '\n'
      else
         local eolPoint = buffer:end_of_line(thePoint)
         if buffer:char_at_point(eolPoint) == '\n' then
            eolPoint = eolPoint - 1
         end
         if eolPoint ~= thePoint then
            local deleted = buffer:sub( thePoint, eolPoint )
            buffer:remove( thePoint, eolPoint )
            killring_addorappend( deleted )
         end
      end
      cord.event.refresh_kill()
   end
   function cord.event.escape()
      if isearch_fstring then
         isearch_fstring = nil
         cord.event.refresh()
      end
      if opt.oneLine then
         wv.log 'oneLine edit got escape (cancel)'
         local _ = env.on.cancelled and env.on.cancelled()
      end
   end
   function cord.event.newline()
      if opt.oneLine then
         if env.on.save then
            env.on.save( buffer:asOneString() )
         end
      else
         buffer:insert(thePoint,'\n')
         thePoint = thePoint+1
         local cx, cy = cursorpos( ptTopLeft, thePoint, wdim )
         if cy and (cy + 1 > wdim.h) then
            local nextline = buffer:search_forward_to( ptTopLeft, '\n' )
            if nextline then 
               ptTopLeft = nextline + 1
            end
         end
         cord.event.refresh()
      end
--      if ccol <= #cursor_line() then
--         local l = buffer[crow+baseline-1]
--         buffer[crow+baseline-1] = l:sub(1,ccol-1)
--         table.insert(buffer,crow+baseline,l:sub(ccol))
--      else
--         while (crow+baseline) > #buffer do
--            table.insert(buffer,'')
--         end
--         table.insert(buffer,crow+baseline,'')
--      end
--      ccol = 1
--      cord.event.next_line()
   end
   function cord.event.delete_backward_char()
      if isearch_fstring then
         isearch_fstring = isearch_fstring:sub(1,#isearch_fstring-1)
      else
         if thePoint > 1 then
            thePoint = thePoint - 1
            buffer:remove(thePoint)
         else
            ding '(delete back) beginning of buffer'
         end
      end
      cord.event.refresh()
   end
   local last_col
   local save_col
   local function _go_if(newPoint)
      if newPoint and newPoint ~= thePoint then
         thePoint = newPoint
         save_col = true
         return newPoint
      end
   end
   local function lfn_backward_word()
      _go_if( buffer:backward_word(thePoint) )
      cord.event.refresh()
   end
   
   cord.event.backward_word = lfn_backward_word
   local function lfn_delete_word()
      local endword = buffer:forward_word(thePoint) or (buffer:end_point()+1)
      if endword and endword > thePoint then
         local removed = buffer:sub(thePoint,endword-1)
         killring_addorappend(removed)
         buffer:remove(thePoint,endword-1)
         cord.event.refresh_kill()
      else
         ding 'No more words (and no more promises)'
      end
   end
   cord.event.delete_word = lfn_delete_word
   
   function cord.event.context_menu()
      local w = buffer:word_at_point(thePoint > 1 and (thePoint-1) or thePoint)
      wv.log('debug','context_menu word_at_point=%s',w)
      local function consume_word()
         lfn_backward_word()
         lfn_delete_word()
      end
      local _ = env.on.contextmenu and env.on.contextmenu(w,{ consume_word = consume_word })
      cord.event.refresh()
   end
   
   local function restore_col()
      -- wv.log('debug','last_col=%s',tostring(last_col))
      if last_col then
         local eolpoint = buffer:end_of_line(thePoint)
         wv.log('debug','eolpoint=%d thePoint=%d last_col=%d',eolpoint,thePoint,last_col)
         if (eolpoint - thePoint) > last_col then
            thePoint = thePoint + last_col
         else
            thePoint = eolpoint
         end
      end
   end
   function cord.event.set_mark_command()
      theMark = thePoint
      cord.event.refresh()
   end
   local function _copy_marked_and(fn)
      local mb, me = get_marked()
      if me and me > mb then
         local removed = buffer:sub(mb,me-1)
         killring_addorappend(removed)
         if fn then
            fn(mb,me)
         end
         theMark = nil
         cord.event.refresh()
      else
         ding 'No selection - use [C-x Spc] to mark'
      end
   end
   function cord.event.kill_ring_save()
      _copy_marked_and()
   end
   function cord.event.kill_region()
      _copy_marked_and( function(mb,me)
         buffer:remove(mb,me-1)
         thePoint = mb
      end)
   end
   function cord.event.next_line()
      local point = ptTopLeft
      local nextLineFromTop
      local cx, cy
      local thePointStart = thePoint
      local curfun = watch_cursor_pos(ptTopLeft, thePoint, wdim)
      for l, col, nl in walkFun(buffer,ptTopLeft,wdim.w) do
         if not cx then
            cx, cy = curfun( l, col, nl )
         end
         local toDraw = nl and (nl - col + 1) or (#l-col+1)
--         wv.log('debug','nextline #l=%d col=%d nl=%d toDraw=%d',#l, col, (nl or -1),toDraw)
         point = point + toDraw
         if nl then
            if not nextLineFromTop then
               nextLineFromTop = point + 1
--               wv.log('debug','got nextLineFromTop=%d',nextLineFromTop)
            end
            if point > thePoint then
               if wordWrap and point >= (thePoint + wdim.w) then
                  thePoint = thePoint + wdim.w
                  break -- don't restore_col, for now
               else
                  thePoint = point
               end
               
               wv.log('debug','point=%d cy=%d nextLineFromTop=%d',point,cy,nextLineFromTop)
               assert(cy) -- should have found cursor
               if cy + 1 >= wdim.h then
                  ptTopLeft = nextLineFromTop
               end
--               if not wordWrap then
                  restore_col()
--               end
               break
            end
         end
      end
      if thePoint == thePointStart then
         thePoint = buffer:end_point() + 2
      end
      cord.event.refresh()
   end
   function cord.event.previous_line()
      if thePoint == 1 then
         ding 'no previous line'
         return
      end
      nextpoint = buffer:beginning_of_line(thePoint)
      if (nextpoint <= 2) and buffer:char_at_point_dec(1) == 10 then
         -- ugly special case for 1st char is '\n'
         thePoint = 1
         restore_col()
      else
         if nextpoint > 1 then
            local bol = buffer:beginning_of_line(nextpoint-1)
            if bol < ptTopLeft then
               ptTopLeft = bol
            end
            thePoint = bol
            restore_col()
         else
            ding 'no previous line'
         end
      end
      cord.event.refresh()
   end
   local function _backward_char() 
      if thePoint > 1 then
         thePoint = thePoint - 1
         save_col = true
      end
   end
   function cord.event.backward_char()
      if thePoint > 1 then
         _backward_char()
         cord.event.refresh()
      else
         ding 'At beginning of buffer'
      end
   end
   local function _forward_char() 
      local ep = buffer:end_point()
      if thePoint <= ep then
         thePoint = thePoint + 1
         save_col = true
      elseif thePoint == (ep + 1) then
         -- when the buffer doesn't end in '\n', we allow point
         -- to move to buffer end + 2, to allow us to move forward
         -- to the next line.
         if buffer:char_at_point(ep) ~= '\n' then
            thePoint = thePoint + 1
            save_col = true
         end
      else
         ding 'End of buffer'
      end
   end
   function cord.event.forward_char()
      _forward_char()
      cord.event.refresh()
   end
   function cord.event.capitalize_word()
      -- hacky; emacs will search forward to the next word if
      -- not currently at a word.
      local w, bow, eow = buffer:word_at_point(thePoint)
      if bow < thePoint then
         w = w:sub( thePoint-bow+1 )
         bow = thePoint
      end
      if w then
         buffer:replace( bow, bow, w:sub(1,1):upper() )
         buffer:replace( bow+1, eow, w:sub(2):lower() )
      end
      cord.event.forward_word()
   end
   function cord.event.upcase_word()
      local w, bow, eow = buffer:word_at_point(thePoint)
      if w then
         buffer:replace( bow, eow, w:upper() )
      end
      cord.event.forward_word()
   end
   function cord.event.downcase_word()
      local w, bow, eow = buffer:word_at_point(thePoint)
      if w then
         buffer:replace( bow, eow, w:lower() )
      end
      cord.event.forward_word()
   end
   local function _forward_to(pat)
      return _go_if( buffer:search_forward_to(thePoint,pat) )
   end
   local function _forward_past(pat)
      return _go_if( buffer:search_forward_past(thePoint,pat) )
   end
   local function _backward_to(pat)
      return _go_if(buffer:search_backward_to(thePoint,pat))
   end
   local function _backward_past(pat)
      return _go_if(buffer:search_backward_past(thePoint,pat))
   end
   function cord.event.move_beginning_of_line()
      _go_if( buffer:beginning_of_line(thePoint) )
      cord.event.refresh()
   end
   
   function cord.event.move_end_of_line() 
            local eol = buffer:end_of_line(thePoint)
            wv.log('debug','move_end_of_line eol=%d',eol)
            if eol == buffer:end_point() then
               eol = eol + 1
            end
            _go_if( eol )
      cord.event.refresh()            
   end
   
   function cord.event.forward_word()
      local fw = buffer:forward_word(thePoint) or (buffer:end_point() + 1)
--      wv.log('debug','forward_word: fw=%d thePoint=%d', fw, thePoint)
      _go_if( fw )
      cord.event.refresh()
   end
   function cord.event.scroll_down_command()
      local start =  (thePoint < buffer:end_point()) and thePoint or (buffer:end_point()-1)
      local prior = buffer:backward_lines(start,wdim.h)
      if prior and prior ~= thePoint then
         thePoint = prior
         restore_col()
         local st = buffer:backward_lines(ptTopLeft,wdim.h)
         if st then ptTopLeft = st end
      else
         ding()
      end
      cord.event.refresh()
   end
   function cord.event.scroll_up_command()
      local s = NylonSysCore.uptime()
      local nextpoint = buffer:forward_lines(thePoint,wdim.h)
      -- env.report('dbg',string.format('nextpoint=%d',nextpoint))
      if nextpoint and nextpoint ~= startPoint then
         thePoint = nextpoint
         restore_col()
         local st = buffer:forward_lines(ptTopLeft,wdim.h)
         if st then
            ptTopLeft = st
         end
      end
      local e = NylonSysCore.uptime()
      wv.log('debug','time to page down=%f',(e-s))
      cord.event.refresh()
   end
   
   function cord.event.beginning_of_buffer()
      ptTopLeft = 1
      thePoint = 1
      save_col = true
      cord.event.refresh()
   end
   
   function cord.event.end_of_buffer()
      local b = NylonSysCore.uptime()
      local ep = buffer:end_point()
      local top = buffer:backward_lines(ep,wdim.h-2)
      if top then
         local prevline = buffer:backward_lines(top-1,1)
         wv.log('debug','eob top=%s prevl=%s',top,prevline)
         if prevline then
            ptTopLeft = prevline
         else
            ptTopLeft = 1
         end
      else
         ptTopLeft = 1
      end
      thePoint = ep + (buffer:char_at_point_dec(buffer:end_point())==10 and 1 or 2)
      save_col = true
      local e = NylonSysCore.uptime()
      wv.log('debug','time for end_of_buffer=%f ptl=%d',(e-b),ptTopLeft)
      cord.event.refresh()
   end
   
   local function do_redraw()
      pdcur_draw_window( wdim )
      local curx,cury = cursorpos(ptTopLeft,thePoint,wdim)
      if curx then
         w:move(wdim.y+cury, wdim.x+curx)
      else
         local ep = buffer:end_point()
         if thePoint > ep then
            local curx, cury = cursorpos( ptTopLeft, ep, wdim)
            cury = cury or 0
            curx = curx or 0
            if (thePoint > ep+1) or buffer:char_at_point(ep)=='\n' then
               w:move( wdim.y+cury+1, wdim.x )
            else
               w:move( wdim.y+cury, wdim.x+curx+1 )
            end
         end
--          curx = curx or 0
--          cury = cury or 0
--          local diff = thePoint-buffer:end_point()
--          curx = curx + diff + (buffer:end_point()>0 and 1 or 0)
--          w:move(wdim.y+cury,curx)
         env.report( 'warn', string.format('sz=%d pt=%d tl=%d (end of buffer)', ep, thePoint, ptTopLeft ))
      end
      if save_col then
         last_col = curx
         save_col = false
      end
   end
      --local showcur = ccol > (#cursor_line()+1) and (#cursor_line()+1) or ccol
      -- w:move( wdim.y + crow -1, wdim.x + showcur -1 )
   
   cord.event.redraw = function(ondone)
      wv.log('debug','window redraw, %dx%d@%d,%d', wdim.w, wdim.h, wdim.x, wdim.y)
      do_redraw()
      w:refresh()
      w:redraw()
      if ondone then
         ondone()
      end
   end
   while true do 
      do_redraw()
      w:refresh()
      local waskill = false
      wasding = false
      wait_first_event( cord, {
         refresh=function( force ) 
            if force then
               w:redraw()
            end
         end,
         refresh_kill=function() 
            waskill = true
         end,
      })
      -- wv.log('debug','cord got event, lastkill=%s waskill=%s',lastkill,waskill)
      lastkill = waskill
   end
end
return {
   entryfn_edit = entryfn_edit
}

local function Logwrite(...)
end
local function gen_search( text )
   Logwrite "Scratchpad.search text='#{text}'"
   local pretext
   repeat
      pretext = text
      text = text:gsub("%(%(", "( (")
      text = text:gsub("%)%)", ") )")
   until text == pretext 
   print(text)
   local qstr = ''
   local do_and
   local do_or
   local do_not
   
   local wordlist = {}
   local spcndx = 1
   while true do
      local b,e = text:find('%s+',spcndx)
      if b then
         table.insert(wordlist,text:sub(spcndx,b-1))
         spcndx = e+1
      else
         table.insert(wordlist,text:sub(spcndx))
         break
      end
   end
   for _,v in ipairs(wordlist) do
   --   print(string.format('"%s"',v))
   end
   --print ' ------------'
   local function consume_logic()
      qstr = do_and and (qstr .. " and") or qstr
      qstr = do_or and (qstr .. " or") or qstr
      do_and = true
      do_or  = false
   end
--[[--
      if word =~ /^\((.*)/ then
        word = $1
        consume_logic.call()
        qstr += ' ( '
        do_and = false
        next  if word.length < 1
      end
--]]--
   for _,word in ipairs(wordlist) do
      local b,e,match = word:find('^%((%a*)') 
      if b then
         -- print('openparen',match)
         consume_logic()
         qstr = qstr .. ' ( '
         do_and = false
         word = match
      end
      if #word > 0 then
         if word == 'and' then
            ;
         elseif word == 'not' then
            do_not = true
         elseif word == 'or' then
            do_or = true
            do_and = false
         else
            local doit = true
            local closer = ''
            local b,e,match = word:find('(%a*)%)$' )
            if b then
               word = match
               closer = ' ) '
               if #word < 1 then
                  qstr = qstr .. closer
                  doit = false
               end
            end
            if doit then
               consume_logic()
               if do_not then
                  qstr = qstr .. " (detail not like '%" .. word .. "%' and title not like '%" .. word .. "%')" .. closer
                  do_not = false
               else
                  qstr = qstr .. " (detail like '%" .. word .. "%' or title like '%" .. word .. "%')" .. closer
               end
            end
         end -- not and, not, or or
      end --, #word > 0
   end -- for -loop
   -- print( 'qstr:', qstr )
   return qstr
end
--gen_search '(((mattm or miller) and (not discount)) or rcm) and reward'
return {
   megasearch = gen_search
}
--[[--
      if word == 'and' then
        true # 'and' is assumed if not otherwise spec'ed
      elsif word == 'not' then
        do_not = true
      elsif word == 'or' then
        do_or  = true
        do_and = false
      else
        closer = ''
        if word =~ /(.*)\)$/ then
          word = $1
          closer = ' ) '
          if word.length < 1 then
            qstr += closer
            next
          end
        end
        consume_logic.call()
        if do_not then
          qstr += " (details not like '%#{word}%' and title not like '%#{word}%')" + closer
          do_not = false
        else
          qstr += " (details like '%#{word}%' or title like '%#{word}%')" + closer
        end
      end
    }
    sql = "select * from #{tableName} where #{qstr} order by date_modified desc"
    Log.write "Searching: '#{qstr}' -- sql: '#{sql}' --  wordlist: #{wordlist.join(':')} text=#{text}"
    queryset = $db.execute( sql )
    queryset
--]]--
--gen_search('foo and bar and gaba')
--gen_search('(foo and bar) or zoobie')
-- gen_search('(not (foo and bar)) or zoobie')
--gen_search('((foo and bar) or zoobie) and gaba')

-- Buffer provides a set of higher level buffer operations to operate on the
-- backing "textstore", of which Buffer is a subclass.
-- 
local NEWLINE=string.byte('\n',1)
local wv = require 'nylon.debug'{ name = 'pls-buffer' }
local Store = require 'pls-textstore'
local Buffer = setmetatable({}, { __index = Store })
function Buffer:new()
   return Store.new(Buffer)
end
function Buffer.search_forward_to( buffer, startPoint, pat )
--   local okay, err = pcall( function() string.find('so',pat) end )
--   if not okay then
--      wv.log('error','bad pattern or something: %s', err)
--      return
--   else
--      wv.log('debug','pattern checked okay, pat=%s', pat)
--   end
   local point = startPoint
   if #pat == 1 or (#pat==2 and pat:sub(1,1) == '%') then
      while not buffer:char_at_point(point):find(pat) do
         if point < buffer:end_point() then
            point = point + 1
         else
            return
         end
      end
      return point
   else
      -- this is probably not real efficient, but it is quick and keeps patterns working (sort of)
      -- this could probably be done more efficiently with 'walkFragments'
      for i = startPoint, buffer:end_point() do
         local sub = buffer:sub( i, i+#pat-1 )
         wv.log('debug',"search-forward pt=%d pat='%s' sub='%s'", i, pat, sub)
         if sub:find(pat) then
            return i
         end
      end
   end
end
function Buffer.search_forward_past( buffer, startPoint, pat )
   local point = startPoint
   if #pat == 1 or (#pat==2 and pat:sub(1,1) == '%') then
      while buffer:char_at_point(point):find(pat) and
         point <= buffer:end_point() do
            point = point + 1
      end
      return point <= buffer:end_point() and point
   else
      -- this is probably not real efficient, but it is quick and keeps patterns working (sort of)
      -- this could probably be done more efficiently with 'walkFragments'
      for i = startPoint, buffer:end_point() do
         local sub = buffer:sub( i, i+(#pat*2) )
         if not sub:find(pat) then
            return point
         end
      end
   end
end
function Buffer.search_backward_to( buffer, startPoint, pat )
   local point = startPoint
   if #pat == 1 then
      local c = string.byte(pat,1)
      while buffer:char_at_point_dec(point) ~= c do
         if point <= 1 then 
            return 
         end
         point = point - 1
      end
      return point
   elseif #pat==2 and pat:sub(1,1) == '%' then
      while not buffer:char_at_point(point):find(pat) do
         if point <= 1 then 
            return 
         end
         point = point - 1
      end
      return point
   else
      error 'not implemented, multi-char search forward'
   end
end
function Buffer.search_backward_past( buffer, startPoint, pat )
   local point = startPoint
   if #pat == 1 or (#pat==2 and pat:sub(1,1) == '%') then
      while buffer:char_at_point(point):find(pat) do
         if point <= 1 then 
            return 
         end
         point = point - 1
      end
      return point
   else
      error 'not implemented, multi-char search forward'
   end
end
function Buffer:beginning_of_line( startPoint )
   local point = (self:char_at_point_dec(startPoint) == NEWLINE and startPoint > 1) and (startPoint-1) or startPoint
   local found = self:search_backward_to(point,'\n')
   if found then
      return (found + 1)
   else
      return 1
   end
end
function Buffer.end_of_line( buffer, startPoint )
    local nexteol = buffer:search_forward_to(startPoint, '\n')
    return nexteol and nexteol or buffer:end_point() + 1
end
--- function Buffer.forward_lines( buffer, startPoint, nlines )
---    local point = startPoint
---    local lasteol
---    for i = 1, nlines do
---       local eol = Buffer.search_forward_to(buffer, point, '\n')
---       if eol and eol < buffer:end_point() then
---          point = eol + 1
---       else
---          ding()
---          return point
---       end
---    end
---    return point
function Buffer.backward_lines( buffer, startPoint, nlines )
   local point
   if startPoint > buffer:end_point() +1 then
      point = buffer:end_point()
      nlines = nlines - 1
   else
      point = startPoint
   end
   local linestart = point
   while buffer:char_at_point_dec(point) == NEWLINE do
      if point ~= linestart then
         if nlines > 0 then
            nlines = nlines - 1
         else
            return point
         end
      end
      point = point - 1
   end
   local lastfound
   while nlines >= 0 do
      local found = Buffer.search_backward_to( buffer, point, '\n')
      if not found or found == point then
         break
      end
      lastfound = found
      if found <= 1 then
         break
      end
      point = found
      while (buffer:char_at_point_dec(point) == NEWLINE) and nlines >= 0 and point > 1 do
         point = point - 1
         nlines = nlines - 1
      end
   end
   if lastfound then
      return lastfound + 1
   end
end
function Buffer.forward_word(buffer,point)
   if not buffer:char_at_point(point):find('%w') then
      local p = buffer:search_forward_to(point,'%w')
      point = p or point 
   end
   return buffer:search_forward_past( point, '%w' )
end
function Buffer:backward_word(point)
   if point <= 2 then
      return 1
   end
   if self:char_at_point(point):find('%w') then
      if self:char_at_point(point-1):find('%w') then
         local justBeforeWord = self:search_backward_past(point-1, '%w')
         return justBeforeWord and justBeforeWord + 1 or 1
      else
         -- we are at the first letter in a word.
      end
   end
   
   local lastLetterOfPreviousWord = self:search_backward_to( point-1, '%w' )
   if not lastLetterOfPreviousWord or lastLetterOfPreviousWord < 2 then
      return 1 -- no more words, beginning of buffer
   end
   local bpw = self:search_backward_past( lastLetterOfPreviousWord-1, '%w'  )
   return bpw and (bpw+1) or 1
end
function Buffer:word_at_point(point)
   local endOfWord = self:forward_word(point) or self:end_point()
--   wv.log('debug','word_at_point endOfWord=%s', endOfWord)
   local beginningOfWord = self:backward_word(endOfWord)
   if endOfWord > beginningOfWord then
      return self:sub(beginningOfWord,endOfWord-1), beginningOfWord, endOfWord-1
   end
end
function Buffer.asOneString( buffer )
   local all = {}
   for l in buffer:walkFragments(1) do
      table.insert(all,l)
   end
   return table.concat(all)
end
function Buffer.forward_lines( buffer, startPoint, nlines )
   local point = startPoint
   for l, col, nl in buffer:walkFragmentsEOL(startPoint) do
      if nl then
         point = point + (nl-col) + 1
         if nlines <= 1 then
            return point
         else
            nlines = nlines - 1
         end
      else
         if not l then
            return (point ~= startPoint) and point
         else
            point = point + (#l - col) + 1
         end
      end
   end
   return point
end
function Buffer:insertFileAtPoint( point, fname )
   local f = io.open(fname,'r')
   -- local buffer = Buffer:new()
   if f then
      for l in f:lines() do
         local fix = l:gsub('\t','    ') .. '\n'
         self:insert( point, fix )
         point = point + #fix
      end
      f:close()
   end
end
local function buffer_openFile( fname )
   local f = io.open(fname,'r')
   if f then
      local buffer = Buffer:new()
      for l in f:lines() do
         buffer:append(l:gsub('\t','    ') .. '\n')
      end
      f:close()
   end
   return buffer
end
local function buffer_withText(t)
   local buffer = Buffer:new()
   if t then
      buffer:append(t)
   end
   return buffer
end
return {
   openFile = buffer_openFile,
   withText = buffer_withText
}

-- valid SRI patters
-- :%w  (id only, assumes PLS)
-- %w+:%w+ (system / id-numword)
-- %w+:%d+ (system / id-int)
-- %w+:%w+:%w+ (org/system/id-numword)
-- %w+:%w+:%d+ (org/system/id-int)
local function on_save_scan_citations( db, id, text )
   wv.log('debug','got save for record id=%s #text=%d', id, #text)
-----    local srchstart = 1
-----    while true do
-----       local s, e, system, recid = text:find('(%w+):(%w+)', srchstart )
-----       if not s then
-----          break
-----       end
-----       wv.log('debug','found possible SRI, [%d,%d] "%s:%s"', s, e, system, recid)
-----       
-----       -- @todo: run valiidity checks, ie, record id is all digits or else valid numword
-----       -- possibly enforce known systems etc
-----       table.insert( found, { s, e, sub } )
-----       srchstart = e + 1
   -----    end
   
   -- 160613 start with pls-only ids
   local found = {}
   local srchstart = 1
   while true do
      local s, e, plsid = text:find('%s:(%w+)', srchstart )
      if not s then
         break
      end
      wv.log('debug','found possible SRI, [%d,%d] ":%s"', s, e, plsid)
      
      -- @todo: run valiidity checks, ie, record id is all digits or else valid numword
      -- possibly enforce known systems etc
      table.insert( found, { s, e, plsid } )
      srchstart = e + 1
   end
   
   if #found > 0 then
   end
   -- @todo: compare list of fonud citations to current database table of citations.
end
return on_save_scan_citations

local ARGS = { ... }
if not string.find(arg[-1],'lua523r') then
   table.move(package.searchers, 1, #package.searchers, 2)
   package.searchers[1] = function(...)
      print('searching... ', ...)
      return
   end
end
require 'clibs'
-- require 'parseOpts' 
local Nylon = require 'nylon.core'()
wv = require 'nylon.debug' { name = 'pls-main' }
wv.log('debug', 'pls-main created; syscore.addCallback=%s', type(NylonSysCore.addCallback))
local Sqlite  = require 'sqlite'
-- add path for nylabus services
package.path = '../nylabus/?.lua;' .. package.path
glOpts = {
   space = 'ncr'
}
if ARGS[1] then
   glOpts.space = ARGS[1]
end
local Theme = require 'pls-theme'
local plugin = {
   fixLine = function() end,
   onEditRecord = function() end,
}
pcall( function()
   plugin = loadfile( 'space/' .. glOpts.space .. '/plugin.lua' ){
      Theme = Theme
   }
end)
local VLINE = tonumber(Pdcurses.Lines.vline)
local HLINE = string.byte('-',1) -- Some fonts don't have a good HLINE character, so use the dash.  Suboptimal, but some fonts, like Monaco, are really nice except for this deficiency.
local HLINE = tonumber(Pdcurses.Lines.hline)
local WINDOWS = (NylonOs and NylonOs.IsWindows())
wv.log('debug', 'color_pairs=%d', Pdcurses.Static.color_pairs() )
local json    = require 'JSON' -- for debugging
local Winman  = require 'pls-winman'
local Numword = require 'pls-numword'
local Service
local ok, err = pcall( function() Service = require 'nylaservice' end )
if not ok then
   wv.log('debug','could not load nylaservice, e=%s', err )
end
local gIdUser = 1 -- dmattp, default
local cord_app -- this should be moved down to creation point by removing single use in make_editor()
if arg[1] then
   recid = tonumber(arg[1])
end
local dbname = ( 'space/' .. (glOpts.space) .. '/notes.db' )
-- print('db=', dbname)
local db = Sqlite:new( dbname )
   if not db then
      wv.log('error', 'db.a01 could not open name=%s', dbname)
      error 'no database'
   else
      wv.log('debug', 'db open db=%s db.db = %s', tostring(db), type(db.db))
   end
--   db.db:testVoid();
--   db.db:testInt(123456);
--   error 'done okay'
-- db:exec('select count(*) from notes')
   
-- open up the most recently edited record to start
local lastnote = db:selectOne('select ROWID from note where dt_modified=(select MAX(dt_modified) from note)')
if not lastnote then
   local rc = db:exec('insert into note (detail,title,dt_created,dt_modified,id_user) values (?,?,DATETIME("NOW"),DATETIME("NOW"),?)',
                       'Welcome to PLS Notes', 'Welcome - First Record', gIdUser)
   lastnote = db:selectOne('select ROWID from note where dt_modified=(select MAX(dt_modified) from note)')
end
local recid = lastnote.ROWID
local Buffer = require 'pls-buffer'
local keyhandler
local curses_started
local function start_curses()
   if curses_started then
      Pdcurses.Static.refresh()
   else
      Pdcurses.Static.noecho()
      Pdcurses.Static.start_color()
      Pdcurses.Static.raw()
      -- when mouse enabled, generates Pdcurses.key.mouse
      -- Pdcurses.Static.mouse_on(0x1fffffff) -- ALL_MOUSE_EVENTS
      curses_started = true
   end       
end
local function end_curses()
   if curses_started then -- and (not Pdcurses.Static.isendwin()) then
      wv.log('debug', 'stopping curses end_curses()')
      Pdcurses.Static.endwin()
   end
end
local function curses_init()
   local screen = Pdcurses.Static.initscr()
   start_curses()
   local ncols, nrows = screen:getmaxx(), screen:getmaxy()
   return { screen = screen, ncols = ncols, nrows = nrows }
end
local env = { curses = curses_init() }
local function shell_cmd( fmt, ... )
   Pdcurses.Static.endwin()
   --  -noprofile maybe nice, or not.
   os.execute( string.format('powershell -noninteractive /c "%s"'
                  ,string.format(fmt,...) ) )
   Pdcurses.Static.noecho()
   env.curses.screen:redraw()
   env.curses.screen:refresh()
   Winman.Refresh()
end
local function simple_shell_cmd( fmt, ... )
   Pdcurses.Static.endwin()
   --  -noprofile maybe nice, or not.
   os.execute( string.format(fmt,...) )
   Pdcurses.Static.noecho()
   env.curses.screen:redraw()
   env.curses.screen:refresh()
   Winman.Refresh()
end
local function WindowDim( x, y, w, h )
   return { x = x, y = y, w = w, h = h }
end
function centerwindow(env,h,w)
   local x = (env.curses.ncols - w)/2
   local y = (env.curses.nrows - h)/2
   return h, w, y, x
end
local function withFocusAttrib( mw, fun )
   Theme.with.focuswinborder( Winman.isFocused(mw) and mw.win, fun )
end
function ui_yesno(cord,env,prompt,default)
   local wid = (#prompt)+2
   wid = wid < 14  and 14 or wid
   local w = Pdcurses.Window(centerwindow(env,4,wid))
   local function showopt( hiliteyes )
      Theme.with.inverse( hiliteyes and w, function()
                             w:mvaddstr(2,2,'[Y]es')
      end)
      Theme.with.inverse( (not hiliteyes) and w, function()
                             w:mvaddstr(2,8,'[N]o')
      end )
      w:refresh()
   end
   
   default = default ~= nil and default or true
   local mw
   local function drawme()
      withFocusAttrib( mw, function() w:stdbox_() end )
      w:mvaddstr(1,1,prompt)
      showopt(default)
   end
   local removeme
   local yes = Nylon.self:sleep_manual(
      function(wakefun)
         mw = Winman.win:new{ win = w, on = { key = function(k)
                                                       local s = (type(k) == 'number' and k < 256 and string.char(k))
                                                       wv.log('debug','yesno got key=%s/%s',k,s)
                                                       if s == 'n' or s == 'N' then
                                                          wakefun(false)
                                                       elseif s == 'y' or s == 'Y' then
                                                          wakefun(true)
                                                       elseif k == 27 then -- escape
                                                          wakefun(false)
                                                       elseif default and k == 10 then -- newline
                                                          wakefun(default)
                                                       end
                                  end,
                                  resized = function()
                                     drawme()
                                  end} }
         drawme()
         removeme = Winman.push_modal(mw)
      end)
   -- flash yes/no to provide feedback
   showopt( yes )
   w:refresh()
   Nylon.self:sleep(0.15)
   removeme()
   return yes
end
function ui_oneline(env,prompt,opt)
   opt = opt or {}
   local cord = Nylon.self
   local wid = type(opt)=='table' and opt.w or math.floor(env.curses.ncols * 0.8)
   local w = Pdcurses.Window(centerwindow(env,3,wid))
   local function draw()
      Theme.with.inverse( w, function()
         w:box( VLINE, HLINE )
         w:mvaddstr(0, 3, '[ ' .. prompt .. ': ]')
         w:mvaddstr(1, 1, string.rep(' ', wid-2))
         -- w:mvaddstr(2, 2, ' [E]nter ')
      end)
      w:refresh()
   end
   local ed = require 'pls-ed'
   local bbuffer = Buffer.withText( (type(opt)=='string') and opt or opt.text or '')
   local e = setmetatable( { w = w,
                             on = {}
                           }, { __index = env } )
   local editcord = Nylon.cord( 'editoneline', ed.entryfn_edit, e, bbuffer, 
                                { wdim = WindowDim(1,1,wid-2,1),
                                  theme = { text = 'inverse' },
                                  oneLine = true } )
   if opt and opt.text and opt.replace then
      if true then
         editcord.event.move_end_of_line()
         Nylon.self:sleep(0.03)
         editcord.event.set_mark_command()
         Nylon.self:sleep(0.03)
         editcord.event.move_beginning_of_line()
      end
   end
   local mw = Winman.win:new{ win = w, on = { key = function(k)
                                                 editcord.event.key(k)
                            end,
                                              resized = function()
                                                 draw()
                                                 editcord.event.redraw()
                            end} }
   local removeme = Winman.push_modal( mw )
   
   draw()
                                
   local edited = Nylon.self:sleep_manual(function(wakefun)
                              function e.on.save( text )
                                 wv.log('debug','got save oneline text=%s',text)
                                 wakefun( text )
                              end
                              function e.on.cancelled()
                                 wv.log('debug','cancelled oneline text edit')
                                 wakefun()
                              end
   end)
   
   removeme()
   -- @todo: shutdown should be checked by the cord to break out of loop!
   editcord.event._shutdown()
   wv.log('debug','got edited text=%s',edited)
   return edited
end
-- global, meh
--- function request_keys( cbfun )
---    local old = keyhandler
---    local enabled = true
---    keyhandler = function(k)
---       local handled = (enabled and cbfun(k)) or (old and old(k))
---       wv.log('norm','keyhandled? %d=%s', k, handled and 'yes' or 'no')
---    end
---    return function()
---       enabled = false
---    end
--- end
local function picklist( title, query_sql, ... )
   local on_callbacks = {}
   if type(title) == 'table' then
      if title.on then
         on_callbacks = title.on
      end
      title = title.title
   end
   
   local records = {}
   
   local function run_db_query(...)
      local ok, err = pcall( function(...)
               records = db:selectMany( query_sql, ... )
      end, ...)
      if not ok then
         wv.log('error','error running SQL query=%s', tostring(err))
      end
   end
   run_db_query(...)
   local width = math.floor(env.curses.ncols/3)
   local height = math.floor(env.curses.nrows*2/3)
   if height > #records + 2 then
      height = #records + 2
   end
   local dim = WindowDim(env.curses.ncols-width,0,width,height)
   local w = Pdcurses.Window(dim.h, dim.w, dim.y, dim.x)
--   wv.log('debug','tostring=%s type=%s', tostring, type)
--   wv.log('debug','created WINDOW w=%s', type(w))
--   wv.log('debug','created WINDOW w.mvaddstr=%s,%s',tostring(w.mvaddstr),type(w.mvaddstr))
--   wv.log('debug','created WINDOW w.box=%s,%s',tostring(w.box),type(w.box))
   local active = #records > 0 and 1 or 0
   local theTop = 0
   local mw 
   local sstring
   local function draw()
      if (dim.w < 2) or (dim.h <2) then
         return
      end
      local maxtextlen = dim.w - 2
      withFocusAttrib( mw, function()
--                              wv.log('debug','draw WINDOW w=%s,%s',tostring(w),type(w))
--                              wv.log('debug','draw WINDOW w.mvaddstr=%s,%s',tostring(w.mvaddstr),type(w.mvaddstr))
--                              wv.log('debug','draw WINDOW w.box=%s,%s',tostring(w.box),type(w.box))
                          w:box(VLINE, HLINE)
                   w:mvaddstr(0,3,title)
      end )
      for row = 1, dim.h-2 do
         local drawingRecord = row + theTop
         local r = records[drawingRecord]
         if not r then break end
         local text = string.format("%.10s %5s  %s", r.dt_modified, Numword.to_s(r.ROWID),
                                        r.title):sub(1,maxtextlen)
         Theme.with.inverse( drawingRecord == active and w, function()
                      local s,e
                      if sstring then 
                         s,e = text:lower():find(sstring) 
                      end
                      if s then
                         w:mvaddstr(row,1,text:sub(1,s-1))
                         Theme.with.classicmenu( w, function()
                                     w:addstr(text:sub(s,e))
                         end)
                         Theme.with.inverse( drawingRecord == active and w, function()
                                               w:addstr(text:sub(e+1))
                         end)
                      else
                         w:mvaddstr(row,1,text)
                      end
         end )
         if #text < maxtextlen then
            w:addstr( string.rep(' ',maxtextlen-#text) )
         end
      end
      if sstring then
         Theme.with.classicmenu( w, function()
                                    w:mvaddstr(dim.h-1,4,'[i-search: ' .. sstring .. ' ]')
         end)
      end
      w:refresh()
   end
   
   local removewin
   local cord = Nylon.cord('picklist',
      function(cord,args)
         function cord.event.beginning_of_buffer()
            theTop = 0
            active = 1
            draw()
         end
         function cord.event.end_of_buffer()
            active = #records
            theTop = active - (dim.h-2)
            draw()
         end
         function cord.event.scroll_up_command()
            active = active + (dim.h-2)
            if active > #records then
               active = #records
            end
            if active > theTop + (dim.h-2) then
               theTop = active - (dim.h-2)
            end
            draw()
         end
         function cord.event.next_line()
            if active < #records then
               active = active + 1
               if active > theTop + (dim.h-2) then
                  theTop = active - (dim.h-2)
               end
               draw()
            end
         end
         function cord.event.scroll_down_command()
            active = active - (dim.h-2)
            if active < 1 then
               active = 1
            end
            if (active-1) < theTop then
               theTop = (active-1)
            end
            draw()
         end
         function cord.event.previous_line()
            if active > 1 then
               active = active - 1
               if (active-1) < theTop then
                  theTop = (active-1)
               end
               draw()
            end
         end
         local done
         function cord.event.kill_buffer()
            done = true
            removewin()
            wv.log('debug','close picklist, on_callbacks.closed=%s',on_callbacks.closed)
            local _ = on_callbacks.closed and on_callbacks.closed()
         end
         
         -- very simple and dumb refresh mechanism
         while true do
            cord:sleep(20)
            if done then break end
--            wv.log('debug','run db query #records=%d #args=%d',#records,#args)
            run_db_query(table.unpack(args))
--            wv.log('debug','ran db query, #records=%d',#records)
         -- this is a minor problem that if a modal window is up,
         -- redrawing will clobber the modal window
            draw()
         end
      end, { ... } )
   local function isearch_search_from(sstring,from,dir)
      dir = dir or 1
      local nrecords = #records
      if nrecords < 1 then wv.log('error','no search records?'); return end
      for j = from, from+(nrecords*dir), dir do
--         wv.log('debug','isrch from=%d dir=%d j=%d #records=%d', from, dir, j, #records )
         local i = ((j-1) % nrecords)+1
--         wv.log('debug','isrch from=%d j=%d i=%d dir=%d', from, j, i, dir )
         if string.find(records[i].title:lower(),sstring) or 
            string.find(Numword.to_s(records[i].ROWID):lower(),sstring) then
            active = i
            return
         end
      end
--      ding()
   end
   local function isearch_find_next(str,dir)
      dir = dir or 1
      isearch_search_from(sstring,active+dir,dir)
      draw()
   end
   local function isearch_on_string_update(sstring)
      isearch_search_from(sstring,active)
      draw()
   end
   mw = Winman.win:new{ win = w, on = { 
                                 resized = function(newdim) 
                                    dim = (newdim or dim)
                                    wv.log('debug','picklist resized, %dx%d@%d,%d', dim.w, dim.h, dim.x, dim.y)
                                    draw()
                                 end,
                                 key = function(k)
                                    wv.log('debug','picklist got key=%s',k)
                                    if type(k) == 'string' and cord:has_event(k) then
                                       cord.event[k]()
                                    elseif k == 10 then -- newline
                                       local _ = records and records[active] and cord_app.event.OpenRecord( records[active].ROWID )
                                    elseif k == 46 then -- '.'
                                       if not sstring then
                                          cord.event.kill_buffer()
                                          local _ = records and records[active] and cord_app.event.OpenRecord( records[active].ROWID )
                                       else
                                          sstring = sstring .. string.char(k)
                                          isearch_on_string_update( sstring )
                                       end
                                    elseif k == 8 and sstring then
                                       sstring = sstring:sub(1,#sstring-1)
                                       isearch_on_string_update(sstring)
                                    elseif k == 19 or k == 18 then -- C-s
                                       if sstring then
                                          isearch_find_next(sstring, (k == 19) and 1 or -1)-- go to next after current
                                       else
                                          sstring = '' -- start isearch forward
                                          draw()
                                       end
                                    else
                                       if sstring then
                                          if type(k) == 'number' and k >= 32 and k <= 128 then
                                             sstring = sstring .. string.char(k)
                                             isearch_on_string_update(sstring)
                                          elseif k == 27 or k == 7 then -- ESC or Ctrl+g
                                             sstring = nil
                                             draw()
                                          end
                                       else
                                          return k
                                       end
                                    end
                                 end } }
   removewin = Winman.push( mw )
end
local function args_concat( ... )
   local t = { ... }
   return table.concat(t)
end
local function menuOptions( keys )
   menutext = {}
   for _,v in pairs(keys) do
      local key = type(v)=='string' and v:sub(1,1) or v[1]
      local str = type(v)=='string' and v:sub(2)   or v[2]
      table.insert( menutext, args_concat( '[', key, ']', str ) )
   end
   return menutext
end
local function MakeMenu( keys )
   local menuText = menuOptions(keys)
   local text = args_concat( ' ', table.concat(menutext, ' '), ' ' )
   
   local menuwin = Pdcurses.Window(1,#text,0,0)
   local function draw()
      Theme.with.classicmenu( menuwin, function()
                                 menuwin:mvaddstr(0,0,text)
      end)
      menuwin:refresh()
   end
   return menuwin, draw
end
local function MakeMenuVert( keys )
   local menuText = menuOptions(keys)
   local maxlen = 0
   for i, v in ipairs(menuText) do
      v = args_concat(' ', v, ' ')
      menuText[i] = v
      maxlen = (#v > maxlen) and #v or maxlen
   end
   wv.log('debug','MakeMenuVert: maxlen=%d #menuText=%d', maxlen, #menuText)
   local text = args_concat( ' ', table.concat(menutext, ' '), ' ' )
   
--   local menuwin = Pdcurses.Window(#menuText,maxlen,0,0)
   local menuwin = Pdcurses.Window(#menuText,maxlen,1,0)
   local function draw()
      Theme.with.classicmenu( menuwin, function()
                                 for i, v in ipairs(menuText) do
--                                    menuwin:mvaddstr( 1+i, 0, v )
                                 menuwin:mvaddstr(i-1,0,v)
                                 menuwin:mvaddstr(i-1,#v, ('           '):sub(1,maxlen-#v))
                                 end
      end)
      menuwin:refresh()
   end
   return menuwin, draw
end
   local function menuedFunctions( invokingCord, ftab, opt )
      local tOptions = {}
      for k, _ in pairs(ftab) do
         table.insert( tOptions, k )
      end
      local menuwin
      local drawmenu
      if opt and opt.vert then
         menuwin, drawmenu = MakeMenuVert(tOptions)
      else
         menuwin, drawmenu = MakeMenu(tOptions)
      end
      local grabbed = {}
      for k, v in pairs(ftab) do
         local optkey
         if type(k) == 'table' then
            optkey = string.byte(k[1],1)
         else
            optkey = string.byte(string.lower(string.sub(k,1,1)),1)
         end
         grabbed[ optkey ] = v
      end
      local managed = Winman.win:new{ win = menuwin,
                                  on = { key = function(k) invokingCord.event.exitContextMenu(k) end,
                                         resized = function() drawmenu() end
      } }
      local winman_remove = Winman.push_modal( managed )
      local key = invokingCord:sleep_manual( function(wakefun)
                                           invokingCord.event.exitContextMenu = function(k)
                                              wv.log('debug','app key grab, k=%s',k)
                                              wakefun(k)
                                           end
      end )
      winman_remove()
      if grabbed[key] then
         wv.log('debug','app grab key 2=%s',key)
         grabbed[key]()
      end
   end
local function getrecid(recid)
   recid = recid and (type(recid)=='number' or recid:find('^%d')) and recid or Numword.to_i(recid)
   return recid
end
   
local function FindRecordById(recid1)
   local altrecid
   if type(recid1) == 'table' then
      altrecid = recid1[2]
      recid1 = recid1[1]
      wv.log('debug','got rec/alt=%s/%s',recid1, altrecid)
   end
   local recid = getrecid(recid1)
   wv.log('debug','getrecid=%s recid1=%s',recid, recid1)
   if not recid and altrecid then
      recid = getrecid(altrecid)
   end
   if not recid then
      if not recid1 then
         recid = ui_oneline(env,'Enter record id', {w=30})
         if not recid then -- cancelled
            return
         end
         recid1 = recid
         local r2 = getrecid(recid)
         wv.log('debug','getrecid oneline=%s r2=%s',recid, r2)
         recid = r2
      end
   end
   local function selectBestMatch(set,id)
      id = id:lower()
      local strmatch = ':' .. id .. '%W'
      local best
      for _, r in pairs(set) do
         local downtitle = r.title:lower()
         local hasExact = string.find( downtitle, ':' .. id .. '$')
         wv.log('debug','selectBestMatch match=/%s/ hasExact=%s title="%s" r=%s best=%s', strmatch, hasExact, r.title, r, best)
         if hasExact then -- always prefer a record whose title is exactly the tag!
            best = r
         else
            best = best or (string.find( downtitle, strmatch ) and r) -- secondly prefer a record which has the :tag followed by non-word (space,punctuation,etc; not 's' for plural!)
         end
      end
      return best or set[1]
   end
   local record
   if recid then -- check for keyword
      record = db:selectOne('select rowid, title, detail, dt_created, dt_modified from note where rowid=?', tonumber(recid) )
   end
   if record then
      return record, false, recid1
   else
      wv.log('debug','looking for title like=%s',recid1)
      -- prefer records with a leading ":" as a tag, with the exact string first followed by a prefix/stem match
      records = db:selectMany('select rowid, title, detail, dt_created, dt_modified from note where title like ?', '%:' .. recid1 .. '%' )
      record = selectBestMatch( records, recid1 )
      record = record or db:selectOne('select rowid, title, detail, dt_created, dt_modified from note where title like ?', '%' .. recid1 .. '%' )
      return record, true, recid1
   end
end
local Keys = require 'pls-keys'
local on_save_scan_citations = require 'on-save-scan-citations'
local gOpenRecords = {}
local function make_editor( env, record )
   local ed = require 'pls-ed'
   if record.ROWID and gOpenRecords[record.ROWID] then
      wv.log('abnorm','record[%s] already open', Numword.to_s(record.ROWID))
      local win = gOpenRecords[record.ROWID]
      Winman.this_window_to_primary(win)
      return
   end
   
   local nrows, ncols = env.curses.nrows, env.curses.ncols
   local dim = WindowDim( 0, 0, math.floor(ncols/2), env.curses.nrows )
   local currentRev = 0
   local function setCurrentRev()
      if record.ROWID then
         local found = db:selectOne('SELECT COUNT(*) as rev from patch where id_note=?',record.ROWID)
         currentRev = found and tonumber(found.rev) or currentRev
      end
   end
   setCurrentRev()
   
   ------------------------------------------------------------------
   ---- Border
--   local wb = Pdcurses.Window(h+2,w+2,y-1,x-1)
--   wb:stdbox_()
--   wb:refresh()
   ------------------------------------------------------------------
   ---- Edit window
   local win = Pdcurses.Window( dim.h, dim.w, dim.y, dim.x )
   local mw = { win = win } -- Winman managed window, set at the bottom of this function
   local function drawbox()
      withFocusAttrib( mw, function() 
                          -- win:stdbox_()
                          win:box( tonumber(VLINE), HLINE ) --5VLINE, '-' ) 
      end )
   end
   local bbuffer
   ------------------------------------------------------------------
   ---- Title
   local function settitle()
      local recword
      if record.ROWID then
         recword = Numword.to_s(record.ROWID)
      else
         recword = "*NEW*"
      end
      local ttext = ' ' .. record.title:sub(1,dim.w-16) .. ' [ ' .. 
         recword .. '.' .. currentRev .. (bbuffer and bbuffer:isModified() and '* ] ' or ' ] ')
      win:move(0,1)
      withFocusAttrib( mw, function()
         win:hline(HLINE,dim.w-2)
         win:mvaddstr(0,(dim.w-2-#ttext),ttext)
      end )
   end
   settitle()
   local cord = Nylon.self
   local function editTitle()
      wv.log('debug','got call to editTitle')
      local starttext = record.title == 'new record' and '' or record.title
      local title = ui_oneline(env,'Edit Title', { text=starttext })
      if title then
         record.title = title
         settitle()
         win:refresh()
         if record.ROWID then
            db:retryexec('update note set title=?,dt_modified=DATETIME("NOW") where rowid=?', title, record.ROWID)
         end
      end
      return true
   end
   ------------------------------------------------------------------
   ---- Status bar
   -- local statuswin = Pdcurses.Window(1,w,y+h+1,x)
   local laststatus
   local function winstatus( sttype, data )
      -- statuswin:hline(HLINE,w+2)
      local prevx, prevy = win:getx(), win:gety()
      local statusrow = dim.y + dim.h - 1
      laststatus = data
      local crdate = '???'
      local update = '???'
      if record and record.dt_created then
         local d = record.dt_created
         crdate = d:sub(3,4) .. d:sub(6,7) .. d:sub(9,10)
      end
      if record and record.dt_modified then
         local d = record.dt_modified
         update = d:sub(3,4) .. d:sub(6,7) .. d:sub(9,10)
      end
      data = string.format('date=%s/%s %s', crdate, update, data)
      win:move(statusrow,1)
      withFocusAttrib( mw, function()
                          win:hline(HLINE,dim.w-2)
      end )
      -- statuswin:clear()
      -- statuswin:move(0,0)
      win:mvaddstr(statusrow,3,'[')
      win:addstr(data)
      win:addstr(']')
      --local left = w - 6 - #data + 2
      --statuswin:addstr(string.rep('_',left))
      win:move(prevy, prevx)
      win:refresh()
   end
   local titlecache = {}
   local editcordrefresh = nil
   
   local function plsed_drawline( win, x, y, text, markBeg, markEnd )
      if #text > (dim.w - 2) then
         win:mvaddstr( y, x, text:sub(1,dim.w-2) )
         return dim.w-2
      end
      -- markBeg, markEnd indicate the text in the section should
      -- be highlighted
      if not markBeg then
         local b,e,hdr,htext = text:find("^(h%d%.)(.*)") -- textile specific highlighting!! DANGER!! DANGER!!
         if not b then
            win:mvaddstr( y, x, text )
         else
            win:mvaddstr( y, x, hdr )
            Theme.with.heading( win, function()
                                   win:addstr(htext)
            end)
         end
      else
         local endPoint = markEnd > (dim.w-2) and (dim.w-2) or markEnd
         win:move(y,x)
         win:addstr( text:sub(1,markBeg-1) )
         Theme.with.inverse( win, function()
                                win:addstr( text:sub(markBeg,endPoint) )
         end )
         win:addstr( text:sub(endPoint+1,dim.w-2) )
      end
      local drawn = #text
      local remain = (dim.w -2) - drawn
      local s,e,tag = string.find(text,':(%w+)$')
      if s then
         if Numword.isvalid( tag ) then
         -- win:move(y,x)
            if not titlecache[tag] then
               local rec = db:selectOne( 'select title from note where rowid=?',
                                         Numword.to_i(tag) )
               titlecache[tag] = rec and rec.title
            end
            local append = titlecache[tag] or '???'
            local todraw = string.sub( (' ' .. append), 1, remain)
            Theme.with.autotext( win, function()
                                    win:addstr( todraw ) -- text.sub(s, e) )
            end)
            return drawn + #todraw
         end
      end
      -- here we look for codings, e.g., cross-system references that may be
      -- unique to the active space
      plugin.fixLine(text, win)
   end
   local e = setmetatable( { w = win,
                             report = winstatus,
                             on = {}
                           }, { __index = env } )
   -- for simple testing
   bbuffer = Buffer.withText( record.detail )
   local editordim = WindowDim(1,1,dim.w-2,dim.h-2)
   local cord_edit  = Nylon.cord( 'edit', ed.entryfn_edit, e, bbuffer,
                             { wdim = editordim,
                               plug = {
                                  drawline = plsed_drawline
                               }
   } )
   editcordrefresh = function() cord_edit.event.refresh() end
   
   local removewin -- callback set when Winman.push is called
   -- kill_buffer() callback from editor cord
   function e.on.kill_buffer()
      -- cord.event._shutdown()
      wv.log('debug','got kill buffer removewin=%s',removewin)
      if record.ROWID then
         gOpenRecords[record.ROWID] = nil
      end
      removewin()
   end
   
   
   function e.on.contextmenu(wordAtPoint, opt)
      wv.log 'got on.contextmenu callback'
      local function show_insert_menu()
         local function insert_link()
            local record, makenew, recid1 = FindRecordById(wordAtPoint)
            wv.log('debug', 'frbid record=%s makenew=%s recid1=%s', record, makenew, recid1 )
            if record then
               local id = record.ROWID
               local nw = Numword.to_s(id)
               wv.log( 'debug', 'got record, id=%s / nw=%s', id, nw )
               local text = string.format(':%s\n', nw)
               local _ = opt and opt.consume_word and opt.consume_word()
               cord_edit.event.insert_at_point( text )
            end
         end
         menuedFunctions( cord_edit, {
                             XML = function() end,
                             Nonsense = function() end,
                             Link = insert_link
                                     }, { vert = true })
      end
      -- @todo: check buffer for newlines
      local function insert_yank_with_tag( tag )
         -- if buffer:char_at_point(thePoint) ~= '\n' then cord_edit.event.insert_at_point( '\n' ) end
         cord_edit.event.insert_at_point( '\n<' .. tag .. '>\n' )
         cord_edit.event.yank()
         Nylon.self:sleep(0.01) -- give yank process time to complete; hate this, but yank i think depends on events propogating back to main cord
         -- if buffer:char_at_point(thePoint) ~= '\n' then cord_edit.event.insert_at_point( '\n' ) end
         cord_edit.event.insert_at_point( '</' .. tag .. '>\n' )
      end
      
      menuedFunctions( cord_edit,
                       {
                          Insert = show_insert_menu,
                          Paste = function()
                             menuedFunctions( cord_edit, {
                                                 Pre = function() insert_yank_with_tag 'pre' end,
                                                 Quote = function() insert_yank_with_tag 'blockquote' end
                                                         }, { vert = true })
                          end
      })
   end
   local function possibly_transform_clipboard_text( text )
      wv.log('debug', 'transform clibpboard=[[%s]]', text)
      if string.find(text,'^(http://.*)') or string.find(text,'^(https://.*)') then
         return string.gsub(text, ' ', '%%20')
      else
         return text
      end
   end
   
   
   function e.on.yank(special)
      if not NylonOs then
	return
      end
      local puthtm
      --      wv.log('debug','got yank, special=%s',special)
      local cbrc = {}
      NylonOs.Static.getclipboard_ext(
         function(tyyp, content)
            cbrc = { tyyp = tyyp, content = content }
      end )
      
      if cbrc.tyyp then
         local tyyp = cbrc.tyyp
         local content = cbrc.content
         
--            wv.log('debug','clipboard has data of type=%s',tyyp)
         -- this is sort of unique to windows; see internet docs on on CF_HTML  
         -- clipboard content type.
         if special and tyyp == 'html' then
            local _, _, m = content:find '<!%-%-StartFragment%-%->(.*)<!%-%-EndFragment%-%->'
            if m then
               cord_edit.event.insert_at_point( m ) -- :sub(s,e)
               puthtm = true
            end
         end
         if tyyp == 'text' and (not puthtm) then
            cord_edit.event.insert_at_point( possibly_transform_clipboard_text(content) )
         end
         if tyyp == 'CF_HDROP' then
            (function()
               local File = require 'filelib'
               local Table = require 'extable'
               local fileURLsRaw = Service.archiver.archiveFileList( content )
               local fileURLs = Table.map( function(url)
                                         local base = File.leaf(url)
                                         return string.format('"%s":%s', base, url)
                                       end, fileURLsRaw )
               local itext
               if #content > 1 then
                  itext = '* ' .. table.concat( fileURLs, '\n* ' )
               else
                  itext = fileURLs[1]
               end
               cord_edit.event.insert_at_point( itext )
            end)()
         end
         if tyyp == 'image/png' then
            dbimg = dbimg or (Sqlite:new 'images.db')
            dbimg:exec('insert into image (raw) values (?)', content)
            local rowid = dbimg:lastRowId()
            cord_edit.event.insert_at_point( 
               string.format("!:img:%s!\n", Numword.to_s(rowid) ) )
            local copy = dbimg:selectOne('select raw from image where ROWID=?', rowid);
            if copy then
               wv.log('debug','Got image out, sz=%d', #copy.raw)
            else
               wv.log('error','cant read saved image??')
            end
            -- shell_cmd 'get-process snippingtool | stop-process"'
         end
      end
      return true;
   end
   -- save() callback from editor cord
   function e.on.save( text )
      wv.log('debug','save new record=%d text=%s',record.ROWID,text:sub(1,40))
      local prevText = (currentRev > 0) and record.detail or ''
      local Diff = require 'diff_match_patch'
      -- create patch to turn text into previous text
      local patches = Diff.patch_make(text,prevText)
      local patchtext = Diff.patch_toText(patches)
      -- create patch to turn previous text into text
      -- hate doing seperate fwd/reverse patchtext, but there's not an easy algo provided with diffmatchpatch for reversing
      local rpatches = Diff.patch_make(prevText,text)
      local rpatchtext = Diff.patch_toText(rpatches)
      if #patchtext > 0 then
         wv.log('debug','edit, patch is this (retryexec=%s):\n%s', tostring(db.retryexec), patchtext)
         db:retryexec('insert into patch (id_note,dt_created,content,rcontent,id_user,revision) values (?,DATETIME("NOW"),?,?,?,(SELECT COUNT(*) from patch where id_note=?))',
                      record.ROWID, patchtext, rpatchtext,gIdUser, record.ROWID)
      end
      on_save_scan_citations( db, record.ROWID, text )
      local isNew = false
      if record.ROWID then
         db:retryexec('update note set detail=?,dt_modified=DATETIME("NOW") where rowid=?', text, record.ROWID )
      else
         local rc = db:retryexec('insert into note (detail,title,dt_created,dt_modified,id_user) values (?,?,DATETIME("NOW"),DATETIME("NOW"),?)', 
                            text, record.title, gIdUser)
         record.ROWID = db:lastRowId()
         gOpenRecords[record.ROWID] = mw
         isNew = true
      end
      plugin.onEditRecord( isNew, record )
      bbuffer:setUnmodified()
      record.detail = text
      setCurrentRev()
      settitle()
   end -- end e.on.save()
   function e.on.modified()
      settitle() -- reset the "modified" indicator
   end
   function e.on.tagActivated( tag, alttag )
      wv.log('debug','tagActivated, tag=%s (alt=%s)',tag, alttag)
      cord_app.event.OpenRecord{ tag, alttag }
   end
   function e.on.queryCitations( tag, alttag )
      local nw = Numword.to_s(record.ROWID)
      wv.log('debug','queryCitations, id=%s/%s', record.ROWID,nw)
      picklist( ('Citations of :' .. nw .. ' ' .. record.title), 
                'select ROWID,dt_modified,title from note where detail like ? order by dt_modified desc limit 50', ("%:" .. nw .. "%") )
   end
   -- callback when winman passes a key to me
   local function winman_keyhandler(k)
      if k == Keys.control.editTitle then
         cord_app:add_pending(editTitle)
      else
         if type(k) == 'string' then
            if cord_edit:has_event(k) then
               cord_edit.event[k]()
            else
               if k == 'mail_record' then
                  local recname = Numword.to_s(record.ROWID)
                  wv.log('debug','mailing record=%s',recname)
                  shell_cmd( 'mpnote-sendmail %s', recname )
--               elseif k == 'start_snipping_tool' then
--                  simple_shell_cmd 'c:\\windows\\system32\\SnippingTool.exe'
               elseif k == 'extract_to_new_record' then
                  Nylon.cord('extract_to_new_record',
                     function(cord)
                        cord:sleep_manual(
                           function(wake)
                              cord_edit.event.replace_marked( 
                                 function(marked_text)
                                    if not marked_text then
                                       wake()
                                       return
                                    end
                                    local proposedTitle = 'New Record from: ' .. record.title
                                    local newtitle = ui_oneline( env, 'Extracted Record Title', { text = proposedTitle })
                                    if not newtitle then
                                       return false
                                    end
                                    local r = { title = newtitle, detail = marked_text }
                                    local rc = db:retryexec('insert into note (detail,title,dt_created,dt_modified) values (?,?,DATETIME("NOW"),DATETIME("NOW"))', r.detail, r.title)
                                    r.ROWID = db:lastRowId()
                                    -- r.ROWID = 1379
                                    make_editor(env,r)
                                    wake()
                                    return ':' .. Numword.to_s(r.ROWID) .. '\n'
                                 end)
                           end )
                     end )
               elseif k == 'insert_ref_to_new_record' then
                  Nylon.cord(k, function(cord)
                        local function doit(wakefun)
                           local proposedTitle = 'New Record from: ' .. record.title
                           local newtitle = ui_oneline( env, 'New Record Title', { text = proposedTitle })
                           if not newtitle then
                              wakefun()
                              return
                           end
                           local r = { title = newtitle, detail = '\n\n' }
                           local rc = db:retryexec('insert into note (detail,title,dt_created,dt_modified) values (?,?,DATETIME("NOW"),DATETIME("NOW"))', r.detail, r.title)
                           r.ROWID = db:lastRowId()
                           -- r.ROWID = 1379
                           make_editor(env,r)
                           cord_edit.event.insert_at_point( ':' .. Numword.to_s(r.ROWID) )
                        end
                        cord:sleep_manual( doit )
                    end )
               elseif k == 'insert_file' then
                  Nylon.cord('insert_file_cord',function(cord)
                                cord:sleep_manual( function(wake)
                                                      local fname = ui_oneline( env,  'Insert file' )
                                                      if fname then
                                                         wv.log('debug','insert_file=%s',fname)
                                                         cord_edit.event.getPoint(function(thePoint)
                                                                                     wv.log('debug','insert_file point=%d',thePoint)
                                                                                     bbuffer:insertFileAtPoint( thePoint, fname )
                                                                                     cord_edit.event.refresh()
                                                                                     wake()
                                                         end)
                                                      end
                                end )
                  end )
               else
                  return k
               end
            end
         else
            cord_edit.event.key(k)
         end
      end
   end
   -- callback when winman resizes me
   function winman_resized( newdim )
      if newdim then
         dim.x, dim.y, dim.w, dim.h = newdim.x, newdim.y, newdim.w, newdim.h
      end
      -- editor x,y is always offset 1,1 of the window
      editordim.w, editordim.h = dim.w-2, dim.h-2
      drawbox()
      settitle()
      winstatus('resized', laststatus or '-resized-')
      wv.log('debug','winman_resized win@%d,%d , ed, %dx%d@%d,%d', dim.x,dim.y,editordim.w, editordim.h, editordim.x, editordim.y)
      if newdim then -- don't redraw if we're just changing focus
         Nylon.self:sleep_manual(function(wakefun)
                                    cord_edit.event.redraw( wakefun )
         end)
      end
      wv.log('debug','winman_resize done')
   end
   mw = Winman.win:new{ 
            win    = win,
            on = { resized = winman_resized,
                   key =     winman_keyhandler,
            } 
   }
   removewin = Winman.push( mw )
   if (record.ROWID) then
      gOpenRecords[record.ROWID] = mw
   end
   
end -- function make_editor()
local function entryfn_app( cord, env )
   cord.event.quit = function()
      local yes = ui_yesno(cord,env,'Exit now?')
      wv.log('debug','exit=%d',yes and 1 or 0)
      if yes then
         collectgarbage();
         Pdcurses.Static.clear()
         Pdcurses.Static.refresh()
         Pdcurses.Static.endwin()
         os.exit(1)
      end
      -- dmp this was hear to hide window when i was less familiar with ncurses
      -- window refreshes and before we had a window manager. it may not be needed
      -- any longer
      collectgarbage()
      Pdcurses.Static.refresh()
   end
   function cord.event.save_buffers_kill_terminal()
      cord.event.quit()
   end
   function cord.event.other_window()
      Winman.other_window()
   end
   function cord.event.focused_window_to_primary()
      Winman.focused_window_to_primary()
   end
   cord.event.SwapBuffers = function()
      wv.log 'app cord.event.SwapBuffers'
      Winman.swap_tiled()
   end
   cord.event.NewRecord = function( opt )
      local record = { title = opt and opt.title or 'new record', detail = '\n\n' }
      make_editor( env, record )
   end
   cord.event.OpenRecord = function(recid1)
      local record, makenew, recid1 = FindRecordById(recid1)
      wv.log('debug', 'frbid record=%s makenew=%s recid1=%s', record, makenew, recid1 )
      if (not record) and makenew and recid1 then
         local newt = tostring(recid1)
         if newt:sub(1,1) == ':' then
            newt = newt:sub(1,1) .. newt:sub(2,2):upper() .. newt:sub(3)
         else
            newt = ':' .. newt:sub(1,1):upper() .. newt:sub(2)
         end
         cord.event.NewRecord{ title = (newt .. ' new record') }
         return
      end
      
      if record then
         wv.log('debug','got record=%s',json:encode(record))
         make_editor( env, record )
         -- warn / status?? 
         -- 'could not find record for id=%s', tostring(recid)
      end
   end
   local lastsearch = ''
   cord.event.Search = function()
      local sstr = ui_oneline( env, 'Search For', { text = lastsearch, replace = true } )
      if not sstr then return end
      local S = require 'pls-db'
      local fancysearch = S.megasearch( sstr )
      wv.log('debug','fancysearch=%s',fancysearch)
      lastsearch = sstr
      picklist( ('Search: ' .. sstr),
                'select ROWID,dt_modified,title from note where ' .. fancysearch .. string.format(' order by dt_modified desc limit %d',((env.curses.nrows-2)*6)) )
   end
   while true do
      cord.event.grab.wait()
      wv.log('debug','main window got grab key')
      menuedFunctions( cord, {
         New = function() cord.event.NewRecord() end,
         Goto = function() cord.event.OpenRecord()  end,
         PushFS = function() Winman.toggle_fullscreen()  end,
         Quit = function() cord.event.quit()        end,
         [{ '/', 'Search' }] = function() cord.event.Search() end,
      })
   end
end -- end, function entryfn_app
local function ding(x,p,...)
end
-- state variables to track whether a prefix is active
local command_prefix = false
local personal_prefix = false
local esc_prefix = false
-- Curses on unix systems generally don't support unique "Alt" sequences
-- like M-f, M-b, M-d which are so key to the emacs editing experience.
-- instead these are sent as escape sequences, ie, ESC followd by "f".
-- This means our main keyhandler has to "trap" the key immediately following
-- the escape and convert it to a unique "M-letter" style event.  But this
-- means that when escape is pressed we are _waiting_ for the next
-- keystroke and won't send the escape key immediately, which makes the escape
-- key almost useless.  This cord allows the escape key to be sent on by
-- itself if no follow-on key is received within a certain amount of time.
local cord_eschandler=Nylon.cord('escsender',
    function( cord )
       local count = 1
       local esccount
       cord.event.gotesc = function(k)
          esccount = count
          cord.event.sendesc()
       end
       cord.event.gotnonesc = function(k)
          count = count + 1
       end
       while true do
          cord.event.sendesc.wait()
          cord:sleep(0.1) -- wait 100 ms
          if esccount == count then -- no keys received since esc
             wv.log('debug','should send escape here')
             Winman.inject_key( 9027 ) -- ctrl+g
--             Winman.inject_key( 27 ) -- ctrl+g
          end
       end
    end)
local keymap_everybody       = Keys.everybody
local keymap_command_prefix  = Keys.command_prefix
local keymap_personal_prefix = Keys.personal_prefix
local keymap_esc_prefix      = Keys.esc_prefix
local function app_keymapper( k )
   
   local function handle_if_app_event_or_return( k )
      if cord_app:has_event(k) then
         cord_app.event[k]()
      else
         return k
      end
   end
   local function unknown(c)
                          if k >= 32 and k < 128 then
                             ding( 'Unknown prefix command Ctrl-%s + "%c"', c, k )
                          else
                             if k < 27 then
                                ding( 'Unknown prefix command Ctrl-%s + Ctrl-%c', c, (k+64) )
                             else
                                ding( 'Unknown prefix command Ctrl-%s + %d', c, k )
                             end
                          end
   end
   if k == 27 then -- esc
      esc_prefix = true
      cord_eschandler.event.gotesc()
      return
   else
      cord_eschandler.event.gotnonesc()
   end
   if k == 9027 then -- real escape; see cord_eschandler
      k = 27
   end
   if esc_prefix then
      esc_prefix = false
      if keymap_esc_prefix[k] then
         return app_keymapper( keymap_esc_prefix[k] )
      end
   end
   if command_prefix then
      command_prefix = false
      if keymap_command_prefix[k] then
         -- Map the sequence of keys (C-x s, C-x k, etc) to a named event. The named event
         -- string is then forwarded to key handlers just as an integer key value would be
         wv.log('debug','got cmd prefix mapped [%d=>%s]',k,keymap_command_prefix[k])
         return handle_if_app_event_or_return( keymap_command_prefix[k] )
      else
         unknown 'X'
      end
   elseif personal_prefix then
      personal_prefix = false
      return handle_if_app_event_or_return( keymap_personal_prefix[k] )
   elseif keymap_everybody[k] then
      return handle_if_app_event_or_return( keymap_everybody[k] )
   elseif k == 3 then -- begin personal prefix
      personal_prefix = true
      wv.log 'start personal prefix'
   elseif k == 435 then -- M-s
      wv.log 'got swap / M-s key'
      cord_app.event.SwapBuffers()
   elseif k == Keys.control.menu then -- C-l
      cord_app.event.grab()
   elseif k == 20 or k == 24 then -- C-t or C-x
      command_prefix = true
   else
      return k -- not handled or translated; pass on the original key
   end
end
local function app_unhandledkeys(k)
   wv.log('debug','app unhandled key handler key=%s',k)
   if k == 'jumptotag' then
      cord_app.event.OpenRecord()
   elseif k == 'toggle_landscape' then
      Winman.toggle_landscape()
   else
      wv.log('debug','unhandled key/input event=%s',k)
   end
end
------------------------------------------------------------------
------------------------------------------------------------------
local function cordfn_followup( cord )
   while true do
      
      local today = os.date("%y%m%d",os.time())
      local fupdate = string.format('%%followup%s%%', today)
      
      local followupCount = db:selectOne(
         'select count(*) as thecount from note where title like ? or detail like ?', fupdate, fupdate)
      
      wv.log('debug','followup search [%s] rc=%s', fupdate, json:encode(followupCount))
      
      if followupCount and tonumber(followupCount.thecount) > 0 then
         local manualClose = false
         local done = false
         picklist(
            { title = string.format('Follow Up %s', today),
              on = {
                 closed = function()
                    wv.log('debug','followup picklist manually closed')
                    manualClose = true
                    if done then
                       done()
                    end
                    done = function() end
                 end
            } },
            'select ROWID, dt_modified, title from note where title like ? or detail like ?', fupdate, fupdate)
         while (not done) and (today == os.date("%y%m%d", os.time())) do
            wv.log('debug', 'followup picklist open; wait until closed or new day')
            cord:sleep_manual( function(wakefn)
                                 done = function()
                                    done = false
                                    wakefn()
                                 end
                                 NylonSysCore.addOneShot( 120*1000, function() if done then done() end end) -- wake up every 2minutes to check for new day
            end)
         end
         
         if manualClose then
            wv.log('debug', 'followup picklist closed manually, wait 15min')
            cord:sleep(15*60*1000) -- 15 minutes
         end
         
      else
         cord:sleep(20) -- as long as no follow up items are found, check every 20s (to detect new ones)
      end
   end
end
Nylon.cord('followup', cordfn_followup)
------------------------------------------------------------------
------------------------------------------------------------------
Winman.create( env )
picklist(' Recent Edits ', 
--         string.format('select ROWID,dt_modified,title from note order by dt_modified desc limit %d', env.curses.nrows-2))
         string.format('select ROWID,dt_modified,title from note order by dt_modified desc limit %d', (env.curses.nrows*6)))
Winman.set_input( app_keymapper, app_unhandledkeys )
cord_app = Nylon.cord('app', entryfn_app, env)
cord_app.event.OpenRecord( recid )
------------------------------------------------------------------
------------------------------------------------------------------
Nylon.run()