Cross Reference: casl.el
xref
: /
hets
/
utils
/
el
/
casl.el
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
casl.el revision b4fc5ea5cb085d38694cab93648e4d20451cd9dc
(
defun
hets-home-directory-fn
()
"Used to find hets-home-directory"
(
let
((
curdir
(
or
(
and
load-in-progress
(
file-name-directory
load-file-name
))
(
file-name-directory
(
buffer-file-name
)))))
(
file-name-directory
(
substring
curdir
0
-9
)))
)
;; Files whose extension is .casl or .het will be edited in CASL mode
(
setq
hets-home-directory
(
hets-home-directory-fn
))
(
setq
hets-program
(
concat
hets-home-directory
"hets"
))
(
setq
load-path
(
append
(
list
(
concat
hets-home-directory
"
utils
/
el
/"
))
load-path
))
(
setq
auto-mode-alist
(
append
'((
"\\.casl\\'"
.
casl-mode
))
'((
"\\.het\\'"
.
casl-mode
))
auto-mode-alist
))
(
autoload
'
casl-mode
"casl-mode" "Entering CASL mode..."
t
)
(
add-hook
'
casl-mode-hook
'
turn-on-casl-indent
)