mirror of
https://github.com/heyarne/airsonic-ui.git
synced 2026-05-07 10:43:39 +02:00
heyarne
8bf222a6e8* First sloppy import of code from heyarne/reagent-movable * Consistently use "current queue" to avoid confusion * Update shadow-cljs, re-frame and debux * Solve styling problem when sorting table rows * Make sortable component more reusable * Refactor playlist to use a sorted-map * Make sure current queue is displayed again * Fix sorting when converting a shuffled into a linear playlist * Implement set-current-track * Implement song-move in playlist * Add autoprefixer * Implement drag and drop reordering in current queue * Fix broken dev sass build * Bump some dependencies * Move airsonic-ui.views.icon to bulma.icon * Implement reusable dropdown in bulma.dropdown * Immediately render reordered tracks, reimplement actions in album view * Use new song-table on search result page * Make song-table more reusable * Remove current song * Implement go to source in current queue * Remove unused song view
35 lines
1.1 KiB
Clojure
35 lines
1.1 KiB
Clojure
(ns airsonic-ui.test-helpers)
|
|
|
|
(defn dispatches?
|
|
"Helper to see whether an event is dispatched in a coeffect; `ev` can either
|
|
be a whole vector or a keyword which is interpreted as the event name."
|
|
[cofx ev]
|
|
(let [all-events (conj (get cofx :dispatch-n []) (:dispatch cofx))]
|
|
(boolean (some #(= ev (if (vector? ev) % (first %))) all-events))))
|
|
|
|
(defn rand-str
|
|
"Generates a random string; ported from https://stackoverflow.com/a/27747377/2345852"
|
|
([] (rand-str 40))
|
|
([len]
|
|
(let [arr (js/Uint8Array. (/ len 2))]
|
|
(.. js/window -crypto (getRandomValues arr))
|
|
(.. js/Array
|
|
(from arr #(-> (str 0 (.toString % 16))
|
|
(.substr -2)))
|
|
(join "")))))
|
|
|
|
(defn song []
|
|
(hash-map :id (rand-int 9999)
|
|
:coverArt (rand-int 9999)
|
|
:year (+ 1900 (rand-int 118))
|
|
:artist (rand-str)
|
|
:artistId (rand-int 100000)
|
|
:title (rand-str)
|
|
:album (rand-str)))
|
|
|
|
(defn song-queue
|
|
"Generates a seq of n different songs"
|
|
[n]
|
|
(let [r-int (atom 0)]
|
|
(with-redefs [rand-int #(mod (swap! r-int inc) %1)]
|
|
(repeatedly n song))))
|