From 2a01b71a5beb4c07060e39ea7aeb04488efca09b Mon Sep 17 00:00:00 2001 From: eltrac Date: Tue, 17 Mar 2026 11:52:00 +0800 Subject: docs: add cost notice to load-data docstring --- src/weepinbell/storage.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/weepinbell/storage.clj b/src/weepinbell/storage.clj index 859eca7..f8630a4 100644 --- a/src/weepinbell/storage.clj +++ b/src/weepinbell/storage.clj @@ -7,7 +7,7 @@ (def data-file (get-config :data-path)) (defn load-data - "Read data file and return data as clojure data sturcture, a vector containing Webmention maps in this case." + "Read data file and return data as clojure data sturcture, a vector containing Webmention maps in this case. Note that is't extremely costly to load all data at once!" [] (with-open [r (io/reader data-file)] (let [string-vector (-> r line-seq vec)] @@ -45,6 +45,7 @@ (let [pred (get-predicate source target)] (with-webmentions #(first (filter pred %)))))) + (defn delete-wm ([id] (delete-wm id nil)) ([source target] -- cgit v1.2.3