viewer add button for prod pipeline status to power user

SciCrunch · Dec 13, 2023 · 1724109 · 1724109
1 parent e209aa0
commit 1724109
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/sparcur_internal/sparcur/viewer.rkt b/sparcur_internal/sparcur/viewer.rkt
@@ -1981,6 +1981,18 @@ switch to that"
                                         [callback cb-open-dataset-remote]
                                         [parent panel-power-user]))
 
+(define button-open-dataset-pipeline-status
+  (new (tooltip-mixin button%)
+       [label "PPS"]
+       [tooltip "Production Pipeline Status"]
+       [tooltip-delay 100]
+       [callback
+        (λ (o e)
+          (xopen-path
+           (string-append "https://cassava.ucsd.edu/sparc/pipelines/status/" (id-uuid (current-dataset)))))]
+       [parent panel-power-user]
+       ))
+
 (define button-open-export-json (new (tooltip-mixin button%)
                                      [label "JSON"]
                                      [tooltip "Shortcut C-j"]