devops: Punt devops:full-status.
authorMatt Birkholz <matt@birchwood-abbey.net>
Fri, 21 Jul 2017 01:40:24 +0000 (18:40 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Fri, 21 Jul 2017 04:53:40 +0000 (21:53 -0700)
src/devops/devops.pkg
src/devops/devops.scm

index c04725aecd64de1afff154bab32111fa7c179fd7..ab2a048c40112ee45134d67ce8a88f90638e710d 100644 (file)
@@ -34,6 +34,5 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
   (files "devops")
   (export ()
          devops:status
-         devops:full-status
          devops:release
          devops:build-status))
\ No newline at end of file
index e1f7e865c5853b130c53e234dec643ca250a21c4..cd46a03ec904f8624e08003a366c2df832942888 100644 (file)
@@ -24,42 +24,34 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
 ;;; See devops.texi for complete details.
 
-(define (devops:full-status) (status #t))
-
-(define (devops:status) (status #f))
-
-(define (status full?)
+(define (devops:status)
   (let ((dirt (shell-lines "git status --porcelain --untracked-files=no")))
     (if (file-exists? "src/runtime/version.scm")
-       (core-status full? dirt))
+       (core-status dirt))
     (let ((ps (plugins)))
       (if (pair? ps)
-         (for-each (lambda (p) (plugin-status p full? dirt)) ps)
-         (log "no plugins\n")))))
+         (for-each (lambda (p) (plugin-status p dirt)) ps)
+         (log "No plugins defined.\n")))))
 
-(define (core-status full? dirt)
+(define (core-status dirt)
   (let ((version (core-version))
        (changed (core-changed-files)))
     (let ((lint (core-lint version changed dirt)))
-      (if (or (not (null? lint))
-             full?)
+      (if (not (null? lint))
          (begin
            (log "# "(project-name)" "version":\n")
            (write-lint lint)
-           (if full?
-               (write-changed-files changed)))))))
+           (write-changed-files changed))))))
 
-(define (plugin-status plugin full? dirt)
+(define (plugin-status plugin dirt)
   (let ((changed (plugin-changed-files plugin)))
     (let ((lint (plugin-lint plugin changed dirt)))
-      (if (or (not (null? lint))
-             full?)
+      (if (not (null? lint))
          (let ((name (plugin-name plugin))
                (vers (plugin-version plugin)))
            (log "# "name" "vers":\n")
            (write-lint lint)
-           (if full?
-               (write-changed-files changed)))))))
+           (write-changed-files changed)))))))
 
 (define (write-lint lint)
   (for-each (lambda (line)