aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/dataset-metadata-git.scm21
1 files changed, 16 insertions, 5 deletions
diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm
index 3be4cdb..371d844 100755
--- a/examples/dataset-metadata-git.scm
+++ b/examples/dataset-metadata-git.scm
@@ -6,8 +6,7 @@
(srfi srfi-26)
((ice-9 regex) #:select (regexp-substitute/global))
((transform strings) #:select (string-blank?))
- ((transform sql) #:select (call-with-target-database sql-for-each))
- ((transform triples) #:select (string->identifier)))
+ ((transform sql) #:select (call-with-target-database sql-for-each)))
(define (save-file file result)
(when result
@@ -57,6 +56,16 @@
("experiment-design.rtf" . ,experiment-design)
("acknowledgment.rtf" . ,acknowledgment)))))
+(define* (commit-changes
+ directory
+ #:optional (commit-message "Update dataset RTF Files."))
+ (chdir directory)
+ (system "git reset --hard origin")
+ (system "git pull")
+ (system "git add .")
+ (system (format #f "git commit -m ~s" commit-message))
+ (system "sudo git push /home/git/public/gn-docs"))
+
(let* ((option-spec
'((settings (single-char #\s) (value #t))))
(options (getopt-long (command-line) option-spec))
@@ -64,14 +73,16 @@
(query "SELECT InfoPageName, Datasets.Summary, Datasets.AboutTissue, InfoFiles.Specifics,
Datasets.AboutCases, Datasets.AboutPlatform, Datasets.AboutDataProcessing,
Datasets.Notes, Datasets.ExperimentDesign, Datasets.Acknowledgment
-FROM InfoFiles LEFT JOIN Datasets USING (DatasetId) LIMIT 2")
+FROM InfoFiles LEFT JOIN Datasets USING (DatasetId)")
(%connection-settings
(call-with-input-file settings
read)))
- ;; TODO
(call-with-target-database
%connection-settings
(lambda (db)
(sql-for-each infopages/sql->rtf
db
- query))))
+ query)
+ (commit-changes "/export/data/genenetwork/gn-docs/datasets/"))))
+
+