Description:
Cleanup.
Commit status:
[Not Reviewed]
References:
Diff options:
Comments:
0 Commit comments
0 Inline Comments
Unresolved TODOs:
There are no unresolved TODOs
Author
-
| @@ -7,6 +7,7 | |||
|
|
7 | 7 | .git/** |
|
|
8 | 8 | node_modules/* |
|
|
9 | 9 | project-checkup-0.* |
|
|
10 | bin/* | |
|
|
10 | 11 | |
|
|
11 | 12 | syntax: regexp |
|
|
12 | 13 | ^.nrepl-port |
| @@ -1,4 +1,4 | |||
|
|
1 |
(defproject project-checkup "0.1. |
|
|
|
1 | (defproject project-checkup "0.1.2-SNAPSHOT" | |
|
|
2 | 2 | :description "FIXME: write description" |
|
|
3 | 3 | :url "http://example.com/FIXME" |
|
|
4 | 4 | :license {:name "Eclipse Public License" |
| @@ -6,9 +6,7 | |||
|
|
6 | 6 | :dependencies [[org.clojure/clojure "1.8.0"] |
|
|
7 | 7 | [org.clojure/clojurescript "1.9.521"] |
|
|
8 | 8 | ; [andare "0.9.0"] |
|
|
9 | [org.clojure/core.async "0.4.474"] | |
|
|
10 | ||
|
|
11 | ] | |
|
|
9 | [org.clojure/core.async "0.4.474"]] | |
|
|
12 | 10 | |
|
|
13 | 11 | :plugins [[lein-cljsbuild "1.1.5"]] |
|
|
14 | 12 | |
| @@ -9,19 +9,15 | |||
|
|
9 | 9 | (defn gather-project-info |
|
|
10 | 10 | "Creates a dictionary of project information" |
|
|
11 | 11 | [] |
|
|
12 |
(let [all-files |
|
|
|
12 | (let [all-files (map str (file-seq (clojure.java.io/file "."))) | |
|
|
13 | 13 | ; files (string/split (:out (shell/sh "hg" "st" "-m" "-a" "-r" "-d" "-c" "-n" )) #"\n") |
|
|
14 | files (map #(clojure.string/replace % #"./(.*)" "$1") all-files ) | |
|
|
15 | ||
|
|
16 | ] | |
|
|
14 | files (map #(clojure.string/replace % #"./(.*)" "$1") all-files ) ] | |
|
|
17 | 15 | {:files files |
|
|
18 | 16 | :extensions (frequencies (map get-extension files )) |
|
|
19 | :path (:out (shell/sh "pwd")) | |
|
|
20 | :untracked-files (string/split (:out (shell/sh "hg" "st" "-u" "-n")) #"\n") | |
|
|
17 | :path (System/getProperty "user.dir") | |
|
|
18 | :untracked-files (string/split (:out (shell/sh "chg" "st" "-u" "-n")) #"\n") | |
|
|
21 | 19 | :readme (if-let [filename (some #{"README.md" "README.txt" "README.mkd"} files)] (slurp filename) "") |
|
|
22 | }) | |
|
|
23 | ||
|
|
24 | ) | |
|
|
20 | }) ) | |
|
|
25 | 21 | |
|
|
26 | 22 | (defn color [color string] |
|
|
27 | 23 | (let [color-sequence (case color |
| @@ -109,14 +105,9 | |||
|
|
109 | 105 | "Run checks." |
|
|
110 | 106 | [& args] |
|
|
111 | 107 | (try |
|
|
112 | ||
|
|
113 | 108 | (doseq [check checks] |
|
|
114 | 109 | (println (:output (perform-check check (gather-project-info) )))) |
|
|
115 | ||
|
|
116 | 110 | (catch Exception ex |
|
|
117 | 111 | (.printStackTrace ex) |
|
|
118 | 112 | (str "caught exception: " (.getMessage ex))) |
|
|
119 | (finally (shutdown-agents) ) | |
|
|
120 | ) | |
|
|
121 | ||
|
|
122 | ) | |
|
|
113 | (finally (shutdown-agents) )) ) | |
You need to be logged in to leave comments.
Login now