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

Use ellipsis icon for folded text

Browse source
This commit is contained in:
Henrik Lissner 2016-09-30 13:32:53 +02:00
parent 9dbdc0cade
commit ce331d9ac7
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
core/core-editor.el
View file

@ -189,14 +189,17 @@
(setq hs-set-up-overlay (setq hs-set-up-overlay
(lambda (ov) (lambda (ov)
(when (eq 'code (overlay-get ov 'hs)) (when (eq 'code (overlay-get ov 'hs))
(let ((marker-string "*") (let* ((marker-string "*")
(display-string (format " ... " (count-lines (overlay-start ov) (display-string (concat " " (all-the-icons-octicon "ellipsis" :v-adjust 0) " "))
(overlay-end ov))))) (len (length display-string)))
(put-text-property 0 1 'display (put-text-property 0 1 'display
(list 'right-fringe 'hs-marker 'hs-fringe-face) (list 'right-fringe 'hs-marker 'hs-fringe-face)
marker-string) marker-string)
(put-text-property 0 (length display-string) (put-text-property 0 1 'face 'hs-face display-string)
'face 'hs-face display-string) (put-text-property (1- len) len 'face 'hs-face display-string)
(put-text-property 1 (1- len)
'face `(:inherit hs-face :family ,(all-the-icons-octicon-family) :height 1.2)
display-string)
(overlay-put ov 'before-string marker-string) (overlay-put ov 'before-string marker-string)
(overlay-put ov 'display display-string)))))) (overlay-put ov 'display display-string))))))