devops: Increment version.

diff --git a/src/devops/NEWS b/src/devops/NEWS
index e5c19a1bdf73c4c1a0a86ef2a15d80db093e12bc..3d5fb905e1b3cd03d04113863052380c1cdddb96 100644 (file)
--- a/src/devops/NEWS
+++ b/src/devops/NEWS
@@ -20,6 +20,15 @@ You should have received a copy of the GNU General Public License
 along with this plugin; if not, write to the Free Software Foundation,
 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
+mit-scheme-pucked-devops 0.6 - Matt Birkholz, 2018-03-17
+========================================================
+
+Replace git-tag-create-options variable with tag-options procedure.
+Limit bindings in the (devops) environment to the documented
+procedures.  Include documentation lint (missing @deffns) in
+devops:status, and produce just the core status report when the
+argument is "core".
+
 mit-scheme-pucked-devops 0.5 - Matt Birkholz, 2018-02-18
 ========================================================
 

diff --git a/src/devops/configure.ac b/src/devops/configure.ac
index f8ea05016457d15bef6825378c90cbaea2d49226..b34457de46d827c20ed9e96216c046d89c335971 100644 (file)
--- a/src/devops/configure.ac
+++ b/src/devops/configure.ac
@@ -1,7 +1,7 @@
 dnl Process this file with autoconf to produce a configure script.
 
 AC_INIT([MIT/GNU Scheme Pucked Developer Operations plugin],
-        [0.5],
+        [0.6],
         [matt@birchwood-abbey.net],
         [mit-scheme-pucked-devops])
 AC_CONFIG_SRCDIR([devops.pkg])

diff --git a/src/devops/debian/changelog b/src/devops/debian/changelog
index 8e220b135251449762e80127c3c2344725c94a1e..809bb9380870289d65b0e6ea50cc79833ad627c3 100644 (file)
--- a/src/devops/debian/changelog
+++ b/src/devops/debian/changelog
@@ -1,3 +1,13 @@
+mit-scheme-pucked-devops (0.6) birchwood; urgency=low
+
+  * Replace git-tag-create-options variable with tag-options
+    procedure.  Limit bindings in the (devops) environment to the
+    documented procedures.  Include documentation lint (missing
+    @deffns) in devops:status, and produce just the core status report
+    when the argument is "core".
+
+ -- Matt Birkholz <matt@birchwood-abbey.net>  Sat, 17 Mar 2018 00:00:00 -0000
+
 mit-scheme-pucked-devops (0.5) birchwood; urgency=low
 
   * Support debugging builds with a devops:make procedure.

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index 07d92f34d244a3ec294927466c300f0adbeb9f9e..37938cc9838767b1be0d0cf9d386f4c2ffce1414 100644 (file)
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -35,9 +35,12 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
 (define (devops:status #!optional name)
   (load "devops/config.scm" (->environment '(devops)))
-  (if (default-object? name)
-      (status)
-      (plugin-status (->plugin name) (dirt))))
+  (cond ((default-object? name)
+        (status))
+       ((string=? "core" name)
+        (core-status (get-core-version) (dirt)))
+       (else
+        (plugin-status (->plugin name) (dirt)))))
 
 (define (dirt)
   (shell-lines "git status --porcelain --untracked-files=no"))

diff --git a/src/devops/make.scm b/src/devops/make.scm
index ba86c0a51a84dfb8afa47c5471cebebf5ed20326..780508858334cf335412a7835b03d97640c72103 100644 (file)
--- a/src/devops/make.scm
+++ b/src/devops/make.scm
@@ -6,4 +6,4 @@ Load the Developer Operations plugin. |#
 (with-loader-base-uri (system-library-uri "devops/")
   (lambda ()
     (load-package-set "devops")))
-(add-subsystem-identification! "DevOps" '(0 5))
\ No newline at end of file
+(add-subsystem-identification! "DevOps" '(0 6))
\ No newline at end of file