-- vim:set ft=lua:
dofile(mg.script_name:gsub('[^\\/]*$','')..'epg.lua')

post=AssertPost()
key=post and GetSearchKey(post) or GetSearchKeyPreset(mg.request_info.query_string) or GetSearchKeyKeyword(mg.request_info.query_string)

edcb.htmlEscape=15

b=key.enabled and SearchEpg(key) or {}

st={}
for i,v in ipairs(b)do
  _endTime=TimeWithZone(v.startTime)+(v.durationSecond or 0)
  if baseTime<_endTime and (i==1 or v.eid~=b[i-1].eid) then
    if not lastendTime or lastendTime<_endTime then lastendTime=_endTime end
    for j=1, #st+1 do
      if st[j] then
        w=st[j][#st[j]]
        startTime=TimeWithZone(w.startTime)
        endTime=w.durationSecond and startTime+w.durationSecond or startTime+10*3600
      else
        st[j]={}
      end
      if #st[j]==0 or startTime<TimeWithZone(v.startTime) and endTime<=TimeWithZone(v.startTime) then
        table.insert(st[j], v)
        break
      end
    end
  end
end
interval=lastendTime and math.ceil((lastendTime-baseTime)/60/60) or MARGIN_HOUR+1
if interval>48 then ONE_MIN_PX=math.max(math.floor(ONE_MIN_PX/4),1) end
MAX_ONE_MIN_PX=math.floor(ONE_MIN_PX*1.5+0.5)

SERVICE={}
for i,v in ipairs(edcb.GetServiceList() or {}) do
  SERVICE[('%04X%04X%04X'):format(v.onid, v.tsid, v.sid)]=v.service_name
end


ct={
  title=EdcbHtmlEscape(key.title or key.preset or post and '検索 ('..ParseAndKey(key.andKey).andKey..')' or ''),
  css=EpgCssTemplate(),
  menu=EpgMenuTemplate(),
  searchlinks=not SIDE_PANEL
}

ct.subheader='<div id="subheader">\n'
  ..'<nav class="mdl-navigation">\n'
  ..'<div class="mdl-layout-spacer"></div>\n'

  ..'<div class="dividers navigation__item mdl-color-text--primary"><input class="ONE_MIN_PX mdl-slider mdl-js-slider" type="range" min="1" max="'..MAX_ONE_MIN_PX..'" value="'..ONE_MIN_PX..'" step="0.5" id="ONE_MIN_PX_S">'
  ..'<div class="number"><div class="text-right mdl-textfield mdl-js-textfield"><input class="ONE_MIN_PX mdl-textfield__input" type="number" name="ONE_MIN_PX" value="'..ONE_MIN_PX..'" min="0.1" step="0.1" id="ONE_MIN_PX" style="width:1.5em"><label class="mdl-textfield__label" for="ONE_MIN_PX"></label></div>px</div></div>'
  ..'<div class="dividers navigation__item navigation__icon"><a class="mdl-button mdl-js-button mdl-button--icon mdl-button--colored" id="now"><i class="material-icons">radio_button_checked</i></a></div>\n'

  ..'<div class="navigation__item navigation__icon"><a id="prev" class="mdl-button mdl-js-button mdl-button--icon mdl-button--colored"><i class="material-icons">expand_less</i></a></div>\n'
  ..'<div class="dividers navigation__item navigation__icon"><a id="next" class="mdl-button mdl-js-button mdl-button--icon mdl-button--colored"><i class="material-icons">expand_more</i></a></div>\n'

  ..'<div id="preset" class="pulldown dividers navigation__item mdl-color-text--primary">'..EdcbHtmlEscape(key.preset or 'プリセット')..'</div>\n'
  ..'<div id="time" class="pulldown navigation__item mdl-color-text--primary">時間</div>\n'


main={'<div class="menu"><ul class="mdl-menu mdl-menu--bottom-right mdl-js-menu" for="preset">\n'}
for i,v in ipairs(Split(edcb.GetPrivateProfile('search','list','',INI),',')) do
  table.insert(main, '<li><a class="mdl-menu__item'..(v==key.preset and ' mdl-color-text--accent' or '')..'" href="epgcustom.html?preset='..i..'">'..EdcbHtmlEscape(v)..'</a></li>\n')
end
table.insert(main, '</ul>'

  ..'<ul class="widemenu text-right mdl-menu mdl-menu--bottom-right mdl-js-menu" for="time">\n')
if baseHour<4 then
  table.insert(main, '<li class="mdl-menu__item mdl-cell--hide-phone"></li>\n'
    ..'<li class="mdl-menu__item mdl-cell--hide-phone"></li>\n'
    ..'<li class="scroller mdl-menu__item" data-scroll="0">'..(baseHour+24)..'時</li>\n')
end
for i=4,baseHour+interval,8 do
  j=i%24
  if i<=baseHour-8  then
      table.insert(main, '<li class="mdl-menu__item mdl-cell--hide-phone"></li>\n')
  elseif i<baseHour then
      table.insert(main, '<li><a class="scroller mdl-menu__item" href="#H'..baseHour..'">'..baseHour..'時</a></li>\n')
  else
    d=os.date('!*t', ((baseDate*24)+i)*3600)
    table.insert(main, '<li><a class="scroller mdl-menu__item" href="#H'..i..'">'..(j==4 and d.day..'日('..({'日','月','火','水','木','金','土'})[d.wday]..') ' or '')..(j<4 and j+24 or j)..'時'..'</a></li>\n')
  end
end
table.insert(main, '</ul>\n')

ctt={'<div id="tv-guide-container"><div id="tv-guide"'..EpgBgClassName()..'>'

  ..'<div id="tv-guide-header" class="hidden" style="height:0;"></div>\n'

  ..'<div id="tv-guide-main">\n'

  ..'<div class="hour-container mdl-color-text--white mdl-shadow--2dp">\n'}
for i=baseHour,baseHour+interval-1 do
  j=i%24
  table.insert(ctt, '<div id="H'..i..'" class="hour t'..j..'"><tt>'..(j==4 and os.date('!*t', ((baseDate*24)+i)*3600).day..'日' or '')..(j<4 and j+24 or j)..'時</tt></div>\n')
end
table.insert(ctt, '<div id="line"></div></div>\n')

for i,v in ipairs(st) do
  table.insert(ctt, '<div class="station"><div>')
  lastPx=0
  total=0
  for j,w in ipairs(v) do
    startTime=TimeWithZone(w.startTime)
    startPx=math.min(math.floor((startTime-baseTime)/60), 60*interval)
    endTime=w.durationSecond and startTime+w.durationSecond or startTime+10*3600 --終了時間未定
    endPx=math.min(math.floor((endTime-baseTime)/60), 60*interval)
    if startPx-lastPx>0 then
      table.insert(ctt, '<div class="cell" data-endtime="'..(startTime-9*3600)..'" style="--h:'..(startPx-lastPx)..'"><div class="content-wrap cont-0"><div class="content"></div></div></div>\n')
      total=total+startPx-lastPx
      lastPx=startPx
    end
    if endPx-lastPx>0 then
      op={
        service_name=SERVICE[('%04X%04X%04X'):format(w.onid, w.tsid, w.sid)] or '',
        url='epginfo.html?id='..w.onid..'-'..w.tsid..'-'..w.sid..'-'..(w.past and startTime or w.eid)
      }
      table.insert(ctt, CellTemplate(w, op, true))

      total=total+endPx-lastPx
      lastPx=endPx
    end
  end
  if total<interval*60 then
    table.insert(ctt, '<div class="cell" style="--h:'..(interval*60-total)..'"><div class="content-wrap cont-0"><div class="content"></div></div></div>\n')
  end
  table.insert(ctt, '</div></div>\n')
end

ct.main=table.concat(main)..'</div><main class="sidePanel-container mdl-layout__content">\n'
  .. SidePanelTemplate()

  ..table.concat(ctt)
  ..'</div>\n</div></div>\n'
  ..'<form id="autoepg" method="POST" action="autoaddepginfo.html">\n'
  ..'<input type="hidden" name="ctok" value="'..CsrfToken('autoaddepginfo.html')..'">\n'
  ..'<input type="hidden" name="andKey">\n'
  ..'<input type="hidden" name="serviceList">\n'
  ..'</form>\n'
  ..EpgJsTemplate()

ct=Template(ct)

mg.write(ct:Pop(Response(200,'text/html','utf-8',ct.len,ct.gzip)..'\r\n'))