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

`ros list git` shows projects installed with git.

Browse source
This commit is contained in:
SANO Masatoshi 2017-04-28 16:07:22 +09:00
parent 8aa962ce21
commit c4f43f796e
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/list-git.lisp Normal file
View file

@ -0,0 +1,10 @@
(defpackage :roswell.list.git
(:use :cl :roswell.util))
(in-package :roswell.list.git)
(defun git (&rest r)
(declare (ignore r))
(let* ((* (directory (merge-pathnames "**/.git/" (first ql:*local-project-directories*))))
(* (mapcar (lambda (x) (directory (merge-pathnames "../*.asd" x))) *))
(* (apply #'append *)))
(format t "~{~A~%~}" (mapcar #'pathname-name *))))