- 55 名前：クラスとか括弧無し関数には全然対応出来ない…
(require 'generic-x)
(define-generic-mode uwsc-mode
;; comment char
'("//" )
;; Keyword
'("if" "ifb" "endif" "else" "exit" "for" "next" "while" "wend" "switch") ;;ホントはもっと多数 nilも可
;; color
'(("[A-Za-z0-9\\.]+(" . my-face-function) ;;faceはお好きに
(")" . my-face-function)
("(" . my-face-function)
("-?[0-9.]+" . my-face-numeric))
;; filename (regexp)
'("\\.[uU][wW][sS]$")
;; Initial Function
nil
"Major mode for UWSC" )
(defface my-face-function '((t (:foreground "Green"))) nil)
(defface my-face-numeric '((t (:foreground "Yellow" :underline t))) nil)
(defvar my-face-function 'my-face-function)
(defvar my-face-numeric 'my-face-numeric) [] - [ここ壊れてます]
|
 |
