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