aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/dataset-metadata-git.scm27
1 files changed, 12 insertions, 15 deletions
diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm
index 32b738b..c9ea59b 100755
--- a/examples/dataset-metadata-git.scm
+++ b/examples/dataset-metadata-git.scm
@@ -65,15 +65,6 @@
("contributors.rtf" . ,contributors)
("acknowledgment.rtf" . ,acknowledgment)))))
-(define* (commit-changes
- directory
- #:optional (commit-message "Update dataset RTF Files."))
- (chdir directory)
- (system "git reset --hard origin master")
- (system "git pull")
- (system "git add .")
- (system (format #f "git commit -m ~s" commit-message))
- (system "git push origin master"))
(let* ((option-spec
'((settings (single-char #\s) (value #t))))
@@ -89,9 +80,15 @@ FROM InfoFiles LEFT JOIN Datasets USING (DatasetId)")
(call-with-target-database
%connection-settings
(lambda (db)
- (sql-for-each infopages/sql->rtf
- db
- query)
- (commit-changes "/export/data/genenetwork/gn-docs/"))))
-
-
+ (let ((dir "/export/data/genenetwork/gn-docs/"))
+ (chdir dir)
+ (system "git reset --hard origin")
+ (system "git pull")
+ ;; Clear directory so that we can re-do the dump again from the db.
+ (system "rm -rf general/datasets/*/")
+ (sql-for-each infopages/sql->rtf
+ db
+ query)
+ (system "git add general/datasets")
+ (system (format #f "git commit -m ~s" "Update dataset RTF Files."))
+ (system "git push origin master")))))