tasn pushed a commit to branch master.
http://git.enlightenment.org/editors/emacs-configs.git/commit/?id=aa190cb127749c90392b7b1288758ba0ee422b95
commit aa190cb127749c90392b7b1288758ba0ee422b95
Author: Tom Hacohen <t...@stosb.com>
Date: Mon Dec 5 12:34:21 2016 +0000
Initial import for emacs config files.
---
edje-mode.el | 513 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
eo-mode.el | 398 +++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 911 insertions(+)
diff --git a/edje-mode.el b/edje-mode.el
new file mode 100644
index 0000000..b0d8602
--- /dev/null
+++ b/edje-mode.el
@@ -0,0 +1,513 @@
+;;; edje-mode-el -- Major mode for editing Edje files
+
+;; Author: Gustavo Sverzut Barbieri <barbi...@gmail.com>
+;; Created: 2007-07-23
+;; Keywords: Edje major-mode
+;; Url: http://barbieri-playground.googlecode.com/svn/dot-files/edje-mode.el
+;; (if you find this file have problems, check that Url and request
update)
+
+;; Copyright (C) 2007 Gustavo Sverzut Barbieri <barbi...@gmail.com>
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2 of
+;; the License, or (at your option) any later version.
+
+;; This program is distributed in the hope that it will be
+;; useful, but WITHOUT ANY WARRANTY; without even the implied
+;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+;; PURPOSE. See the GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public
+;; License along with this program; if not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+;; MA 02111-1307 USA
+
+;;; Commentary:
+;;
+;; This mode is based on tutorial from Scott Andrew Borton:
+;; http://two-wugs.net/emacs/mode-tutorial.html
+
+
+(defvar edje-mode-hook nil)
+
+(defun number-or-nil-to-string (v &optional default)
+ (cond ((numberp v) (number-to-string v))
+ ((stringp v) (if (string= v "") (number-to-string default) v))
+ (t (number-to-string default))))
+
+(defun non-empty-string (s)
+ (and (not (eq 'nil s))
+ (not (string= "" s))))
+
+(defun edje-new-program-action-signal-emit (source emission)
+ "Insert new program SIGNAL_EMIT"
+ (interactive "ssource: \nsemission: ")
+ (insert
+ (concat
+ " action: SIGNAL_EMIT \"" source "\" \"" emission "\";\n"
+ )))
+
+(defun edje-new-program-action-state-set (state value target)
+ "Insert new program STATE_SET"
+ (interactive "sstate: \nsvalue (0.0): \nstarget: ")
+ (insert
+ (concat
+ " action: STATE_SET \"" state "\" "
+ (number-or-nil-to-string value 0.0) ";\n"
+ " target: \"" target "\";\n"
+ )))
+
+(defun edje-new-program-action (action)
+ "Insert new program action"
+ (interactive "saction: ")
+ (setq action (upcase action))
+ (cond ((string= action "STATE_SET")
+ (edje-new-program-action-state-set "" 0.0 ""))
+ ((string= action "SIGNAL_EMIT")
+ (edje-new-program-action-signal-emit "" ""))
+ ))
+
+(defun edje-new-program (name signal source action)
+ "Insert new program block"
+ (interactive "sname: \nssignal: \nssource: \nsaction: ")
+ (insert
+ (concat
+ "\n"
+ " program {\n"
+ " name: \"" name "\";\n"
+
+ (if (non-empty-string signal)
+ (concat " signal: \"" signal "\";\n"))
+
+ (if (non-empty-string source)
+ (concat " source: \"" source "\";\n"))
+ ))
+
+ (edje-new-program-action action)
+
+ (insert
+ (concat
+ " }\n"
+ "\n"
+ )))
+
+(defun edje-new-desc-relative (x y &optional defx defy)
+ "Insert new part description 'relative' line"
+ (interactive "sx: \nsy: ")
+ (insert
+ (concat
+ " relative: "
+ (number-or-nil-to-string x defx) " "
+ (number-or-nil-to-string y defy) ";\n"
+ )))
+
+(defun edje-new-desc-offset (x y &optional defx defy)
+ "Insert new part description 'offset' line"
+ (interactive "sx: \nsy: ")
+ (insert
+ (concat
+ " offset: "
+ (number-or-nil-to-string x defx) " "
+ (number-or-nil-to-string y defy) ";\n"
+ )))
+
+(defun edje-new-desc-inherit (name val)
+ "Insert new part description 'inherit' line"
+ (interactive "sname: \nsvalue: ")
+ (insert
+ (concat
+ " inherit: \"" name "\" "
+ (number-or-nil-to-string val 0.0) ";\n"
+ )))
+
+(defun edje-new-desc-text (font size text)
+ "Insert new part description 'text' block"
+ (interactive "sfont: \nssize: \nstext: ")
+ (insert
+ (concat
+ " text {\n"
+ " font: \"" font "\";\n"
+ " size: " (number-or-nil-to-string size) ";\n"
+ " text: \"" text "\";\n"
+ " }\n"
+ )))
+
+(defun edje-new-desc-image (name)
+ "Insert new part description 'image' block"
+ (interactive "sname: ")
+ (insert
+ (concat
+ " image {\n"
+ " normal: \"" name "\";\n"
+ " }\n"
+ )))
+
+(defun edje-new-desc-color (r g b a &optional defr defg defb defa)
+ "Insert new part description 'color' line"
+ (interactive "sred: \nsgreen: \nsblue: \nsalpha: ")
+ (insert
+ (concat
+ " color: "
+ (number-or-nil-to-string r defr) " "
+ (number-or-nil-to-string g defg) " "
+ (number-or-nil-to-string b defb) " "
+ (number-or-nil-to-string a defa) ";\n"
+ )))
+
+(defun edje-new-desc (name val &optional
+ r1_rx r1_ry
+ r2_rx r2_ry
+ r1_ox r1_oy
+ r2_ox r2_oy
+ part_type)
+ "Insert new part description block"
+ (interactive "sName: \nsValue: ")
+ (insert
+ (concat
+ " description {\n"
+ " state: \"" name "\" " (number-or-nil-to-string val 0.0)
";\n"))
+ (if (string= part_type "RECT") (edje-new-desc-color 255 255 255 255))
+ (insert " rel1 {\n")
+ (edje-new-desc-relative r1_rx r1_ry 0.0 0.0)
+ (edje-new-desc-offset r1_ox r1_oy 0 0)
+ (insert
+ (concat
+ " }\n"
+ " rel2 {\n"
+ ))
+ (edje-new-desc-relative r2_rx r2_ry 1.0 1.0)
+ (edje-new-desc-offset r2_ox r2_oy -1 -1)
+ (insert " }\n")
+ (cond ((string= part_type "IMAGE") (edje-new-desc-image ""))
+ ((string= part_type "TEXT") (edje-new-desc-text "" 10 "contents"))
+ )
+ (insert " }\n")
+ )
+
+(defun edje-new-part (name type &optional
+ r1_rx r1_ry
+ r2_rx r2_ry
+ r1_ox r1_oy
+ r2_ox r2_oy)
+ "Insert new part"
+ (interactive "sName: \nsType: ")
+ (setq type (upcase type))
+ (insert
+ (concat
+ "\n"
+ " part {\n"
+ " name: \"" name "\";\n"
+ " type: " type ";\n"
+ " mouse_events: 0;\n"
+ ))
+ (edje-new-desc "default" 0.0 r1_rx r1_ry r2_rx r2_ry r1_ox r1_oy r2_ox r2_oy
type)
+ (insert
+ (concat
+ " }\n"
+ )))
+
+(defun edje-setup-compile ()
+ (set (make-local-variable 'compile-command)
+ (concat "edje_cc " (buffer-file-name))
+ ))
+
+(defun edje-cc ()
+ "Runs edje_cc with current buffer."
+ (interactive)
+ (compile (edje-setup-compile)))
+
+(defvar edje-mode-map
+ (let ((edje-mode-map (make-sparse-keymap)))
+ (define-key edje-mode-map "\C-j" 'newline-and-indent)
+ (define-key edje-mode-map "\C-cp" 'edje-new-part)
+ (define-key edje-mode-map "\C-cd" 'edje-new-desc)
+ (define-key edje-mode-map "\C-cr" 'edje-new-desc-relative)
+ (define-key edje-mode-map "\C-co" 'edje-new-desc-offset)
+ (define-key edje-mode-map "\C-ch" 'edje-new-desc-inherit)
+ (define-key edje-mode-map "\C-cc" 'edje-new-desc-color)
+ (define-key edje-mode-map "\C-ci" 'edje-new-desc-image)
+ (define-key edje-mode-map "\C-ct" 'edje-new-desc-text)
+ (define-key edje-mode-map "\C-cg" 'edje-new-program)
+ (define-key edje-mode-map "\C-ca" 'edje-new-program-action)
+ (define-key edje-mode-map "\C-cs" 'edje-new-program-action-state-set)
+ (define-key edje-mode-map "\C-ce" 'edje-new-program-action-signal-emit)
+ edje-mode-map)
+ "Keymap for Edje major mode")
+
+(add-hook 'c-mode-hook 'edje-setup-compile)
+(add-to-list 'auto-mode-alist '("\\.edc$" . edje-mode))
+
+(defconst edje-font-lock-keywords-1
+ (eval-when-compile
+ (list
+ (list (concat "[ \t]*\\<"
+ (regexp-opt
+ '(
+ "collections"
+ "data"
+ "description"
+ "dragable"
+ "fill"
+ "fonts"
+ "group"
+ "image"
+ "images"
+ "origin"
+ "part"
+ "parts"
+ "program"
+ "programs"
+ "rel1"
+ "rel2"
+ "script"
+ "spectra"
+ "style"
+ "styles"
+ "text"
+ ) t) "\\>\\([ \t]*{\\|\\.\\)")
+ '(1 font-lock-function-name-face))
+
+ ))
+ "Major keywords")
+
+(defconst edje-font-lock-keywords-2
+ (eval-when-compile
+ (append edje-font-lock-keywords-1
+ (list
+ (list
+ (concat "^\\([ \t]*\\|[ \t]*[a-z]+\\.\\|\\)\\<"
+ (regexp-opt
+ '("action"
+ "after"
+ "alias"
+ "align"
+ "angle"
+ "aspect"
+ "aspect_preference"
+ "base"
+ "border"
+ "clip_to"
+ "collections"
+ "color"
+ "color2"
+ "color3"
+ "color_class"
+ "color_classes"
+ "confine"
+ "data"
+ "description"
+ "dragable"
+ "effect"
+ "elipsis"
+ "events"
+ "fill"
+ "fit"
+ "fixed"
+ "font"
+ "fonts"
+ "gradient"
+ "group"
+ "ignore_flags"
+ "image"
+ "images"
+ "in"
+ "inherit"
+ "item"
+ "max"
+ "middle"
+ "min"
+ "mouse_events"
+ "name"
+ "normal"
+ "offset"
+ "origin"
+ "part"
+ "parts"
+ "pointer_mode"
+ "precise_is_inside"
+ "program"
+ "programs"
+ "rel1"
+ "rel2"
+ "relative"
+ "repeat_events"
+ "signal"
+ "size"
+ "smooth"
+ "source"
+ "spectra"
+ "spectrum"
+ "spread"
+ "state"
+ "step"
+ "style"
+ "styles"
+ "tag"
+ "target"
+ "text"
+ "text_class"
+ "text_source"
+ "to"
+ "to_x"
+ "to_y"
+ "transition"
+ "tween"
+ "type"
+ "use_alternate_font_metrics"
+ "visible"
+ "x"
+ "y"
+ ) t) "\\>[ \t]*[:,]")
+ '(2 font-lock-keyword-face))
+ )))
+ "Minor keywords")
+
+(defconst edje-font-lock-keywords-3
+ (eval-when-compile
+ (append edje-font-lock-keywords-2
+ (list
+ (list
+ (concat "\\<"
+ (regexp-opt
+ '(; image options (st_images_image)
+ "RAW"
+ "COMP"
+ "LOSSY"
+ "USER"
+ ; part types (st_collections_group_parts_part_type)
+ "NONE"
+ "RECT"
+ "TEXT"
+ "IMAGE"
+ "SWALLOW"
+ "TEXTBLOCK"
+ "GRADIENT"
+ "GROUP"
+ ; ignore flags
(st_collections_group_parts_part_ignore_flags)
+ ;"NONE"
+ "ON_HOLD"
+ ; pointer mode
(st_collections_group_parts_part_pointer_mode)
+ "AUTOGRAB"
+ "NOGRAB"
+ ; aspect
(st_collections_group_parts_part_description_aspect_preference)
+ "NONE"
+ "VERTICAL"
+ "HORIZONTAL"
+ "BOTH"
+ ; text effect (st_collections_group_parts_part_effect)
+ "NONE"
+ "PLAIN"
+ "OUTLINE"
+ "SOFT_OUTLINE"
+ "SHADOW"
+ "SOFT_SHADOW"
+ "OUTLINE_SHADOW"
+ "OUTLINE_SOFT_SHADOW"
+ "FAR_SHADOW"
+ "FAR_SOFT_SHADOW"
+ "GLOW"
+ ; image fill
(st_collections_group_parts_part_description_fill_type)
+ "SCALE"
+ "TILE"
+ ; program action
(st_collections_group_programs_program_action)
+ "STATE_SET"
+ "ACTION_STOP"
+ "SIGNAL_EMIT"
+ "DRAG_VAL_SET"
+ "DRAG_VAL_STEP"
+ "DRAG_VAL_PAGE"
+ "SCRIPT"
+ ; program transition
(st_collections_group_programs_program_transition)
+ "LINEAR"
+ "SINUSOIDAL"
+ "CUBIC_BEZIER"
+ "ACCELERATE"
+ "DECELERATE"
+ ) t) "\\>")
+ '(1 font-lock-builtin-face))
+ )))
+ "Enumerate values")
+
+(defconst edje-font-lock-keywords-4
+ (eval-when-compile
+ (append edje-font-lock-keywords-3
+ (list
+ (list
+ (concat "[ \t]*#"
+ (regexp-opt
+ '("if"
+ "ifdef"
+ "ifndef"
+ "define"
+ "else"
+ "endif"
+ "include"
+ "undef") t) "[ \t]*")
+ '(1 font-lock-builtin-face))
+ )))
+ "CPP directives")
+
+(defconst edje-font-lock-keywords-5
+ (eval-when-compile
+ (append edje-font-lock-keywords-4
+ (list
+ (list "[ \t]*#undef[ \t]+\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
+ '(1 font-lock-variable-name-face))
+ (list "[ \t]*#define[ \t]+\\([a-zA-Z_][a-zA-Z0-9_]*\\)("
+ '(1 font-lock-function-name-face))
+ (list "[ \t]*#define[ \t]+\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
+ '(1 font-lock-variable-name-face))
+ )))
+ "CPP directives that define constants")
+
+
+(defvar edje-font-lock-keywords edje-font-lock-keywords-5)
+
+(defvar edje-mode-syntax-table
+ (let ((edje-mode-syntax-table (make-syntax-table)))
+ ; This is added so entity names with underscores can be more easily parsed
+ (modify-syntax-entry ?_ "w" edje-mode-syntax-table)
+ (modify-syntax-entry ?/ ". 124b" edje-mode-syntax-table)
+ (modify-syntax-entry ?* ". 23" edje-mode-syntax-table)
+ (modify-syntax-entry ?\n "> b" edje-mode-syntax-table)
+
+ edje-mode-syntax-table)
+ "Syntax table for edje-mode")
+
+(c-add-style
+ "edje"
+ '("gnu"
+ (indent-tabs-mode . nil)
+ (tab-width . 8)
+ (c-basic-offset . 3)
+ (c-backslash-column . 72)
+ (c-hanging-braces-alist .
+ ((block-open after)
+ (brace-list-open after)
+ (substatement-open after))
+ )
+ (c-offsets-alist .
+ ((statement-block-intro . +)
+ (defun-open . 0)
+ (substatement-open . 0)
+ (defun-block-intro . +)
+ (block-open . 0)
+ (label . +)
+ ))))
+
+
+(define-derived-mode edje-mode c-mode "Edje"
+ "Major mode for editing Edje files"
+ (interactive)
+ (use-local-map edje-mode-map)
+ (set-syntax-table edje-mode-syntax-table)
+ (set (make-local-variable 'font-lock-defaults) '(edje-font-lock-keywords))
+ (set (make-local-variable 'require-final-newline) t)
+ (c-set-style "edje")
+ (run-hooks 'edje-mode-hook)
+ )
+
+(provide 'edje-mode)
+
+;;; edje-mode.el ends here
diff --git a/eo-mode.el b/eo-mode.el
new file mode 100644
index 0000000..f455711
--- /dev/null
+++ b/eo-mode.el
@@ -0,0 +1,398 @@
+;;; eo-mode-el -- Major mode for editing Eo (eolian) files
+
+;; Author: Gustavo Sverzut Barbieri <barbi...@profusion.mobi>
+;; Created: 2016-07-29
+;; Keywords: EFL Eo major-mode
+
+;; Copyright (C) 2016 Gustavo Sverzut Barbieri <barbi...@profusion.mobi>
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2 of
+;; the License, or (at your option) any later version.
+
+;; This program is distributed in the hope that it will be
+;; useful, but WITHOUT ANY WARRANTY; without even the implied
+;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+;; PURPOSE. See the GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public
+;; License along with this program; if not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+;; MA 02111-1307 USA
+
+;; To enable for *.eo and *.eot files, add to ~/.emacs:
+;;
+;; (add-to-list 'load-path "SOMEPATH/.emacs.d/site-packages/eo-mode.el")
+;; (add-to-list 'auto-mode-alist '("\\.eo$\\|\\.eot$" . eo-mode))
+;; (autoload 'eo-mode "eo-mode")
+
+
+(defvar eo-mode-hook nil)
+
+(defconst eo-font-lock-units
+ (eval-when-compile
+ (list
+ (list (concat
+ "^\\<"
+ (regexp-opt
+ '(
+ "abstract"
+ "class"
+ "mixin"
+ "interface"
+ "type"
+ "const"
+ "var"
+ "struct"
+ "enum"
+ "import"
+ ) t) "\\>\\(\\(\\s-+@"
+ "\\(extern\\|free([^)]+)\\)"
+ "\\)+\\|\\)\\s-+\\<\\([a-zA-Z_][a-zA-Z0-9_.]*\\)\\>")
+ '(1 font-lock-keyword-face)
+ '(2 font-lock-type-face)
+ '(5 font-lock-function-name-face)
+ )))
+ "Toplevel Units")
+
+(defconst eo-font-lock-blocks
+ (eval-when-compile
+ (append eo-font-lock-units
+ (list
+ (list (concat
+ "^\\s-+"
+ (regexp-opt
+ '(
+ "methods"
+ "events"
+ "implements"
+ "constructors"
+ "params"
+ "keys"
+ "values"
+ ) t) "\\s-*{")
+ '(1 font-lock-builtin-face)
+ ))))
+ "blocks")
+
+(defconst eo-font-lock-blocks-with-modifiers
+ (eval-when-compile
+ (append eo-font-lock-blocks
+ (list
+ (list (concat
+ "^\\s-+"
+ (regexp-opt
+ '(
+ "get"
+ "set"
+ ) t)
+ "\\(\\s-+@"
+ (regexp-opt
+ '(
+ "virtual_pure"
+ ) t)
+ "\\|\\)\\s-*{")
+ '(1 font-lock-builtin-face)
+ '(2 font-lock-type-face)
+ ))))
+ "blocks")
+
+(defconst eo-font-lock-constants
+ (eval-when-compile
+ (append eo-font-lock-blocks-with-modifiers
+ (list
+ (list (concat
+ "\\<"
+ (regexp-opt
+ '(
+ "null"
+ "true"
+ "false"
+ ) t) "\\>")
+ '(1 font-lock-constant-face)
+ ))))
+ "Constants")
+
+(defconst eo-font-lock-event
+ (eval-when-compile
+ (append eo-font-lock-constants
+ (list
+ (list (concat
+ "^\\s-+\\([a-zA-Z][a-zA-Z0-9_,]*\\)\\(\\s-+@"
+ (regexp-opt
+ '(
+ "private"
+ "protected"
+ "beta"
+ "hot"
+ ) t) "\\|\\)\\s-*\\(:\\|;\\)")
+ '(1 font-lock-variable-name-face)
+ '(2 font-lock-type-face)
+ ))))
+ "event")
+
+(defconst eo-font-lock-param
+ (eval-when-compile
+ (append eo-font-lock-event
+ (list
+ (list (concat
+ "^\\s-+\\(@"
+ (regexp-opt
+ '(
+ "in"
+ "out"
+ "inout"
+ ) t)
+ "\\s-+\\|\\)\\([a-zA-Z][a-zA-Z0-9_]*\\)"
+ "\\s-*:[^@]+*\\(\\(\\s-+@"
+ (regexp-opt
+ '(
+ "nonull"
+ "nullable"
+ "optional"
+ ) t)
+ "\\)+\\|\\)\\s-*;"
+ )
+ '(1 font-lock-type-face)
+ '(3 font-lock-variable-name-face)
+ '(4 font-lock-type-face)
+ ))))
+ "parameters")
+
+
+(defconst eo-font-lock-return
+ (eval-when-compile
+ (append eo-font-lock-param
+ (list
+ (list (concat
+ "^\\s-+return\\s-*:[^@]+*\\(\\(\\s-+@"
+ (regexp-opt
+ '(
+ "warn_unused"
+ ) t)
+ "\\)+\\|\\)\\s-*;"
+ )
+ '(1 font-lock-type-face)
+ ))))
+ "return")
+
+(defconst eo-font-lock-default-implementation
+ (eval-when-compile
+ (append eo-font-lock-return
+ (list
+ (list (concat
+ "^\\s-+"
+ (regexp-opt
+ '(
+ "class.constructor"
+ "class.destructor"
+ ) t)
+ "\\s-*;"
+ )
+ '(1 font-lock-builtin-face)
+ ))))
+ "Default Implementation")
+
+(defconst eo-font-lock-implementation
+ (eval-when-compile
+ (append eo-font-lock-default-implementation
+ (list
+ (list (concat
+ "^\\s-+"
+ "\\(@\\(auto\\|empty\\)\\s-+\\|\\)"
+ "\\([a-zA-Z.][a-zA-Z0-9_.]*\\)"
+ "\\s-*;"
+ )
+ '(1 font-lock-type-face)
+ '(3 font-lock-variable-name-face)
+ ))))
+ "Implementation")
+
+(defconst eo-font-lock-property
+ (eval-when-compile
+ (append eo-font-lock-implementation
+ (list
+ (list (concat
+ "^\\s-+\\(@property\\)\\s-+"
+ "\\([a-zA-Z][a-zA-Z0-9_]*\\)\\(\\(\\s-+@"
+ (regexp-opt
+ '(
+ "protected"
+ "class"
+ "virtual_pure"
+ "part"
+ ) t)
+ "\\)+\\|\\)\\s-*{"
+ )
+ '(1 font-lock-type-face)
+ '(2 font-lock-variable-name-face)
+ '(3 font-lock-type-face)
+ ))))
+ "Property method")
+
+(defconst eo-font-lock-method
+ (eval-when-compile
+ (append eo-font-lock-property
+ (list
+ (list (concat
+ "^\\s-+\\([a-zA-Z][a-zA-Z0-9_]*\\)\\(\\(\\s-+@"
+ (regexp-opt
+ '(
+ "protected"
+ "const"
+ "class"
+ "virtual_pure"
+ ) t)
+ "\\)+\\|\\)\\s-*{"
+ )
+ '(1 font-lock-variable-name-face)
+ '(2 font-lock-type-face)
+ ))))
+ "Method")
+
+
+(defconst eo-font-lock-fields
+ (eval-when-compile
+ (append eo-font-lock-method
+ (list
+ (list "^\\s-+\\<\\([a-zA-Z0-9][a-zA-Z0-9_,]*\\)\\>:"
+ '(1 font-lock-variable-name-face)
+ ))))
+ "Fields & Events without modifiers")
+
+(defconst eo-font-lock-complex-type
+ (eval-when-compile
+ (append eo-font-lock-fields
+ (list
+ (list (concat
+ "\\<"
+ (regexp-opt
+ '(
+ "accessor"
+ "array"
+ "iterator"
+ "hash"
+ "list"
+ ) t)
+ "\\>\\s-*<"
+ )
+ '(1 font-lock-builtin-face)
+ ))))
+ "Complex types, C++ template style.")
+
+(defconst eo-font-lock-expression-functions
+ (eval-when-compile
+ (append eo-font-lock-complex-type
+ (list
+ (list (concat
+ "\\<"
+ (regexp-opt
+ '(
+ "own"
+ "const"
+ "free"
+ ) t)
+ "\\>\\s-*("
+ )
+ '(1 font-lock-builtin-face)
+ ))))
+ "Expression Functions")
+
+(defconst eo-font-lock-known-types
+ (eval-when-compile
+ (append eo-font-lock-expression-functions
+ (list
+ (list (concat
+ "\\<"
+ (regexp-opt
+ '(
+ "byte"
+ "ubyte"
+ "char"
+ "short"
+ "ushort"
+ "int"
+ "uint"
+ "long"
+ "ulong"
+ "llong"
+ "ullong"
+ "int8"
+ "uint8"
+ "int16"
+ "uint16"
+ "int32"
+ "uint32"
+ "int64"
+ "uint64"
+ "int128"
+ "uint128"
+ "size"
+ "ssize"
+ "intptr"
+ "uintptr"
+ "ptrdiff"
+ "time"
+ "float"
+ "double"
+ "bool"
+ "void"
+ "void_ptr"
+ ) t)
+ "\\>"
+ )
+ '(1 font-lock-builtin-face)
+ ))))
+ "Expression Functions")
+
+(defgroup eo nil
+ "EFL's Eo formatting."
+ :prefix "eo-"
+ :group 'faces)
+
+(defface eo-docstring-face
+ '((t :inherit font-lock-string-face))
+ "Face used to highlight documentation strings."
+ :group 'eo)
+
+(defconst eo-font-lock-docstring
+ (eval-when-compile
+ (append eo-font-lock-known-types
+ (list
+ (list "\\(\\[\\[.*\\]\\]\\)"
+ '(1 'eo-docstring-face t) ;; t = overrides comment existing
formatting
+ ))))
+ "Documentation")
+
+(defvar eo-font-lock eo-font-lock-docstring)
+
+(defvar eo-mode-syntax-table
+ (let ((eo-mode-syntax-table (make-syntax-table)))
+ ;; [ is open and matches ], but [[ is a docstring starter
+ (modify-syntax-entry ?[ "(]12c" eo-mode-syntax-table)
+ (modify-syntax-entry ?] ")[34c" eo-mode-syntax-table)
+ eo-mode-syntax-table)
+ "Syntax table for eo-mode")
+
+(c-add-style
+ "eo"
+ '("gnu"
+ (indent-tabs-mode . nil)
+ (tab-width . 8)
+ (c-basic-offset . 4)
+ (c-backslash-column . 72)
+ ))
+
+(define-derived-mode eo-mode c-mode "Eo"
+ "Major mode for editing Eo files"
+ (interactive)
+ (use-local-map eo-mode-map)
+ (set-syntax-table eo-mode-syntax-table)
+ (set (make-local-variable 'font-lock-defaults) '(eo-font-lock))
+ (set (make-local-variable 'require-final-newline) t)
+ (c-set-style "eo")
+ (run-hooks 'eo-mode-hook)
+ )
+
+(provide 'eo-mode)
--
