19 lines
521 B
EmacsLisp
19 lines
521 B
EmacsLisp
|
(define-derived-mode level-mode text-mode "level mode"
|
||
|
|
"game levels"
|
||
|
|
(setq buffer-face-mode-face '(:family "Monaco-10:spacing=110" :height 100 ))
|
||
|
|
)
|
||
|
|
|
||
|
|
(defun level-delete-char()
|
||
|
|
(interactive)
|
||
|
|
(when (< 2 (line-number-at-pos))
|
||
|
|
(delete-char 1)))
|
||
|
|
|
||
|
|
(add-hook 'level-mode-hook 'whitespace-mode)
|
||
|
|
(add-hook 'level-mode-hook (lambda() (hungry-delete-mode 0)))
|
||
|
|
|
||
|
|
(add-hook 'level-mode-hook
|
||
|
|
(lambda ()
|
||
|
|
(add-hook 'post-self-insert-hook 'level-delete-char nil 'make-it-local)))
|
||
|
|
|
||
|
|
(provide 'level-mode)
|