Move and reorganize some stuff

6 files changed, 109 insertions, 0 deletions

diff --git a/shardweb/lib/views/chat_view.ex b/shardweb/lib/views/chat_view.ex
new file mode 100644
index 0000000..fd39956
--- /dev/null
+++ b/shardweb/lib/views/chat_view.ex
@@ -0,0 +1,3 @@
+defmodule ShardWeb.ChatView do
+  use ShardWeb, :view
+end
diff --git a/shardweb/lib/views/error_helpers.ex b/shardweb/lib/views/error_helpers.ex
new file mode 100644
index 0000000..f476548
--- /dev/null
+++ b/shardweb/lib/views/error_helpers.ex
@@ -0,0 +1,44 @@
+defmodule ShardWeb.ErrorHelpers do
+  @moduledoc """
+  Conveniences for translating and building error messages.
+  """
+
+  use Phoenix.HTML
+
+  @doc """
+  Generates tag for inlined form input errors.
+  """
+  def error_tag(form, field) do
+    Enum.map(Keyword.get_values(form.errors, field), fn (error) ->
+      content_tag :span, translate_error(error), class: "help-block"
+    end)
+  end
+
+  @doc """
+  Translates an error message using gettext.
+  """
+  def translate_error({msg, opts}) do
+    # When using gettext, we typically pass the strings we want
+    # to translate as a static argument:
+    #
+    #     # Translate "is invalid" in the "errors" domain
+    #     dgettext "errors", "is invalid"
+    #
+    #     # Translate the number of files with plural rules
+    #     dngettext "errors", "1 file", "%{count} files", count
+    #
+    # Because the error messages we show in our forms and APIs
+    # are defined inside Ecto, we need to translate them dynamically.
+    # This requires us to call the Gettext module passing our gettext
+    # backend as first argument.
+    #
+    # Note we use the "errors" domain, which means translations
+    # should be written to the errors.po file. The :count option is
+    # set by Ecto and indicates we should also apply plural rules.
+    if count = opts[:count] do
+      Gettext.dngettext(ShardWeb.Gettext, "errors", msg, msg, count, opts)
+    else
+      Gettext.dgettext(ShardWeb.Gettext, "errors", msg, opts)
+    end
+  end
+end
diff --git a/shardweb/lib/views/error_view.ex b/shardweb/lib/views/error_view.ex
new file mode 100644
index 0000000..a4b6eed
--- /dev/null
+++ b/shardweb/lib/views/error_view.ex
@@ -0,0 +1,16 @@
+defmodule ShardWeb.ErrorView do
+  use ShardWeb, :view
+
+  # If you want to customize a particular status code
+  # for a certain format, you may uncomment below.
+  # def render("500.html", _assigns) do
+  #   "Internal Server Error"
+  # end
+
+  # By default, Phoenix returns the status message from
+  # the template name. For example, "404.html" becomes
+  # "Not Found".
+  def template_not_found(template, _assigns) do
+    Phoenix.Controller.status_message_from_template(template)
+  end
+end
diff --git a/shardweb/lib/views/identity_view.ex b/shardweb/lib/views/identity_view.ex
new file mode 100644
index 0000000..1844ce8
--- /dev/null
+++ b/shardweb/lib/views/identity_view.ex
@@ -0,0 +1,21 @@
+defmodule ShardWeb.IdentityView do
+  use ShardWeb, :view
+
+  def identity_list do
+    Shard.Keys.list_identities
+  end
+
+  def get_nick(pk) do
+    SApp.Identity.get_nick pk
+  end
+
+  def people_list do
+    Shard.Manager.list_shards
+    |> Enum.filter(fn {_, manifest, _} ->
+        case manifest do
+          %SApp.Identity.Manifest{} -> true
+          _ -> false
+        end
+      end)
+  end
+end
diff --git a/shardweb/lib/views/layout_view.ex b/shardweb/lib/views/layout_view.ex
new file mode 100644
index 0000000..2b12323
--- /dev/null
+++ b/shardweb/lib/views/layout_view.ex
@@ -0,0 +1,7 @@
+defmodule ShardWeb.LayoutView do
+  use ShardWeb, :view
+
+  def shard_list do
+    Shard.Manager.list_shards
+  end
+end
diff --git a/shardweb/lib/views/page_view.ex b/shardweb/lib/views/page_view.ex
new file mode 100644
index 0000000..eb88617
--- /dev/null
+++ b/shardweb/lib/views/page_view.ex
@@ -0,0 +1,18 @@
+defmodule ShardWeb.PageView do
+  use ShardWeb, :view
+
+  def conn_list do
+    SNet.Manager.list_connections
+  end
+
+  def peer_id_to_str(id) do
+    id
+    |> binary_part(0, 8)
+    |> Base.encode16
+    |> String.downcase
+  end
+
+  def shard_list do
+    Shard.Manager.list_shards
+  end
+end