    [broadfcui.utils.ajax :as ajax]
    [broadfcui.utils.test :as test-utils]
    [broadfcui.utils.user :as user]
+   [goog.string :as gstring]
    ))
 
 (def ^:private preview-byte-count 20000)

             :onClick (fn [e]
                        (.preventDefault e)
                        (swap! state assoc :showing-preview? true))}
         (if link-label (str link-label) dos-uri)]]))})

(react/defc FilePreviewLink
  {:render

              [PreviewDialog (assoc props :error error :object ""
                               :dismiss (:dismiss props))])))]))})

;; Sometimes we apply an RTL rule so that long links overflow and show ellipses on the left-hand side.
;; Go back to LTR here so we do not reorder the object name. Both the leading and trailing instances
;; are necessary to cover all cases. (GAWB-2495, GAWB-1912)
(defn- lrm-pad [string]
  (str (gstring/unescapeEntities "&#8206;") string (gstring/unescapeEntities "&#8206;")))

(react/defc GCSFilePreviewLink
  {:render
   (fn [{:keys [state props]}]
