Commit 2664a03e authored by Erik Huelsmann's avatar Erik Huelsmann

Clean up output containing lengthy full paths

Most output was already using relative paths; full paths
have a tendency to overflow the terminal and thereby
create confusing / hard-to-read output.
parent 91d35a97
......@@ -46,7 +46,7 @@
stream))))))
(defun preprocess-md-page (content context next-processors)
(let* ((md-file (make-path *pages-dir* context t)))
(let* ((md-file (enough-namestring (make-path *pages-dir* context t) *pages-dir*)))
(unless (string= (pathname-type md-file) "md")
(return-from preprocess-md-page (funcall (pop next-processors) content context next-processors)))
(let ((html-file (make-pathname :defaults md-file :type "html")))
......@@ -60,7 +60,7 @@
(let* ((lisp-file (make-path *pages-dir* context t)))
(unless (string= (pathname-type lisp-file) "lisp")
(return-from preprocess-lisp-page (funcall (pop next-processors) content context next-processors)))
(let ((html-file (make-pathname :defaults lisp-file :type "html"))
(let ((html-file (enough-namestring (make-pathname :defaults lisp-file :type "html") *pages-dir*))
*computed-page-content*)
(format t "Loading ~a and creating fresh ~a...~%"
(file-namestring lisp-file) html-file)
......
Markdown is supported
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