/src-cljs/lupapalvelu/ui/auth_admin/stamp/field_types.cljs

https://github.com/lupapiste/lupapiste · ClojureScript · 46 lines · 43 code · 3 blank · 0 comment · 0 complexity · 2e87a5d272cd1ec0b72d8c0de84328d5 MD5 · raw file 

    

  1. (ns lupapalvelu.ui.auth-admin.stamp.field-types
    2. 

  2.   (:require [clojure.string :as string]
    3. 

  3.             [rum.core :as rum]
    4. 

  4.             [lupapalvelu.attachment.stamp-schema :as ss]
    5. 

  5.             [lupapalvelu.ui.util :as util]
    6. 

  6.             [lupapalvelu.ui.auth-admin.stamp.state :refer [component-state]]
    7. 

  7.             [lupapalvelu.ui.auth-admin.stamp.util :as stamp-util]
    8. 

  8.             [lupapalvelu.ui.common :refer [loc]]))
    9. 

  9. 

  10. (rum/defcs field-type-selector < (rum/local false)
    11. 

  11.   [local-state {:keys [key]}]
    12. 

  12.   (let [drag-source? (:rum/local local-state)
    13. 

  13.         drag-element (rum/cursor-in component-state [:editor :drag-element])
    14. 

  14.         closest-elem (rum/cursor-in component-state [:editor :closest-element])
    15. 

  15.         base-classes "stamp-editor-btn"
    16. 

  16.         extra-classes (if @drag-source?
    17. 

  17.                         "drag-source"
    18. 

  18.                         "")
    19. 

  19.         all-classes (string/join " " [base-classes extra-classes])]
    20. 

  20.     [:div
    21. 

  21.      {:draggable           true
    22. 

  22.       :on-drag-start       (fn [e]
    23. 

  23.                              (reset! drag-element
    24. 

  24.                                      {:type :copy
    25. 

  25.                                       :source-boundaries (stamp-util/boundaries-from-component local-state)})
    26. 

  26.                              (reset! drag-source? true)
    27. 

  27. 

  28.                              (let [data-transfer (.-dataTransfer e)]
    29. 

  29.                                (.setData data-transfer "text" (util/clj->json {:type key}))))
    30. 

  30.       :on-drag-end         (fn [_]
    31. 

  31.                              (reset! drag-source? false)
    32. 

  32.                              (reset! closest-elem [])
    33. 

  33.                              (reset! drag-element nil))
    34. 

  34.       :data-stamp-btn-name key
    35. 

  35.       :class               all-classes}
    36. 

  36.      [:div.btn-content
    37. 

  37.       [:i.lupicon-circle-plus]
    38. 

  38.       [:span (loc (str "stamp." (name key)))]]]))
    39. 

  39. 

  40. (rum/defc field-types-component < rum/reactive
    41. 

  41.   []
    42. 

  42.   [:div
    43. 

  43.    (for [field-type (concat ss/simple-field-types ss/text-field-types)]
    44. 

  44.      (rum/with-key
    45. 

  45.        (field-type-selector {:key field-type})
    46. 

  46.        field-type))])
    47.