introduce firefox-overrides-config

Moved recent Firefox-related styling changes under this special-case config.

Author: darwin

src/lib/devtools/defaults.cljs

@@ -244,8 +244,7 @@
                                                               "padding: 0px 4px 0px 4px;"
                                                               "margin: 1px 0px 0px 0px;")
 
-     :fn-header-style                                    (css "display: inline-flex;"
-                                                              "align-items: center;")
+     :fn-header-style                                    (css)
      :fn-prefix-style                                    (css)
      :nil-style                                          (css (str "color: " (named-color :nil) ";"))
      :keyword-style                                      (css (str "color: " (named-color :keyword) ";"))
@@ -264,14 +263,14 @@
      :native-reference-wrapper-style                     (css "position: relative;"
                                                               "display: inline-flex;")
      :native-reference-style                             (css "padding: 0px 3px;"
+                                                              "margin: -4px 0px -2px;"
                                                               "position: relative;"
                                                               "top: 1px;")
 
      :type-wrapper-style                                 (css "position: relative;"
                                                               "padding-left: 1px;"
                                                               "border-radius: 2px;")
-     :type-ref-style                                     (css (str "background-color:" (named-color :type) ";")
-                                                              "border-radius: 0 2px 2px 0;")
+     :type-ref-style                                     (css "position: relative;")
      :type-header-style                                  (css (d/get-common-type-header-style)
                                                               "border-radius: 2px;")
      :type-name-style                                    (css "padding-right: 4px;")
@@ -402,3 +401,16 @@
 
      ; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
      }))
+
+; this config gets merged over defaults when Firefox is detected
+; see https://github.com/binaryage/cljs-devtools/pull/73
+(def firefox-overrides-config
+  (delay
+    {:fn-header-style        (css "display: inline-flex;"
+                                  "align-items: center;")
+     :type-ref-style         (css (str "background-color:" (named-color :type) ";")
+                                  "border-radius: 0 2px 2px 0;")
+     :native-reference-style (css "padding: 0px 3px;"
+                                  "position: relative;"
+                                  "top: 1px;")
+     }))

src/lib/devtools/prefs.cljs

@@ -1,11 +1,13 @@
 (ns devtools.prefs
   (:require-macros [devtools.prefs :refer [emit-external-config]])
-  (:require [devtools.defaults :as defaults]))
+  (:require [goog.labs.userAgent.browser :refer [isFirefox]]
+            [devtools.defaults :as defaults]))
 
 ; we use delay for DCE, see https://github.com/binaryage/cljs-devtools/issues/37
 (def default-config (delay @defaults/config))
+(def firefox-overrides-config (delay (if (isFirefox) @defaults/firefox-overrides-config)))
 (def external-config (delay (emit-external-config)))
-(def initial-config (delay (merge @default-config @external-config)))
+(def initial-config (delay (merge @default-config @firefox-overrides-config @external-config)))
 
 (def ^:dynamic *current-config* (delay @initial-config))