;; 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

(ns frontend-tests.copy-as-svg-test
  "Regression tests for the Copy as SVG action (issue #838).

  The bug: when multiple shapes were selected, `generate-markup` emitted
  several sibling `<svg>` roots concatenated with newlines. External SVG
  parsers (Inkscape, browsers) only read the first root, so multi-shape
  selection appeared to copy only one shape. The fix wraps 2+ shapes in a
  single `<svg>` root with a combined viewBox."
  (:require
   [app.common.test-helpers.files :as cthf]
   [app.common.test-helpers.ids-map :as cthi]
   [app.common.test-helpers.shapes :as cths]
   [app.common.types.shape :as cts]
   [app.util.code-gen.markup-svg :as svg]
   [cljs.test :refer [deftest is testing] :include-macros true]))

(defn- setup-shapes
  "Build a file with `n` sample rectangles on the current page.
  Returns a map with `:objects` and `:shapes` keys, mirroring the inputs
  that `copy-selected-svg` feeds into `generate-markup`."
  [labels]
  (let [file    (reduce (fn [f label]
                          (cths/add-sample-shape f label))
                        (cthf/sample-file :file1 :page-label :page1)
                        labels)
        page    (cthf/current-page file)
        objects (:objects page)
        shapes  (mapv #(get objects (cthi/id %)) labels)]
    {:objects objects :shapes shapes}))

(defn- count-matches
  [re s]
  (count (re-seq re s)))

(defn- setup-vertical-text
  []
  (let [shape   (-> (cts/setup-shape {:type :text
                                      :x 10
                                      :y 20
                                      :width 40
                                      :height 100})
                    (assoc :name "Vertical text"
                           :position-data
                           [{:x 20
                             :y 100
                             :width 24
                             :height 80
                             :fills [{:fill-color "#112233"
                                      :fill-opacity 1}]
                             :font-family "Noto Sans CJK JP"
                             :font-size "20"
                             :font-weight "400"
                             :writing-mode "vertical-rl"
                             :text-orientation "upright"
                             :font-features "vpal"
                             :text "うA"}]))
        file    (cths/add-sample-shape
                 (cthf/sample-file :file1 :page-label :page1)
                 :vertical-text
                 shape)
        page    (cthf/current-page file)
        objects (:objects page)]
    {:objects objects
     :shapes [(get objects (cthi/id :vertical-text))]}))

(defn- setup-vertical-ruby-text
  []
  (let [shape   (-> (cts/setup-shape {:type :text
                                      :x 10
                                      :y 20
                                      :width 60
                                      :height 100})
                    (assoc :name "Vertical ruby text"
                           :position-data
                           [{:x 20
                             :y 100
                             :width 24
                             :height 80
                             :fills [{:fill-color "#112233"
                                      :fill-opacity 1}]
                             :font-family "Noto Sans CJK JP"
                             :font-size "20"
                             :font-weight "400"
                             :writing-mode "vertical-rl"
                             :text-orientation "upright"
                             :text "漢字"
                             :ruby "かんじ"}]))
        file    (cths/add-sample-shape
                 (cthf/sample-file :file1 :page-label :page1)
                 :vertical-ruby-text
                 shape)
        page    (cthf/current-page file)
        objects (:objects page)]
    {:objects objects
     :shapes [(get objects (cthi/id :vertical-ruby-text))]}))

(defn- setup-vertical-emphasis-text
  []
  (let [shape   (-> (cts/setup-shape {:type :text
                                      :x 10
                                      :y 20
                                      :width 60
                                      :height 100})
                    (assoc :name "Vertical emphasis text"
                           :position-data
                           [{:x 20
                             :y 100
                             :width 24
                             :height 80
                             :fills [{:fill-color "#112233"
                                      :fill-opacity 1}]
                             :font-family "Noto Sans CJK JP"
                             :font-size "20"
                             :font-weight "400"
                             :writing-mode "vertical-rl"
                             :text-orientation "upright"
                             :text "強調 あ"
                             :text-emphasis "filled-dot"}]))
        file    (cths/add-sample-shape
                 (cthf/sample-file :file1 :page-label :page1)
                 :vertical-emphasis-text
                 shape)
        page    (cthf/current-page file)
        objects (:objects page)]
    {:objects objects
     :shapes [(get objects (cthi/id :vertical-emphasis-text))]}))

(defn- setup-horizontal-emphasis-text
  []
  (let [shape   (-> (cts/setup-shape {:type :text
                                      :x 10
                                      :y 20
                                      :width 120
                                      :height 40})
                    (assoc :name "Horizontal emphasis text"
                           :position-data
                           [{:x 20
                             :y 60
                             :width 100
                             :height 20
                             :fills [{:fill-color "#112233"
                                      :fill-opacity 1}]
                             :font-family "Noto Sans CJK JP"
                             :font-size "20"
                             :font-weight "400"
                             :writing-mode "horizontal-tb"
                             :text "強調、 あ"
                             :text-emphasis "filled-dot"}]))
        file    (cths/add-sample-shape
                 (cthf/sample-file :file1 :page-label :page1)
                 :horizontal-emphasis-text
                 shape)
        page    (cthf/current-page file)
        objects (:objects page)]
    {:objects objects
     :shapes [(get objects (cthi/id :horizontal-emphasis-text))]}))

(defn- setup-horizontal-stacked-annotations
  []
  (let [shape (-> (cts/setup-shape {:type :text
                                    :x 10
                                    :y 20
                                    :width 120
                                    :height 40})
                  (assoc :name "Horizontal stacked annotations"
                         :position-data
                         [{:x 20
                           :y 60
                           :width 100
                           :height 20
                           :fills [{:fill-color "#112233" :fill-opacity 1}]
                           :font-family "Noto Sans CJK JP"
                           :font-size "20"
                           :font-weight "400"
                           :writing-mode "horizontal-tb"
                           :text "漢字"
                           :ruby "かんじ"
                           :text-emphasis "filled-dot"
                           :annotation-clearance "auto"
                           :annotation-has-ruby true}]))
        file (cths/add-sample-shape
              (cthf/sample-file :file1 :page-label :page1)
              :horizontal-stacked-annotations
              shape)
        page (cthf/current-page file)
        objects (:objects page)]
    {:objects objects
     :shapes [(get objects (cthi/id :horizontal-stacked-annotations))]}))

(defn- setup-vertical-warichu-text
  ([] (setup-vertical-warichu-text "割注入り"))
  ([text]
   (let [shape   (-> (cts/setup-shape {:type :text
                                       :x 10
                                       :y 20
                                       :width 60
                                       :height 100})
                     (assoc :name "Vertical warichu text"
                            :position-data
                            [{:x 20
                              :y 100
                              :width 24
                              :height 40
                              :fills [{:fill-color "#112233"
                                       :fill-opacity 1}]
                              :font-family "Noto Sans CJK JP"
                              :font-size "20"
                              :font-weight "400"
                              :writing-mode "vertical-rl"
                              :text-orientation "upright"
                              :text text
                              :warichu "warichu"}]))
         file    (cths/add-sample-shape
                  (cthf/sample-file :file1 :page-label :page1)
                  :vertical-warichu-text
                  shape)
         page    (cthf/current-page file)
         objects (:objects page)]
     {:objects objects
      :shapes [(get objects (cthi/id :vertical-warichu-text))]})))

(defn- setup-horizontal-warichu-text
  ([] (setup-horizontal-warichu-text "割注入り"))
  ([text]
   (let [shape   (-> (cts/setup-shape {:type :text
                                       :x 10
                                       :y 20
                                       :width 120
                                       :height 40})
                     (assoc :name "Horizontal warichu text"
                            :position-data
                            [{:x 20
                              :y 60
                              :width 40
                              :height 20
                              :fills [{:fill-color "#112233"
                                       :fill-opacity 1}]
                              :font-family "Noto Sans CJK JP"
                              :font-size "20"
                              :font-weight "400"
                              :writing-mode "horizontal-tb"
                              :text text
                              :warichu "warichu"}]))
         file    (cths/add-sample-shape
                  (cthf/sample-file :file1 :page-label :page1)
                  :horizontal-warichu-text
                  shape)
         page    (cthf/current-page file)
         objects (:objects page)]
     {:objects objects
      :shapes [(get objects (cthi/id :horizontal-warichu-text))]})))

(deftest empty-selection-yields-empty-string
  (is (= "" (svg/generate-markup {} []))))

(deftest single-shape-produces-one-svg-root
  (testing "Regression guard: the single-shape path stays unchanged"
    (let [{:keys [objects shapes]} (setup-shapes [:rect-1])
          markup (svg/generate-markup objects shapes)]
      (is (string? markup))
      (is (pos? (count markup)))
      (is (= 1 (count-matches #"<svg\b" markup))
          "single shape should produce exactly one <svg> root"))))

(deftest multi-shape-produces-single-svg-root
  (testing "Fix for #838: multiple shapes share one outer <svg>"
    (let [{:keys [objects shapes]} (setup-shapes [:rect-1 :rect-2 :rect-3])
          markup (svg/generate-markup objects shapes)]
      (is (string? markup))
      (is (pos? (count markup)))
      (is (= 1 (count-matches #"<svg\b" markup))
          "multi-select must NOT emit multiple <svg> roots")
      (is (= 1 (count-matches #"</svg>" markup))
          "multi-select must NOT emit multiple </svg> closing tags"))))

(deftest vertical-text-svg-preserves-browser-layout-properties
  (testing "Static SVG carries the vertical writing properties used by browser exports"
    (let [{:keys [objects shapes]} (setup-vertical-text)
          markup (svg/generate-markup objects shapes)]
      (is (re-find #"writing-mode:vertical-rl" markup))
      (is (re-find #"text-orientation:upright" markup))
      (is (re-find #"text-autospace:normal" markup))
      (is (re-find #"font-feature-settings:&quot;vpal&quot;" markup))
      (is (not (re-find #"<foreignObject\b" markup))))))

(deftest vertical-emphasis-svg-emits-static-marks
  (testing "Static SVG draws emphasis marks and skips whitespace characters"
    (let [{:keys [objects shapes]} (setup-vertical-emphasis-text)
          markup (svg/generate-markup objects shapes)]
      (is (re-find #"強調 あ" markup))
      ;; 4 base chars: mark, mark, space (whitespace keeps its slot), mark.
      (is (re-find #"•• •" markup))
      (is (re-find #"font-size:10px" markup))
      (is (not (re-find #"<foreignObject\b" markup))))))

(deftest horizontal-emphasis-svg-emits-static-marks-above-the-text
  (testing "Static SVG draws horizontal emphasis and excludes punctuation and whitespace"
    (let [{:keys [objects shapes]} (setup-horizontal-emphasis-text)
          markup (svg/generate-markup objects shapes)]
      (is (re-find #"強調、 あ" markup))
      ;; Five Unicode base characters: two marks, punctuation and whitespace
      ;; slots, then one mark.
      (is (re-find #"••  •" markup))
      (is (re-find #"writing-mode:horizontal-tb" markup))
      (is (re-find #"dominant-baseline=\"text-after-edge\"" markup))
      (is (re-find #"lengthAdjust=\"spacing\"" markup))
      (is (re-find #"font-size:10px" markup))
      (is (re-find #"fill:url\(#fill-0-[^)]+-0\)" markup)
          "the emphasis mark references its generated per-strip fill")
      (is (not (re-find #"<foreignObject\b" markup))))))

(deftest horizontal-auto-clearance-stacks-emphasis-outside-ruby
  (testing "Static SVG keeps ruby nearest the base and offsets emphasis by another half-em"
    (let [{:keys [objects shapes]} (setup-horizontal-stacked-annotations)
          markup (svg/generate-markup objects shapes)]
      (is (re-find #"かんじ" markup))
      (is (re-find #"••" markup))
      (is (re-find #"y=\"40\"" markup) "ruby occupies the first half-em layer")
      (is (re-find #"y=\"30\"" markup) "emphasis occupies the outer half-em layer"))))

(deftest vertical-warichu-svg-emits-two-sub-columns
  (testing "Static SVG splits a warichu strip into two half-size sub-columns"
    (let [{:keys [objects shapes]} (setup-vertical-warichu-text)
          markup (svg/generate-markup objects shapes)]
      (is (re-find #"割注" markup))
      (is (re-find #"入り" markup))
      (is (not (re-find #"割注入り" markup))
          "the base text must be split, not drawn as one strip")
      (is (re-find #"font-size:10px" markup))
      (is (not (re-find #"<foreignObject\b" markup))))))

(deftest vertical-warichu-svg-split-respects-kinsoku
  (testing "The second sub-line must not start with a line-start-prohibited mark"
    (let [{:keys [objects shapes]} (setup-vertical-warichu-text "割り注、と")
          markup (svg/generate-markup objects shapes)]
      (is (re-find #"割り注、" markup)
          "the comma is pulled up into the first sub-line")
      (is (not (re-find #"割り注、と" markup))
          "the strip is still split into two sub-lines"))))

(deftest vertical-warichu-svg-preserves-non-bmp-characters
  (testing "Static SVG never splits a surrogate pair between warichu sub-lines"
    (let [{:keys [objects shapes]} (setup-vertical-warichu-text "割𠀀注😀")
          markup (svg/generate-markup objects shapes)]
      (is (re-find #"割𠀀" markup))
      (is (re-find #"注😀" markup))
      (is (not (re-find #"�" markup))))))

(deftest horizontal-warichu-svg-emits-two-stacked-sub-lines
  (testing "Static SVG splits horizontal warichu into top and bottom half-size lines"
    (let [{:keys [objects shapes]} (setup-horizontal-warichu-text)
          markup (svg/generate-markup objects shapes)]
      (is (re-find #"割注" markup))
      (is (re-find #"入り" markup))
      (is (not (re-find #"割注入り" markup)))
      (is (re-find #"writing-mode:horizontal-tb" markup))
      (is (= 2 (count-matches #"dominant-baseline=.?hanging" markup)))
      (is (re-find #"font-size:10px" markup)))))

(deftest vertical-ruby-svg-emits-static-annotation
  (testing "Static SVG keeps ruby visible without falling back to foreignObject"
    (let [{:keys [objects shapes]} (setup-vertical-ruby-text)
          markup (svg/generate-markup objects shapes)]
      (is (re-find #"漢字" markup))
      (is (re-find #"かんじ" markup))
      (is (re-find #"font-size:10px" markup))
      (is (re-find #"text-orientation:upright" markup))
      (is (not (re-find #"<foreignObject\b" markup))))))