Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpm
Commits
6c7264ff
Commit
6c7264ff
authored
May 18, 2020
by
Eric Timmons
Browse files
cli less work: asd-pathnames
parent
2ed69e31
Changes
4
Hide whitespace changes
Inline
Side-by-side
cli/commands.lisp
View file @
6c7264ff
...
...
@@ -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
...
...
cli/commands/asd-pathnames.lisp
0 → 100644
View file @
6c7264ff
;;;; 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
)
clpm/clpm.lisp
View file @
6c7264ff
...
...
@@ -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
)
...
...
clpm/context-queries.lisp
View file @
6c7264ff
...
...
@@ -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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment