Add html_doctype, css_link, and js_link

luckyframework · Jun 30, 2017 · 5688e28 · 5688e28
1 parent f587315
commit 5688e28
Show file tree

Hide file tree

Showing 3 changed files with 57 additions and 0 deletions.
diff --git a/spec/lucky_web/specialty_tags_spec.cr b/spec/lucky_web/specialty_tags_spec.cr
@@ -0,0 +1,40 @@
+require "../../spec_helper"
+
+private class TestPage
+  include LuckyWeb::Page
+
+  render do
+  end
+end
+
+describe LuckyWeb::SpecialtyTags do
+  it "renders doctype" do
+    view.html_doctype.to_s.should contain <<-HTML
+    <!DOCTYPE html>
+    HTML
+  end
+
+  it "renders css link tag" do
+    view.css_link("app.css").to_s.should contain <<-HTML
+    <link href="app.css" rel="stylesheet" media="screen">
+    HTML
+
+    view.css_link("app.css", rel: "preload", media: "print").to_s.should contain <<-HTML
+    <link href="app.css" rel="preload" media="print">
+    HTML
+  end
+
+  it "renders js link tag" do
+    view.js_link("app.js").to_s.should contain <<-HTML
+    <script src="app.js"></script>
+    HTML
+
+    view.js_link("app.js", foo: "bar").to_s.should contain <<-HTML
+    <script src="app.js" foo="bar"></script>
+    HTML
+  end
+end
+
+private def view
+  TestPage.new
+end
diff --git a/src/lucky_web/page.cr b/src/lucky_web/page.cr
@@ -6,6 +6,7 @@ module LuckyWeb::Page
   include LuckyWeb::FormHelpers
   include LuckyWeb::LabelHelpers
   include LuckyWeb::InputHelpers
+  include LuckyWeb::SpecialtyTags
   include LuckyWeb::Assignable
   include LuckyWeb::AssetHelpers
 

diff --git a/src/lucky_web/tags/specialty_tags.cr b/src/lucky_web/tags/specialty_tags.cr
@@ -0,0 +1,16 @@
+module LuckyWeb::SpecialtyTags
+  def html_doctype
+    @view << "<!DOCTYPE html>"
+  end
+
+  def css_link(href, rel = "stylesheet", media = "screen")
+    tag_attrs = build_tag_attrs({href: href, rel: rel, media: media})
+    @view << "<link" << tag_attrs << ">"
+  end
+
+  def js_link(src, **options)
+    options = merge_options(options, {"src" => src})
+    tag_attrs = build_tag_attrs(options)
+    @view << "<script" << tag_attrs << "></script>"
+  end
+end