Merge pull request #48 from clj-codes/fix/author-mobile-improvements

fix(author): mobile improvements

Author: rafaeldelboni

src/codes/clj/docs/frontend/panels/author/view.cljs

@@ -20,10 +20,12 @@
     ($ List {:listStyleType "square"}
       (map (fn [item]
              ($ (-> List .-Item) {:key (id-key item)}
-               ($ Box {:w #js {:base 350 :xs 400 :sm 600 :md 800 :lg 900 :xl 1000}}
+               ($ Box {:w #js {:base 300 :xs 400 :sm 600 :md 800 :lg 900 :xl 1000}}
                  ($ Text {:id (id-key item) :className "social-preview-item"
                           :truncate "end"}
-                   (data-key item)))))
+                   (if (= data-key :definition-id-to)
+                     (str/replace (data-key item) #"/0$" "")
+                     (data-key item))))))
         items))))
 
 (defnc author-socials-preview-list [{:keys [socials]}]
@@ -80,7 +82,7 @@
             ($ Center
               ($ Group {:wrap "nowrap"}
                 ($ Avatar {:src avatar-url
-                           :size 200
+                           :size "xl"
                            :radius 200})
                 (dom/div
                   ($ Title {:order 3}
@@ -89,15 +91,13 @@
                   ($ Text {:fz "xs" :tt "uppercase" :fw 700 :c "dimmed"}
                     (name account-source))
 
-                  ($ Space {:h "sm"})
-
                   ($ Text {:data-testid "author-social-summary"
                            :fz "lg" :fw 500}
                     (author.adapters/->string-summary value)))))
 
             ($ Space {:h "lg"})
 
-            (when socials
+            (when (seq socials)
               ($ author-socials-preview-list {:socials socials}))
 
             ($ back-to-top)))))))

test/codes/clj/docs/frontend/test/panels/author/view_test.cljs

@@ -31,15 +31,15 @@
                 items (tl/wait-for #(.findByTestId ^js/Object view "author-grid"))]
 
           (is (= [";;assoc applied to a vector\n\n(def my-vec [1 2 5 6 8 9])\n\n(assoc my-vec 0 77)\n;;[77 2 5 6 8 9]"
-                  "org.clojure/clojure/clojure.core/dissoc/0"
-                  "org.clojure/clojure/clojure.core/update/0"
-                  "org.clojure/clojure/clojure.core/assoc-in/0"
+                  "org.clojure/clojure/clojure.core/dissoc"
+                  "org.clojure/clojure/clojure.core/update"
+                  "org.clojure/clojure/clojure.core/assoc-in"
                   "Here is a version that will create a vector when the key is numerical. This may be useful instead of throwing an IndexOutOfBoundsException.\n```clojure\n(defn assoc-in-idx [m [k & ks] v]\n  (let [value (get m k (when (number? (first ks)) []))\n    m (if (and (vector? m) (number? k) (-> m count (< k)))\n        (reduce (fn [m _] (conj m nil)) m (range (count m) k))\n        m)\n    v (if ks\n        (assoc-in-idx value ks v)\n        v)]\n    (assoc m k v)))\n```\n> copied from  [clojuredocs.org](https://clojuredocs.org/clojure.core/assoc) for test"
                   "; removes nil from list or vector\n(keep identity [:a :b nil :d nil :f])\n; => (:a :b :d :f)"
-                  "org.clojure/clojure/clojure.core/remove/0"
+                  "org.clojure/clojure/clojure.core/remove"
                   "; 6 random integers (from 0 to 60)\n(take 6 (repeatedly #(rand-int 60)))"
-                  "org.clojure/clojure/clojure.core/repeatedly/0"
-                  "org.clojure/clojure/clojure.core/keep/0"]
+                  "org.clojure/clojure/clojure.core/repeatedly"
+                  "org.clojure/clojure/clojure.core/keep"]
                  (->> (.querySelectorAll items ".social-preview-item")
                       (map #(-> % .-textContent)))))