Reduce groceries verbosity (#211)

* reduce groceries verbosity

* Clarify why the `HH` prefix is not used

Co-authored-by: Jordan Martinez <[email protected]>

Author: milesfrain

recipes/GroceriesHalogenHooks/src/Main.purs

@@ -4,33 +4,44 @@ import Prelude
 import Data.Maybe (Maybe(..))
 import Effect (Effect)
 import Halogen as H
-import Halogen.HTML as HH
 import Halogen.Aff as HA
-import Halogen.VDom.Driver (runUI)
+import Halogen.HTML (HTML, div_, h1_, li_, text, ul_)
 import Halogen.Hooks as Hooks
+import Halogen.VDom.Driver (runUI)
 
 main :: Effect Unit
 main =
   HA.runHalogenAff do
     body <- HA.awaitBody
     void $ runUI hookComponent Nothing body
 
-hookComponent
-  :: forall unusedQuery unusedInput unusedOutput anyMonad
-   . H.Component HH.HTML unusedQuery unusedInput unusedOutput anyMonad
-hookComponent = Hooks.component \_ _ -> Hooks.do
-  Hooks.pure $
-    HH.div_
-      [ HH.h1_ [ HH.text "My Grocery List" ]
-      , HH.ul_
-        [ HH.li_ [ HH.text "Black Beans" ]
-        , HH.li_ [ HH.text "Limes" ]
-        , HH.li_ [ HH.text "Greek Yogurt" ]
-        , HH.li_ [ HH.text "Cilantro" ]
-        , HH.li_ [ HH.text "Honey" ]
-        , HH.li_ [ HH.text "Sweet Potatoes" ]
-        , HH.li_ [ HH.text "Cumin" ]
-        , HH.li_ [ HH.text "Chili Powder" ]
-        , HH.li_ [ HH.text "Quinoa" ]
-        ]
-      ]
+hookComponent ::
+  forall unusedQuery unusedInput unusedOutput anyMonad.
+  H.Component HTML unusedQuery unusedInput unusedOutput anyMonad
+hookComponent =
+  Hooks.component \_ _ -> Hooks.do
+    Hooks.pure
+      $ div_
+          [ h1_ [ text "My Grocery List" ]
+          , ul_
+              [ li_ [ text "Black Beans" ]
+              , li_ [ text "Limes" ]
+              , li_ [ text "Greek Yogurt" ]
+              , li_ [ text "Cilantro" ]
+              , li_ [ text "Honey" ]
+              , li_ [ text "Sweet Potatoes" ]
+              , li_ [ text "Cumin" ]
+              , li_ [ text "Chili Powder" ]
+              , li_ [ text "Quinoa" ]
+              ]
+          ]
+
+{-
+NOTE: Most Halogen codebases will reference HTML tags via an `HH` prefix
+(i.e. `HH.div` rather than `div`). The `HH` is from `import Halogen.HTML as HH`.
+Most developers _choose_ to use the `HH` prefix, but it is not a requirement
+of the language, nor the library.
+
+To decrease verbosity and better compare this code to Elm's code,
+the above syntax does not use the `HH` prefix. 
+-}

recipes/GroceriesReactHooks/src/Main.purs

@@ -4,8 +4,7 @@ import Prelude
 import Data.Maybe (Maybe(..))
 import Effect (Effect)
 import Effect.Exception (throw)
-import React.Basic.DOM (render)
-import React.Basic.DOM as R
+import React.Basic.DOM (div_, h1_, li_, render, text, ul_)
 import React.Basic.Hooks (Component, component)
 import Web.HTML (window)
 import Web.HTML.HTMLDocument (body)
@@ -25,17 +24,17 @@ mkGroceries :: Component {}
 mkGroceries = do
   component "Groceries" \_ -> React.do
     pure
-      $ R.div_
-          [ R.h1_ [ R.text "My Grocery List" ]
-          , R.ul_
-              [ R.li_ [ R.text "Black Beans" ]
-              , R.li_ [ R.text "Limes" ]
-              , R.li_ [ R.text "Greek Yogurt" ]
-              , R.li_ [ R.text "Cilantro" ]
-              , R.li_ [ R.text "Honey" ]
-              , R.li_ [ R.text "Sweet Potatoes" ]
-              , R.li_ [ R.text "Cumin" ]
-              , R.li_ [ R.text "Chili Powder" ]
-              , R.li_ [ R.text "Quinoa" ]
+      $ div_
+          [ h1_ [ text "My Grocery List" ]
+          , ul_
+              [ li_ [ text "Black Beans" ]
+              , li_ [ text "Limes" ]
+              , li_ [ text "Greek Yogurt" ]
+              , li_ [ text "Cilantro" ]
+              , li_ [ text "Honey" ]
+              , li_ [ text "Sweet Potatoes" ]
+              , li_ [ text "Cumin" ]
+              , li_ [ text "Chili Powder" ]
+              , li_ [ text "Quinoa" ]
               ]
           ]