ink/.emacs.d
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

compile on daemon start/terminal theme

Browse Source
This commit is contained in:
Iñaki
2016-09-13 15:36:46 +02:00
parent 14edab9bcf
commit 7cde9fa22c
9 changed files with 138 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
my-modeline.el
View File

@@ -1,10 +1,14 @@
;; change mode-line color by evil state
(eval-when-compile (require 'cl))
(require 'evil)
(require 'magit)
(lexical-let ((default-color (cons (face-background 'mode-line)
(face-foreground 'mode-line))))
(add-hook 'post-command-hook
(lambda ()
(let ((color (cond ((minibufferp) default-color)
((evil-normal-state-p)
'("gray12" . "ivory"))
'("gray17" . "ivory"))
((evil-insert-state-p)
'("firebrick" . "ivory"))
((evil-visual-state-p)
@@ -16,19 +20,38 @@
(t default-color))))
(set-face-background 'mode-line (car color))
(set-face-foreground 'mode-line (cdr color))))))
;; (lexical-let ((default-color (cons
;; (face-background 'mode-line)
;; (face-foreground 'mode-line))))
;; (add-hook 'post-command-hook
;; (lambda ()
;; (let ((color (cond ((minibufferp) default-color)
;; ((evil-normal-state-p)
;; '("gray17" . "ivory"))
;; ((evil-insert-state-p)
;; '("firebrick" . "ivory"))
;; ((evil-visual-state-p)
;; '("DarkSlateGray" . "ivory"))
;; ((evil-emacs-state-p)
;; '("SeaGreen" . "ivory"))
;; ((buffer-modified-p)
;; '("firebrick" . "ivory"))
;; (t default-color))))
;; (set-face-background 'mode-line (car color))
;; (set-face-foreground 'mode-line (cdr color))))))
(defun simple-mode-line-render (left right)
(let* ((available-width (- (window-width) (length left) 2)))
(format (format " %%s %%%ds " available-width) left right)))
(defun evil-mode-state ()
(cond ((evil-normal-state-p) (format "%s " evil-normal-state-tag))
((evil-visual-state-p) (format "%s " evil-visual-state-tag))
((evil-insert-state-p) (format "%s " evil-insert-state-tag))
((evil-emacs-state-p) (format "%s " evil-emacs-state-tag))
((evil-operator-state-p) (format "%s " evil-operator-state-tag))
((evil-motion-state-p) (format "%s " evil-motion-state-tag))
((evil-replace-state-p) (format "%s " evil-replace-state-tag))))
(cond ((evil-normal-state-p) (format "N " ))
((evil-visual-state-p) (format "V " ))
((evil-insert-state-p) (format "I " ))
((evil-emacs-state-p) (format "E " ))
((evil-operator-state-p) (format "O " ))
((evil-motion-state-p) (format "M " ))
((evil-replace-state-p) (format "R " ))))
(defun vc-mode-branch-state ()
(let ((bufname (buffer-file-name (current-buffer))))