💄 Redesign rulers

frontend/src/app/main/refs.cljs

@@ -199,6 +199,9 @@
 (def snap-pixel?
   (l/derived #(contains? % :snap-pixel-grid) workspace-layout))
 
+(def rules?
+  (l/derived #(contains? % :rules) workspace-layout))
+
 (def workspace-file
   "A ref to a striped vision of file (without data)."
   (l/derived (fn [state]

frontend/src/app/main/ui/workspace/palette.cljs

@@ -34,17 +34,16 @@
 (def viewport
   (l/derived :vport refs/workspace-local))
 
-(defn calculate-palette-padding []
+(defn calculate-palette-padding [rulers?]
   (let [left-sidebar           (dom/get-element "left-sidebar-aside")
         left-sidebar-size      (d/parse-integer (dom/get-data left-sidebar "size"))
-        rulers?                (:rules (mf/deref refs/workspace-layout))
+        rulers-width           (if rulers? 22 0)
-        rulers-width           (if rulers? 26 4)
+        min-left-sidebar-width 275
-        min-left-sidebar-width  27
+        left-padding           4
-        calculate-padding-left  (+ rulers-width (or left-sidebar-size
+        calculate-padding-left (+ rulers-width (or left-sidebar-size min-left-sidebar-width) left-padding 1)]
-                                                    min-left-sidebar-width))]
 
     #js {"paddingLeft" (dm/str calculate-padding-left "px")
-         "paddingRight" "280px"}))
+         "paddingRight" "calc(var(--s-4) * 70)"}))
 
 (mf/defc palette
   [{:keys [layout]}]
@@ -56,6 +55,7 @@
         selected             (h/use-shared-state mdc/colorpalette-selected-broadcast-key :recent)
         selected-text        (mf/use-state :file)
         on-select            (mf/use-fn #(reset! selected %))
+        rulers?              (mf/deref refs/rules?)
         {:keys [on-pointer-down on-lost-pointer-capture on-pointer-move parent-ref size]}
         (r/use-resize-hook :palette 72 54 80 :y true :bottom)
 
@@ -113,7 +113,7 @@
         (swap! state assoc :width width)))
 
     [:div {:class (dom/classnames (css :palette-wrapper) true)
-           :style  (calculate-palette-padding)}
+           :style  (calculate-palette-padding rulers?)}
      (when-not workspace-read-only?
        [:div {:ref parent-ref
               :class (dom/classnames (css :palettes) true

frontend/src/app/main/ui/workspace/palette.scss

@@ -13,6 +13,7 @@
   bottom: 0;
   padding-bottom: $s-4;
 }
+
 .palettes {
   z-index: $z-index-2;
   position: relative;

frontend/src/app/main/ui/workspace/viewport/rules.cljs

@@ -23,7 +23,7 @@
 (def rule-area-size 22)
 (def rule-area-half-size (/ rule-area-size 2))
 (def rules-background "var(--color-gray-50)")
-(def new-css-rules-background "var(--dark-gray-1)")
+(def new-css-rules-background "var(--panel-background-color)")
 (def selection-area-color "var(--color-primary)")
 (def selection-area-opacity 0.3)
 (def over-number-size 50)
@@ -31,6 +31,9 @@
 
 (def font-size 12)
 (def font-family "worksans")
+(def font-color colors/gray-30)
+(def new-css-font-color "var(--layer-row-foreground-color)")
+(def new-css-canvas-border-radius 12)
 
 ;; ----------------
 ;;   RULES
@@ -114,17 +117,72 @@
        :line-x2 (+ (:x vbox) rules-pos (* 2 zoom-inverse) rules-size)
        :line-y2 val})))
 
+(defn- round-corner-path-tl
+  [cx cy radius]
+  (dm/str
+   "M" cx "," cy
+   "L" (+ cx radius) "," cy
+   "Q" cx "," cy "," cx "," (+ cy radius)
+   "Z"))
+
+(defn- round-corner-path-tr
+  [cx cy radius]
+  (dm/str
+   "M" cx "," cy
+   "L" (+ cx radius) "," cy
+   "L" (+ cx radius) "," (+ cy radius)
+   "Q" (+ cx radius) "," cy "," cx "," cy
+   "Z"))
+
+(defn- round-corner-path-bl
+  [cx cy radius]
+  (dm/str
+   "M" cx "," cy
+   "Q" cx "," (+ cy radius) "," (+ cx radius) "," (+ cy radius)
+   "L" cx "," (+ cy radius)
+   "Z"))
+
+(defn- round-corner-path-br
+  [cx cy radius]
+  (dm/str
+   "M" (+ cx radius) "," cy
+   "L" (+ cx radius) "," (+ cy radius)
+   "L" cx "," (+ cy radius)
+   "Q" (+ cx radius) "," (+ cy radius) "," (+ cx radius) "," cy
+   "Z"))
+
 (mf/defc rules-axis
   [{:keys [zoom zoom-inverse vbox axis offset]}]
   (let [rules-width (* rules-width zoom-inverse)
         step (calculate-step-size zoom)
         clip-id (str "clip-rule-" (d/name axis))
         new-css-system (mf/use-ctx ctx/new-css-system)
-        rules-background (if new-css-system new-css-rules-background rules-background)]
+        rules-background (if new-css-system new-css-rules-background rules-background)
+        font-color (if new-css-system new-css-font-color font-color)
+        rule-area-size (/ rule-area-size zoom)
+        border-radius (/ new-css-canvas-border-radius zoom)]
 
     [:*
      (let [{:keys [x y width height]} (get-background-area vbox zoom-inverse axis)]
-       [:rect {:x x :y y :width width :height height :style {:fill rules-background}}])
+       [:*
+        [:rect {:x x :y y :width width :height height :style {:fill rules-background}}]
+
+        ;; Draw the rules' rounded corners in the viewport corners
+        (when new-css-system
+          (if (= axis :x)
+            [:*
+             [:path {:d (round-corner-path-tl (+ x rule-area-size) (+ y rule-area-size) border-radius)
+                     :style {:fill rules-background}}]
+
+             [:path {:d (round-corner-path-tr (+ x width (- border-radius)) (+ y rule-area-size) border-radius)
+                     :style {:fill rules-background}}]]
+
+            [:*
+             [:path {:d (round-corner-path-bl (+ x rule-area-size) (+ y height (- border-radius)) border-radius)
+                     :style {:fill rules-background}}]
+
+             [:path {:d (round-corner-path-br (+ x (:width vbox) (- border-radius)) (+ y height (- border-radius)) border-radius)
+                     :style {:fill rules-background}}]]))])
 
      [:g.rules {:clipPath (str "url(#" clip-id ")")}
 
@@ -154,7 +212,7 @@
                      :transform (when (= axis :y) (str "rotate(-90 " text-x "," text-y ")"))
                      :style {:font-size (* font-size zoom-inverse)
                              :font-family font-family
-                             :fill colors/gray-30}}
+                             :fill font-color}}
               ;; If the guide is associated to a frame we show the position relative to the frame
               (fmt/format-number (- step-val offset))]
 
@@ -163,7 +221,7 @@
                      :y1 line-y1
                      :x2 line-x2
                      :y2 line-y2
-                     :style {:stroke colors/gray-30
+                     :style {:stroke font-color
                              :stroke-width rules-width}}]])))]]))
 
 (mf/defc selection-area