about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2025-09-19 16:31:49 +0300
committerMunyoki Kilyungi2025-09-19 16:31:49 +0300
commitccf6057329d6f5861f3110c59131d4f1e4ee1c9d (patch)
tree057f1d29aa6fa0e7029105bf99353be7186a58fd
parentd926469766678e1d00eeae7be15c63235d93d819 (diff)
downloadgn-machines-ccf6057329d6f5861f3110c59131d4f1e4ee1c9d.tar.gz
Set the default GIT_PAGER to `cat`.
-rw-r--r--genenetwork-development.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 7ca5d58..c02ae58 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -513,7 +513,7 @@ server described by CONFIG, a <genenetwork-configuration> object."
               (hline)
               (invoke "git" "log" "--max-count" "1")
               (hline))
-
+	    (setenv "GIT_PAGER" #$(file-append coreutils-minimal "/bin/cat"))
 	    (setenv "TERM" "xterm-256color")
             ;; Clone the latest genenetwork2
             ;; repositories.
@@ -604,6 +604,7 @@ server described by CONFIG, a <genenetwork-configuration> object."
                 (invoke "git" "log" "--max-count" "1")
                 (hline))
 
+	      (setenv "GIT_PAGER" #$(file-append coreutils-minimal "/bin/cat"))
 	      (setenv "GN3_PROFILE" #$(profile
                                        (content (package->development-manifest genenetwork3))
                                        (allow-collisions? #t)))
@@ -668,6 +669,9 @@ server described by CONFIG, a <genenetwork-configuration> object."
                 (hline)
                 (invoke "git" "log" "--max-count" "1")
                 (hline))
+
+	      (setenv "GIT_PAGER" #$(file-append coreutils-minimal "/bin/cat"))
+
 	      (with-directory-excursion
 	       #$repositories
 	       ;; Clone the latest gn-auth repository.
@@ -736,7 +740,7 @@ server described by CONFIG, a <genenetwork-configuration> object."
          (setenv "GIT_SSL_CAINFO" (getenv "SSL_CERT_FILE"))
          (setenv "CURL_CA_BUNDLE" (getenv "SSL_CERT_FILE"))
          (setenv "REQUESTS_CA_BUNDLE" (getenv "SSL_CERT_FILE"))
-
+	 (setenv "GIT_PAGER" #$(file-append coreutils-minimal "/bin/cat"))
          (let ((current-repo-path "/export/data/repositories/gn-docs"))
 	   (setenv "CURRENT_REPO_PATH" current-repo-path)
 	   (with-directory-excursion