 
 (cl-defun vendle:make-package (source info)
   (cond ((vendle:source-github-p source)
-         (vendle:make-package-github (vendle:source-format-github source) info))))
+         (vendle:make-package-github
+          (vendle:source-format-github source) info))))
 
 (cl-defun vendle:make-package-github (source info)
-  (make-vendle:package :type 'git
+  (make-vendle:package :type 'github
                        :name (vendle:make-package-name source info)
                        :path (vendle:make-package-path source info)
                        :url (cl-concatenate 'string "git://github.com/" source)))


(cl-defun vendle:update-package (package)
  (cl-letf ((path (vendle:concat-path *vendle-directory* (vendle:package-name package))))
    (when (and (cl-equalp 'git (vendle:package-type package))
               (not (file-symlink-p path)))
      (progn
        (cd-absolute path)


(cl-defun vendle:make-package-name-local (source info)
  (if info
      (cl-letf ((name (cl-getf info :name)))
        (if name
            name
          (file-name-nondirectory source)))
