refactor: config crate

crates/config/config.rs

@@ -0,0 +1,137 @@
+#![feature(if_let_guard)]
+
+use ::{
+    std::{
+        sync::{Arc, RwLock},
+        collections::BTreeMap,
+        path::PathBuf
+    },
+    tengri::{
+        Usually,
+        input::{EventMap, Binding},
+        tui::TuiEvent,
+        dsl::{Dsl, DslWord, DslExpr}
+    },
+    xdg::BaseDirectories,
+};
+
+/// Configuration
+#[derive(Default, Debug)]
+pub struct Config {
+    pub dirs:  BaseDirectories,
+    pub modes: Arc<RwLock<BTreeMap<Arc<str>, Arc<Mode<Arc<str>>>>>>,
+    pub views: Arc<RwLock<BTreeMap<Arc<str>, Arc<str>>>>,
+    pub binds: Arc<RwLock<BTreeMap<Arc<str>, EventMap<TuiEvent, Arc<str>>>>>,
+}
+
+#[derive(Default, Debug)]
+pub struct Mode<D: Dsl + Ord> {
+    pub path:  PathBuf,
+    pub name:  Vec<D>,
+    pub info:  Vec<D>,
+    pub view:  Vec<D>,
+    pub keys:  Vec<D>,
+    pub modes: BTreeMap<D, Mode<D>>,
+}
+
+impl Config {
+    const CONFIG: &'static str = "tek.edn";
+    const DEFAULTS: &'static str = include_str!("../../tek.edn");
+    pub fn init () -> Usually<Self> {
+        let mut cfgs: Self = Default::default();
+        cfgs.dirs = BaseDirectories::with_profile("tek", "v0");
+        cfgs.init_file(Self::CONFIG, Self::DEFAULTS, |cfgs, dsl|cfgs.load(dsl))?;
+        Ok(cfgs)
+    }
+    pub fn init_file (
+        &mut self, path: &str, defaults: &str, mut each: impl FnMut(&mut Self, &str)->Usually<()>
+    ) -> Usually<()> {
+        if self.dirs.find_config_file(path).is_none() {
+            println!("Creating {path:?}");
+            std::fs::write(self.dirs.place_config_file(path)?, defaults);
+        }
+        Ok(if let Some(path) = self.dirs.find_config_file(path) {
+            println!("Loading {path:?}");
+            let src = std::fs::read_to_string(&path)?;
+            src.as_str().each(move|item|each(self, item))?;
+        } else {
+            return Err(format!("{path}: not found").into())
+        })
+    }
+    pub fn load (&mut self, dsl: impl Dsl) -> Usually<()> {
+        dsl.each(|item|if let Some(expr) = item.expr()? {
+            let head = expr.head()?;
+            let tail = expr.tail()?;
+            let name = tail.head()?;
+            let body = tail.tail()?;
+            println!("{} {} {}", head.unwrap_or_default(), name.unwrap_or_default(), body.unwrap_or_default());
+            match head {
+                Some("view") if let Some(name) = name => self.load_view(name.into(), body),
+                Some("keys") if let Some(name) = name => self.load_bind(name.into(), body),
+                Some("mode") if let Some(name) = name => self.load_mode(name.into(), body),
+                _ => return Err(format!("Config::load: expected view/keys/mode, got: {item:?}").into())
+            }
+        } else {
+            return Err(format!("Config::load: expected expr, got: {item:?}").into())
+        })
+    }
+    pub fn load_view (&mut self, id: Arc<str>, dsl: impl Dsl) -> Usually<()> {
+        self.views.write().unwrap().insert(id, dsl.src()?.unwrap_or_default().into());
+        Ok(())
+    }
+    pub fn load_bind (&mut self, id: Arc<str>, dsl: impl Dsl) -> Usually<()> {
+        let mut map = EventMap::new();
+        dsl.each(|item|if item.expr().head() == Ok(Some("see")) {
+            // TODO
+            Ok(())
+        } else if let Ok(Some(word)) = item.expr().head().word() {
+            if let Some(key) = TuiEvent::from_dsl(item.expr()?.head()?)? {
+                map.add(key, Binding {
+                    commands:    [item.expr()?.tail()?.unwrap_or_default().into()].into(),
+                    condition:   None,
+                    description: None,
+                    source:      None
+                });
+                Ok(())
+            } else if Some(":char") == item.expr()?.head()? {
+                // TODO
+                return Ok(())
+            } else {
+                return Err(format!("Config::load_bind: invalid key: {:?}", item.expr()?.head()?).into())
+            }
+        } else {
+            return Err(format!("Config::load_bind: unexpected: {item:?}").into())
+        })?;
+        self.binds.write().unwrap().insert(id, map);
+        Ok(())
+    }
+    pub fn load_mode (&mut self, id: Arc<str>, dsl: impl Dsl) -> Usually<()> {
+        let mut mode = Mode::default();
+        dsl.each(|item|Self::load_mode_one(&mut mode, item))?;
+        self.modes.write().unwrap().insert(id.into(), Arc::new(mode));
+        Ok(())
+    }
+    pub fn load_mode_one (mode: &mut Mode<Arc<str>>, item: impl Dsl) -> Usually<()> {
+        Ok(if let Ok(Some(key)) = item.expr().head() {
+            match key {
+                "name" => mode.name.push(item.expr()?.tail()?.map(|x|x.trim()).unwrap_or("").into()),
+                "info" => mode.info.push(item.expr()?.tail()?.map(|x|x.trim()).unwrap_or("").into()),
+                "keys" => {
+                    item.expr()?.tail()?.each(|item|{mode.keys.push(item.trim().into()); Ok(())})?;
+                },
+                "mode" => if let Some(id) = item.expr()?.tail()?.head()? {
+                    let mut submode = Mode::default();
+                    Self::load_mode_one(&mut submode, item.expr()?.tail()?.tail()?)?;
+                    mode.modes.insert(id.into(), submode);
+                } else {
+                    return Err(format!("load_mode_one: incomplete: {item:?}").into());
+                },
+                _ => mode.view.push(item.expr()?.unwrap().into()),
+            }
+        } else if let Ok(Some(word)) = item.word() {
+            mode.view.push(word.into());
+        } else {
+            return Err(format!("load_mode_one: unexpected: {item:?}").into());
+        })
+    }
+}