Default to ~/quickref for build-index

quickref.lisp

@@ -66,4 +66,4 @@
   (ql:update-client :prompt nil)
   (build-releases)
   (build-texis (quicklisp-software) makeinfo-path)
-  (build-index "quickref"))
+  (build-index))

website.lisp

@@ -88,30 +88,31 @@
 <table class=\"index-cp\" border=\"0\">
 <tr><td></td><th align=\"left\">Index Entry</th></tr>~%"))
 
-(defun build-index (path)
-  (with-open-file (file (merge-pathnames "index.html" (truename path))
-			:direction :output
-			:if-exists :supersede
-			:if-does-not-exist :create)
-    (print-index-header file)
-    (let* ((dir-list (sort (get-directory-list path) #'string<
-			   :key #'remove-cl-prefix))
-	   (current-letter (get-first-letter (first dir-list)))
-	   (length 0)
-	   (pos dir-list))
-      (loop until (endp pos)
-	 do (if (letter-has-not-changed current-letter (get-first-letter (car pos)))
-		(progn (setq length (+ length 1))
-		       (setq pos (cdr pos)))
-		(progn
-		  (print-index-letter current-letter file)
-		  (print-columns dir-list length file)
-		  (setq length 0)
-		  (setq dir-list pos)
-		  (setq current-letter (get-first-letter (car pos))))))
-      (print-index-letter current-letter file)
-      (print-columns dir-list length file))
-    (format file "</body>~%")))
+(defun build-index ()
+  (let ((quickref-dir (merge-pathnames "quickref/" (user-homedir-pathname))))
+    (with-open-file (file (merge-pathnames "index.html" quickref-dir)
+			  :direction :output
+			  :if-exists :supersede
+			  :if-does-not-exist :create)
+      (print-index-header file)
+      (let* ((dir-list (sort (get-directory-list quickref-dir) #'string<
+			     :key #'remove-cl-prefix))
+	     (current-letter (get-first-letter (first dir-list)))
+	     (length 0)
+	     (pos dir-list))
+	(loop until (endp pos)
+	   do (if (letter-has-not-changed current-letter (get-first-letter (car pos)))
+		  (progn (setq length (+ length 1))
+			 (setq pos (cdr pos)))
+		  (progn
+		    (print-index-letter current-letter file)
+		    (print-columns dir-list length file)
+		    (setq length 0)
+		    (setq dir-list pos)
+		    (setq current-letter (get-first-letter (car pos))))))
+	(print-index-letter current-letter file)
+	(print-columns dir-list length file))
+      (format file "</body>~%"))))
 
 (defun log-texi-error (err texi)
   (with-open-file (file (format nil "texi-logfiles/~A.logfile"