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

comment on roswell.util:checkoutdir

Browse source
This commit is contained in:
SANO Masatoshi 2017-07-15 03:12:36 +09:00
parent 4c94fb8c41
commit b0598ff87d
1 changed files with 13 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lisp/util.lisp
View file

@ -159,8 +159,8 @@ Example:
(or #+win32
(unless (roswell:getenv "MSYSCON")
(format nil "~A" (#+sbcl sb-ext:native-namestring #-sbcl namestring
(merge-pathnames (format nil "impls/~A/~A/msys~A/usr/bin/bash" (uname-m) (uname)
#+x86-64 "64" #-x86-64 "32") (homedir)))))
(merge-pathnames (format nil "impls/~A/~A/msys~A/usr/bin/bash" (uname-m) (uname)
#+x86-64 "64" #-x86-64 "32") (homedir)))))
(which "bash")
"sh"))
@ -187,24 +187,19 @@ ccl-bin -> (\"ccl-bin\" nil)
`(,string nil)))))
(defun checkoutdir ()
"
Returns the parent directory of the first local project directory in ql:*local-project-directories*,
or (if failed) the user-level installation directory of roswell.
(this function does not make sense.)
"
(or (ignore-errors
(let*((* (read-from-string "ql:*local-project-directories*")))
(setf * (first (symbol-value *))
* (merge-pathnames "../" *)
* (truename *))))
(homedir)))
"Returns the parent directory of the first local project directory in ql:*local-project-directories*."
;; see roswell:quicklisp for why.
(roswell:quicklisp)
(let* ((* (read-from-string "ql:*local-project-directories*"))
(* (first (symbol-value *)))
(* (merge-pathnames "../" *)))
(truename *)))
(defun clone-github (owner name &key
(alias (format nil "~A/~A" owner name))
branch force-git
(path "templates")
(home (checkoutdir)))
(alias (format nil "~A/~A" owner name))
branch force-git
(path "templates")
(home (checkoutdir)))
(format *error-output* "install from github ~A/~A~%" owner name)
(if (or force-git (which "git"))
(let ((dir (merge-pathnames (format nil "~A/~A/" path alias) home)))