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

Remove prettify-utils dependency

Browse source
This commit is contained in:
Henrik Lissner 2018-06-17 18:22:18 +02:00
parent 6490c4b922
commit 6b73f408aa
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/ui/pretty-code/autoload.el
View file

@ -282,6 +282,15 @@ Use the :iosevka property to enable (or disable) it regardless.")
("<+>" . #Xe1cb)
("+>" . #Xe1cc)))))
(defun +pretty-code--icon-to-char (l)
"Borrowed from `prettify-utils'."
(let ((glue '(Br . Bl))
(head (car l))
(tail (cdr l)))
(cond ((not (consp l)) '())
((not (consp tail)) (list head))
((cons head (cons nil (+pretty-code--icon-to-char tail)))))))
;;;###autodef
(defun set-pretty-symbols! (modes &rest plist)
"Associates string patterns with icons in certain major-modes.
@ -329,7 +338,7 @@ assicated with :lambda in `+pretty-code-symbols'."
(let ((prop (car plist))
(sym (cadr plist)))
(when-let* ((icon (plist-get +pretty-code-symbols prop)))
(push (cons sym (prettify-utils-string icon))
(push (cons sym (+pretty-code--icon-to-char (append icon nil)))
results))
(setq plist (cddr plist))))
(setq prettify-symbols-alist (append results prettify-symbols-alist))))