;; 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) KALEIDOS INC Sucursal en España SL

(ns app.main.ui.components.code-block
  (:require-macros [app.main.style :as stl])
  (:require
   [app.common.data.macros :as dm]
   [app.util.modules :as modules]
   [cuerdas.core :as str]
   [promesa.core :as p]
   [rumext.v2 :as mf]))

(def highlight-fn
  (delay (modules/load-fn 'app.util.code-highlight/highlight!)))

(mf/defc code-block*
  [{:keys [code type]}]
  (let [block-ref (mf/use-ref)
        code      (str/trim code)]

    (mf/with-effect [code type]
      (when-let [node (mf/ref-val block-ref)]
        (->> @highlight-fn
             (p/fmap (fn [f] (f)))
             (p/fnly (fn [f cause]
                       (if cause
                         (js/console.error cause)
                         (f node)))))))

    [:pre {:class (dm/str type " " (stl/css :code-display)) :ref block-ref} code]))