From 51d732fa201c3a46d9a8fbaf70afff3808409888 Mon Sep 17 00:00:00 2001
From: James Hillyerd <james@hillyerd.com>
Date: Sat, 15 Dec 2018 21:30:13 -0800
Subject: [PATCH] ui: Add raw HTML button to message

---
 ui/src/Page/Mailbox.elm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/ui/src/Page/Mailbox.elm b/ui/src/Page/Mailbox.elm
index f5a8e05..01e78ba 100644
--- a/ui/src/Page/Mailbox.elm
+++ b/ui/src/Page/Mailbox.elm
@@ -533,8 +533,20 @@ messageChip model selected message =
 viewMessage : Time.Zone -> Message -> Body -> Html Msg
 viewMessage zone message bodyMode =
     let
+        htmlUrl =
+            Api.serveUrl [ "mailbox", message.mailbox, message.id, "html" ]
+
         sourceUrl =
             Api.serveUrl [ "mailbox", message.mailbox, message.id, "source" ]
+
+        htmlButton =
+            if message.html == "" then
+                text ""
+
+            else
+                a
+                    [ href htmlUrl, target "_blank" ]
+                    [ button [] [ text "Raw HTML" ] ]
     in
     div []
         [ div [ class "button-bar" ]
@@ -542,6 +554,7 @@ viewMessage zone message bodyMode =
             , a
                 [ href sourceUrl, target "_blank" ]
                 [ button [] [ text "Source" ] ]
+            , htmlButton
             ]
         , dl [ class "message-header" ]
             [ dt [] [ text "From:" ]