regex - face font in c-mode when adding new keyword -

-

i trying customize added words colored differently default face-font colors.

this doing:

(defconst lconfig-font-lock-faces     (list     '(font-lock-function-name-face      ((((class color)) (:foreground "darkblue"  :bold t))))     '(font-lock-constant-face      ((((class color)) (:foreground "black"     :bold t))))      '(font-lock-builtin-face      ((((class color)) (:foreground nil))))     '(font-lock-preprocessor-face      ((((class color)) (:foreground nil))))     )   )  (autoload 'custom-set-faces "font-lock" "set color scheme" t) (autoload 'font-lock-fontify-buffer "font-lock" "fontify buffer" t) (progn (apply 'custom-set-faces lconfig-font-lock-faces)        (add-hook 'c-mode-common-hook 'font-lock-fontify-buffer)        (add-hook 'emacs-lisp-mode-hook 'font-lock-fontify-buffer)        ) (global-font-lock-mode t)  (font-lock-add-keywords  'c-mode  '(    ("^#[ \t]*\\(ifdef\\|else\\|ifndef\\|if !?defined\\|if\\|elif\\|endif\\|ident\\).*$" 1 font-lock-constant-face)                  ;#defines    ("\\(^#[ \t]*define\\|^#[ \t]*include\\|^#[ \t]*undef\\).*$" 1 font-lock-function-name-face)                                     ;other #s  ) )

unfortunately when opening c file see #include , #define being black colored. although should match regular expressions , turn dark blue. #ifdef , #endif in light dark color , not bold.

any appreciated.

here examples modify -- e.g., change c-mode instead of latex-mode, , modify colors , regexp. definitions become more complex, order in appear in list may trump previous definitions -- if doing should working, check order in appear.

(defvar lawlist-super-hotpink1 (make-face 'lawlist-super-hotpink1)) (set-face-attribute 'lawlist-super-hotpink1 nil :background "white" :foreground "hotpink1" :bold t :underline nil :font "courier" :height 200)  (defvar lawlist-super-seagreen (make-face 'lawlist-super-seagreen)) (set-face-attribute 'lawlist-super-seagreen nil :background "white" :foreground "seagreen" :bold t :underline nil :font "courier" :height 200)  (defvar lawlist-keywords-01     (concat "\\b\\(?:"         (regexp-opt (list "insert" "client" "recipient" "document-name" ))     "\\)\\b"))  (defvar lawlist-keywords-02     (list (concat "\\b\\(?:"         (regexp-opt (list "fixme" "to-do" "bugs" ))     "\\)\\b") 0 'lawlist-red t))  (font-lock-add-keywords 'latex-mode (list      (list (concat "\\(\{\\)\\(\\\\bf\\)\\(\\\\uline\\)\\(\{\\)\\(\\(.\\|\n\\)+?\\)\\(\}\\)\\(\}\\)")         '(1 lawlist-regular t)         '(2 lawlist-red t)         '(3 lawlist-blue t)         '(4 lawlist-regular t)         '(5 lawlist-bold-underline t)         '(7 lawlist-regular t)         '(8 lawlist-regular t))      (list (concat         "\\("lawlist-keywords-01"\\)") 1 'lawlist-bumble-bee t)      lawlist-keywords-02      (list (concat "\\(\\blawlist\\b\\)") 1 'lawlist-pink t)  ))   (font-lock-add-keywords 'latex-mode '(  ("include\\|revised" 0 lawlist-red t)  ("\\(foo\\)-\\(bar\\)" (1 lawlist-super-orange t) (2 lawlist-super-cyan t))  ("\\(hello\\) \\(world\\)" (1 lawlist-super-orange t) (2 lawlist-super-blue t))  ) 'prepend)

edit

(font-lock-add-keywords 'c-mode '(  ("^#[ \t]*\\(ifdef\\|else\\|ifndef\\|if !?defined\\|if\\|elif\\|endif\\|ident\\).*$" (1 lawlist-super-hotpink1 t) )  ("\\(^#[ \t]*define\\|^#[ \t]*include\\|^#[ \t]*undef\\).*$" (1 lawlist-super-seagreen t))  ) 'prepend)

Comments

Post a Comment

Popular posts from this blog

c++ - Creating new partition disk winapi -

-
i'am trying create new partition , mount volume new, thought createfile let me this, code : lpctstr lpfilename=l"\\\\.\\device\\harddisk0\\partition3"; handle handl=createfile( lpfilename, generic_read | generic_write, file_share_read | file_share_write, null, create_always, file_attribute_normal, null ); if (handl==invalid_handle_value) { qdebug()<<"handl invalid"<<" error"<<getlasterror();} bool success = definedosdevice(ddd_raw_target_path,l"i:",l"\\device\\harddisk0\\partition3"); if(!success) qdebug()<<" definedosdevice failed "<<getlasterror(); bflag = getvolumenameforvolumemountpoint( l"i:\\", // input volume mount point or directory /** u in dir
Read more

Android Prevent Bluetooth Pairing Dialog -

-
i'm developing internal application uses bluetooth printing. want bluetooth pairing occur without user input. have managed working trapping android.bluetooth.device.action.pairing_request broadcast. in broadcast receiver call setpin method, , pairing works ok, bluetoothpairingdialog displayed second or two, disappears - see link below. https://github.com/android/platform_packages_apps_settings/blob/master/src/com/android/settings/bluetooth/bluetoothpairingdialog.java since broadcast non-ordered, can't call abortbroadcast() , , wondering if there other way prevent pairing dialog appearing. can hook window manager in way? i haven't been able come way without modifying sdk. if you're oem, it's easy (i'm on 4.3): in packages/apps/settings/androidmanifest.xml, comment intent filter pairing dialog: <activity android:name=".bluetooth.bluetoothpairingdialog" android:label="@string/bluetooth_pairing_request"
Read more

VBA function to include CDATA -

-
i have following function include cdata: function cdatasection() dim objdom domdocument dim objkmlrootelement ikmldomelement dim objkmlelement ikmldomelement dim cdata ikmldomcdatasection set objdom = new domdocument set objkmlrootelement = objdom.createelement("balloonstyle") objdom.appendchild objkmlrootelement set objkmlelement = objdom.createelement("text") objkmlrootelement.appendchild objkmlelement set cdata = objdom.createcdatasection("text") cdata.data = "<![cdata[<b>latitude = $[latitude]</b>?]]>;" end function when run above, getting error "user defined data type not found" function. yes ripster says find library reference. vba window tools>references for list of relevant references see... http://msdn.microsoft.com/en-us/library/windows/desktop/ms763701%28v=vs.85%29.aspx however, if have hard time tracking down reference, replace dim sta
Read more