mirror of
https://github.com/penpot/penpot.git
synced 2026-11-06 18:10:39 +00:00
390a0f7672
Lay out horizontal and vertical Japanese text with kinsoku, ruby, emphasis, warichu, tate-chu-yoko and proportional font features. Carry the layout through glyph paths, SVG export and text selection. Update the Rust and ClojureScript binary formats together, including the editor bridge and headless exporter. Resolve CJK fallback fonts and add renderer tests and font fixtures.
159 lines
3.6 KiB
Clojure
159 lines
3.6 KiB
Clojure
;; 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 SUBSIDIARY SL
|
|
|
|
(ns app.util.debug
|
|
(:require
|
|
[app.main.store :as st]
|
|
[app.util.storage :as storage]
|
|
[okulary.core :as l]))
|
|
|
|
(def ^:private storage-key :app.util.debug/enabled-options)
|
|
|
|
(def options
|
|
#{;; Displays the bounding box for the shapes
|
|
:bounding-boxes
|
|
|
|
;; Displays an overlay over the groups
|
|
:group
|
|
|
|
;; Displays in the console log the events through the application
|
|
:events
|
|
|
|
;; Display the boxes that represent the rotation and resize handlers
|
|
:handlers
|
|
|
|
;; Displays the center of a selection
|
|
:selection-center
|
|
|
|
;; When active the single selection will not take into account previous transformations
|
|
;; this is useful to debug transforms
|
|
:simple-selection
|
|
|
|
;; When active the thumbnails will be displayed with a sepia filter
|
|
:thumbnails
|
|
|
|
;; When active we can check in the browser the export values
|
|
:show-export-metadata
|
|
|
|
;; Show text fragments outlines
|
|
:text-outline
|
|
|
|
;; Disable thumbnail cache
|
|
:disable-thumbnail-cache
|
|
|
|
;; Disable frame thumbnails
|
|
:disable-frame-thumbnails
|
|
|
|
;; Force thumbnails always (independent of selection or zoom level)
|
|
:force-frame-thumbnails
|
|
|
|
;; Enable a widget to show the auto-layout drop-zones
|
|
:layout-drop-zones
|
|
|
|
;; Display the layout lines
|
|
:layout-lines
|
|
|
|
;; Display the bounds for the hug content adjust
|
|
:layout-content-bounds
|
|
|
|
;; Makes the pixel grid red so its more visibile
|
|
:pixel-grid
|
|
|
|
;; Show the bounds relative to the parent
|
|
:parent-bounds
|
|
|
|
;; Show html text
|
|
:html-text
|
|
|
|
;; Show history overlay
|
|
:history-overlay
|
|
|
|
;; Show shape name and id
|
|
:shape-titles
|
|
|
|
;; Show an asterisk for touched copies
|
|
:show-touched
|
|
|
|
;; Show the id with the name
|
|
:show-ids
|
|
|
|
;;
|
|
:grid-layout
|
|
|
|
;; Show an overlay to the grid cells to know its properties
|
|
:grid-cells
|
|
|
|
;; Show info about shapes
|
|
:shape-panel
|
|
|
|
;; Show the floating components debugger window
|
|
:components-debugger
|
|
|
|
;; Show what is touched in copies
|
|
:display-touched
|
|
|
|
;; Show some visual indicators for bool shape
|
|
:bool-shapes
|
|
|
|
;; Show some information about the WebGL context.
|
|
:gl-context
|
|
|
|
;; Show viewbox.
|
|
:wasm-viewbox
|
|
|
|
;; Draw the jlreq-style character-frame grid over Japanese vertical text.
|
|
:wasm-text-grid
|
|
|
|
;; Show browser composition bounds and the WASM/DOM carets during text input.
|
|
:ime
|
|
|
|
;; Makes the GL context to fail on initialization.
|
|
:wasm-gl-context-init-error
|
|
|
|
;; Event times
|
|
:events-times})
|
|
|
|
(defn- load-state
|
|
[]
|
|
(let [stored (get storage/user storage-key #{})]
|
|
(into #{} (filter options) stored)))
|
|
|
|
(defonce state (l/atom (load-state)))
|
|
|
|
(defn- persist-state!
|
|
[state]
|
|
(swap! storage/user assoc storage-key state))
|
|
|
|
(defn handle-change
|
|
[]
|
|
(set! st/*debug-events* (contains? @state :events))
|
|
(set! st/*debug-events-time* (contains? @state :events-times)))
|
|
|
|
(when *assert*
|
|
(handle-change)
|
|
(add-watch state :watcher handle-change)
|
|
(add-watch state :persistence (fn [_ _ _ new-state]
|
|
(persist-state! new-state))))
|
|
|
|
(defn enable!
|
|
[option]
|
|
(swap! state conj option))
|
|
|
|
(defn disable!
|
|
[option]
|
|
(swap! state disj option))
|
|
|
|
(defn enabled?
|
|
^boolean
|
|
[option]
|
|
(contains? @state option))
|
|
|
|
(defn toggle!
|
|
[option]
|
|
(if (enabled? option)
|
|
(disable! option)
|
|
(enable! option)))
|