emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ui/doom-modeline: silent xpm errors in tty emacs

Browse source
This commit is contained in:
Henrik Lissner 2018-01-31 05:00:08 -05:00
parent c97c460ce2
commit 6b453962d7
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 20 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

3
modules/ui/doom-modeline/config.el
View file

@ -180,6 +180,7 @@ active."
(let ((data (make-list (or height +doom-modeline-height) (let ((data (make-list (or height +doom-modeline-height)
(make-list (or width +doom-modeline-bar-width) 1))) (make-list (or width +doom-modeline-bar-width) 1)))
(color (or (face-background face nil t) "None"))) (color (or (face-background face nil t) "None")))
(ignore-errors
(create-image (create-image
(concat (concat
(format "/* XPM */\nstatic char * percent[] = {\n\"%i %i 2 1\",\n\". c %s\",\n\" c %s\"," (format "/* XPM */\nstatic char * percent[] = {\n\"%i %i 2 1\",\n\". c %s\",\n\" c %s\","
@ -198,7 +199,7 @@ active."
if (= d 0) collect (string-to-char " ") if (= d 0) collect (string-to-char " ")
else collect (string-to-char ".")) else collect (string-to-char "."))
(if (eq idx len) "\"};" "\",\n"))))) (if (eq idx len) "\"};" "\",\n")))))
'xpm t :ascent 'center)))) 'xpm t :ascent 'center)))))
(defun +doom-modeline-buffer-file-name () (defun +doom-modeline-buffer-file-name ()
"Propertized `buffer-file-name' based on `+doom-modeline-buffer-file-name-style'." "Propertized `buffer-file-name' based on `+doom-modeline-buffer-file-name-style'."