hbs2/hbs2-fixer/real-config-example

; vim: set filetype=scheme :
;; hbs2-fixer config example


(local root "/var/www/git")

(local hbs2-ref (lwwref  "BTThPdHKF8XnEq4m6wzbKHKA6geLFK4ydYhBXAqBdHSP"))
(local hbs2-repo  "BTThPdHKF8XnEq4m6wzbKHKA6geLFK4ydYhBXAqBdHSP" )
(local hbs2-repo-path (string-append root "/" hbs2-repo))


(local suckless-ref (lwwref  "JAuk1UJzZfbDGKVazSQU5yYQ3NGfk4gVeZzBCduf5TgQ"))
(local suckless-repo  "JAuk1UJzZfbDGKVazSQU5yYQ3NGfk4gVeZzBCduf5TgQ" )
(local suckless-repo-path (string-append root "/" suckless-repo))

(local fixme-ref (lwwref  "Fujv1Uy4W5d9Z7REEArMxbXSJ8nLLn4dYuvaAs8b86hr"))
(local fixme-repo  "Fujv1Uy4W5d9Z7REEArMxbXSJ8nLLn4dYuvaAs8b86hr" )
(local fixme-repo-path (string-append root "/" fixme-repo))

(local dbpipe-ref (lwwref  "5xrwbTzzweS9yeJQnrrUY9gQJfhJf84pbyHhF2MMmSft"))
(local dbpipe-repo  "5xrwbTzzweS9yeJQnrrUY9gQJfhJf84pbyHhF2MMmSft" )
(local dbpipe-repo-path (string-append root "/" dbpipe-repo))

(watch-config 30)

(debug on)

(display (string-append "repo1" " " hbs2-repo-path))

(on-start
  (display (string-append "on-start" " " "mkdir" " " hbs2-repo-path))

  (mkdir hbs2-repo-path)

  (run (string-append "git init --bare " hbs2-repo-path))

  (run (list opts (cwd hbs2-repo-path))
       (string-append "git hbs2 import" " " hbs2-repo))

  (run (list opts (cwd hbs2-repo-path))
       (string-append "git gc" ) )


  (mkdir suckless-repo-path)

  (run (string-append "git init --bare " suckless-repo-path))

  (run (list opts (cwd suckless-repo-path))
       (string-append "git hbs2 import" " " suckless-repo))

  (run (list opts (cwd suckless-repo-path))
       (string-append "git gc" ) )

  (mkdir fixme-repo-path)

  (run (string-append "git init --bare " fixme-repo-path))

  (run (list opts (cwd fixme-repo-path))
       (string-append "git hbs2 import" " " fixme-repo))

  (run (list opts (cwd fixme-repo-path))
       (string-append "git gc" ) )


  (mkdir dbpipe-repo-path)

  (run (string-append "git init --bare " dbpipe-repo-path))

  (run (list opts (cwd dbpipe-repo-path))
       (string-append "git hbs2 import" " " dbpipe-repo))

  (run (list opts (cwd dbpipe-repo-path))
       (string-append "git gc" ) )

)

(watch 60 hbs2-ref
  (display (string-append "hbs2-repo" " " hbs2-ref))

  (display (string-append "hbs2-repo" " " hbs2-ref))
  (run-config

    (display (string-append "REF" (lwwref:get-hbs2-git-reflog)))

    (watch 300 (lwwref:get-hbs2-git-reflog)

       (run (list opts (cwd hbs2-repo-path))
            (string-append "git hbs2 import" " " hbs2-repo ))

       (display (string-append "Updated " hbs2-repo " OK"))

    )

    (listen (lwwref:get-hbs2-git-reflog)

       (display "subscribed hbs2")

       (run (list opts (cwd hbs2-repo-path))
            (string-append "git hbs2 import" " " hbs2-repo ))

       (display (string-append "Updated " hbs2-repo " OK")))

    )
)

;; fixme

(watch 60 fixme-ref
  (display (string-append "fixme-repo" " " fixme-ref))

  (display (string-append "fixme-repo" " " fixme-ref))
  (run-config

    (display (string-append "REF" (lwwref:get-hbs2-git-reflog)))

    (watch 300 (lwwref:get-hbs2-git-reflog)

       (run (list opts (cwd fixme-repo-path))
            (string-append "git hbs2 import" " " fixme-repo ))

       (display (string-append "Updated " fixme-repo " OK"))

    )

    (listen (lwwref:get-hbs2-git-reflog)

       (display "subscribed fixme")

       (run (list opts (cwd fixme-repo-path))
            (string-append "git hbs2 import" " " fixme-repo ))

       (display (string-append "Updated " fixme-repo " OK")))

    )
)

;; suckless

(watch 60 suckless-ref
  (display (string-append "suckless-repo" " " fixme-ref))

  (display (string-append "suckless-repo" " " fixme-ref))
  (run-config

    (display (string-append "REF" (lwwref:get-hbs2-git-reflog)))

    (watch 300 (lwwref:get-hbs2-git-reflog)

       (run (list opts (cwd suckless-repo-path))
            (string-append "git hbs2 import" " " suckless-repo ))

       (display (string-append "Updated " suckless-repo " OK"))

    )

    (listen (lwwref:get-hbs2-git-reflog)

       (display "subscribed suckless")

       (run (list opts (cwd suckless-repo-path))
            (string-append "git hbs2 import" " " suckless-repo ))

       (display (string-append "Updated " suckless-repo " OK")))

    )
)

;; dbpipe

(watch 60 dbpipe-ref
  (display (string-append "dbpipe-repo" " " fixme-ref))

  (display (string-append "dbpipe-repo" " " fixme-ref))
  (run-config

    (display (string-append "REF" (lwwref:get-hbs2-git-reflog)))

    (watch 300 (lwwref:get-hbs2-git-reflog)

       (run (list opts (cwd dbpipe-repo-path))
            (string-append "git hbs2 import" " " dbpipe-repo ))

       (display (string-append "Updated " dbpipe-repo " OK"))

    )

    (listen (lwwref:get-hbs2-git-reflog)

       (display "subscribed dbpipe")

       (run (list opts (cwd dbpipe-repo-path))
            (string-append "git hbs2 import" " " dbpipe-repo ))

       (display (string-append "Updated " dbpipe-repo " OK")))

    )
)