From 62e14233cd52f372e0ebb4897857b35864425063 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 20 Jan 2023 09:53:33 -0800
Subject: [PATCH] HTML writer: don't disable checkboxes in task lists.

Closes #8562.
---
 src/Text/Pandoc/Writers/HTML.hs |  2 +-
 test/command/tasklist.md        | 27 +++++++++++++--------------
 2 files changed, 14 insertions(+), 15 deletions(-)

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index f99166f22..3af53408b 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -497,7 +497,7 @@ listItemToHtml opts bls
       let checkbox  = if checked
                       then checkbox' ! A.checked ""
                       else checkbox'
-          checkbox' = H.input ! A.type_ "checkbox" ! A.disabled ""
+          checkbox' = H.input ! A.type_ "checkbox"
       isContents <- inlineListToHtml opts is
       bsContents <- blockListToHtml opts bs
       return $ constr (checkbox >> isContents) >> bsContents
diff --git a/test/command/tasklist.md b/test/command/tasklist.md
index 70fe8e13e..65afe8a9c 100644
--- a/test/command/tasklist.md
+++ b/test/command/tasklist.md
@@ -6,8 +6,8 @@ tests adapted from <https://github.github.com/gfm/#task-list-items-extension->
 - [x] bar
 ^D
 <ul class="task-list">
-<li><input type="checkbox" disabled="" />foo</li>
-<li><input type="checkbox" disabled="" checked="" />bar</li>
+<li><input type="checkbox" />foo</li>
+<li><input type="checkbox" checked="" />bar</li>
 </ul>
 ```
 
@@ -20,12 +20,11 @@ tests adapted from <https://github.github.com/gfm/#task-list-items-extension->
 - [ ] bim
 ^D
 <ul class="task-list">
-<li><input type="checkbox" disabled="" checked="" />foo<ul
-class="task-list">
-<li><input type="checkbox" disabled="" />bar</li>
-<li><input type="checkbox" disabled="" checked="" />baz</li>
+<li><input type="checkbox" checked="" />foo<ul class="task-list">
+<li><input type="checkbox" />bar</li>
+<li><input type="checkbox" checked="" />baz</li>
 </ul></li>
-<li><input type="checkbox" disabled="" />bim</li>
+<li><input type="checkbox" />bim</li>
 </ul>
 ```
 
@@ -53,21 +52,21 @@ paragraph
 - [x] checked
 ^D
 <ul>
-<li><input type="checkbox" disabled="" />unchecked</li>
+<li><input type="checkbox" />unchecked</li>
 <li>plain item</li>
-<li><input type="checkbox" disabled="" checked="" />checked</li>
+<li><input type="checkbox" checked="" />checked</li>
 </ul>
 <p>paragraph</p>
 <ol type="1">
-<li><input type="checkbox" disabled="" />ordered unchecked</li>
+<li><input type="checkbox" />ordered unchecked</li>
 <li>[] plain item</li>
-<li><input type="checkbox" disabled="" checked="" />ordered checked</li>
+<li><input type="checkbox" checked="" />ordered checked</li>
 </ol>
 <p>paragraph</p>
 <ul class="task-list">
-<li><p><input type="checkbox" disabled="" />list item with
-a</p><p>second paragraph</p></li>
-<li><p><input type="checkbox" disabled="" checked="" />checked</p></li>
+<li><p><input type="checkbox" />list item with a</p><p>second
+paragraph</p></li>
+<li><p><input type="checkbox" checked="" />checked</p></li>
 </ul>
 ```