1 (defconst slate-dir
(or (getenv "SLATE_ROOT")
3 (concat (file-name-directory load-file-name
) ".."))
5 (if (not (boundp 'pushnew
))
6 (defmacro pushnew
(item list
)
7 (`(unless (memq (, item
) (, list
))
8 (push (, item
) (, list
))))))
9 (pushnew (concat slate-dir
"/etc") load-path
)
11 (defconst slate-cmd
(concat slate-dir
"/slate"))
12 (defconst slate-args
(list "-q" "-i" (concat slate-dir
"/slate.image")))