mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
16 lines
579 B
Common Lisp
16 lines
579 B
Common Lisp
(defpackage :roswell.delete.env
|
|
(:use :cl :roswell.util))
|
|
(in-package :roswell.delete.env)
|
|
|
|
(defun env (&rest argv)
|
|
(if (rest argv)
|
|
(dolist (x (rest argv) (roswell:quit 0))
|
|
(let ((* (probe-file (merge-pathnames (format nil "env/~A/config" x)
|
|
(roswell:opt "homedir")))))
|
|
(when *
|
|
(format t "delete ~S~%" x)
|
|
(uiop/filesystem:delete-directory-tree
|
|
(make-pathname :defaults * :name nil) :validate t))))
|
|
`(,(roswell:opt "wargv0") "help" ,(format nil "delete-env"))))
|
|
|