mirror of
https://github.com/sern-handler/awesome-plugins
synced 2026-06-23 16:22:21 +00:00
6890186619
* Update gen-list.yml * feat: refactor plugin-lock (#76) * feat: add gen-lock * feat: update plugin-listing generator * fix: link * fix: link * chore: action * feat: plugin lock updates(#77) * feat: add gen-lock * feat: update plugin-listing generator * fix: link * fix: link * chore: action * refactor: script * Delete pluginlist.json * Update gen-list.clj
36 lines
911 B
Clojure
36 lines
911 B
Clojure
(require '[cheshire.core :as json])
|
|
|
|
(defn directory [name]
|
|
(io/file (str "./" name)))
|
|
|
|
(defn make-link [lang]
|
|
(fn [name] (str "https://raw.githubusercontent.com/sern-handler/awesome-plugins/main/" lang "/" name)))
|
|
|
|
(defn name-without-extension [name]
|
|
(if-let [last-dot-index (str/last-index-of name ".")]
|
|
(subs name 0 last-dot-index)
|
|
name))
|
|
|
|
(defn file-names [dir-name]
|
|
(->>
|
|
(directory dir-name)
|
|
file-seq
|
|
(filter #(.isFile %))
|
|
(map #(.getName %))))
|
|
|
|
|
|
(defn file-links-and-basenames [dir]
|
|
(let [base-link (make-link dir)]
|
|
(mapv #(zipmap [:link :name] ((juxt base-link name-without-extension) %))
|
|
(file-names dir))))
|
|
|
|
(def file-info-map (juxt keyword file-links-and-basenames))
|
|
|
|
(def json
|
|
(into {} (map file-info-map ["JavaScript" "TypeScript"])))
|
|
|
|
|
|
(json/generate-stream json (io/writer "pluginlist.json") { :pretty true })
|
|
|
|
(println "\nGenerated Plugins!")
|