 
 (cl-defun vendle:update-packages ()
   (when (file-exists-p vendle-directory)
-    (cl-mapc
-     'vendle:update-package
-     *vendle-package-list*)))
+    (vendle:map-package-list 'vendle:update-package)))
 
 (defmethod vendle:update-package ((_package vendle:package))
   (cl-letf ((path (vendle:concat-path vendle-directory (vendle:package-name _package))))

                                      'face '(:foreground "#539b8f"))
                          fmt)
         text))

;;;; search
(cl-defun vendle:search-registered (_key _term)


;;;; check
(cl-defun vendle:check-packages ()
  (vendle:map-package-list 'vendle:install-package))

;;;; register

