1 files changed, 12 insertions, 0 deletions
diff --git a/gitto/config.scm b/gitto/config.scm
index dcaecf0..6726e66 100644
--- a/gitto/config.scm
+++ b/gitto/config.scm
@@ -21,12 +21,24 @@
   #:use-module (ice-9 format)
   #:use-module (ice-9 rdelim)
   #:export (global-config
+            hook-alist
 
+            install-hooks
             merge-config
             read-config
             write-config))
 
 (define global-config '())
+(define hook-alist '())
+
+(define (install-hooks repo-location)
+  (for-each
+   (lambda (hook)
+     (let ((new-name (string-append repo-location "/.git/hooks/"
+                                    (car hook))))
+       (unless (file-exists? new-name)
+         (symlink (cdr hook) new-name))))
+   hook-alist))
 
 (define (merge-config repo-name x y)
   (let ((lst (if x (list-copy x) '())))