     ;; headers
     (doseq [[header-name header-value] headers]
       (.header opts header-name header-value))
+    ;; task naming
+    (when task-name
+      (.taskName opts task-name))
     ;; params
     (doseq [[param-name param-value] params]
       (.param opts

    (if join-current-transaction?
        (.add queue-obj ds/*current-transaction* opts)
        (.add queue-obj opts))))

             queue)))))


;; TODO: Support adding multiple tasks at once.
(defn add! [& {:keys [queue url task-name
                      join-current-transaction? params headers payload method
                      countdown-ms eta-ms eta]
               :or {join-current-transaction? false
                    params {}
