fix some bugs

content/posts/development/lovely-dangerous-things-redhat.md

@@ -179,7 +179,7 @@ touch pkg/api/spacetime/v1alpha1/{spacetime_types,register,doc}.go pkg/api/space
 
 Add the following content to the corresponding files.
 
-``` golang
+``` go
 // file: /pkg/api/spacetime/v1alpha1/spacetime_types.go
 package v1alpha1
 

public/index.html

@@ -68,9 +68,7 @@
                     return Prism.highlight(code, grammar, lang);
                 }
             })
-            document.getElementById("insert-here").innerHTML = marked.parse(markdowndata, function () {
+            document.getElementById("insert-here").innerHTML = marked.parse(markdowndata);
-                renderSuccess = true;
-            });
             // document.getElementById("toc-entries").innerHTML = toc;
         });
 

public/mdn-style.css

@@ -56,7 +56,7 @@ a {
 
 img,
 picture {
-     display: block; 
+     /* display: block;  */
     max-width: 100%
 }
 

src/Blog.elm

@@ -50,7 +50,7 @@ initialModel =
 port sendString : String -> Cmd msg
 
 
-port isRenderComplete : (Bool -> msg) -> Sub msg
+-- port isRenderComplete : (Bool -> msg) -> Sub msg
 
 
 view : Model -> Html Msg
@@ -130,17 +130,17 @@ viewMetadata show =
         ]
 
 
-scrollOnFragment : String -> Cmd Msg
+-- scrollOnFragment : String -> Cmd Msg
-scrollOnFragment fragment =
+-- scrollOnFragment fragment =
-    Task.attempt ScrollAttempted
+--     Task.attempt ScrollAttempted
-        (Dom.getElement fragment |> Task.andThen (\info -> Dom.setViewport 0 info.element.y))
+--         (Dom.getElement fragment |> Task.andThen (\info -> Dom.setViewport 0 info.element.y))
 
 
 type Msg
     = GetMarkdown
     | DataReceived (Result Http.Error String)
-    | ScrollToFragment Bool Bool
+    -- | ScrollToFragment Bool Bool
-    | ScrollAttempted (Result Dom.Error ())
+    -- | ScrollAttempted (Result Dom.Error ())
     | NoSuchPage
 
 
@@ -223,14 +223,14 @@ update msg model =
         DataReceived (Err err) ->
             ( { model | success = False, error = Just (errorToString err) }, Cmd.none )
 
-        ScrollToFragment _ _ ->
+        -- ScrollToFragment _ _ ->
-            ( model, scrollOnFragment model.fragment )
+        --     ( model, scrollOnFragment model.fragment )
 
         NoSuchPage ->
             ( { model | success = False }, Cmd.none )
 
-        ScrollAttempted _ ->
+        -- ScrollAttempted _ ->
-            ( model, Cmd.none )
+        --     ( model, Cmd.none )
 
 
 errorToString : Http.Error -> String
@@ -258,16 +258,16 @@ errorToString error =
             errorMessage
 
 
-subscriptions : Model -> Sub Msg
+-- subscriptions : Model -> Sub Msg
-subscriptions model =
+-- subscriptions model =
-    isRenderComplete
+--     isRenderComplete
-        (ScrollToFragment <|
+--         (ScrollToFragment <|
-            if model.fragment == "" then
+--             if model.fragment == "" then
-                False
+--                 False
 
-            else
+--             else
-                True
+--                 True
-        )
+--         )
 
 
 

src/Main.elm

@@ -286,9 +286,9 @@ updateUrl model =
 subscriptions : Model -> Sub Msg
 subscriptions model =
     case model.page of
-        BlogPage blogModel ->
+        -- BlogPage blogModel ->
-            Blog.subscriptions blogModel
+        --     Blog.subscriptions blogModel
-                |> Sub.map GotBlogMsg
+        --         |> Sub.map GotBlogMsg
 
         _ ->
             Sub.none