-
Notifications
You must be signed in to change notification settings - Fork 2
/
morganey-mode.el
69 lines (53 loc) · 2.54 KB
/
morganey-mode.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
;;; morganey-mode.el --- Major mode for editing Morganey files -*- lexical-binding: t -*-
;; Copyright (C) 2016 Alexey Kutepov <reximkut@gmail.com>
;; Author: Alexey Kutepov <reximkut@gmail.com>
;; Maintainer: Alexey Kutepov <reximkut@gmail.com>
;; URL: https://github.com/morganey-lang/morganey-mode
;; Version: 0.0.1
;; Package-Requires: ((emacs "24.4"))
;; Permission is hereby granted, free of charge, to any person
;; obtaining a copy of this software and associated documentation
;; files (the "Software"), to deal in the Software without
;; restriction, including without limitation the rights to use, copy,
;; modify, merge, publish, distribute, sublicense, and/or sell copies
;; of the Software, and to permit persons to whom the Software is
;; furnished to do so, subject to the following conditions:
;; The above copyright notice and this permission notice shall be
;; included in all copies or substantial portions of the Software.
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
;; BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
;; ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE.
;;; Commentary:
;; Major mode for editing source files written in Morganey programming
;; language: https://github.com/morganey-lang/Morganey
;;; Code:
(defconst morganey--keywords
(list (cons "load" font-lock-keyword-face)
(cons "def" font-lock-keyword-face)
(cons ":=" font-lock-keyword-face)
(cons "\\\\" font-lock-keyword-face)
(cons "λ" font-lock-keyword-face)))
(defconst morganey--syntax-table
(let ((table (make-syntax-table)))
(modify-syntax-entry ?/ ". 124" table)
(modify-syntax-entry ?* ". 23b" table)
(modify-syntax-entry ?\n ">" table)
table))
;;;###autoload
(define-derived-mode morganey-mode prog-mode "Morganey"
"Major mode for editing Morganey files"
(set-syntax-table morganey--syntax-table)
(setq font-lock-defaults '(morganey--keywords))
(set (make-local-variable 'comment-start) "// ")
(set (make-local-variable 'comment-end) "")
(set (make-local-variable 'comment-start-skip) "//[ \t]*")
(set (make-local-variable 'comment-column) 0))
;;;###autoload
(add-to-list 'auto-mode-alist '("\\.mgn\\'" . morganey-mode))
(provide 'morganey-mode)
;;; morganey-mode.el ends here