convert to neobundle, disable eclim, work on emacs
This commit is contained in:
parent
01aa8955da
commit
924d2b4bf9
217 changed files with 56 additions and 33678 deletions
|
|
@ -1,37 +0,0 @@
|
|||
(source gnu)
|
||||
(source marmalade)
|
||||
(source melpa)
|
||||
(source org)
|
||||
|
||||
(depends-on "ack-and-a-half")
|
||||
(depends-on "auto-complete")
|
||||
(depends-on "auto-complete-clang")
|
||||
(depends-on "auto-complete-clang-async")
|
||||
(depends-on "cask")
|
||||
(depends-on "cedit")
|
||||
(depends-on "company-go")
|
||||
(depends-on "dirtree")
|
||||
(depends-on "elpy")
|
||||
(depends-on "epc")
|
||||
(depends-on "evil")
|
||||
(depends-on "evil-leader")
|
||||
(depends-on "exec-path-from-shell")
|
||||
(depends-on "flx-ido")
|
||||
(depends-on "flycheck")
|
||||
(depends-on "git-gutter")
|
||||
(depends-on "go-autocomplete")
|
||||
(depends-on "go-mode")
|
||||
(depends-on "go-mode")
|
||||
(depends-on "grizzl")
|
||||
(depends-on "jedi")
|
||||
(depends-on "key-chord")
|
||||
(depends-on "magit")
|
||||
(depends-on "neotree")
|
||||
(depends-on "pallet")
|
||||
(depends-on "powerline")
|
||||
(depends-on "powerline-evil")
|
||||
(depends-on "projectile")
|
||||
(depends-on "relative-buffers")
|
||||
(depends-on "tabbar")
|
||||
(depends-on "yasnippet")
|
||||
(depends-on "zenburn-theme")
|
||||
276
.emacs.d/init.el
276
.emacs.d/init.el
|
|
@ -1,266 +1,12 @@
|
|||
;; /This/ file (~init.el~) that you are reading
|
||||
;; should be in this folder
|
||||
(add-to-list 'load-path "~/.emacs.d/")
|
||||
(add-to-list 'load-path "~/.emacs.d/neotree")
|
||||
(setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
|
||||
("org" . "http://orgmode.org/elpa/")
|
||||
("marmalade" . "http://marmalade-repo.org/packages/")
|
||||
("melpa-stable" . "http://melpa-stable.milkbox.net/packages/")))
|
||||
(package-initialize)
|
||||
|
||||
(if (< emacs-major-version 23)
|
||||
(defun characterp (obj)
|
||||
(and (char-or-string-p obj) (not (stringp obj)))))
|
||||
|
||||
(fset 'yes-or-no-p 'y-or-n-p)
|
||||
(menu-bar-mode -1)
|
||||
|
||||
(setq tab-width 4)
|
||||
(setq indent-tabs-mode nil)
|
||||
|
||||
;; Package Manager
|
||||
;; See ~Cask~ file for its configuration
|
||||
;; https://github.com/cask/cask
|
||||
(require 'cask "~/.cask/cask.el")
|
||||
(cask-initialize)
|
||||
|
||||
;; Keeps ~Cask~ file in sync with the packages
|
||||
;; that you install/uninstall via ~M-x list-packages~
|
||||
;; https://github.com/rdallasgray/pallet
|
||||
(require 'pallet)
|
||||
|
||||
;; Root directory
|
||||
(setq root-dir (file-name-directory
|
||||
(or (buffer-file-name) load-file-name)))
|
||||
(setq make-backup-files nil)
|
||||
(setq auto-save-default nil)
|
||||
|
||||
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/")
|
||||
;; Don't show startup screen
|
||||
(let ((background-color "#2F2F2F")
|
||||
(foreground-color "LightGrey")
|
||||
(fname "Inconsolata-13")
|
||||
(fheight 45)
|
||||
(fwidth 115))
|
||||
|
||||
(set-default-font fname)
|
||||
(add-to-list 'default-frame-alist (cons 'font fname))
|
||||
; (set-background-color background-color)
|
||||
; (add-to-list 'default-frame-alist (cons 'background-color background-color))
|
||||
; (set-foreground-color foreground-color)
|
||||
; (add-to-list 'default-frame-alist (cons 'foreground-color foreground-color))
|
||||
(add-to-list 'default-frame-alist (cons 'height fheight))
|
||||
(add-to-list 'default-frame-alist (cons 'width fwidth))
|
||||
)
|
||||
(setq inhibit-startup-screen t)
|
||||
|
||||
;; Show keystrokes
|
||||
(setq echo-keystrokes 0.02)
|
||||
|
||||
;; Path
|
||||
(require 'exec-path-from-shell)
|
||||
(when (memq window-system '(mac ns))
|
||||
(exec-path-from-shell-initialize))
|
||||
(global-relative-buffers-mode)
|
||||
|
||||
;; Tabbar
|
||||
(defun autohide-tabbar ()
|
||||
"Make tabbar briefly show itself while you are switching
|
||||
buffers with shortcuts. Tested with GNU Emacs 23."
|
||||
(defvar *tabbar-autohide-delay* 3)
|
||||
(interactive)
|
||||
(tabbar-mode nil)
|
||||
(defvar *tabbar-autohide-timer* nil)
|
||||
(defun renew-tabbar-autohide-timer ()
|
||||
(if (timerp *tabbar-autohide-timer*)
|
||||
(cancel-timer *tabbar-autohide-timer*))
|
||||
(setf *tabbar-autohide-timer*
|
||||
(run-with-timer
|
||||
3 nil (lambda ()
|
||||
(tabbar-mode -1)
|
||||
(setf *tabbar-autohide-timer*
|
||||
nil)))))
|
||||
(global-set-key
|
||||
[C-next]
|
||||
(lambda ()
|
||||
(interactive)
|
||||
(if tabbar-mode
|
||||
(tabbar-forward)
|
||||
(tabbar-mode 1))
|
||||
(renew-tabbar-autohide-timer)))
|
||||
(global-set-key
|
||||
[C-prior]
|
||||
(lambda ()
|
||||
(interactive)
|
||||
(if tabbar-mode
|
||||
(tabbar-backward)
|
||||
(tabbar-mode 1))
|
||||
(renew-tabbar-autohide-timer))))
|
||||
(autohide-tabbar)
|
||||
|
||||
;; Evil!
|
||||
(require 'evil-leader)
|
||||
(global-evil-leader-mode)
|
||||
(evil-leader/set-leader ",")
|
||||
(require 'evil)
|
||||
(evil-mode 1)
|
||||
(setq evil-default-cursor t)
|
||||
|
||||
;; Jedi.el
|
||||
(add-hook 'python-mode-hook 'jedi:setup)
|
||||
(setq jedi:setup-keys t) ; optional
|
||||
(setq jedi:complete-on-dot t) ; optional
|
||||
|
||||
;; Git
|
||||
(require 'magit)
|
||||
(eval-after-load 'magit
|
||||
(progn '(global-set-key (kbd "C-x g") 'magit-status)))
|
||||
|
||||
;; gitgutter
|
||||
(global-git-gutter-mode)
|
||||
(custom-set-variables
|
||||
'(git-gutter:hide-gutter t))
|
||||
|
||||
;; flx-ido completion system, recommended by Projectile
|
||||
(require 'flx-ido)
|
||||
(require 'grizzl)
|
||||
(flx-ido-mode 1)
|
||||
;; change it if you have a fast processor.
|
||||
(setq flx-ido-threshhold 1000)
|
||||
|
||||
;; Project management
|
||||
(require 'ack-and-a-half)
|
||||
(require 'projectile)
|
||||
(setq projectile-completion-system 'grizzl)
|
||||
(projectile-global-mode)
|
||||
|
||||
; Autocomplete
|
||||
(require 'auto-complete-config)
|
||||
(ac-config-default)
|
||||
(setq ac-dwim t)
|
||||
(setq ac-expand-on-auto-complete nil)
|
||||
(setq ac-use-fuzzy t)
|
||||
(setq ac-auto-start t)
|
||||
(define-key ac-completing-map (kbd "<escape>") 'ac-stop)
|
||||
|
||||
; Company-mode autocomplete
|
||||
(require 'company) ; load company mode
|
||||
(require 'company-go) ; load company mode go backend
|
||||
(setq company-tooltip-limit 20) ; bigger popup window
|
||||
(setq company-minimum-prefix-length 0) ; autocomplete right after '.'
|
||||
(setq company-idle-delay .3) ; shorter delay before autocompletion popup
|
||||
(setq company-echo-delay 0) ; removes annoying blinking
|
||||
(setq company-begin-commands '(self-insert-command)) ; start autocompletion only after typing
|
||||
|
||||
;; Snippets
|
||||
;; https://github.com/capitaomorte/yasnippet
|
||||
(require 'yasnippet)
|
||||
(yas-load-directory (concat root-dir "snippets"))
|
||||
(yas-global-mode 1)
|
||||
|
||||
;; Neotree
|
||||
(require 'neotree)
|
||||
(menu-bar-mode -1)
|
||||
|
||||
(require 'key-chord)
|
||||
(require 'tabbar)
|
||||
|
||||
;; Functions
|
||||
(defun move-cursor-next-pane ()
|
||||
"Move cursor to the next pane."
|
||||
(interactive)
|
||||
(other-window 1))
|
||||
|
||||
(defun move-cursor-previous-pane ()
|
||||
"Move cursor to the previous pane."
|
||||
(interactive)
|
||||
(other-window -1))
|
||||
;; Evil Key Defines
|
||||
(define-key evil-normal-state-map "gc" 'kill-buffer-and-window)
|
||||
(define-key evil-normal-state-map "gn" 'tabbar-forward-tab)
|
||||
(define-key evil-normal-state-map "gp" 'tabbar-backward-tab)
|
||||
(define-key evil-normal-state-map (kbd "C-e") 'move-end-of-line)
|
||||
(define-key evil-normal-state-map (kbd "C-a") 'move-beginning-of-line)
|
||||
(define-key evil-normal-state-map (kbd "C-j") 'move-cursor-next-pane)
|
||||
(define-key evil-normal-state-map (kbd "C-k") 'move-cursor-previous-pane)
|
||||
|
||||
|
||||
(define-key evil-insert-state-map (kbd "C-e") 'move-end-of-line)
|
||||
(define-key evil-insert-state-map (kbd "C-a") 'move-beginning-of-line)
|
||||
;(setq key-chord-two-keys-delay 0.5)
|
||||
(key-chord-define evil-insert-state-map "jj" 'evil-normal-state)
|
||||
(key-chord-mode 1)
|
||||
(evil-leader/set-key
|
||||
"o" 'projectile-switch-to-buffer
|
||||
"t" 'projectile-find-file
|
||||
)
|
||||
|
||||
(load-theme 'barak t)
|
||||
|
||||
|
||||
|
||||
|
||||
;; _
|
||||
;; | |__ _ _ _ __ _ _ _ __ _ __ _ ___ ___
|
||||
;; | / _` | ' \/ _` | || / _` / _` / -_|_-<
|
||||
;; |_\__,_|_||_\__, |\_,_\__,_\__, \___/__/
|
||||
;; |___/ |___/
|
||||
(add-hook 'go-mode-hook (lambda ()
|
||||
(add-hook 'before-save-hook #'gofmt-before-save)
|
||||
(setq indent-tabs-mode t)
|
||||
(set (make-local-variable 'company-backends) '(company-go))
|
||||
(company-mode)))
|
||||
|
||||
|
||||
|
||||
|
||||
;; Hack to get *Messages* in viper-mode.
|
||||
;; ;; (must be done after loading viper)
|
||||
;; ;; Futzing with fundamental-mode doesn't seem to help.
|
||||
;; (save-excursion
|
||||
;; (set-buffer "*Messages*")
|
||||
;; (viper-change-state-to-vi))
|
||||
|
||||
|
||||
;Tabbar settings (Simple groups)
|
||||
;(defun tabbar-buffer-groups ()
|
||||
;"Return the list of group names the current buffer belongs to.
|
||||
;This function is a custom function for tabbar-mode's tabbar-buffer-groups.
|
||||
;This function group all buffers into 3 groups:
|
||||
;Those Dired, those user buffer, and those emacs buffer.
|
||||
;Emacs buffer are those starting with “*”."
|
||||
;(list
|
||||
;(cond
|
||||
;((string-equal "*" (substring (buffer-name) 0 1))
|
||||
;"Emacs Buffer"
|
||||
;)
|
||||
;((eq major-mode 'dired-mode)
|
||||
;"Dired"
|
||||
;)
|
||||
;(t
|
||||
;"User Buffer"
|
||||
;)
|
||||
;))) ; from Xah Lee
|
||||
;(setq tabbar-buffer-groups-function 'tabbar-buffer-groups)
|
||||
|
||||
;(tabbar-mode)
|
||||
|
||||
;(add-to-list 'ex-token-alist '("ls" (list-buffers)))
|
||||
;(add-to-list 'ex-token-alist '("mx" (icicle-execute-extended-command)))
|
||||
;(vimpulse-map "gn" 'tabbar-forward-tab)
|
||||
;(vimpulse-map "gp" 'tabbar-backward-tab)
|
||||
;(vimpulse-map "gw" 'vimpulse-search-forward-for-symbol-at-point)
|
||||
;(vimpulse-map "gK" 'kill-buffer-and-window)
|
||||
;(vimpulse-map "gc" 'kill-buffer-and-window)
|
||||
;(define-key viper-insert-global-user-map "\C-d" 'delete-char))
|
||||
;(define-key evil-normal-state-map "gn" 'tabbar-forward-tab)
|
||||
;(define-key evil-normal-state-map "gp" 'tabbar-backward-tab)
|
||||
|
||||
;(add-hook 'window-setup-hook 'delete-other-windows)
|
||||
(custom-set-variables
|
||||
;; custom-set-variables was added by Custom.
|
||||
;; If you edit it by hand, you could mess it up, so be careful.
|
||||
;; Your init file should contain only one such instance.
|
||||
;; If there is more than one, they won't work right.
|
||||
'(custom-safe-themes (quote ("f2acfa2f448218e8868bbb4b914e9f5a8c580e8a33d19809f4a4f32ad306cab5" "9df3b76bdd78c0209521b4e0374dcbdd4f2c8cd40ca00fedcd499e53630c646b" "6ca7862869dcbf7079ab507dbceb37e42e71fe7dd4b83f994de9b42037436bf2" "7a3b1a9661a271313a71a5177f31f344f533cab4c68c47985571d28b8f320769" "9370aeac615012366188359cb05011aea721c73e1cb194798bc18576025cabeb" default))))
|
||||
(custom-set-faces
|
||||
;; custom-set-faces was added by Custom.
|
||||
;; If you edit it by hand, you could mess it up, so be careful.
|
||||
;; Your init file should contain only one such instance.
|
||||
;; If there is more than one, they won't work right.
|
||||
)
|
||||
(defun require-package (package)
|
||||
(setq-default highlight-tabs t)
|
||||
"Install given PACKAGE."
|
||||
(unless (package-installed-p package)
|
||||
(unless (assoc package package-archive-contents)
|
||||
(package-refresh-contents))))
|
||||
|
|
|
|||
|
|
@ -1,20 +0,0 @@
|
|||
#!/bin/bash
|
||||
|
||||
if [[ ! -e ~/.cask ]]
|
||||
then
|
||||
echo "Cloning Cask repo"
|
||||
git clone git@github.com:cask/cask.git ~/.cask
|
||||
fi
|
||||
|
||||
if [[ $(grep "cask/bin" ~/.bash_profile) == "" ]]
|
||||
then
|
||||
echo "Adding \$HOME/.cask/bin to \$PATH in ~/.bash_profile"
|
||||
echo '' >> ~/.bash_profile
|
||||
echo "# Added by ~/.emacs.d/install.sh" >> ~/.bash_profile
|
||||
echo "export PATH=\$HOME/.cask/bin:\$PATH" >> ~/.bash_profile
|
||||
fi
|
||||
|
||||
export PATH=$HOME/.cask/bin:$PATH
|
||||
|
||||
cd ~/.emacs.d
|
||||
cask install
|
||||
|
|
@ -1,28 +0,0 @@
|
|||
;;; zenburn-theme-autoloads.el --- automatically extracted autoloads
|
||||
;;
|
||||
;;; Code:
|
||||
|
||||
|
||||
;;;### (autoloads nil "zenburn-theme" "zenburn-theme.el" (21208 56234
|
||||
;;;;;; 19803 585000))
|
||||
;;; Generated autoloads from zenburn-theme.el
|
||||
|
||||
(and load-file-name (boundp 'custom-theme-load-path) (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name))))
|
||||
|
||||
(add-to-list 'safe-local-eval-forms '(when (require 'rainbow-mode nil t) (rainbow-mode 1)))
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil nil ("zenburn-theme-pkg.el") (21208 56234 81574
|
||||
;;;;;; 838000))
|
||||
|
||||
;;;***
|
||||
|
||||
(provide 'barak-theme-autoloads)
|
||||
;; Local Variables:
|
||||
;; version-control: never
|
||||
;; no-byte-compile: t
|
||||
;; no-update-autoloads: t
|
||||
;; coding: utf-8
|
||||
;; End:
|
||||
;;; zenburn-theme-autoloads.el ends here
|
||||
File diff suppressed because it is too large
Load diff
|
|
@ -1,245 +0,0 @@
|
|||
;;; Code:
|
||||
|
||||
(deftheme barak "Barak's Theme")
|
||||
|
||||
;;; Color Palette
|
||||
|
||||
(defvar zenburn-colors-alist
|
||||
'(("zenburn-fg+1" . "#FFFFEF")
|
||||
("zenburn-fg" . "#DCDCCC")
|
||||
("zenburn-fg-1" . "#656555")
|
||||
("zenburn-bg-2" . "#000000")
|
||||
("zenburn-bg-1" . "#2B2B2B")
|
||||
("zenburn-bg-05" . "#383838")
|
||||
("zenburn-bg" . "#3F3F3F")
|
||||
("zenburn-bg+1" . "#4F4F4F")
|
||||
("zenburn-bg+2" . "#5F5F5F")
|
||||
("zenburn-bg+3" . "#6F6F6F")
|
||||
("zenburn-red+1" . "#DCA3A3")
|
||||
("zenburn-red" . "#CC9393")
|
||||
("zenburn-red-1" . "#BC8383")
|
||||
("zenburn-red-2" . "#AC7373")
|
||||
("zenburn-red-3" . "#9C6363")
|
||||
("zenburn-red-4" . "#8C5353")
|
||||
("zenburn-orange" . "#DFAF8F")
|
||||
("zenburn-yellow" . "#F0DFAF")
|
||||
("zenburn-yellow-1" . "#E0CF9F")
|
||||
("zenburn-yellow-2" . "#D0BF8F")
|
||||
("zenburn-green-1" . "#5F7F5F")
|
||||
("zenburn-green" . "#7F9F7F")
|
||||
("zenburn-green+1" . "#8FB28F")
|
||||
("zenburn-green+2" . "#9FC59F")
|
||||
("zenburn-green+3" . "#AFD8AF")
|
||||
("zenburn-green+4" . "#BFEBBF")
|
||||
("zenburn-cyan" . "#93E0E3")
|
||||
("zenburn-blue+1" . "#94BFF3")
|
||||
("zenburn-blue" . "#8CD0D3")
|
||||
("zenburn-blue-1" . "#7CB8BB")
|
||||
("zenburn-blue-2" . "#6CA0A3")
|
||||
("zenburn-blue-3" . "#5C888B")
|
||||
("zenburn-blue-4" . "#4C7073")
|
||||
("zenburn-blue-5" . "#366060")
|
||||
("zenburn-magenta" . "#DC8CC3")))
|
||||
|
||||
(defvar barak-colors-alist
|
||||
'(("background" . "#000000")
|
||||
("cursor" . "#A7A7A7")
|
||||
("fg-default" . "#E0E0E0")
|
||||
("mouse" . "sienna1")
|
||||
("comment" . "#238E23")
|
||||
("constant" . "#E3AC3D")
|
||||
("docstring" . "DarkOrange")
|
||||
("zenburn-fg+1" . "#FFFFEF")
|
||||
("zenburn-fg" . "#DCDCCC")
|
||||
("zenburn-fg-1" . "#656555")
|
||||
("zenburn-bg-2" . "#000000")
|
||||
("zenburn-bg-1" . "#2B2B2B")
|
||||
("zenburn-bg-05" . "#383838")
|
||||
("zenburn-bg" . "#3F3F3F")
|
||||
("zenburn-bg+1" . "#4F4F4F")
|
||||
("zenburn-bg+2" . "#5F5F5F")
|
||||
("zenburn-bg+3" . "#6F6F6F")
|
||||
("zenburn-red+1" . "#DCA3A3")
|
||||
("zenburn-red" . "#CC9393")
|
||||
("zenburn-red-1" . "#BC8383")
|
||||
("zenburn-red-2" . "#AC7373")
|
||||
("zenburn-red-3" . "#9C6363")
|
||||
("zenburn-red-4" . "#8C5353")
|
||||
("zenburn-orange" . "#DFAF8F")
|
||||
("zenburn-yellow" . "#F0DFAF")
|
||||
("zenburn-yellow-1" . "#E0CF9F")
|
||||
("zenburn-yellow-2" . "#D0BF8F")
|
||||
("zenburn-green-1" . "#5F7F5F")
|
||||
("zenburn-green" . "#7F9F7F")
|
||||
("zenburn-green+1" . "#8FB28F")
|
||||
("zenburn-green+2" . "#9FC59F")
|
||||
("zenburn-green+3" . "#AFD8AF")
|
||||
("zenburn-green+4" . "#BFEBBF")
|
||||
("zenburn-cyan" . "#93E0E3")
|
||||
("zenburn-blue+1" . "#94BFF3")
|
||||
("zenburn-blue" . "#8CD0D3")
|
||||
("zenburn-blue-1" . "#7CB8BB")
|
||||
("zenburn-blue-2" . "#6CA0A3")
|
||||
("zenburn-blue-3" . "#5C888B")
|
||||
("zenburn-blue-4" . "#4C7073")
|
||||
("zenburn-blue-5" . "#366060")
|
||||
("zenburn-magenta" . "#DC8CC3"))
|
||||
"List of Zenburn colors.
|
||||
Each element has the form (NAME . HEX).")
|
||||
|
||||
|
||||
(defmacro barak-with-color-variables (&rest body)
|
||||
"`let' bind all colors defined in `zenburn-colors-alist' around BODY.
|
||||
Also bind `class' to ((class color) (min-colors 89))."
|
||||
(declare (indent 0))
|
||||
`(let ((class '((class color) (min-colors 89)))
|
||||
,@(mapcar (lambda (cons)
|
||||
(list (intern (car cons)) (cdr cons)))
|
||||
barak-colors-alist))
|
||||
,@body))
|
||||
|
||||
(defmacro zenburn-with-color-variables (&rest body)
|
||||
"`let' bind all colors defined in `zenburn-colors-alist' around BODY.
|
||||
Also bind `class' to ((class color) (min-colors 89))."
|
||||
(declare (indent 0))
|
||||
`(let ((class '((class color) (min-colors 89)))
|
||||
,@(mapcar (lambda (cons)
|
||||
(list (intern (car cons)) (cdr cons)))
|
||||
zenburn-colors-alist))
|
||||
,@body))
|
||||
|
||||
;;; Theme Faces
|
||||
(barak-with-color-variables
|
||||
(custom-theme-set-faces
|
||||
'barak
|
||||
;;;; Built-in
|
||||
;;;;; basic coloring
|
||||
'(button ((t (:underline t))))
|
||||
`(link ((t (:foreground ,zenburn-yellow :underline t :weight bold))))
|
||||
`(link-visited ((t (:foreground ,zenburn-yellow-2 :underline t :weight normal))))
|
||||
`(default ((t (:foreground ,fg-default :background ,background))))
|
||||
`(cursor ((t (:foreground ,cursor :background ,zenburn-fg+1))))
|
||||
`(blue ((t (:foreground "blue"))))
|
||||
`(bold ((t (:bold t))))
|
||||
`(bold-italic ((t (:bold t))))
|
||||
`(border-glyph ((t (nil))))
|
||||
`(buffers-tab ((t (:background "#121212" :foreground "#E0E0E0"))))
|
||||
`(font-lock-builtin-face ((t (:foreground "#E0E0E0"))))
|
||||
`(font-lock-comment-face ((t (:foreground "#238E23"))))
|
||||
`(font-lock-constant-face ((t (:foreground "#E3AC3D"))))
|
||||
`(font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
|
||||
`(font-lock-function-name-face ((t (:foreground "#C5A6FF"))))
|
||||
`(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"))))
|
||||
`(font-lock-warning-face ((t (:bold t :foreground "Pink"))))
|
||||
`(gui-element ((t (:background "#D4D0C8" :foreground "black"))))
|
||||
`(region ((t (:background "#364458"))))
|
||||
`(mode-line ((t (:background "grey75" :foreground "black"))))
|
||||
`(highlight ((t (:background "#222222"))))
|
||||
`(highline-face ((t (:background "SeaGreen"))))
|
||||
`(italic ((t (nil))))
|
||||
`(left-margin ((t (nil))))
|
||||
;`(text-cursor ((t (:background "yellow" :foreground "black"))))
|
||||
`(toolbar ((t (nil))))
|
||||
`(tabbar-default ((t (:background "black" :foreground "grey75"))))
|
||||
`(tabbar-selected ((t (:background "grey75" :foreground "black"))))
|
||||
`(tabbar-highlight ((t (:bold t))))
|
||||
`(underline ((nil (:underline nil))))
|
||||
))
|
||||
|
||||
;;; Theme Variables
|
||||
(zenburn-with-color-variables
|
||||
(custom-theme-set-variables
|
||||
'barak
|
||||
;;;;; ansi-color
|
||||
`(ansi-color-names-vector [,zenburn-bg ,zenburn-red ,zenburn-green ,zenburn-yellow
|
||||
,zenburn-blue ,zenburn-magenta ,zenburn-cyan ,zenburn-fg])
|
||||
;;;;; fill-column-indicator
|
||||
`(fci-rule-color ,zenburn-bg-05)
|
||||
;;;;; vc-annotate
|
||||
`(vc-annotate-color-map
|
||||
'(( 20. . ,zenburn-red-1)
|
||||
( 40. . ,zenburn-red)
|
||||
( 60. . ,zenburn-orange)
|
||||
( 80. . ,zenburn-yellow-2)
|
||||
(100. . ,zenburn-yellow-1)
|
||||
(120. . ,zenburn-yellow)
|
||||
(140. . ,zenburn-green-1)
|
||||
(160. . ,zenburn-green)
|
||||
(180. . ,zenburn-green+1)
|
||||
(200. . ,zenburn-green+2)
|
||||
(220. . ,zenburn-green+3)
|
||||
(240. . ,zenburn-green+4)
|
||||
(260. . ,zenburn-cyan)
|
||||
(280. . ,zenburn-blue-2)
|
||||
(300. . ,zenburn-blue-1)
|
||||
(320. . ,zenburn-blue)
|
||||
(340. . ,zenburn-blue+1)
|
||||
(360. . ,zenburn-magenta)))
|
||||
`(vc-annotate-very-old-color ,zenburn-magenta)
|
||||
`(vc-annotate-background ,zenburn-bg-1)
|
||||
))
|
||||
|
||||
;;; Rainbow Support
|
||||
|
||||
(declare-function rainbow-mode 'rainbow-mode)
|
||||
(declare-function rainbow-colorize-by-assoc 'rainbow-mode)
|
||||
|
||||
(defvar barak-add-font-lock-keywords nil
|
||||
"Whether to add font-lock keywords for zenburn color names.
|
||||
In buffers visiting library `zenburn-theme.el' the zenburn
|
||||
specific keywords are always added. In all other Emacs-Lisp
|
||||
buffers this variable controls whether this should be done.
|
||||
This requires library `rainbow-mode'.")
|
||||
|
||||
(defvar barak-colors-font-lock-keywords nil)
|
||||
|
||||
;; (defadvice rainbow-turn-on (after zenburn activate)
|
||||
;; "Maybe also add font-lock keywords for zenburn colors."
|
||||
;; (when (and (derived-mode-p 'emacs-lisp-mode)
|
||||
;; (or zenburn-add-font-lock-keywords
|
||||
;; (equal (file-name-nondirectory (buffer-file-name))
|
||||
;; "zenburn-theme.el")))
|
||||
;; (unless zenburn-colors-font-lock-keywords
|
||||
;; (setq zenburn-colors-font-lock-keywords
|
||||
;; `((,(regexp-opt (mapcar 'car zenburn-colors-alist) 'words)
|
||||
;; (0 (rainbow-colorize-by-assoc zenburn-colors-alist))))))
|
||||
;; (font-lock-add-keywords nil zenburn-colors-font-lock-keywords)))
|
||||
|
||||
;; (defadvice rainbow-turn-off (after zenburn activate)
|
||||
;; "Also remove font-lock keywords for zenburn colors."
|
||||
;; (font-lock-remove-keywords nil zenburn-colors-font-lock-keywords))
|
||||
|
||||
;;; Footer
|
||||
|
||||
;;;###autoload
|
||||
(and load-file-name
|
||||
(boundp 'custom-theme-load-path)
|
||||
(add-to-list 'custom-theme-load-path
|
||||
(file-name-as-directory
|
||||
(file-name-directory load-file-name))))
|
||||
|
||||
(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")))))))))
|
||||
|
||||
(provide-theme 'barak)
|
||||
|
||||
;;;###autoload
|
||||
(add-to-list 'safe-local-eval-forms
|
||||
'(when (require 'rainbow-mode nil t) (rainbow-mode 1)))
|
||||
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
;; indent-tabs-mode: nil
|
||||
;; eval: (when (require 'rainbow-mode nil t) (rainbow-mode 1))
|
||||
;; End:
|
||||
Loading…
Add table
Add a link
Reference in a new issue