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

10
.emacs.d/init.el
View file

@ -27,6 +27,7 @@
(setq viper-search-wrap-around t)
(setq viper-no-multiple-ESC t)
(setq viper-translate-all-ESC-keysequences nil)
(setq viper-always t)
(setq viper-vi-style-in-minibuffer nil)
;(define-key ac-completing-map "\t" 'ac-fuzzy-complete)
;(define-key ac-completing-map "\r" nil)
@ -69,12 +70,13 @@
(vimpulse-map "gw" 'vimpulse-search-forward-for-symbol-at-point)
(vimpulse-map "gK" 'kill-buffer-and-window)
;(define-key viper-insert-global-user-map "\C-d" 'delete-char))
(add-hook 'window-setup-hook 'delete-other-windows)
; Basic frame defaults
(let ((background-color "#2F2F2F")
(foreground-color "LightGrey")
(fname "Deja Vu Sans Mono-15")
(fname "Inconsolata-15")
(fheight 45)
(fwidth 115))
@ -89,15 +91,11 @@
)
(custom-set-variables '(inhibit-startup-screen t))
(custom-set-faces)
; Run color-theme
(color-theme-initialize)
;(require 'color-theme-barak)
(color-theme-barak)
(color-theme-barak-extras)
;
;(defun my-emacs-startup-hook () (my-close-scratch)) (add-hook 'emacs-startup-hook 'my-emacs-startup-hook)
(defadvice viper-maybe-checkout (around viper-svn-checkin-fix activate)
"Advise viper-maybe-checkout to ignore svn files."
(let ((file (expand-file-name (buffer-file-name buf))))

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")))))))))