From b1330d6cc5ee7b44a632ef79da9a7569b0028c05 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sat, 17 Mar 2018 13:10:31 -0700 Subject: [PATCH] devops: Increment version. --- src/devops/NEWS | 9 +++++++++ src/devops/configure.ac | 2 +- src/devops/debian/changelog | 10 ++++++++++ src/devops/devops.scm | 9 ++++++--- src/devops/make.scm | 2 +- 5 files changed, 27 insertions(+), 5 deletions(-) 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 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 -- 2.25.1