f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski;;;;;;;;;;;;;;;;;;;;;;;;;;
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski;; $Haeder$
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski;; Copyright: (c) University of Magdeburg, 2007-2016
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski;; License: LGPL, see LICENSE.txt or LIZENZ.txt
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski;; Contact: hets-users@informatik.uni-bremen.de
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski;;;;;;;;;;;;;;;;;;;;;;;;;;
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski(defun dol-mode-directory-fn ()
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski "Used to find dol-mode directory"
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (let ((curdir
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (or
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (and load-in-progress (file-name-directory load-file-name))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (file-name-directory (buffer-file-name)))))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (file-name-directory curdir))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski)
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski(setq dol-mode-directory (dol-mode-directory-fn))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski(let ((hets-base-dir (expand-file-name
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (concat dol-mode-directory "../.."))))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (if (file-executable-p (concat hets-base-dir "/hets"))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (setq hets-program (concat hets-base-dir "/hets"))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (progn
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (if (file-executable-p (concat hets-base-dir "/bin/hets"))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (setq hets-program (concat hets-base-dir "/bin/hets"))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (progn
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (message (concat "no hets found in " hets-base-dir)))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski )
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski )
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski )
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski)
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski(add-to-list 'load-path dol-mode-directory)
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski;; Files whose extension is .dol or .het will be edited in DOL mode
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski(setq auto-mode-alist
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski (append
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski '(("\\.dol\\'" . dol-mode))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski '(("\\.het\\'" . dol-mode))
d1fcc079b0ea723d2d388756e3ad195ae52432cfTill Mossakowski '(("\\.clif\\'" . dol-mode))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski '(("\\.casl\\'" . dol-mode))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski auto-mode-alist))
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski(autoload 'dol-mode "dol-mode" "Entering DOL mode..." t)
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski(add-hook 'dol-mode-hook 'turn-on-dol-indent)
f93990c928a2b0b8f970b86d0fbd18d604147af6Till Mossakowski(message "dol-mode setup complete")