diff --git a/hbs2-fixer/real-config-example b/hbs2-fixer/real-config-example new file mode 100644 index 00000000..8b7caf98 --- /dev/null +++ b/hbs2-fixer/real-config-example @@ -0,0 +1,199 @@ +; 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"))) + + ) +) + +