From 97369859dd655a1ea41d8e99d8ea9b0d16227fee Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Wed, 26 May 2021 14:03:53 +0200 Subject: [PATCH] minor --- src/scittle/core.cljs | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/src/scittle/core.cljs b/src/scittle/core.cljs index 36e99a1..605b480 100644 --- a/src/scittle/core.cljs +++ b/src/scittle/core.cljs @@ -1,11 +1,10 @@ (ns scittle.core - (:refer-clojure :exclude [defn time]) - (:require [clojure.core :as c] - [goog.object :as gobject] + (:refer-clojure :exclude [time]) + (:require [goog.object :as gobject] [goog.string] [sci.core :as sci])) -(c/defmacro time +(defmacro time "Evaluates expr and prints the time it took. Returns the value of expr." [expr] `(let [start# (cljs.core/system-time) @@ -29,14 +28,14 @@ :classes {'js js/window :allow :all}}))) -(c/defn ^:export eval-string [s] +(defn ^:export eval-string [s] (sci/eval-string* @ctx s)) -(c/defn register-plugin! [plug-in-name sci-opts] +(defn register-plugin! [plug-in-name sci-opts] plug-in-name ;; unused for now (swap! ctx sci/merge-opts sci-opts)) -(c/defn- load-contents [script-tags] +(defn load-contents [script-tags] (when-let [tag (first script-tags)] (if-let [text (not-empty (gobject/get tag "textContent"))] (do (eval-string text)