From dcd3d99f8be71994aca50468f3e6151e6a544a41 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Sun, 10 Jul 2016 02:46:50 +0000 Subject: add difme worker functions. * git-scm (build-stage-regex, work-difme): new functions. (difme): new function; incomplete. --- git-difme.scm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/git-difme.scm b/git-difme.scm index f2f098d..baa5bbd 100644 --- a/git-difme.scm +++ b/git-difme.scm @@ -117,6 +117,27 @@ the commit message will be in the following format: (with-directory-excursion repo (difme-exec cmd)))) +;;;; difme workers +(define (build-stage-regex rules) + "build stage regex based on RULES." + (let ((regex "^")) + (cond ((null? rules) (string-append regex ".")) + (else (string-append + regex "[" (string-concatenate rules) "]"))))) + +(define (difme repo) + "stage and commit relevant files in REPO. + +also does `git push` to the REPO' default upstream remote." + (let* ((path (car repo)) + (rules (cdr repo)) + (stage-regex (build-stage-regex rules))) + stage-regex)) + +(define (walk-difme repos) + "walk through each difme repo in REPOS and `difme` it." + (map difme repos)) + ;;;; main (define (main srcs) "zarking main." -- cgit v1.2.3