From 92f8e013eaa62da6658556924f9a08cf31c75565 Mon Sep 17 00:00:00 2001 From: Tom Hacohen Date: Mon, 5 Dec 2016 12:34:43 +0000 Subject: [PATCH] Emacs configs: Move to designated repo. --- data/edje/edje-mode.el | 513 ----------------------------------------- data/eo/eo-mode.el | 398 -------------------------------- 2 files changed, 911 deletions(-) delete mode 100644 data/edje/edje-mode.el delete mode 100644 data/eo/eo-mode.el diff --git a/data/edje/edje-mode.el b/data/edje/edje-mode.el deleted file mode 100644 index b0d8602234..0000000000 --- a/data/edje/edje-mode.el +++ /dev/null @@ -1,513 +0,0 @@ -;;; edje-mode-el -- Major mode for editing Edje files - -;; Author: Gustavo Sverzut Barbieri -;; 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 - -;; 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/data/eo/eo-mode.el b/data/eo/eo-mode.el deleted file mode 100644 index f455711ed7..0000000000 --- a/data/eo/eo-mode.el +++ /dev/null @@ -1,398 +0,0 @@ -;;; eo-mode-el -- Major mode for editing Eo (eolian) files - -;; Author: Gustavo Sverzut Barbieri -;; Created: 2016-07-29 -;; Keywords: EFL Eo major-mode - -;; Copyright (C) 2016 Gustavo Sverzut Barbieri - -;; 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)