sern/awesome-plugins
1
0
Fork 0
mirror of https://github.com/sern-handler/awesome-plugins synced 2026-06-06 01:16:51 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

not worht the effort

Browse Source
This commit is contained in:
jacob
2024-05-30 14:27:34 -05:00
parent c225c4d6de
commit 34896836db
1 changed files with 15 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
scripts/gen-list.clj
View File

@@ -16,7 +16,6 @@
(= \* fst) (if (= (first rest) \/) res (recur rest (not sol) res))
:else (let [line (>>line rest)] (recur (drop (count line) rest) true (conj res (str fst line)))))))))
(def jsdoc-regex
#"[ \t]*\/\*\*\s*\n([^*]*(\*[^/])?)*\*\/")
@@ -29,16 +28,19 @@
(io/copy digest-stream output-stream))
(format "%032x" (BigInteger. 1 (.digest digest)))))
(def base "https://raw.githubusercontent.com/sern-handler/awesome-plugins/main/plugins/")
(println (->> (file-seq (io/file "./plugins"))
(filter #(.isFile %))
(map (fn [file]
(let [fname (fs/file-name file)
jsdocs (first (keep str->jsdoc (re-find jsdoc-regex (slurp (str "./plugins/" fname)))))]
jsdocs
#_{ :name (first (str/split (fs/file-name file) #"\."))
:link (str base (fs/file-name file))
:hash (copy+md5 file (java.io.OutputStream/nullOutputStream))
})))))
(defn plugin-jsdocs [pth]
(let [ [_ & rst] (->> (re-seq jsdoc-regex (slurp pth))
(map (comp str->jsdoc str/trim first))
(filter (comp (partial = "plugin") :tag first))
first)]
(let [desc (take-while string? rst)
more-tags (take-while :tag (drop (inc (count desc)) rst))]
{
:desc desc
:tags more-tags
}
)))
(def base "https://raw.githubusercontent.com/sern-handler/awesome-plugins/main/plugins/")