                                        'face '(:foreground "#539b8f"))
                            fmt)
          text))
+
+(cl-defun vendle:log (fmt &rest texts)
+  (with-current-buffer (get-buffer-create vendle:log-buffer-name)
+    (goto-char (point-max))
+    (insert (apply #'format fmt texts))
+    (insert "\n")))
 
 (cl-defun vendle:foreach-package-list (fn)
   (seq-each fn *vendle-package-list*))

              "/"))

(cl-defun vendle:message (fmt &rest text)
  (with-current-buffer (get-buffer-create "*vendle log*")
    (goto-char (point-max))
    (insert (apply #'format (format "[%s] %s"
                                    (propertize "vendle"

(require 'vendle-package "vendle/package")

;;;; internal functions

(defconst vendle:log-buffer-name
  "*vendle log*")

(cl-defun vendle:package-compare-fn (p1 p2)
  (and (cl-equalp (vendle:package-name p1)
