47 lines
1.6 KiB
Scheme
47 lines
1.6 KiB
Scheme
(define scsh-doc-dir (expand-file-name "~/src/scsh-0.6.6/doc/scsh-manual"))
|
|
(define work-dir scsh-doc-dir)
|
|
|
|
(define tex-file (expand-file-name "test.tex" scsh-doc-dir))
|
|
(define dvi-file (expand-file-name "test.dvi" scsh-doc-dir))
|
|
(define pdf-file (expand-file-name "test.pdf" scsh-doc-dir))
|
|
|
|
(make
|
|
(makefile
|
|
(makefile-rule tex-file
|
|
()
|
|
(lambda ()
|
|
(with-cwd work-dir (display "Top: skills.tex"))))
|
|
(makefile-rule pdf-file
|
|
(dvi-file)
|
|
(lambda ()
|
|
(with-cwd work-dir (run (dvipdfm -o ,pdf-file ,dvi-file)))))
|
|
(makefile-rule dvi-file
|
|
(tex-file)
|
|
(lambda ()
|
|
(with-cwd work-dir (run (latex ,tex-file))))))
|
|
(pdf-file)
|
|
"this is an empty init-state")
|
|
|
|
;;; (make
|
|
;;; (makefile
|
|
;;; (makefile-rule "/home/johannes/.tmp/skills.tex"
|
|
;;; ()
|
|
;;; (lambda ()
|
|
;;; (with-cwd "/home/johannes/.tmp"
|
|
;;; (display "Top: /home/johannes/.tmp/skills.tex"))))
|
|
;;; (makefile-rule "/home/johannes/.tmp/skills.dvi"
|
|
;;; ("/home/johannes/.tmp/skills.tex")
|
|
;;; (lambda ()
|
|
;;; (with-cwd "/home/johannes/.tmp"
|
|
;;; (run (latex ,"/home/johannes/.tmp/skills.tex")))))
|
|
;;; (makefile-rule "/home/johannes/.tmp/skills.pdf"
|
|
;;; ("/home/johannes/.tmp/skills.dvi")
|
|
;;; (lambda ()
|
|
;;; (with-cwd "/home/johannes/.tmp"
|
|
;;; (run (dvipdfm -o ,"/home/johannes/.tmp/skills.pdf"
|
|
;;; ,"/home/johannes/.tmp/skills.dvi"))))))
|
|
;;; ("/home/johannes/.tmp/skills.pdf"
|
|
;;; "/home/johannes/.tmp/skills.dvi"
|
|
;;; "/home/johannes/.tmp/skills.tex")
|
|
;;; "this is an empty init-state...")
|