Catch paper planes flying by

Author: easafe

src/Client/AppId.purs

@@ -40,7 +40,7 @@ instance Show ClientAppId where
       show = case _ of
             Im → "im-app-id"
             Profile → "profile-app-id"
-            Settings -> "settings-app-id"
+            Settings → "settings-app-id"
             Feedback → "feedback-app-id"
             Experiments → "experiments-app-id"
             KarmaPrivileges → "karma-privileges-app-id"

src/Client/Experiments/Update.purs

@@ -51,7 +51,26 @@ update model =
             AfterThrowPlane id → afterThrowPlane id model
             ResizeMessageInput event → SIR.resizeInputFrom event model
             TogglePaperPlaneSection section → togglePaperPlaneSection section model
-            DisplayFlyingPaperPlanes planes -> displayFlyingPaperPlanes planes model
+            DisplayFlyingPaperPlanes planes → displayFlyingPaperPlanes planes model
+            CatchPaperPlane id → catchPaperPlane id model
+            AfterCatchPlane id  → afterCatchPlane id  model
+
+afterCatchPlane ∷ Int → ExperimentsModel → ExperimentsModel /\ (Array (Aff (Maybe ExperimentsMessage)))
+afterCatchPlane id model =
+      model
+            { paperPlane = model.paperPlane
+                    { loading = false
+                    , flyingBy = DA.filter ((_ /= id) <<< _.id) model.paperPlane.flyingBy
+                    , caught = ((SU.fromJust $ DA.find ((_ == id) <<< _.id) model.paperPlane.flyingBy) { status = Caught }) : model.paperPlane.caught
+                    }
+            } /\ []
+
+catchPaperPlane ∷ Int → ExperimentsModel → ExperimentsModel /\ (Array (Aff (Maybe ExperimentsMessage)))
+catchPaperPlane id model = model { paperPlane = model.paperPlane { loading = true } } /\ [ setIt ]
+      where
+      setIt = do
+            void <<< CCN.silentResponse $ request.experiments.catch { body: { id } }
+            pure <<< Just $ AfterCatchPlane id
 
 displayFlyingPaperPlanes ∷ Array PaperPlane → ExperimentsModel → ExperimentsModel /\ (Array (Aff (Maybe ExperimentsMessage)))
 displayFlyingPaperPlanes planes model = model { paperPlane = model.paperPlane { flyingBy = planes } } /\ []
@@ -60,10 +79,10 @@ togglePaperPlaneSection ∷ PaperPlaneSection → ExperimentsModel → Experimen
 togglePaperPlaneSection section model = model { paperPlane = model.paperPlane { section = section } } /\ effects
       where
       fetch = do
-            r ← CCN.silentResponse $ request.experiments.flying {  }
+            r ← CCN.silentResponse $ request.experiments.flying {}
             pure <<< Just $ DisplayFlyingPaperPlanes r
       effects
-            | model.paperPlane.section /= section && section == ShowFlyingBy && DA.null model.paperPlane.flyingBy = [fetch]
+            | model.paperPlane.section /= section && section == ShowFlyingBy && DA.null model.paperPlane.flyingBy = [ fetch ]
             | otherwise = []
 
 setPlaneMessage ∷ String → ExperimentsModel → ExperimentsModel /\ (Array (Aff (Maybe ExperimentsMessage)))

src/Client/Feedback/Update.purs

@@ -23,15 +23,15 @@ update model =
       case _ of
             ToggleVisibility modal → toggleVisibility modal model
             SetComments input → setComments input model
-            BeforeSetScreenshot event -> beforeSetScreenshot event model
+            BeforeSetScreenshot event → beforeSetScreenshot event model
             SetScreenshot base64 → setScreenshot base64 model
             SendFeedback → sendFeedback model
             AfterSendFeedback status → afterSendFeedback status model
 
 toggleVisibility ∷ ScreenModal → FeedbackModel → FeedbackModel /\ Array (Aff (Maybe FeedbackMessage))
 toggleVisibility modal model = model { visible = modal == ShowFeedback } /\ []
 
-setComments :: String -> FeedbackModel → FeedbackModel /\ Array (Aff (Maybe FeedbackMessage))
+setComments ∷ String → FeedbackModel → FeedbackModel /\ Array (Aff (Maybe FeedbackMessage))
 setComments input model =
       model
             { comments = input
@@ -44,13 +44,13 @@ beforeSetScreenshot event model = model /\ [ before ]
             CCF.compressImage feedbackAppId event false (\_ _ b → SetScreenshot b)
             pure Nothing
 
-setScreenshot :: String -> FeedbackModel → FeedbackModel /\ Array (Aff (Maybe FeedbackMessage))
+setScreenshot ∷ String → FeedbackModel → FeedbackModel /\ Array (Aff (Maybe FeedbackMessage))
 setScreenshot base64 model =
       model
             { screenshot = Just base64
             } /\ []
 
-sendFeedback :: FeedbackModel → FeedbackModel /\ Array (Aff (Maybe FeedbackMessage))
+sendFeedback ∷ FeedbackModel → FeedbackModel /\ Array (Aff (Maybe FeedbackMessage))
 sendFeedback model = case DS.trim model.comments of
       "" → model { feedbackStatus = Just NoComments } /\ []
       trimmed → model { loading = true } /\ [ send trimmed ]
@@ -61,7 +61,7 @@ sendFeedback model = case DS.trim model.comments of
                   Right _ → pure <<< Just <<< AfterSendFeedback $ Just Success
                   Left err → pure <<< Just <<< AfterSendFeedback <<< Just <<< Failure $ SN.errorMessage err
 
-afterSendFeedback :: Maybe RequestStatus -> FeedbackModel → FeedbackModel /\ Array (Aff (Maybe FeedbackMessage))
+afterSendFeedback ∷ Maybe RequestStatus → FeedbackModel → FeedbackModel /\ Array (Aff (Maybe FeedbackMessage))
 afterSendFeedback status model = case status of
       Nothing → model { feedbackStatus = Nothing } /\ []
       Just (Failure _) → model { loading = false, feedbackStatus = Request <$> status } /\ []

src/Client/File.purs

@@ -26,7 +26,7 @@ import Web.HTML.HTMLInputElement as WHI
 
 foreign import fileSize ∷ String → Int
 
-compressImage ∷ forall message. AppId ClientAppId message → Event → Boolean -> (Int → Int → String → message) → Aff Unit
+compressImage ∷ ∀ message. AppId ClientAppId message → Event → Boolean → (Int → Int → String → message) → Aff Unit
 compressImage appId event preserveSize message = EC.liftEffect do
       maybeFileList ← WHI.files input
       compressImageFromFileList maybeFileList appId preserveSize message
@@ -35,7 +35,7 @@ compressImage appId event preserveSize message = EC.liftEffect do
             target ← WEE.target event
             WHI.fromEventTarget target
 
-compressImageFromFileList ∷ ∀ message. Maybe FileList → AppId ClientAppId message → Boolean -> (Int → Int → String → message) → Effect Unit
+compressImageFromFileList ∷ ∀ message. Maybe FileList → AppId ClientAppId message → Boolean → (Int → Int → String → message) → Effect Unit
 compressImageFromFileList maybeFileList appId preserveSize message =
       case maybeFileList >>= WFL.item 0 of
             Nothing → pure unit
@@ -46,7 +46,7 @@ foreign import compressImage_ ∷ EffectFn3 File Boolean (Int → Int → String
 triggerFileSelect ∷ Element → Effect Unit
 triggerFileSelect = WHH.click <<< SU.fromJust <<< WHH.fromElement
 
-setUpFileChange ∷ ∀ message. Warn (Text "Deprecated") => (Int → Int → String → message) → Element → AppId ClientAppId message → Effect Unit
+setUpFileChange ∷ ∀ message. Warn (Text "Deprecated") ⇒ (Int → Int → String → message) → Element → AppId ClientAppId message → Effect Unit
 setUpFileChange message input appId = do
       CCD.addEventListener input change $ \_ → do
             let htmlInput = SU.fromJust $ WHI.fromElement input

src/Client/Im/ModalsMenu.purs

@@ -21,7 +21,7 @@ import Effect.Class (liftEffect)
 import Effect.Class as EC
 import Flame as F
 import Flame.Subscription.Unsafe.CustomEvent as FS
-import Shared.Html(Html(..))
+import Shared.Html (Html(..))
 import Safe.Coerce as SC
 import Shared.Element (ElementId(..))
 import Shared.Im.Types (AfterLogout(..), ImMessage(..), ImModel, PostMode(..), RetryableRequest(..), ShowContextMenu(..))

src/Client/Im/Pwa.purs

@@ -115,7 +115,7 @@ receiveMessageFromPush payload model = model { contacts = map update model.conta
             , recipient: message.recipientId
             , id: message.id
             , edited: false
-            , reaction : Nothing
+            , reaction: Nothing
             , content: message.content
             , date: message.date
             }

src/Client/Network.purs

@@ -100,7 +100,7 @@ silentResponse aff = do
 defaultResponse ∷ ∀ r. Aff (ClientResponse r) → Aff (Either ClientError r)
 defaultResponse aff = map (_.body <<< coerce) <$> aff
       where
-      coerce :: Response r -> { body ∷ r, status ∷ HttpStatus, headers ∷ Headers }
+      coerce ∷ Response r → { body ∷ r, status ∷ HttpStatus, headers ∷ Headers }
       coerce = SC.coerce
 
 logError ∷ ∀ e. Show e ⇒ e → Aff Unit

src/Client/Settings/Main.purs

@@ -11,6 +11,7 @@ import Flame.Subscription as FS
 import Shared.Settings.Types (SettingsMessage(..))
 import Shared.Settings.View as SSV
 import Web.DOM.ParentNode (QuerySelector(..))
+
 main ∷ Effect Unit
 main =
       void $ F.resumeMount (QuerySelector "#settings-edition") settingsAppId

src/Client/Settings/Update.purs

@@ -45,7 +45,7 @@ update model message =
             SetChatBackground image → setChatBackground image model
             AfterSaveChatBackground url → afterSaveChatBackground url model
             TerminateAccount → terminateAccount model
-            RemoveChatBackground -> removeChatBackground model
+            RemoveChatBackground → removeChatBackground model
             SaveChatBackground → saveChatBackground model
             ChangePrivacySettings → changePrivacySettings model
             ToggleVisibility modal → setIt (_ { visible = modal == ShowSettings }) model

src/Client/css/experiments.css

@@ -98,6 +98,22 @@
 .paper-flown-message {
     word-wrap: break-word;
     overflow: auto;
+    font-style: italic;
+}
+
+.paper-catch {
+    color: var(--merochat-green);
+    margin-left: 10px;
+    margin-bottom: 15px;
+}
+
+.paper-catch:last-child {
+    font-weight: bold;
+}
+
+.paper-thrown-options {
+    display: flex;
+    justify-content: flex-end;
 }
 
 @media (max-width:1279px) {
@@ -122,7 +138,8 @@
         width: auto;
     }
 
-    .paper-thrown-entry, .flying-by {
+    .paper-thrown-entry,
+    .flying-by {
         width: calc(100vw - 47px);
     }
 }