(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...")