Commit af2db3d1 authored by Antoine Martin's avatar Antoine Martin
Browse files

Default to homedir for log files path

parent 86829c94
......@@ -115,12 +115,14 @@
(format file "</body>~%"))))
(defun log-texi-error (err texi)
(with-open-file (file (format nil "texi-logfiles/~A.logfile"
(pathname-name texi))
:direction :output
:if-exists :supersede
:if-does-not-exist :create)
(format file err)))
(let ((filepathname (from-homedir
(format nil "texi-logfiles/~A.log"
(pathname-name texi)))))
(with-open-file (file filepathname
:direction :output
:if-exists :supersede
:if-does-not-exist :create)
(format file err))))
(defun build-texi (texi makeinfo-path)
(let ((out (with-output-to-string (out)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment