daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

treemacs update

Browse Source
This commit is contained in:
Daniel Weschke
2022-12-29 12:40:49 +01:00
parent 4fe9a6b7e1
commit d95f45d049
10 changed files with 1599 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/treemacs/treemacs-rendering.el
View File

@@ -468,13 +468,14 @@ set to PARENT."
(treemacs-dom-node->insert-into-dom! it))
(treemacs--inplace-map-when-unrolled dir-strings 2
(-if-let (ann (treemacs-get-annotation (concat ,root "/" it)))
(-if-let* ((ann (treemacs-get-annotation (concat ,root "/" it)))
(face (treemacs-annotation->face-value ann)))
(progn
(put-text-property
0
(length it)
'face
(treemacs-annotation->face-value ann)
face
it)
(concat it (treemacs-annotation->suffix-value ann)))
(put-text-property
@@ -489,13 +490,14 @@ set to PARENT."
(end-of-line)
(setf file-strings
(treemacs--inplace-map-when-unrolled file-strings 3
(-if-let (ann (treemacs-get-annotation (concat ,root "/" it)))
(-if-let* ((ann (treemacs-get-annotation (concat ,root "/" it)))
(face (treemacs-annotation->face-value ann)))
(progn
(put-text-property
0
(length it)
'face
(treemacs-annotation->face-value ann)
face
it)
(concat it (treemacs-annotation->suffix-value ann)))
(put-text-property