如何向上滑动Viewpager以显示视图？

Question

我有一个小布局，它是屏幕底部的一个viewpager。我将它设置为slidedrawer的句柄。问题是，如果我这样做，我就不能将viewpager拖到下一页了。请告诉我如何解决这个问题。谢谢！

(defn song-player []
  "display songs and controls"
  (let [current-song (atom {"title" "some title", "url" "some-url"})]
    (fn []
      [:div.player
       [:p "title: " (@current-song "title")]
       [:audio#player-audio
        {:src (str (@current-song "url"))}]
       [:input {:type "button"
                :value "Play/Stop"
                :on-click #(let [player (. js/document (getElementById "player-audio"))]
                             (if (.-paused player)
                               (.play player)
                               (.pause player)))}]])))