From 873b245100f3947f8fd96df5a723e9abf36624f6 Mon Sep 17 00:00:00 2001
From: Ciprian Dorin Craciun <ciprian@volution.ro>
Date: Fri, 11 May 2018 17:10:50 +0300
Subject: [PATCH] [transcript]  Implement initial support for script transcript
 activation level configuration  [#65]

---
 sources/transcript.rs | 26 +++++++++++++++++++++++---
 1 file changed, 23 insertions(+), 3 deletions(-)

diff --git a/sources/transcript.rs b/sources/transcript.rs
index e2763134..cd982a70 100644
--- a/sources/transcript.rs
+++ b/sources/transcript.rs
@@ -827,9 +827,29 @@ impl fmt::Debug for TranscriptForScript {
 
 
 #[ cfg_attr ( feature = "vonuvoli_inline", inline ) ]
-pub fn transcript_for_script () -> (StdRc<TranscriptForScript>) {
-	let transcript = TranscriptForScript::new ("<script>");
-	return StdRc::new (transcript);
+pub fn transcript_for_script () -> (Outcome<StdRc<TranscriptForScript>>) {
+	// FIXME:  Refactor out this activation level determination
+	let activation_level = if let Some (level) = env::var_os ("VONUVOLI_SCHEME_SCRIPT_TRANSCRIPT_LEVEL") {
+		let level = try_some! (level.to_str (), 0x4558b241);
+		match level {
+			"critical" => TranscriptLevel::Critical,
+			"error" => TranscriptLevel::Error,
+			"warning" => TranscriptLevel::Warning,
+			"notice" => TranscriptLevel::Notice,
+			"information" => TranscriptLevel::Information,
+			"internal" => TranscriptLevel::Internal,
+			"debugging" => TranscriptLevel::Debugging,
+			_ => fail! (0xbc95f5a7),
+		}
+	} else {
+		if cfg! (debug_assertions) {
+			TranscriptLevel::Debugging
+		} else {
+			TranscriptLevel::Notice
+		}
+	};
+	let transcript = TranscriptForScript::new_with_level ("<script>", activation_level);
+	succeed! (StdRc::new (transcript));
 }