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

nothing rhymes with orange 0.1

Browse Source
This commit is contained in:
Iñaki
2016-09-13 17:18:01 +02:00
parent 7cde9fa22c
commit 9fe494756f
4 changed files with 348 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
my-modeline.el
View File

@@ -20,25 +20,6 @@
(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)))