Commit 6c7264ff authored by Eric Timmons's avatar Eric Timmons
Browse files

cli less work: asd-pathnames

parent 2ed69e31
......@@ -5,6 +5,7 @@
(uiop:define-package #:clpm-cli/commands
(:use #:cl
#:clpm-cli/commands/asd-pathnames
#:clpm-cli/commands/bundle
#:clpm-cli/commands/client
#:clpm-cli/commands/clpi
......
;;;; clpm asd-pathnames
;;;;
;;;; This software is part of CLPM. See README.org for more information. See
;;;; LICENSE for license information.
(uiop:define-package #:clpm-cli/commands/asd-pathnames
(:use #:cl
#:alexandria
#:clpm-cli/common-args
#:clpm-cli/interface-defs)
(:import-from #:adopt)
(:import-from #:clpm))
(in-package #:clpm-cli/commands/asd-pathnames)
(defparameter *asd-pathnames-ui*
(adopt:make-interface
:name "clpm asd-pathnames"
:summary "Common Lisp Package Manager Asd-Pathnames"
:usage "asd-pathnames [options]"
:help "List the pathnames to all ASD files in the context, one per line."
:contents (list *group-common*
*option-context*)))
(define-cli-command (("asd-pathnames") *asd-pathnames-ui*) (args options)
(declare (ignore options args))
(format t "~{~A~^~%~}~%" (clpm:asd-pathnames))
t)
......@@ -22,7 +22,8 @@
;; From config
(:export #:config-value)
;; From context-queries
(:export #:find-system-asd-pathname
(:export #:asd-pathnames
#:find-system-asd-pathname
#:output-translations)
;; From exec
(:export #:exec)
......
......@@ -7,11 +7,16 @@
(:use #:cl
#:clpm/context
#:clpm/session)
(:export #:find-system-asd-pathname
(:export #:asd-pathnames
#:find-system-asd-pathname
#:output-translations))
(in-package #:clpm/context-queries)
(defun asd-pathnames (&key context)
(with-clpm-session ()
(context-asd-pathnames (get-context context))))
(defun find-system-asd-pathname (system-name &key context)
(with-clpm-session ()
(context-find-system-asd-pathname (get-context context) system-name)))
......
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