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

tweek path

Browse source
This commit is contained in:
SANO Masatoshi 2017-05-27 01:02:20 +09:00
parent 57ae7e671a
commit 611bc6b2be
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
documents/chm.ros
View file

@ -8,7 +8,7 @@ exec ros -Q -- $0 "$@"
(defun hhp () (defun hhp ()
(with-open-file (o (ensure-directories-exist (with-open-file (o (ensure-directories-exist
(merge-pathnames "../documents/roswell.hhp" *current-path*)) (merge-pathnames "roswell.hhp" *current-path*))
:direction :output :direction :output
:if-exists :supersede :if-exists :supersede
:if-does-not-exist :create) :if-does-not-exist :create)
@ -25,7 +25,7 @@ exec ros -Q -- $0 "$@"
"" ""
"[FILES]")) "[FILES]"))
(loop for f in (directory (loop for f in (directory
(merge-pathnames "../documents/html/*.html" (merge-pathnames "html/*.html"
*current-path*)) *current-path*))
do (format o "html\\~A~A~A" do (format o "html\\~A~A~A"
(file-namestring f) (file-namestring f)
@ -37,7 +37,7 @@ exec ros -Q -- $0 "$@"
(defun hhk () (defun hhk ()
(with-open-file (o (ensure-directories-exist (with-open-file (o (ensure-directories-exist
(merge-pathnames "../documents/roswell.hhk" *current-path*)) (merge-pathnames "roswell.hhk" *current-path*))
:direction :output :direction :output
:if-exists :supersede :if-exists :supersede
:if-does-not-exist :create) :if-does-not-exist :create)
@ -50,7 +50,7 @@ exec ros -Q -- $0 "$@"
"</HEAD><BODY>" "</HEAD><BODY>"
"<UL>")) "<UL>"))
(loop for f in (directory (loop for f in (directory
(merge-pathnames "../documents/html/*.html" (merge-pathnames "html/*.html"
*current-path*)) *current-path*))
do (format o (format nil "~~{~~A~A~A~~}" #\Return #\Newline) do (format o (format nil "~~{~~A~A~A~~}" #\Return #\Newline)
`("<LI> <OBJECT type=\"text/sitemap\">" `("<LI> <OBJECT type=\"text/sitemap\">"
@ -65,7 +65,7 @@ exec ros -Q -- $0 "$@"
(defun hhc () (defun hhc ()
(with-open-file (o (ensure-directories-exist (with-open-file (o (ensure-directories-exist
(merge-pathnames "../documents/roswell.hhc" *current-path*)) (merge-pathnames "roswell.hhc" *current-path*))
:direction :output :direction :output
:if-exists :supersede :if-exists :supersede
:if-does-not-exist :create) :if-does-not-exist :create)
@ -85,7 +85,7 @@ exec ros -Q -- $0 "$@"
"</OBJECT>" "</OBJECT>"
"<UL>")) "<UL>"))
(loop for f in (directory (loop for f in (directory
(merge-pathnames "../documents/html/*.html" (merge-pathnames "html/*.html"
*current-path*)) *current-path*))
do (format o (format nil "~~{~~A~A~A~~}" #\Return #\Newline) do (format o (format nil "~~{~~A~A~A~~}" #\Return #\Newline)
`("<LI> <OBJECT type=\"text/sitemap\">" `("<LI> <OBJECT type=\"text/sitemap\">"