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
2ed69e31
Commit
2ed69e31
authored
May 18, 2020
by
Eric Timmons
Browse files
cli less work: output-translations
parent
a67ba65d
Changes
4
Show whitespace changes
Inline
Side-by-side
cli/commands.lisp
View file @
2ed69e31
...
...
@@ -15,6 +15,7 @@
#:clpm-cli/commands/hack
#:clpm-cli/commands/install
#:clpm-cli/commands/license-info
#:clpm-cli/commands/output-translations
#:clpm-cli/commands/sync
#:clpm-cli/commands/update
#:clpm-cli/commands/version
))
...
...
cli/commands/output-translations.lisp
0 → 100644
View file @
2ed69e31
;;;; clpm output-translations
;;;;
;;;; This software is part of CLPM. See README.org for more information. See
;;;; LICENSE for license information.
(
uiop:define-package
#:clpm-cli/commands/output-translations
(
:use
#:cl
#:alexandria
#:clpm-cli/common-args
#:clpm-cli/interface-defs
)
(
:import-from
#:adopt
)
(
:import-from
#:clpm
))
(
in-package
#:clpm-cli/commands/output-translations
)
(
defparameter
*output-translations-ui*
(
adopt:make-interface
:name
"clpm output-translations"
:summary
"Common Lisp Package Manager Output-Translations"
:usage
"output-translations [options]"
:help
"Print an ASDF output-translations form using the projects installed in a context"
:contents
(
list
*group-common*
*option-context*
)))
(
define-cli-command
((
"output-translations"
)
*output-translations-ui*
)
(
args
options
)
(
declare
(
ignore
options
args
))
(
when-let
((
output-translations
(
clpm:output-translations
)))
(
with-standard-io-syntax
(
let
((
*print-case*
:downcase
))
(
prin1
output-translations
))
(
terpri
)))
t
)
clpm/clpm.lisp
View file @
2ed69e31
...
...
@@ -22,7 +22,8 @@
;; From config
(
:export
#:config-value
)
;; From context-queries
(
:export
#:find-system-asd-pathname
)
(
:export
#:find-system-asd-pathname
#:output-translations
)
;; From exec
(
:export
#:exec
)
;; From install
...
...
clpm/context-queries.lisp
View file @
2ed69e31
...
...
@@ -7,10 +7,15 @@
(
:use
#:cl
#:clpm/context
#:clpm/session
)
(
:export
#:find-system-asd-pathname
))
(
:export
#:find-system-asd-pathname
#:output-translations
))
(
in-package
#:clpm/context-queries
)
(
defun
find-system-asd-pathname
(
system-name
&key
context
)
(
with-clpm-session
()
(
context-find-system-asd-pathname
(
get-context
context
)
system-name
)))
(
defun
output-translations
(
&key
context
)
(
with-clpm-session
()
(
context-output-translations
(
get-context
context
))))
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