From 3c9b8911b5952afe6ad69d04fbcbb7169bb0db3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 22 Feb 2022 18:02:12 +0100
Subject: Fix modularization of recurrence display.

---
 module/hnh/util/language.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 module/hnh/util/language.scm

(limited to 'module/hnh')

diff --git a/module/hnh/util/language.scm b/module/hnh/util/language.scm
new file mode 100644
index 00000000..9b61483c
--- /dev/null
+++ b/module/hnh/util/language.scm
@@ -0,0 +1,14 @@
+(define-module (hnh util language)
+  :export (resolve-language))
+
+
+;; Locale objects, such as %global-locale, doesn't provide a way to access the language name,
+;; This is for procedures which want to handle their translations manually.
+(define (resolve-language)
+  "Returns a two character symbol representing the \"current\" language. e.g. en"
+  (string->symbol
+   (string-take
+    (or (getenv "LC_MESSAGES")
+        (getenv "LC_ALL")
+        "en")
+    2)))
-- 
cgit v1.2.3