Improve instructions for making changes

Author: hilverd

CHANGELOG.md

@@ -14,6 +14,9 @@ This applies from version 0.5.0 onwards, as some versions before that have broke
 ### Added
 ### Changed
 ### Fixed
+
+- Improve instructions for making changes.
+
 ### Removed
 
 ## [1.2.3] - 2022-04-24

src/ApplicationShell.elm

@@ -54,7 +54,6 @@ init flags =
                 |> Maybe.andThen Url.fromString
                 |> Maybe.map .path
                 |> Maybe.andThen (String.split "/" >> List.reverse >> List.head)
-                |> Maybe.withDefault "glossary.html"
 
         title =
             flags

src/CommonModel.elm

@@ -13,7 +13,7 @@ type OrderItemsBy
 
 
 type alias CommonModel =
-    { filename : String
+    { filename : Maybe String
     , enableHelpForMakingChanges : Bool
     , title : GlossaryTitle
     , aboutParagraph : String

src/Pages/ListAll.elm

@@ -349,7 +349,7 @@ scrollToTopInElement id =
 -- VIEW
 
 
-viewMakingChangesHelp : String -> Bool -> Bool -> Html Msg
+viewMakingChangesHelp : Maybe String -> Bool -> Bool -> Html Msg
 viewMakingChangesHelp filename tabbable expanded =
     div
         [ class "mb-5 rounded-md overflow-x-auto bg-amber-50 dark:bg-gray-700 text-gray-700 dark:text-gray-300 print:hidden"
@@ -393,14 +393,18 @@ viewMakingChangesHelp filename tabbable expanded =
                     ]
                 , pre
                     [ class "mt-5" ]
-                    [ code []
+                    [ code [] <|
+                        let
+                            defaultFilename =
+                                "glossary.html"
+                        in
                         [ text "sed -n '/START OF editor.js$/,$p' "
-                        , text filename
-                        , if filename == "glossary.html" then
+                        , text <| Maybe.withDefault defaultFilename filename
+                        , if filename == Just defaultFilename then
                             text " | node"
 
                           else
-                            text <| " | FILE=" ++ filename ++ " node"
+                            text <| " | FILE=" ++ (filename |> Maybe.withDefault defaultFilename) ++ " node"
                         ]
                     ]
                 , p