From 8efea516e943d70802ffd4d79781c072d4822251 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sat, 19 Nov 2005 06:27:40 +0000 Subject: now colorizes all object names svn path=/trunk/; revision=3970 --- scripts/pd-mode.el | 39 +++++++++++++++++---------------------- 1 file 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 -- cgit v1.2.1