mirror of https://github.com/voidlizard/hbs2
73 lines
1.7 KiB
Scheme
73 lines
1.7 KiB
Scheme
;; hbs2-fixer config example
|
|
|
|
(local home (getenv "HOME"))
|
|
|
|
(local root (string-append home "/.local/share/hbs2-git-repos/0.24.1"))
|
|
|
|
(local hbs2-repo "BTThPdHKF8XnEq4m6wzbKHKA6geLFK4ydYhBXAqBdHSP" )
|
|
(local hbs2-repo-path (string-append root "/" hbs2-repo))
|
|
|
|
(watch-config 30)
|
|
|
|
(debug off)
|
|
|
|
(display (string-append "repo1" " " hbs2-repo-path))
|
|
|
|
(eval (list (display "OKAY11 FROM EVAL")))
|
|
|
|
(on-start
|
|
(display (string-append "on-start" " " "mkdir" " " hbs2-repo-path))
|
|
|
|
(mkdir hbs2-repo-path)
|
|
|
|
(run (string-append "git init --bare " hbs2-repo-path))
|
|
(display update-hbs2-repo)
|
|
|
|
(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" ) )
|
|
)
|
|
|
|
(watch 60 (lwwref "BTThPdHKF8XnEq4m6wzbKHKA6geLFK4ydYhBXAqBdHSP")
|
|
(run-config
|
|
(watch 300 (lwwref:get-hbs2-git-reflog)
|
|
(display "GIT REFLOG CHANGED BY WATCH")
|
|
|
|
(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 "GIT REFLOG CHANGED BY LISTENER")
|
|
|
|
(run (list opts (cwd hbs2-repo-path))
|
|
(string-append "git hbs2 import" " " hbs2-repo ))
|
|
|
|
(display (string-append "Updated " hbs2-repo " OK"))
|
|
)
|
|
|
|
)
|
|
(display (string-append "Updated " hbs2-repo))
|
|
)
|
|
|
|
; (watch 30 (lwwref "Byc3XUeSbJBXVFueumkNkVJMPHbGoUdxYEJBgzJPf8io")
|
|
; (run "./on-my-ref4.sh")
|
|
; )
|
|
|
|
; (watch 30 (lwwref "DTmSb3Au7apDTMctQn6yqs9GJ8mFW7YQXzgVqZpmkTtf")
|
|
; (run "./on-my-ref4.sh")
|
|
; )
|
|
|
|
; (watch 30 (reflog "BKtvRLispCM9UuQqHaNxu4SEUzpQNQ3PeRNknecKGPZ6")
|
|
; (run "./on-my-ref4.sh")
|
|
; )
|
|
|
|
; (display "JOPAKITA 111")
|
|
|