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

implement ros dist

Browse source
This commit is contained in:
snmsts 2019-04-22 09:51:45 +08:00
parent b74df670ec
commit 032d70b8bd
2 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/dist-add.lisp
View file

@ -6,6 +6,7 @@
(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)
(= 0 (count #\/ elm))
(not (zerop (count #\- elm))))
(uiop:symbol-call :gh-dist :install (substitute #\/ #\- elm :count 1) :prompt nil)
(ql-dist:install-dist elm :prompt nil)))))

16
lisp/dist-list.lisp
View file

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