etc/slate-startup.el

   1 (defconst slate-dir (or (getenv "SLATE_ROOT")
   2                         (and load-file-name
   3                              (concat (file-name-directory load-file-name) ".."))
   4                         default-directory))
   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)
  10 (require 'slate-mode)
  11 (defconst slate-cmd (concat slate-dir "/slate"))
  12 (defconst slate-args (list "-q" "-i" (concat slate-dir "/slate.image")))
  13 (cd slate-dir)
  14 (slate-workspace)
  15 (slate)