Merge pull request #150 from citizennet/AS-1091/minor-style-tweak-to-…

…new-pager AS-1091 Minor style tweaks to the new pager
citizennet · Mar 3, 2021 · c1aeaca · c1aeaca
2 parents 48733da + 0aec1db
commit c1aeaca
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/package.json b/package.json
@@ -1,6 +1,6 @@
 {
   "name": "purescript-ocelot",
-  "version": "0.25.6",
+  "version": "0.25.7",
   "private": true,
   "scripts": {
     "build-all": "yarn run build-ui && yarn run build-css",

diff --git a/src/Blocks/Pager.purs b/src/Blocks/Pager.purs
@@ -139,7 +139,7 @@ makePagingButtonsNew skip last query = foldlWithIndex makePagingButtons' [] make
 
   arrow :: Int -> HH.HTML p i -> HH.HTML p i
   arrow skip' label =
-    HH.a
+    HH.button
     [ HE.onMouseDown $ query skip'
     , Ocelot.HTML.Properties.css "mx-4"
     , Ocelot.HTML.Properties.style <<< Foreign.Object.fromHomogeneous
@@ -156,14 +156,14 @@ makePagingButtonsNew skip last query = foldlWithIndex makePagingButtons' [] make
 
   button :: Int -> HH.HTML p i
   button btn =
-    HH.a
+    HH.button
     (if btn == skip then disabled else active)
     [ HH.span_
       [ HH.text $ show btn ]
     ]
     where
     disabled =
-      [ Ocelot.HTML.Properties.css "border border-black disabled inline-block text-center"
+      [ Ocelot.HTML.Properties.css "border border-black disabled focus:outline-none inline-block text-center"
       , Ocelot.HTML.Properties.style <<< Foreign.Object.fromHomogeneous
         $ { "border-radius": "50%"
           , "width": "2.5rem"