add desc pre-commit hook

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: allcontributors
 Title: Acknowledge all Contributors to a Project
-Version: 0.2.2.003
+Version: 0.2.2.004
 Authors@R: c(
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre")),
     person("Chris", "Hartgerink", role = "aut"),

codemeta.json

@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/ropensci/allcontributors",
   "issueTracker": "https://github.com/ropensci/allcontributors/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.2.2.003",
+  "version": "0.2.2.004",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

inst/precommit/description

@@ -0,0 +1,13 @@
+#!/usr/bin/env Rscript
+
+s <- gert::git_status()
+chk <- ("DESCRIPTION" %in% s$file &&
+    (s$status [s$file == "DESCRIPTION"] == "modified" |
+     s$status [s$file == "DESCRIPTION"]  == "new"))
+if (!chk)
+    stop ("DESCRIPTION has not been updated")
+
+f <- file.path (here::here(), "DESCRIPTION")
+x <- system2 ("git", args = c ("diff", "--cached", "-U0", f), stdout = TRUE)
+if (!any (grepl ("^\\+Version", x)))
+    stop ("Version number in DESCRIPTION has not been incremented")