From 84f1b87739b6cf2347e445dc14856c951e5c5d65 Mon Sep 17 00:00:00 2001
From: "mathieu.brunot" <mb.mathieu.brunot@gmail.com>
Date: Sat, 23 Feb 2019 01:22:03 +0100
Subject: [PATCH] :sparkles: Add lightbox to viewer

---
 frontend/src/uxbox/view/ui.cljs          |  2 +
 frontend/src/uxbox/view/ui/keyboard.cljs | 24 +++++++++
 frontend/src/uxbox/view/ui/lightbox.cljs | 67 ++++++++++++++++++++++++
 3 files changed, 93 insertions(+)
 create mode 100644 frontend/src/uxbox/view/ui/keyboard.cljs
 create mode 100644 frontend/src/uxbox/view/ui/lightbox.cljs

diff --git a/frontend/src/uxbox/view/ui.cljs b/frontend/src/uxbox/view/ui.cljs
index 8cbc2c235..12f24091b 100644
--- a/frontend/src/uxbox/view/ui.cljs
+++ b/frontend/src/uxbox/view/ui.cljs
@@ -10,6 +10,7 @@
             [uxbox.builtins.icons :as i]
             [uxbox.view.store :as st]
             [uxbox.view.ui.loader :refer [loader]]
+            [uxbox.view.ui.lightbox :refer [lightbox]]
             [uxbox.view.ui.notfound :refer [notfound-page]]
             [uxbox.view.ui.viewer :refer [viewer-page]]
             [uxbox.util.router :as rt]
@@ -70,4 +71,5 @@
 (defn init
   []
   (mx/mount (app) (dom/get-element "app"))
+  (mx/mount (lightbox) (dom/get-element "lightbox"))
   (mx/mount (loader) (dom/get-element "loader")))
diff --git a/frontend/src/uxbox/view/ui/keyboard.cljs b/frontend/src/uxbox/view/ui/keyboard.cljs
new file mode 100644
index 000000000..00a3b33aa
--- /dev/null
+++ b/frontend/src/uxbox/view/ui/keyboard.cljs
@@ -0,0 +1,24 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
+;;
+;; Copyright (c) 2016-2017 Andrey Antukh <niwi@niwi.nz>
+
+(ns uxbox.view.ui.keyboard)
+
+(defn is-keycode?
+  [keycode]
+  (fn [e]
+    (= (.-keyCode e) keycode)))
+
+(defn ctrl?
+  [event]
+  (.-ctrlKey event))
+
+(defn shift?
+  [event]
+  (.-shiftKey event))
+
+(def esc? (is-keycode? 27))
+(def enter? (is-keycode? 13))
+(def space? (is-keycode? 32))
diff --git a/frontend/src/uxbox/view/ui/lightbox.cljs b/frontend/src/uxbox/view/ui/lightbox.cljs
new file mode 100644
index 000000000..162466be0
--- /dev/null
+++ b/frontend/src/uxbox/view/ui/lightbox.cljs
@@ -0,0 +1,67 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
+;;
+;; Copyright (c) 2016-2017 Andrey Antukh <niwi@niwi.nz>
+
+(ns uxbox.view.ui.lightbox
+  (:require [lentes.core :as l]
+            [uxbox.view.store :as st]
+            [uxbox.view.data.lightbox :as udl]
+            [rumext.core :as mx :include-macros true]
+            [uxbox.view.ui.keyboard :as k]
+            [uxbox.util.dom :as dom]
+            [uxbox.util.data :refer [classnames]]
+            [goog.events :as events])
+  (:import goog.events.EventType))
+
+;; --- Lentes
+
+(def ^:private lightbox-ref
+  (-> (l/key :lightbox)
+      (l/derive st/state)))
+
+;; --- Lightbox (Component)
+
+(defmulti render-lightbox :name)
+(defmethod render-lightbox :default [_] nil)
+
+(defn- on-esc-clicked
+  [event]
+  (when (k/esc? event)
+    (udl/close!)
+    (dom/stop-propagation event)))
+
+(defn- on-out-clicked
+  [own event]
+  (let [parent (mx/ref-node own "parent")
+        current (dom/get-target event)]
+    (when (dom/equals? parent current)
+      (udl/close!))))
+
+(defn- lightbox-will-mount
+  [own]
+  (let [key (events/listen js/document
+                           EventType.KEYDOWN
+                           on-esc-clicked)]
+    (assoc own ::key key)))
+
+(defn- lightbox-will-umount
+  [own]
+  (events/unlistenByKey (::key own))
+  (dissoc own ::key))
+
+(mx/defcs lightbox
+  {:mixins [mx/reactive]
+   :will-mount lightbox-will-mount
+   :will-unmount lightbox-will-umount}
+  [own]
+  (let [data (mx/react lightbox-ref)
+        classes (classnames
+                 :hide (nil? data)
+                 :transparent (:transparent? data))]
+    [:div.lightbox
+     {:class classes
+      :ref "parent"
+      :on-click (partial on-out-clicked own)}
+     (render-lightbox data)]))