diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2005-11-19 06:27:40 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2005-11-19 06:27:40 +0000 |
commit | 8efea516e943d70802ffd4d79781c072d4822251 (patch) | |
tree | df6dc8ff3f42e0fcfd5439e949a052c791ed3884 /scripts | |
parent | d7652c9754ab7a306fa0b214898cbb098f3e7c08 (diff) |
now colorizes all object names
svn path=/trunk/; revision=3970
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/pd-mode.el | 39 |
1 files changed, 17 insertions, 22 deletions
diff --git a/scripts/pd-mode.el b/scripts/pd-mode.el index c18ee920..29768a03 100644 --- a/scripts/pd-mode.el +++ b/scripts/pd-mode.el @@ -62,12 +62,17 @@ (list (list (concat ; object types "^#X \\(" - (regexp-opt '("canvas" "connect" "floatatom" "msg" - "obj" "restore" "scalar" "struct" + (regexp-opt '("connect" "floatatom" "msg" "obj" "scalar" "struct" "symbolatom" "text")) "\\) ") 1 'font-lock-type-face) + (list (concat ; object types + "\\(^#[NX] " + (regexp-opt '("canvas" "restore")) + "\\) ") + 1 'font-lock-warning-face) + ; connect numbers (list "^#X connect \\([0-9]+\\) [0-9]+ [0-9]+ [0-9]+" 1 'font-lock-variable-name-face) @@ -87,29 +92,19 @@ (list "\\(^#X\\)" 0 'font-lock-builtin-face t) - (list "\\(^#N\\)" 0 'font-lock-constant-face t) +; (list "\\(^#N\\)" 0 'font-lock-constant-face t) ; (list "^#N.*$" 0 'font-lock-comment-face t) - (list (concat ; object names - "\\Wobj\\W[0-9]+\\W[0-9]+\\W\\(" - (regexp-opt '("+" "+~" "-" "-~" - "a2l" "adc~" "any2list" "bang" "bng" "cnv" - "dac~" "del" "delay" - "expr" - "f" "float" - "hsl" - "i" "int" "loadbang" - "makefilename" "metro" "mod" - "openpanel" - "pack" "pddp" "pddplink" - "print" - "r" "route" - "s" "savepanel" "sel" "select" "symbol" - "t" "tgl" "trigger" - "unpack" "vsl")) - "\\)\\W") - 1 'font-lock-constant-face))) + (list "^#X obj [0-9]+ [0-9]+ \\([a-zA-Z0-9+*._-]+\\)[ ;]" + 1 'font-lock-constant-face t) + + (list "^#X msg [0-9]+ [0-9]+ \\([a-zA-Z0-9+*._-]+\\);" + 1 'font-lock-variable-name-face) + +; (list "^#X text [0-9]+ [0-9]+ \\(.*\\);" +; 1 'font-lock-comment-face) + )) "Expressions to highlight in Pd config buffers.") (put 'pd-mode 'font-lock-defaults '(pd-font-lock-keywords nil t |