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) (width (apply '+ (window-width)
(let ((m (window-margins))) (let ((m (window-margins)))
(list (or (car m) 0) (or (cdr m) 0))))) (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 "")) (when (> total-length width) (setq left "" right ""))
(let* ((left-space (/ (- width (length center)) 2)) (let* ((left-space (/ (- width (length center)) 2))
(right-space (- width left-space (length center))) (right-space (- width left-space (length center)))
(lspaces (max (- left-space (length left)) 1)) (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) (concat left (make-string lspaces ?\s)
center center
(make-string rspaces ?\s) (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 () (defun custom-modeline-mode-icon ()
(let ((icon (all-the-icons-icon-for-buffer))) (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" (format " %s"
(propertize (propertize
icon ""
'face '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)))))) 'display '(raise 0.0))))))
(defun line-count-line () (defun line-count-line ()