common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

update ros dist

Browse source
This commit is contained in:
snmsts 2019-04-20 12:15:46 +08:00
parent ffaf0e2606
commit 5c5529ec01
3 changed files with 23 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/dist-add.lisp
View file

@ -3,5 +3,9 @@
(in-package :roswell.dist.add)
(defun add (&rest r)
(dolist (elm (rest r))
(ql-dist:install-dist elm :prompt nil)))
(let ((gh-support (asdf:find-system "gh-dist")))
(dolist (elm (rest r))
(if (and gh-support
(= 1 (count #\/ elm)))
(uiop:symbol-call :gh-dist :install elm :prompt nil)
(ql-dist:install-dist elm :prompt nil)))))

18
lisp/dist-list.lisp
View file

@ -8,10 +8,14 @@
(dolist (system (ql:provided-systems
(ql-dist:find-dist (second r))))
(format t "~A~%" (ql-dist:short-description system)))
(dolist (dist (sort (ql-dist:all-dists) #'> :key #'ql-dist:preference))
(format t "~A~15A~11A~A~%"
(if (ql-dist:enabledp dist) " " "#")
(ql-dist:name dist)
(subseq (ql-dist:version dist)
0 (min (length (ql-dist:version dist)) 10))
(ql-dist::distinfo-subscription-url dist)))))
(let* ((dists (sort (ql-dist:all-dists) #'> :key #'ql-dist:preference))
(len (loop for dist in dists
maximize (length (ql-dist:name dist)))))
(dolist (dist dists)
(format t "~A~vA ~11A~A~%"
(if (ql-dist:enabledp dist) " " "#")
len
(ql-dist:name dist)
(subseq (ql-dist:version dist)
0 (min (length (ql-dist:version dist)) 10))
(or (ql-dist::distinfo-subscription-url dist) ""))))))

7
lisp/dist.ros
View file

@ -5,7 +5,12 @@ exec ros -Q -m roswell -N roswell -- $0 "$@"
|#
(progn
(roswell:include "util-main")
(roswell:include "util-config"))
(roswell:include "util-config")
(ignore-errors
#+quicklisp(ql:quickload "gh-dist" :silent t)
(uiop:symbol-call :gh-dist :setup))
(mapc #'load (directory (merge-pathnames "dist-*.lisp" (ros:opt "lispdir"))))
)
(defpackage :ros.script.dist.3714094546
(:use :cl :roswell.util.main))