 
 (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))
+    (when (and (or (cl-equalp 'git (vendle:package-type package))
+                   (cl-equalp 'github (vendle:package-type package)))
                (not (file-symlink-p path)))
       (progn
         (cd-absolute path)


(cl-defun vendle:make-package (source info)
  (cond ((vendle:source-github-p source)
         (vendle:make-package-github (vendle:source-format-github source) info))))

(cl-defun vendle:make-package-github (source info)
  (make-vendle:package :type 'git
                       :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:install-package (package)
  (unless (or (cl-equalp 'local (vendle:package-type package))
              (file-exists-p (vendle:package-path package)))
    (cond ((cl-equalp 'github (vendle:package-type package))
           (vendle:install-package-github package)))))

(cl-defun vendle:install-package-github (package)
  (message "vendle: installing package %s" (vendle:package-name package))
  (shell-command (concat  "git clone " (vendle:package-url package) " "
                          (vendle:concat-path *vendle-directory* (vendle:package-name package)))
                 *vendle-directory*)
