Commit 68660779 authored by Eric Timmons's avatar Eric Timmons
Browse files

cli less work: version

parent 04e572ac
......@@ -6,17 +6,14 @@
(uiop:define-package #:clpm-cli/commands/version
(:use #:cl
#:clpm-cli/common-args
#:clpm-cli/interface-defs
#:clpm/log
#:clpm/version)
#:clpm-cli/interface-defs)
(:import-from #:adopt)
(:import-from #:clpm)
(:import-from #:uiop
#:*stdout*))
(in-package #:clpm-cli/commands/version)
(setup-logger)
(define-string *help-text*
"Display CLPM version information. The output is not guaranteed to remain
stable between releases of CLPM. When verbose mode is active, print more details
......@@ -33,7 +30,7 @@ about the build, host, and features.")
(defun print-version (options)
(if (plusp (gethash :cli-config-log-level options))
(progn
(format *stdout* "CLPM version ~A~%" (clpm-version))
(format *stdout* "CLPM version ~A~%" (clpm:clpm-version))
(format *stdout* "~A ~A~%" (lisp-implementation-type) (lisp-implementation-version))
(format *stdout* "ASDF ~A~%" (asdf:asdf-version))
(format *stdout* "Software Type: ~A~%" (software-type))
......@@ -41,7 +38,7 @@ about the build, host, and features.")
(with-standard-io-syntax
(let ((*print-pretty* t))
(format *stdout* "Features:~%~S~%" *features*))))
(format *stdout* "~A~%" (clpm-version))))
(format *stdout* "~A~%" (clpm:clpm-version))))
(define-cli-command (("version") *version-ui*) (args options)
......
......@@ -12,6 +12,8 @@
#:clpm/install
#:clpm/source
#:clpm/version)
(:export #:install))
(:export #:install)
;; From version
(:export #:clpm-version))
(in-package #:clpm/clpm)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment