dagezi

(defun github-url-decompose (file &optional partial)
  (cond
   ((file-directory-p (expand-file-name ".git" file)) (cons file partial))
   ((equal "/" file) nil)
   (t (github-url-decompose (directory-file-name (file-name-directory file))
                            (if partial
                                (concat (file-name-nondirectory file) "/" partial)
                              (file-name-nondirectory file))))))
 
(defun github-url-get-origin (dir)