((project (make-project :name name :src src)))
(ensure-directories-exist (project-dir project))
(git project "clone" src ".")
- (refresh-project project))
+ (refresh-project name))
t)
-(defun refresh-project (project)
- (multiple-value-bind (success code out err) (git project "branch" "-r" "--format" "%(refname) %(objectname)" "--list" "origin/*")
- (declare (ignore code err))
- (when (not success) (error "Failed to get branches"))
- (let
- ((branches (find-branch-by-project project)))
+(defun refresh-project (name)
+ (let*
+ ((project (find name *all-project* :test #'string= :key #'project-name))
+ (branches (find-branch-by-project project)))
+ (git project "fetch" "origin" "--prune")
+ (multiple-value-bind (success code out err) (git project "branch" "-r" "--format" "%(refname) %(objectname)" "--list" "origin/*")
+ (declare (ignore code err))
+ (when (not success) (error "Failed to get branches"))
(mapcar (lambda (branch) (set-branch-in-git branch nil)) branches)
(mapcar
(lambda (line)
(list
(branch-name branch)
(job-status (branch-job branch))
- (job-create-date (branch-job branch))))
- (find-branch-by-project project))))
+ (job-create-date (branch-job branch))
+ (job-sha (branch-job branch))))
+ (remove-if-not #'branch-in-git (find-branch-by-project project)))))