barak/dotfiles
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Markup numbers in emacs

Browse source 
git-svn-id: http://photonzero.com/dotfiles/trunk@60 23f722f6-122a-0410-8cef-c75bd312dd78
This commit is contained in:
michener 2010-08-19 22:42:25 +00:00
parent 7d12dd88fa
commit 0bf73b6871
2 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

16
.emacs.d/themes/color-theme-barak.el
View file

@ -1,15 +1,16 @@
(defun color-theme-barak ()
"Color theme by Barak Michener, created 08-11-2010"
(interactive)
(color-theme-install
'(color-theme-barak
((background-color . "black")
((background-color . "#000000")
(background-mode . dark)
(border-color . "black")
(border-color . "#000000")
(cursor-color . "#A7A7A7")
(foreground-color . "#E0E0E0")
(mouse-color . "sienna1"))
(default ((t (:background "black" :foreground "#E0E0E0"))))
(default ((t (:background "#000000" :foreground "#E0E0E0"))))
(blue ((t (:foreground "blue"))))
(bold ((t (:bold t))))
(bold-italic ((t (:bold t))))
@ -23,10 +24,8 @@
(font-lock-keyword-face ((t (:bold t :foreground "#4876FF"))))
(font-lock-preprocessor-face ((t (:foreground "#E9DFEF"))))
(font-lock-reference-face ((t (:foreground "#E1634F"))))
(font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
(font-lock-regexp-grouping-construct ((t (:foreground "red"))))
(font-lock-string-face ((t (:foreground "#F05656"))))
(font-lock-type-face ((t (:foreground "#73E1E6"))))
(font-lock-variable-name-face ((t (:foreground "#00BFFF"))))
@ -41,4 +40,11 @@
(text-cursor ((t (:background "yellow" :foreground "black"))))
(toolbar ((t (nil))))
(underline ((nil (:underline nil))))
(zmacs-region ((t (:background "snow" :foreground "ble")))))))
(defun color-theme-barak-extras ()
; Highlight numbers
(add-hook 'after-change-major-mode-hook
(lambda () (font-lock-add-keywords
nil
'(("\\<\\(\\(0[xX]\\|0[bB]\\)?-?[0-9a-fA-F]+\\.?[0-9]*?[fFlL]?\\)\\>" 1 '((t (:foreground "#E3AC3D")))))))))