Skip to content
This repository was archived by the owner on Aug 31, 2021. It is now read-only.

contrib: Misc. improvements to LCB Emacs mode. #2547

Merged
peter-b merged 1 commit into from
Jul 8, 2015
Merged

contrib: Misc. improvements to LCB Emacs mode. #2547

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
29 changes: 17 additions & 12 deletions contrib/emacs/livecode-mode.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,17 +16,18 @@

;;;###autoload
(add-to-list 'auto-mode-alist '("\\.mlc\\'" . livecode-mode))
(add-to-list 'auto-mode-alist '("\\.lcb\\'" . livecode-mode))

(defvar livecode-mode-syntax-table
(let ((st (make-syntax-table)))
;; Comments
(modify-syntax-entry ?/ ". 14b" st)
(modify-syntax-entry ?/ ". 124" st)
(modify-syntax-entry ?* ". 23b" st)
(modify-syntax-entry ?\- "<" st)
(modify-syntax-entry ?\- ". 12" st)
(modify-syntax-entry ?\n ">" st)
;; Angle brackets
(modify-syntax-entry ?< "(" st)
(modify-syntax-entry ?> ")" st)
(modify-syntax-entry ?< "(>" st)
(modify-syntax-entry ?> ")<" st)
st)
"Syntax table for LiveCode mode")

Expand All @@ -35,13 +36,14 @@
"foreign" "handler" "prefix" "postfix" "precedence" "statement"
"undefined" "public" "neutral" "binds to" "optional"
"any" "private" "if" "else" "then" "repeat" "metadata" "widget" "module"
"version" "author" "title" "true" "false" "return" "as" "use" "type"))
"version" "author" "title" "true" "false" "return" "use" "type"
"exit repeat" "next repeat"))

(defvar livecode-builtins
'("output" "input"
"bool" "boolean"
"int" "number" "real" "double" "float"
"string" "data" "list" "map" "pointer" "is" "empty"))
"string" "data" "list" "map" "pointer" "is" "empty" "as"))

(defvar livecode-font-lock-defaults
(let ((symbol-regexp "\\_<\\(\\(?:\\s_\\|\\w\\)*\\)\\_>"))
Expand All @@ -53,29 +55,32 @@
( ,(regexp-opt livecode-keywords 'symbols) . font-lock-keyword-face)
( ,(regexp-opt livecode-builtins 'symbols) . font-lock-builtin-face)

;; "as" expressions
("\\_<as\\s-+\\(\\(?:\\s_\\|\\w\\)*\\)\\_>" 1 font-lock-type-face)

;; handler definitions including parameter names
( ,(concat "^\\s-*\\(\\_<\\(public\\|foreign\\)\\_>\\s-+\\)?\\_<handler\\_>\\s-+" symbol-regexp)
(3 font-lock-function-name-face nil)
( ,(concat "\\(" (regexp-opt '("in" "out" "inout") 'symbols) "\\)"
"\\s-+" symbol-regexp)
nil nil
(3 font-lock-variable-name-face)
(2 font-lock-keyword-face)))
(2 font-lock-keyword-face))
("\\_<as\\s-+\\(\\(?:\\s_\\|\\w\\)*\\)\\_>"
nil nil
(1 font-lock-type-face)))

;; variable names
( ,(concat "^\\s-*\\_<variable\\_>\\s-*" symbol-regexp)
(1 font-lock-variable-name-face))
(1 font-lock-variable-name-face)
("\\_<as\\s-+\\(\\(?:\\s_\\|\\w\\)*\\)\\_>"
nil nil
(1 font-lock-type-face)))

;; syntax definitions
( ,(concat "^\\s-*\\_<syntax\\_>\\s-+" symbol-regexp)
(1 font-lock-function-name-face)
("\\_<is\\_>" nil nil (0 font-lock-keyword-face t)))
))))

(define-derived-mode livecode-mode prog-mode "LiveCode builder source"
(define-derived-mode livecode-mode prog-mode "LiveCode"
"Major mode for editing LiveCode builder source files"
:syntax-table livecode-mode-syntax-table

Expand Down