 ;;;; utilily functions
 (cl-defun hoarder:concat-path (&rest parts)
   (colle:foldl (lambda (a b) (expand-file-name b a))
-           "/"
-           parts))
+            "/"
+            parts))
 
-(cl-defun hoarder:message (fmt &rest texts)
+(cl-defun hoarder:message (fmt . texts)
   (if noninteractive
       (princ (apply #'format (concat fmt "\n") texts))
     (apply #'hoarder:log fmt texts)

                             fmt)
           texts)))

(cl-defun hoarder:log (fmt &rest 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:package-compare-fn (p1 p2)
  (cl-labels ((comp (n)
                    (hoarder:on #'cl-equalp
                          (lambda (p) (glof:get p n))
                          p1
                          p2)))
    (and (comp :name)
       (comp :origin))))

