                              fmt)
            texts)))
 
-(cl-defun hoarder:log (fmt &rest texts)
+(cl-defun hoarder:log (fmt . texts)
   (with-current-buffer (get-buffer-create hoarder:log-buffer-name)
     (when (hoarder:empty-buffer-p (current-buffer))
       (goto-char (point-min))

(cl-defun hoarder:add-to-list (var elem)
  (if (vectorp elem)
      (colle:map
       (lambda (e) (add-to-list var e))
       elem)
    (add-to-list var elem)))

;;;; utilily functions
(cl-defun hoarder:concat-path (&rest parts)
  (colle:foldl (lambda (a b) (expand-file-name b a))
            "/"
            parts))

(cl-defun hoarder:message (fmt . texts)
  (if noninteractive
      (princ (apply #'format (concat fmt "\n") texts))
    (apply #'hoarder:log fmt texts)
