/+
- Name: SisuDoc Spine, Doc Reform [a part of]
  - Description: documents, structuring, processing, publishing, search
    - static content generator

  - Author: Ralph Amissah
    [ralph.amissah@gmail.com]

  - Copyright: (C) 2015 - 2025 Ralph Amissah, All Rights Reserved.

  - License: AGPL 3 or later:

    Spine (SiSU), a framework for document structuring, publishing and
    search

    Copyright (C) Ralph Amissah

    This program is free software: you can redistribute it and/or modify it
    under the terms of the GNU AFERO General Public License as published by the
    Free Software Foundation, either version 3 of the License, or (at your
    option) any later version.

    This program is distributed in the hope that it will be useful, but WITHOUT
    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
    FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
    more details.

    You should have received a copy of the GNU General Public License along with
    this program. If not, see [https://www.gnu.org/licenses/].

    If you have Internet connection, the latest version of the AGPL should be
    available at these locations:
    [https://www.fsf.org/licensing/licenses/agpl.html]
    [https://www.gnu.org/licenses/agpl.html]

  - Spine (by Doc Reform, related to SiSU) uses standard:
    - docReform markup syntax
      - standard SiSU markup syntax with modified headers and minor modifications
    - docReform object numbering
      - standard SiSU object citation numbering & system

  - Homepages:
    [https://www.sisudoc.org]
    [https://www.doc-reform.org]

  - Git
    [https://git.sisudoc.org/]

+/
module sisudoc.io_out.skel;
@safe:
template outputSkel() {
  template munge() {
    import std.stdio;
    import std.conv;
    void puts(string _obj_is) {
      writeln(__FILE__, ":", __LINE__, ": ", _obj_is);
    }
    string newline = "\n";
    string newlines = "\n\n";
    string toc(O)(O obj) {
      // puts(obj.metainfo.is_a);
      // return "toc\n";
      return obj.text ~ newline;
    }
    string heading(O)(O obj) {
      /+
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newline ~ "「" ~ obj.metainfo.ocn.to!string ~ "」" ~ newlines;
    }
    string para(O)(O obj) {
      /+
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newline ~ "「" ~ obj.metainfo.ocn.to!string ~ "」" ~ newlines;
    }
    string group(O)(O obj) {
      /+
        The "group" is different from the "block" mark in that "group" does not
        preserve whitespace, the "block" mark does. The text falling within the
        block is a single object.
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newline ~ "「" ~ obj.metainfo.ocn.to!string ~ "」" ~ newlines;
    }
    string block(O)(O obj) {
      /+
        The "block" is different from the "group" mark in that the "block" mark
        (like the "poem" mark) preserves whitespace, the "group" mark does not.
        The text falling within the "block" is a single object, which is different
        from the "poem" mark where each identified verse is an object.
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newline ~ "「" ~ obj.metainfo.ocn.to!string ~ "」" ~ newlines;
    }
    string poem(O)(O obj) {
      /+
        The "poem" mark like the "block" preserves whitespace. Text followed by
        two newlines are identified as verse and each verse is an object i.e. a
        poem may consist of multiple verse each of which is identified as an
        object, unlike a text "block" which is identified as a single object.
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      // return obj.text ~ newline ~ "「" ~ obj.metainfo.ocn.to!string ~ "」" ~ newlines;
      return obj.text ~ newlines;
    }
    string verse(O)(O obj) {
      /+
        See description of poem, the poem is demarkated but the verse is the
        object.
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newline ~ "「" ~ obj.metainfo.ocn.to!string ~ "」" ~ newlines;
    }
    string code(O)(O obj) {
      /+
        "Code" blocks are a single text object, in which the original text is
        preserved.
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newline ~ "「" ~ obj.metainfo.ocn.to!string ~ "」" ~ newlines;
    }
    string quote(O)(O obj) {
      /+
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newline ~ "「" ~ obj.metainfo.ocn.to!string ~ "」" ~ newlines;
    }
    string table(O)(O obj) {
      /+
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newline ~ "「" ~ obj.metainfo.ocn.to!string ~ "」" ~ newlines;
    }
    string endnote(O)(O obj) {
      /+
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newlines;
    }
    string bookindex(O)(O obj) {
      /+
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newlines;
    }
    string bibliography(O)(O obj) {
      /+
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newlines;
    }
    string glossary(O)(O obj) {
      /+
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newlines;
    }
    string blurb(O)(O obj) {
      /+
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newlines;
    }
    string comment(O)(O obj) {
      /+
      +/
      // puts(obj.metainfo.is_a);
      // return obj.metainfo.is_a;
      return obj.text ~ newlines;
    }
  }
  template theDocument() {
    import std.stdio;
    import sisudoc.io_out;
    // static auto rgx = RgxO();
    string skel_head(M)(
            M  doc_matters,
    ) {
      return "head";
    }
    string skel_body(D,M)(
      const D  doc_abstraction,
            M  doc_matters,
    ) {
      string doc_object = "";
      foreach (section; doc_matters.has.keys_seq.scroll) {
        foreach (obj; doc_abstraction[section]) {
          if (obj.metainfo.is_a == "toc")          { doc_object ~= munge!().toc(obj); }
          if (obj.metainfo.is_a == "heading")      { doc_object ~= munge!().heading(obj); }
          if (obj.metainfo.is_a == "para")         { doc_object ~= munge!().para(obj); }
          if (obj.metainfo.is_a == "group")        { doc_object ~= munge!().group(obj); }
          if (obj.metainfo.is_a == "block")        { doc_object ~= munge!().block(obj); }
          if (obj.metainfo.is_a == "poem")         { doc_object ~= munge!().poem(obj); }
          if (obj.metainfo.is_a == "verse")        { doc_object ~= munge!().verse(obj); }
          if (obj.metainfo.is_a == "code")         { doc_object ~= munge!().code(obj); }
          if (obj.metainfo.is_a == "quote")        { doc_object ~= munge!().quote(obj); }
          if (obj.metainfo.is_a == "table")        { doc_object ~= munge!().table(obj); }
          if (obj.metainfo.is_a == "endnote")      { doc_object ~= munge!().endnote(obj); }
          if (obj.metainfo.is_a == "bookindex")    { doc_object ~= munge!().bookindex(obj); }
          if (obj.metainfo.is_a == "bibliography") { doc_object ~= munge!().bibliography(obj); }
          if (obj.metainfo.is_a == "glossary")     { doc_object ~= munge!().glossary(obj); }
          if (obj.metainfo.is_a == "blurb")        { doc_object ~= munge!().blurb(obj); }
          if (obj.metainfo.is_a == "comment")      { doc_object ~= munge!().comment(obj); }
        }
      }
      return doc_object;
    }
    string skel_tail(M)(
            M  doc_matters,
    ) {
      return "tail";
    }
  }
  void outputSkel(D,M) (
    const D  doc_abstraction,
          M  doc_matters,
  ) {
    import std.stdio;
    import sisudoc.io_out;
    void skel_out(D,M)(
      const D  doc_abstraction,
            M  doc_matters,
    ) {
      struct Skel {
        string head;
        string content;
        string tail;
      }
      auto skel           = Skel();
      skel.head           = theDocument!().skel_head(doc_matters);
      skel.content        = theDocument!().skel_body(doc_abstraction, doc_matters);
      skel.tail           = theDocument!().skel_tail(doc_matters);
      auto pth_skel = spinePathsSkel(doc_matters);
      try {
        import std.file;
        if (!exists(pth_skel.base_pth)) {
          (pth_skel.base_pth).mkdirRecurse;
        }
      } catch (ErrnoException ex) {
      }
      if (doc_matters.opt.action.vox_gt_1) {
        writeln(" ", pth_skel.skel_file);
      }
      // writeln(pth_skel.base_pth);
      auto f = File(pth_skel.skel_file, "w");
      f.writeln(skel.head);
      f.writeln(skel.content);
      f.writeln(skel.tail);
    }
    skel_out(doc_abstraction, doc_matters);
  }
}