From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sat, 17 Mar 2018 20:10:31 +0000 (-0700)
Subject: devops: Increment version.
X-Git-Tag: mit-scheme-pucked-x11-0.2.2~26
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b1330d6cc5ee7b44a632ef79da9a7569b0028c05;p=mit-scheme.git

devops: Increment version.
---

diff --git a/src/devops/NEWS b/src/devops/NEWS
index e5c19a1bd..3d5fb905e 100644
--- 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 f8ea05016..b34457de4 100644
--- 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 8e220b135..809bb9380 100644
--- 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 07d92f34d..37938cc98 100644
--- 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 ba86c0a51..780508858 100644
--- 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