file.lisp 891 Bytes
Newer Older
1
2
(in-package :quickref)

Antoine Martin's avatar
Antoine Martin committed
3
4
5
(defun from-homedir (relative-path)
  (merge-pathnames relative-path (user-homedir-pathname)))

6
7
(defun clean-directory (path)
  (dolist (dir (directory (merge-pathnames "*/" (truename path))))
8
    (sb-ext:delete-directory dir :recursive t))
9
10
11
12
13
14
15
16
17
18
  (dolist (file (directory (merge-pathnames "*.*" (truename path))))
    (delete-file file)))

(defun all-directories (path)
  (merge-pathnames "*/" (truename path)))

(defun get-directory-list (path)
  (loop for dir in (directory (all-directories path))
     collect (car (last (pathname-directory dir)))))

19
20
(defun all-texis ()
  (merge-pathnames "*/*.texi" (quicklisp-software)))
21

22
23
(defun get-texi-pathnames ()
  (loop for texi in (directory (all-texis))
24
       collect texi))
25
26
27
28
29

(defun quicklisp-software ()
  (concatenate 'string
	       (namestring (ql-dist:base-directory (ql-dist:dist "quicklisp")))
	       "software/"))