Commit 2ed69e31 authored by Eric Timmons's avatar Eric Timmons
Browse files

cli less work: output-translations

parent a67ba65d
...@@ -15,6 +15,7 @@ ...@@ -15,6 +15,7 @@
#:clpm-cli/commands/hack #:clpm-cli/commands/hack
#:clpm-cli/commands/install #:clpm-cli/commands/install
#:clpm-cli/commands/license-info #:clpm-cli/commands/license-info
#:clpm-cli/commands/output-translations
#:clpm-cli/commands/sync #:clpm-cli/commands/sync
#:clpm-cli/commands/update #:clpm-cli/commands/update
#:clpm-cli/commands/version)) #:clpm-cli/commands/version))
......
;;;; 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)
...@@ -22,7 +22,8 @@ ...@@ -22,7 +22,8 @@
;; From config ;; From config
(:export #:config-value) (:export #:config-value)
;; From context-queries ;; From context-queries
(:export #:find-system-asd-pathname) (:export #:find-system-asd-pathname
#:output-translations)
;; From exec ;; From exec
(:export #:exec) (:export #:exec)
;; From install ;; From install
......
...@@ -7,10 +7,15 @@ ...@@ -7,10 +7,15 @@
(:use #:cl (:use #:cl
#:clpm/context #:clpm/context
#:clpm/session) #:clpm/session)
(:export #:find-system-asd-pathname)) (:export #:find-system-asd-pathname
#:output-translations))
(in-package #:clpm/context-queries) (in-package #:clpm/context-queries)
(defun find-system-asd-pathname (system-name &key context) (defun find-system-asd-pathname (system-name &key context)
(with-clpm-session () (with-clpm-session ()
(context-find-system-asd-pathname (get-context context) system-name))) (context-find-system-asd-pathname (get-context context) system-name)))
(defun output-translations (&key context)
(with-clpm-session ()
(context-output-translations (get-context context))))
Supports Markdown
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