 
 ;;;; check
 (cl-defun vendle:check-packages ()
-  (cl-mapc
-   (lambda (package)
-     (vendle:install-package package))
-   *vendle-package-list*))
+  (vendle:map-package-list 'vendle:install-package))
 
 ;;;; register
 

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

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


(cl-defun vendle:update-packages ()
  (when (file-exists-p vendle-directory)
    (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))))
