Add #sl_button_to

app/helpers/shoelace/form_helper.rb

@@ -260,21 +260,14 @@ def sl_button_tag(**attrs, &block)
       content_tag("sl-button", **attrs, &block)
     end
 
-    # Not providing this helper for now due to potentially untraceable HTML. E.g.
-    #
-    #   <a href="...">
-    #     <sl-button>...</sl-button>
-    #   </a>
-    #
-    # may be trackable and traceable by search bots and scrapers, but:
-    #
-    #   <sl-button href="...">...</sl-button>
-    #
-    # may not be. In the mean time, it is advisable to wrap a <sl-button> tag with an <a> tag.
-    #
-    # def sl_button_to(href, **attrs, &block)
-    #   sl_button_tag(href: href, **attrs, &block)
-    # end
+    # Creates an <sl-button> tag with the href value as the caption.
+    def sl_button_to(body, href = nil, **attrs, &block)
+      if block_given? && href.nil?
+        sl_button_tag(href: body, **attrs, &block)
+      else
+        sl_button_tag(href: href) { body }
+      end
+    end
 
     # Creates a submit button with the text value as the caption, with the +submit+ attribute.
     def sl_submit_tag(value = 'Save changes', **options)

test/helpers/form_helper_test.rb

@@ -32,6 +32,20 @@ class FormHelperTest < ActionView::TestCase
     HTML
   end
 
+  test "#sl_button_to" do
+    assert_dom_equal <<~HTML, sl_button_to("Next", "/next")
+      <sl-button href="/next">Next</sl-button>
+    HTML
+
+    assert_dom_equal(<<~HTML, sl_button_to("/next") { "Next" })
+      <sl-button href="/next">Next</sl-button>
+    HTML
+
+    assert_dom_equal <<~HTML, sl_button_to("Next")
+      <sl-button>Next</sl-button>
+    HTML
+  end
+
   test "#sl_submit_tag" do
     assert_dom_equal <<~HTML, sl_submit_tag("Save")
       <sl-button type="submit" variant="primary" data-disable-with="Save">Save</sl-button>