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

finally fix modeline mode icon bug

Browse Source
This commit is contained in:
Iñaki Domínguez
2017-01-12 23:51:23 +01:00
parent 39e805f587
commit 99ca0d9225
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
my-modeline.el
View File

@@ -51,12 +51,12 @@ can be used to add a number of spaces to the front and back of the string."
(width (apply '+ (window-width)
(let ((m (window-margins)))
(list (or (car m) 0) (or (cdr m) 0)))))
(total-length (+ (length left) (length center) (length right) 2)))
(total-length (+ (length left) (length center) (length right) 0)))
(when (> total-length width) (setq left "" right ""))
(let* ((left-space (/ (- width (length center)) 2))
(right-space (- width left-space (length center)))
(lspaces (max (- left-space (length left)) 1))
(rspaces (max (- right-space (length right)) 1 0)))
(rspaces (max (- right-space (length right)) 0)))
(concat left (make-string lspaces ?\s)
center
(make-string rspaces ?\s)
@@ -106,12 +106,18 @@ can be used to add a number of spaces to the front and back of the string."
(defun custom-modeline-mode-icon ()
(let ((icon (all-the-icons-icon-for-buffer)))
(unless (symbolp icon) ;; This implies it's the major mode
(if (not (symbolp icon)) ;; This implies it's the major mode
(format " %s"
(propertize
icon
'face
`(:height 1.0 :family ,(all-the-icons-icon-family-for-buffer))
'display '(raise 0.0)))
(format " %s"
(propertize
icon
""
'face
`(:height 1.0 :family ,(all-the-icons-icon-family-for-buffer))
`(:height 1.0 :family ,(all-the-icons-faicon-family))
'display '(raise 0.0))))))
(defun line-count-line ()