43 lines
1.4 KiB
Scheme
43 lines
1.4 KiB
Scheme
;;; (define d (expand-file-name "~/.tmp"))
|
|
;;;
|
|
;;; (makefile
|
|
;;; (makefile-rule (expand-file-name "skills.tex" d)
|
|
;;; ()
|
|
;;; (lambda ()
|
|
;;; (with-cwd d (display "Top: skills.tex"))))
|
|
;;; (makefile-rule (expand-file-name "skills.dvi" d)
|
|
;;; (expand-file-name "skills.tex" d)
|
|
;;; (lambda ()
|
|
;;; (with-cwd d
|
|
;;; (run (latex ,(expand-file-name "skills.tex" d))))))
|
|
;;; (makefile-rule (expand-file-name "skills.pdf" d)
|
|
;;; (expand-file-name "skills.dvi" d)
|
|
;;; (lambda ()
|
|
;;; (with-cwd d (run
|
|
;;; (dvipdfm -o
|
|
;;; ,(expand-file-name "skills.pdf" d)
|
|
;;; ,(expand-file-name "skills.dvi" d)))))))
|
|
;;;
|
|
;;; (make (expand-file-name "skills.pdf" d) "this is an empty init-state")
|
|
|
|
(makefile
|
|
(makefile-rule "/home/bruegman/.tmp/skills.tex"
|
|
()
|
|
(lambda ()
|
|
(with-cwd "/home/bruegman/.tmp"
|
|
(display "Top: /home/bruegman/.tmp/skills.tex"))))
|
|
(makefile-rule "/home/bruegman/.tmp/skills.dvi"
|
|
("/home/bruegman/.tmp/skills.tex")
|
|
(lambda ()
|
|
(with-cwd "/home/bruegman/.tmp"
|
|
(run (latex ,"/home/bruegman/.tmp/skills.tex")))))
|
|
(makefile-rule "/home/bruegman/.tmp/skills.pdf"
|
|
("/home/bruegman/.tmp/skills.dvi")
|
|
(lambda ()
|
|
(with-cwd "/home/bruegman/.tmp"
|
|
(run (dvipdfm -o ,"/home/bruegman/.tmp/skills.pdf"
|
|
,"/home/bruegman/.tmp/skills.dvi"))))))
|
|
|
|
(make "/home/bruegman/.tmp/skills.pdf" "this is an empty init-state...")
|
|
|