2 files changed, 137 insertions, 0 deletions
diff --git a/src/guff/views/html/api-docs.cr b/src/guff/views/html/api-docs.cr
new file mode 100644
index 0000000..0b5aff3
--- /dev/null
+++ b/src/guff/views/html/api-docs.cr
@@ -0,0 +1,71 @@
+require "html"
+require "ecr/macros"
+require "../../api/methods"
+require "./page"
+
+class Guff::APIDocsHTMLView
+  TITLE = "Guff API Documentation"
+
+  def self.run(context : HTTP::Server::Context)
+    page = PageHTMLView.new(TITLE, new.to_s)
+    context.response.content_type = page.content_type
+    context.response.puts page
+  end
+
+  private def namespaces
+    API::Methods::METHODS.keys.sort
+  end
+
+  private def methods(
+    namespace : String
+  )
+    API::Methods::METHODS[namespace].keys.sort
+  end
+
+  private def method_text(
+    namespace : String,
+    method    : String
+  )
+    API::Methods::METHODS[namespace][method][:text] as String
+  end
+
+  private def method_args(
+    namespace : String,
+    method    : String
+  )
+    if method_has_args?(namespace, method)
+      args = API::Methods::METHODS[namespace][method][:args] as \
+        Hash(String, Hash(Symbol, String|Symbol|Bool)) | Nil
+      args.keys.sort
+    else
+      [] of String
+    end
+  end
+
+  private def arg_text(
+    namespace : String,
+    method    : String,
+    name      : String
+  ) : String
+    if method_has_args?(namespace, method)
+      arg = API::Methods::METHODS[namespace][method][:args][name] as\
+        Hash(Symbol, String|Symbol|Bool)
+      arg[:text] as String
+    else
+      ""
+    end
+  end
+
+  private def method_has_args?(
+    namespace : String,
+    method    : String
+  )
+    API::Methods::METHODS[namespace][method].has_key?(:args)
+  end
+
+  def h(s : String)
+    HTML.escape(s || "")
+  end
+
+  ECR.def_to_s("./src/guff/views/ecrs/api-docs.ecr")
+end
diff --git a/src/guff/views/html/page.cr b/src/guff/views/html/page.cr
new file mode 100644
index 0000000..c300070
--- /dev/null
+++ b/src/guff/views/html/page.cr
@@ -0,0 +1,66 @@
+require "ecr/macros"
+require "html"
+
+module Guff
+  class PageHTMLView
+    property :charset
+    property :lang
+    property :title
+    property :body
+    property :scripts
+    property :styles
+    property :metas
+    property :body_id
+    property :body_class
+
+    FORMATS = {
+      attr:   "%s='%s'",
+      meta:   "<meta %s/>",
+      style:  "<link rel='stylesheet' type='text/css' href='%s'/>",
+      script: "<script type='text/javascript' src='%s'></script>",
+    }
+
+    def initialize(@title = "" : String, @body = "" : String)
+      @charset = "utf-8"
+      @lang = "en-US"
+      @scripts = [] of String
+      @styles = [] of String
+      @metas = [] of Hash(String, String)
+    end
+
+    def body_attrs
+      {
+        "id":     @body_id,
+        "class":  @body_class,
+      }.map { |k, v| attr(k, v) }.join(" ")
+    end
+
+    def page_headers : String
+      (@metas.map { |meta|
+        FORMATS[:meta] % [meta.map { |k, v| attr(k, v) }.join(" ")]
+      } + @styles.map { |path|
+        FORMATS[:style] % [h(path)]
+      }).join("")
+    end
+
+    def page_footers : String
+      @scripts.map { |path|
+        FORMATS[:style] % [h(path)]
+      }.join("")
+    end
+
+    def h(s : String?) : String
+      s ? HTML.escape(s) : ""
+    end
+
+    def attr(k : String, v : String?) : String
+      v ? FORMATS[:attr] % [k, h(v)] : ""
+    end
+
+    def content_type
+      "text/html; charset=%s" % [@charset]
+    end
+
+    ECR.def_to_s("./src/guff/views/ecrs/page.ecr")
+  end
+end