 (defun db/update-org-agenda-files (symbol value)
   "Set SYMBOL to VALUE and update `org-agenda-files’ afterwards."
   (set-default symbol value)
-  (setq org-agenda-files (remove-duplicates
+  (setq org-agenda-files (cl-remove-duplicates
                           (cl-remove-if #'string-empty-p
                                         (mapcar (lambda (symbol)
                                                   (when (boundp symbol)

           (tend (cond ((stringp tend) (org-time-string-to-seconds tend))
                       ((consp tend) (float-time tend))
                       (t tend)))
           task-clock-times headline times)
      (db/org-map-clock-lines-and-entries
       ;; when on clock line, collect times
       #'(lambda (start end)

               (b-date (or (org-entry-get b-pos prop)
                           (format "<%s>" (org-read-date t nil "now"))))
               (cmp (compare-strings a-date nil nil b-date nil nil)))
          (if (eq cmp t) nil (cl-signum cmp))))))

(setq org-agenda-custom-commands
      `(("A" "Main List"
