Skip to content

Instantly share code, notes, and snippets.

@DeaR
Created May 11, 2012 09:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save DeaR/2658557 to your computer and use it in GitHub Desktop.
Save DeaR/2658557 to your computer and use it in GitHub Desktop.
#xyzzy 0.2.2.236で実装したCSS3キーワードをcss+-modeで使う
(defun css+-set-local-variable ()
"css+-modeのlocal-variable設定"
(setf mode-name (format nil "CSS+~A" ed::*css-level*))
(setf ed::*css+-completion-list (ed::css-completion-list))
(and (ed::css-keyword-file)
(null (ed::css-keyword-hash-table))
(setf (ed::css-keyword-hash-table)
(load-keyword-file (ed::css-keyword-file) t)))
(when (ed::css-keyword-hash-table)
(make-local-variable 'keyword-hash-table)
(setf keyword-hash-table (ed::css-keyword-hash-table))))
(add-hook '*css+-mode-hook* 'css+-set-local-variable)
(defun css+2-mode ()
(interactive)
(setf ed::*css-level* 2)
(css+-mode))
(defun css+3-mode ()
(interactive)
(setf ed::*css-level* 3)
(css+-mode))
@DeaR
Copy link
Author

DeaR commented May 11, 2012

おもっきり css-mode のシンボルを流用しまくってるが(・ε・)キニシナイ!!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment