# HG changeset patch
# User alys
# Date 2019-06-06 06:38:45
# Node ID 22ea26e47d27c712f0e76a54d81b9b823adbb598
# Parent  8a9ac48f88dc02e605ec41eb04db3377b643725c

Add CHANGELOG check and ensure .taskpaper files are actually counted.

diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,23 +2,13 @@
 All notable changes to this project will be documented in this file. This change log follows the conventions of [keepachangelog.com](http://keepachangelog.com/).
 
 ## [Unreleased]
+First tracked version
 ### Changed
-- Add a new arity to `make-widget-async` to provide a different widget shape.
 
-## [0.1.1] - 2018-09-25
-### Changed
-- Documentation on how to make the widgets.
+- Added CHANGELOG tracking.
 
 ### Removed
-- `make-widget-sync` - we're all async, all the time.
 
 ### Fixed
-- Fixed widget maker to keep working when daylight savings switches over.
+- Fix issue causing .taskpaper files to not be correctly identified.
 
-## 0.1.0 - 2018-09-25
-### Added
-- Files from the new template.
-- Widget maker public API - `make-widget-sync`.
-
-[Unreleased]: https://github.com/your-name/project-checkup/compare/0.1.1...HEAD
-[0.1.1]: https://github.com/your-name/project-checkup/compare/0.1.0...0.1.1
diff --git a/src/project_checkup/core.clj b/src/project_checkup/core.clj
--- a/src/project_checkup/core.clj
+++ b/src/project_checkup/core.clj
@@ -61,13 +61,17 @@
   (let [{files :files } project]
     (boolean (some #{"README.md" "README.txt" "README.mkd" "README"} files)) ))
 
+(defn check-changelog [project]
+  (let [{files :files } project]
+    (boolean (some #{"CHANGELOG.md" "CHANGELOG.txt" "CHANGELOG.mkd" "CHANGELOG"} files)) ))
+
 (defn check-untracked [project]
   (let [{untracked :untracked-files } project]
     (= (count untracked) 0)) )
 
 (defn check-taskpaper [project]
   (let [{extensions :extensions files :files } project]
-    (or (>= (get ".taskpaper" extensions 0) 1)
+    (or (>= (get extensions  ".taskpaper" 0) 1)
         (some #{"TODO" "TODO.txt" } files))))
 
 (defn check-readme-placeholders [project]
@@ -103,6 +107,11 @@
               :description "Readme exists"
               :level :suggestion
               :follow-up "Add a README." }
+             {:name "Project has a CHANGELOG"
+              :function check-changelog
+              :description "Changelog exists"
+              :level :suggestion
+              :follow-up "Add a CHANGELOG. Consider refering to keepachangelog.com" }
             {:name "README has no placeholders"
              :function check-readme-placeholders
              :description "No placeholders in README"