alysbrooks-public » project-checkup

Location: alysbrooks-public/project-checkup/src/project_checkup/core.clj - annotation

Show More
Commit Description:
Update project to handle dependencies better and bump version to 0.1.6.
Commit Description:
Update project to handle dependencies better and bump version to 0.1.6.
References:
r36:27c426836a37 tip default
File last commit:
r32:30b92d1615f7 default
Show/Diff file:
Action:
src/project_checkup/core.clj
157 lines | 5.9 KiB | text/x-clojure | ClojureLexer
History | Source | Raw | Download
alys
Initial working version.
 r0 #!/usr/bin/env lumo
(ns project-checkup.core
(:gen-class)
(:require [clojure.java.shell :as shell]
alys
Small tweaks to tests.
 r30 [clojure.set :as set]
alys
Small style fixes.
 r14 [clojure.string :as string]))
alys
Initial working version.
 r0
alys
Small style fixes.
 r14 (defn get-extension [path]
alys
Add property-based testing (and fix a bug).
 r8 "Extracts the extension of a path.
alys
Expand the changelog check and do a little refactoring.
 r32 Returns the extension with the period, e.g., '.txt' because that's the
format people are used to seeing extensions in."
alys
Add property-based testing (and fix a bug).
 r8 (re-find #"\.[a-zA-Z0-9]+$" path))
alys
Initial working version.
 r0
alys
Small style fixes.
 r14 (defn gather-untracked
alys
Add git support.
 r10 [vcs-systems]
"Gather untracked files in Git or Mercurial."
alys
Expand the changelog check and do a little refactoring.
 r32 (filter (comp not empty?) (reduce into [
alys
Add git support.
 r10 (if (contains? vcs-systems ".hg")
(string/split (:out (shell/sh "chg" "st" "-u" "-n")) #"\n"))
(if (contains? vcs-systems ".git")
alys
Small style fixes.
 r14 (string/split (:out (shell/sh "git" "ls-files" "--others"
alys
Expand the changelog check and do a little refactoring.
 r32 "--exclude-standard")) #"\n"))])))
alys
Initial working version.
 r0 (defn gather-project-info
alys
Add git support.
 r10 "Creates a dictionary of project information."
alys
Initial working version.
 r0 []
alys
Small style fixes.
 r14 (let [all-files (map str (file-seq (clojure.java.io/file ".")))
alys
Add git support.
 r10 files (map #(clojure.string/replace % #"./(.*)" "$1") all-files )
alys
Small tweaks to tests.
 r30 vcs-systems (set/intersection #{".git" ".hg"} (set files))]
alys
Small style fixes.
 r14 {:files files
alys
Initial working version.
 r0 :extensions (frequencies (map get-extension files ))
alys
Cleanup.
 r6 :path (System/getProperty "user.dir")
alys
Small style fixes.
 r14 :untracked-files (gather-untracked vcs-systems)
alys
Refactor and cleanup.
 r29 :readme (if-let [filename (some #{"README.md" "README.txt" "README.mkd"} files)] (slurp filename) "") }) )
alys
Initial working version.
 r0
alys
Expand the changelog check and do a little refactoring.
 r32
(def doc-extensions ["" ".txt" ".mkd" ".md" ".rst"])
(defn create-valid-names [exts names]
"Creates valid file names based on a sequence of exts and names."
(set (for [ext exts name names]
(str name ext))))
alys
Initial working version.
 r0 (defn color [color string]
(let [color-sequence (case color
:green "\u001B[32m"
:yellow "\u001B[33m"
:blue "\u001B[34m"
alys
Various improvements and refactorings.
 r4 :red "\u001B[31m"
:cyan "\u001B[36m"
alys
Refactor and cleanup.
 r29 :magenta "\u001B[35m")
reset "\u001B[m"]
(str color-sequence string reset)))
alys
Initial working version.
 r0
(defn check-vcs [project]
(let [{files :files } project]
alys
Refactor and cleanup.
 r29 (boolean (some #{".git" ".hg"} files))))
alys
Initial working version.
 r0
(defn check-readme [project]
(let [{files :files } project]
alys
Refactor and cleanup.
 r29 (boolean (some #{"README.md" "README.txt" "README.mkd" "README"} files))))
alys
Initial working version.
 r0
alys
Add CHANGELOG check and ensure .taskpaper files are actually counted.
 r27 (defn check-changelog [project]
alys
Expand the changelog check and do a little refactoring.
 r32 (let [{files :files } project
changelog-names #{"CHANGELOG" "HISTORY" "NEWS" "RELEASES"}]
(boolean (some (create-valid-names doc-extensions changelog-names) files))))
alys
Add CHANGELOG check and ensure .taskpaper files are actually counted.
 r27
alys
Initial working version.
 r0 (defn check-untracked [project]
(let [{untracked :untracked-files } project]
alys
Refactor and cleanup.
 r29 (= (count untracked) 0)))
alys
Initial working version.
 r0
(defn check-taskpaper [project]
alys
Various improvements and refactorings.
 r4 (let [{extensions :extensions files :files } project]
alys
Add CHANGELOG check and ensure .taskpaper files are actually counted.
 r27 (or (>= (get extensions ".taskpaper" 0) 1)
alys
Small style fixes.
 r14 (some #{"TODO" "TODO.txt" } files))))
alys
Various improvements and refactorings.
 r4
(defn check-readme-placeholders [project]
alys
Refactor and cleanup.
 r29 (= (count (re-find #"(FIXME|TODO)" (:readme project))) 0))
alys
Various improvements and refactorings.
 r4
alys
Initial working version.
 r0
alys
Add license check.
 r15 (defn check-license [project]
(let [{files :files } project]
alys
Update version.
 r16 (boolean (some #{"LICENSE" "LICENSE.txt" "LICENSE.md" "LICENSE.mkd"} files))))
alys
Add license check.
 r15
alys
Tidy output.
 r13 (def checks [{:name "Project is checked into revision control"
alys
Initial working version.
 r0 :description ""
:function check-vcs
alys
Small style fixes.
 r14 :level :error
alys
Refactor and cleanup.
 r29 :follow-up "Initialize a repository."}
alys
Initial working version.
 r0 {:name "Always True"
:function #(or true %)
:level :error
alys
Refactor and cleanup.
 r29 :follow-up "This is a bug."}
alys
Tidy output.
 r13 {:name "All files are tracked or ignored"
alys
Initial working version.
 r0 :description ""
:function check-untracked
:level :warning
alys
Add git support.
 r10 :follow-up "Commit or ignore files from 'hg st -u' or 'git ls-files --others --exclude-standard'." }
alys
Tidy output.
 r13 {:name "Project has a todo file"
alys
Initial working version.
 r0 :function check-taskpaper
:description ""
:level :suggestion
alys
Refactor and cleanup.
 r29 :follow-up "Add a todo file using Taskpaper."}
alys
Add license check.
 r15 {:name "Project has a README"
alys
Initial working version.
 r0 :function check-readme
:description "Readme exists"
alys
Tweak warning levels and remove .java-version, which was misleading.
 r28 :level :warning
alys
Refactor and cleanup.
 r29 :follow-up "Add a README."}
alys
Add CHANGELOG check and ensure .taskpaper files are actually counted.
 r27 {:name "Project has a CHANGELOG"
:function check-changelog
:description "Changelog exists"
alys
Tweak warning levels and remove .java-version, which was misleading.
 r28 :level :warning
:follow-up "Add a CHANGELOG. Consider refering to keepachangelog.com for guidance." }
alys
Various improvements and refactorings.
 r4 {:name "README has no placeholders"
:function check-readme-placeholders
:description "No placeholders in README"
:level :error
alys
Small tweaks to tests.
 r30 :follow-up "Address placeholders or convert them to tasks."}
alys
Add license check.
 r15 { :name "Project has a license"
:function check-license
:description "Project has a LICENSE file."
:level :warning ;going with warning because a project might not have a license before release.
alys
Tweak warning levels and remove .java-version, which was misleading.
 r28 :follow-up "Add a license to LICENSE. Consider using https://choosealicense.com/ for guidance." }])
alys
Initial working version.
 r0
alys
Refactor.
 r31 (def false-colors {:suggestion :blue
:warning :yellow
:error :red})
(def level-prefixes {:suggestion "Suggested "
:warning "Recommended "
:error "Required "})
alys
Initial working version.
 r0 (defn perform-check [check project]
alys
Refactor and cleanup.
 r29 (let [{check-name :name :keys [function follow-up level]} check
alys
Initial working version.
 r0 result (function project)
alys
Refactor.
 r31 false-color (level false-colors :red)
prefix (level level-prefixes "Follow-up")]
alys
Initial working version.
 r0 {:name check-name
:result result
alys
Small style fixes.
 r14 :output (if result
(color :green (str "✔" check-name "…passed!"))
alys
Refactor and cleanup.
 r29 (str (color false-color (str "❌" check-name "…failed!"))
"\n\t" prefix " Follow up: " follow-up))}))
alys
Initial working version.
 r0
(defn -main
alys
Various improvements and refactorings.
 r4 "Run checks."
alys
Initial working version.
 r0 [& args]
alys
Small style fixes.
 r14 (try
(let [project-info (gather-project-info)]
(doseq [check checks]
(println (:output (perform-check check project-info )))))
alys
Small tweaks to tests.
 r30 (catch Exception ex ; Not expecting there to be a lot of exceptions, hence the catch-all.
alys
Small style fixes.
 r14 (.printStackTrace ex)
(str "caught exception: " (.getMessage ex)))
alys
Add license check.
 r15 (finally (shutdown-agents))))