twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Add minimal error handling

Browse Source
This commit is contained in:
Scott Richmond 2022-05-26 18:39:37 -04:00
parent 7beca7e0f6
commit 8f1701dabb
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/ludus/loader.clj
View File

@ -1,12 +1,16 @@
(ns ludus.loader (ns ludus.loader
(:require [babashka.fs :as fs])) (:require [babashka.fs :as fs]))
(defn cwd [] (fs/cwd)) (defn cwd [] (fs/cwd))
(defn load-import (defn load-import
([file] (-> file (fs/canonicalize) (fs/file) (slurp))) ([file]
([file from] (let [path (-> file (fs/canonicalize) (fs/file))]
(load-import (try (slurp path)
(fs/path (catch java.io.FileNotFoundException _
(fs/parent (fs/canonicalize from)) (throw (ex-info (str "File " path " not found") {:path path ::error true}))))))
(fs/path file))))) ([file from]
(load-import
(fs/path
(fs/parent (fs/canonicalize from))
(fs/path file)))))