diff options
Diffstat (limited to 'src/mf2clj')
| -rw-r--r-- | src/mf2clj/core.clj | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/src/mf2clj/core.clj b/src/mf2clj/core.clj index f049222..2d67e2f 100644 --- a/src/mf2clj/core.clj +++ b/src/mf2clj/core.clj @@ -5,23 +5,27 @@ (:import [org.extism.sdk.chicory Manifest ManifestWasm Plugin]
[java.nio.charset StandardCharsets]))
-(defn- manifest-from-wasm [wasm]
- (Manifest/ofWasms (into-array ManifestWasm [wasm])))
-
(def plugin
- (-> "mf2go.wasm" io/resource io/input-stream .readAllBytes
- ManifestWasm/fromBytes .build
- manifest-from-wasm .build
- Plugin/ofManifest .build))
+ (let [^ManifestWasm wasm-manifest
+ (-> "mf2go.wasm" io/resource io/input-stream .readAllBytes
+ ManifestWasm/fromBytes
+ .build)
+ ^Manifest manifest
+ (-> (into-array ManifestWasm [wasm-manifest])
+ Manifest/ofWasms
+ .build)]
+ (-> manifest
+ Plugin/ofManifest
+ .build)))
(def charset StandardCharsets/UTF_8)
(defn parse-bytes [html-bytes]
{:pre [(bytes? html-bytes)]}
- (-> (.call plugin "parse" html-bytes)
- (String. charset)
- json/parse-string
- keywordize-keys))
+ (let [^bytes result (.call ^Plugin plugin "parse" html-bytes)]
+ (-> (String. result charset)
+ json/parse-string
+ keywordize-keys)))
(defn parse [^String html-string]
{:pre [(string? html-string)]}
|