Description:
Initial working version.
Commit status:
[Not Reviewed]
References:
Diff options:
Comments:
0 Commit comments
0 Inline Comments
Unresolved TODOs:
There are no unresolved TODOs
Author
-
| @@ -0,0 +1,15 | |||||
|
|
|
1 | syntax: glob | ||
|
|
|
2 | pom.xml | ||
|
|
|
3 | pom.xml.asc | ||
|
|
|
4 | *.jar | ||
|
|
|
5 | *.class | ||
|
|
|
6 | .gitignore | ||
|
|
|
7 | .git/** | ||
|
|
|
8 | node_modules/* | ||
|
|
|
9 | |||
|
|
|
10 | syntax: regexp | ||
|
|
|
11 | ^.nrepl-port | ||
|
|
|
12 | ^.lein-.* | ||
|
|
|
13 | ^target/ | ||
|
|
|
14 | ^classes/ | ||
|
|
|
15 | ^checkouts/ | ||
| @@ -0,0 +1,38 | |||||
|
|
|
1 | (defproject project-checkup "0.1.0-SNAPSHOT" | ||
|
|
|
2 | :description "FIXME: write description" | ||
|
|
|
3 | :url "http://example.com/FIXME" | ||
|
|
|
4 | :license {:name "Eclipse Public License" | ||
|
|
|
5 | :url "http://www.eclipse.org/legal/epl-v10.html"} | ||
|
|
|
6 | :dependencies [[org.clojure/clojure "1.8.0"] | ||
|
|
|
7 | [org.clojure/clojurescript "1.9.521"] | ||
|
|
|
8 | ; [andare "0.9.0"] | ||
|
|
|
9 | [org.clojure/core.async "0.4.474"] | ||
|
|
|
10 | |||
|
|
|
11 | ] | ||
|
|
|
12 | |||
|
|
|
13 | :plugins [[lein-cljsbuild "1.1.5"]] | ||
|
|
|
14 | |||
|
|
|
15 | :cljsbuild {:builds [{:id "development" | ||
|
|
|
16 | :source-paths ["src"] | ||
|
|
|
17 | :compiler {:main project-checkup.core | ||
|
|
|
18 | :output-to "package/index.js" | ||
|
|
|
19 | :target :nodejs | ||
|
|
|
20 | :output-dir "target/development" | ||
|
|
|
21 | :install-deps true | ||
|
|
|
22 | :optimizations :none | ||
|
|
|
23 | :pretty-print true | ||
|
|
|
24 | :parallel-build true}} | ||
|
|
|
25 | {:id "optimized" | ||
|
|
|
26 | :source-paths ["src"] | ||
|
|
|
27 | :compiler {:main project-checkup.core | ||
|
|
|
28 | :output-to "package/index.js" | ||
|
|
|
29 | :target :nodejs | ||
|
|
|
30 | :output-dir "target/optimized" | ||
|
|
|
31 | ;; :externs ["externs.js"] | ||
|
|
|
32 | :install-deps true | ||
|
|
|
33 | :optimizations :advanced | ||
|
|
|
34 | :pretty-print true | ||
|
|
|
35 | :parallel-build true}}]} | ||
|
|
|
36 | :main ^:skip-aot project-checkup.core | ||
|
|
|
37 | :target-path "target/%s" | ||
|
|
|
38 | :profiles {:uberjar {:aot :all}}) | ||
| @@ -0,0 +1,90 | |||||
|
|
|
1 | #!/usr/bin/env lumo | ||
|
|
|
2 | (ns project-checkup.core | ||
|
|
|
3 | (:gen-class) | ||
|
|
|
4 | (:require [clojure.java.shell :as shell] | ||
|
|
|
5 | [clojure.string :as string])) | ||
|
|
|
6 | |||
|
|
|
7 | (defn get-extension [path] (re-find #"\.[a-zA-Z]+" path)) | ||
|
|
|
8 | |||
|
|
|
9 | (defn gather-project-info | ||
|
|
|
10 | "Creates a dictionary of project information" | ||
|
|
|
11 | [] | ||
|
|
|
12 | (let [files (set (map str (file-seq (clojure.java.io/file "."))))] | ||
|
|
|
13 | {:files files | ||
|
|
|
14 | :extensions (frequencies (map get-extension files )) | ||
|
|
|
15 | :path (:out (shell/sh "pwd")) | ||
|
|
|
16 | :untracked-files (string/split (:out (shell/sh "hg" "st" "-u" "-n")) #"\n") })) | ||
|
|
|
17 | |||
|
|
|
18 | (defn color [color string] | ||
|
|
|
19 | (let [color-sequence (case color | ||
|
|
|
20 | :green "\u001B[32m" | ||
|
|
|
21 | :yellow "\u001B[33m" | ||
|
|
|
22 | :blue "\u001B[34m" | ||
|
|
|
23 | ) | ||
|
|
|
24 | reset "\u001B[m" ] | ||
|
|
|
25 | (str color-sequence string reset)) ) | ||
|
|
|
26 | |||
|
|
|
27 | |||
|
|
|
28 | (defn check-vcs [project] | ||
|
|
|
29 | (let [{files :files } project] | ||
|
|
|
30 | (boolean (some #{"./.git" "./.hg"} files)) )) | ||
|
|
|
31 | |||
|
|
|
32 | (defn check-readme [project] | ||
|
|
|
33 | (let [{files :files } project] | ||
|
|
|
34 | (boolean (some #{"./README.md" "./README.txt" "./README.mkd"} files)) )) | ||
|
|
|
35 | |||
|
|
|
36 | (defn check-untracked [project] | ||
|
|
|
37 | (let [{untracked :untracked-files } project] | ||
|
|
|
38 | (= (count untracked) 0)) ) | ||
|
|
|
39 | |||
|
|
|
40 | (defn check-taskpaper [project] | ||
|
|
|
41 | (let [{extensions :extensions } project] | ||
|
|
|
42 | (>= (get ".taskpaper" extensions 0) 1) )) | ||
|
|
|
43 | |||
|
|
|
44 | (def checks [{:name "Has VCS" | ||
|
|
|
45 | :description "" | ||
|
|
|
46 | :function check-vcs | ||
|
|
|
47 | :level :error | ||
|
|
|
48 | :follow-up "Initialize a repository." } | ||
|
|
|
49 | {:name "Always True" | ||
|
|
|
50 | :function #(or true %) | ||
|
|
|
51 | :level :error | ||
|
|
|
52 | :follow-up "This is a bug." } | ||
|
|
|
53 | {:name "Has Untracked" | ||
|
|
|
54 | :description "" | ||
|
|
|
55 | :function check-untracked | ||
|
|
|
56 | :level :warning | ||
|
|
|
57 | :follow-up "Commit or ignore files from 'hg st -u'." } | ||
|
|
|
58 | {:name "No Todo" | ||
|
|
|
59 | :function check-taskpaper | ||
|
|
|
60 | :description "" | ||
|
|
|
61 | :level :suggestion | ||
|
|
|
62 | :follow-up "Add a todo file using Taskpaper." } | ||
|
|
|
63 | {:name "Has Readme" | ||
|
|
|
64 | :function check-readme | ||
|
|
|
65 | :description "Readme exists" | ||
|
|
|
66 | :level :suggestion | ||
|
|
|
67 | :follow-up "Add a README." } ]) | ||
|
|
|
68 | |||
|
|
|
69 | (defn perform-check [check project] | ||
|
|
|
70 | (let [{check-name :name function :function follow-up :follow-up | ||
|
|
|
71 | level :level } check | ||
|
|
|
72 | result (function project) | ||
|
|
|
73 | false-color (case level | ||
|
|
|
74 | :suggestion :blue | ||
|
|
|
75 | :warning :yellow | ||
|
|
|
76 | :error :red | ||
|
|
|
77 | :red) ] | ||
|
|
|
78 | {:name check-name | ||
|
|
|
79 | :result result | ||
|
|
|
80 | :output (if result | ||
|
|
|
81 | (color :green (str "✓" check-name " passed!")) | ||
|
|
|
82 | (str check-name (color false-color " failed! ") "\n\tFollow up: " follow-up))})) | ||
|
|
|
83 | |||
|
|
|
84 | |||
|
|
|
85 | (defn -main | ||
|
|
|
86 | "I don't do a whole lot ... yet." | ||
|
|
|
87 | [& args] | ||
|
|
|
88 | (doseq [check checks] | ||
|
|
|
89 | (println (:output (perform-check check (gather-project-info) )))) | ||
|
|
|
90 | (shutdown-agents) ) | ||
You need to be logged in to leave comments.
Login now