gistfile1.clj

  (defn make-coll [x]
    (cond
     (coll? x) x
     (nil? x) nil
     :else (list x)))

  (defn dragdrop [source-nodes target-nodes & {:keys [source-listeners target-listeners]}]
    (let [source-group (goog.fx.DragDropGroup.)
          target-group (goog.fx.DragDropGroup.)]
      (doseq [source-node (make-coll source-nodes)]
        (.addDragDropItem source-group (goog.fx.DragDropItem. source-node)))
      (doseq [target-node (make-coll target-nodes)]
        (.addDragDropItem target-group (goog.fx.DragDropItem. target-node)))
      (.addTarget source-group target-group)
      (.init source-group)
      (doseq [[event handler] source-listeners]
        (listen! source-group
                 event
                 handler))
      (doseq [[event handler] target-listeners]
        (listen! target-group
                 event
                 handler))))