#include <ncurses/pen.hh>

#include <ncurses/color.hh>
#include <ncurses/pad.hh>
#include <ncurses/window.hh>


static bool
is_bold (WINDOW *win)
{
  short pair;
  attr_t attrs;

  wattr_get (win, &attrs, &pair, NULL);

  return attrs & WA_BOLD;
}


using ncurses::pen;

void
pen::write (WINDOW *win, char const *str, int len)
{
  waddnstr (win, str, len);
}

void
pen::write (WINDOW *win, std::string const &str)
{
  write (win, str.data (), str.length ());
}

void
pen::write (WINDOW *win, char const ch)
{
  return_unless (waddch (win, ch) == OK);
}

std::string const &pen::ltitle   (bool bold) { static std::string const s[2] = { "┤", "╣" }; return s[bold]; }
std::string const &pen::rtitle   (bool bold) { static std::string const s[2] = { "├", "╠" }; return s[bold]; }
std::string const &pen::ulcorner (bool bold) { static std::string const s[2] = { "┌", "╔" }; return s[bold]; }
std::string const &pen::llcorner (bool bold) { static std::string const s[2] = { "└", "╚" }; return s[bold]; }
std::string const &pen::urcorner (bool bold) { static std::string const s[2] = { "┐", "╗" }; return s[bold]; }
std::string const &pen::lrcorner (bool bold) { static std::string const s[2] = { "┘", "╝" }; return s[bold]; }
std::string const &pen::h_line   (bool bold) { static std::string const s[2] = { "─", "═" }; return s[bold]; }
std::string const &pen::v_line   (bool bold) { static std::string const s[2] = { "│", "║" }; return s[bold]; }

pen::pen (window &win)
: win_ (win.win ())
{
}

pen::pen (pad &pad)
: win_ (pad.win ())
{
}

bool
pen::move (int x, int y)
{
  return_val_unless (wmove (win_, y, x) == OK, false);
  return true;
}

void
pen::commit ()
{
  return_unless (wnoutrefresh (win_) == OK);
}

int
pen::x () const
{
  return getcurx (win_);
}

int
pen::y () const
{
  return getcury (win_);
}

#if 0
int
pen::width () const
{
  return getmaxx (win_);
}

int
pen::height () const
{
  return getmaxy (win_);
}
#endif

void
pen::clear ()
{
  return_unless (werase (win_) == OK);
}

void
pen::fill (color const &col)
{
  return_unless (wbkgd (win_, COLOR_PAIR (col.num ())) == OK);
}

void
pen::set_color (color const &c)
{
  /* what should I use here: wattrset or wattr_set */
  return_unless (wattr_set (win_, c.attr (), c.num (), 0) == OK);
}

void
pen::frame ()
{
  return_unless (move (0, 0));

  bool const bold = is_bold (win_);

  int maxx, maxy;
  getmaxyx (win_, maxy, maxx);

  return_unless (maxx > 1 && maxy > 1);

  write (ulcorner (bold));
  for (int i = 1; i < maxx - 1; i++)
    write (h_line (bold));
  write (urcorner (bold));

  for (int i = 1; i < maxy; i++)
    {
      write (v_line (bold));
      return_unless (move (0, i));
    }

  write (llcorner (bold));
  for (int i = 1; i < maxx - 1; i++)
    write (h_line (bold));
  write (lrcorner (bold));

  for (int i = 1; i < maxy - 1; i++)
    {
      return_unless (move (maxx - 1, i));
      write (v_line (bold));
    }
}

void
pen::title (std::string const &title)
{
  bool const bold = is_bold (win_);

  return_unless (move (2, 0));
  write (ltitle (bold));
  write (title);
  write (rtitle (bold));
}

void
pen::write (std::string const &str)
{
  write (win_, str);
}

void
pen::write (char const ch)
{
  write (win_, ch);
}