|
153 | 153 | ;; (@* "Util" ) |
154 | 154 | ;; |
155 | 155 |
|
156 | | -(defun jcs-modeline-2str (obj) |
157 | | - "Convert OBJ to string." |
158 | | - (format "%s" obj)) |
159 | | - |
160 | 156 | (defvar jcs-modeline--char-displayable-cache (make-hash-table :test 'equal) |
161 | 157 | "Cache the displable character.") |
162 | 158 |
|
@@ -355,7 +351,7 @@ mouse-1: Toggle display of major mode name" |
355 | 351 | 'mouse-face 'mode-line-highlight |
356 | 352 | 'help-echo "Column")) |
357 | 353 | (ind-point (concat "(" |
358 | | - (propertize (jcs-modeline-2str (point)) |
| 354 | + (propertize (elenv-2str (point)) |
359 | 355 | 'mouse-face 'mode-line-highlight |
360 | 356 | 'help-echo "Point") |
361 | 357 | ")")) |
@@ -462,7 +458,7 @@ mouse-1: Switch project" |
462 | 458 | (not (string-empty-p backend-icon))) |
463 | 459 | " " |
464 | 460 | "")) |
465 | | - (tip (jcs-modeline-2str backend))) |
| 461 | + (tip (elenv-2str backend))) |
466 | 462 | (concat (propertize backend-icon |
467 | 463 | 'mouse-face 'mode-line-highlight |
468 | 464 | 'help-echo tip |
@@ -556,23 +552,23 @@ mouse-1: Switch project" |
556 | 552 | (tree-size (undo-tree-size buffer-undo-tree)) |
557 | 553 | (timestamp (string-trim (undo-tree-timestamp-to-string timestamp)))) |
558 | 554 | (concat " " |
559 | | - (propertize (jcs-modeline-2str tree-height) |
| 555 | + (propertize (elenv-2str tree-height) |
560 | 556 | 'mouse-face 'mode-line-highlight |
561 | 557 | 'help-echo "UndoTree Height") |
562 | 558 | "/" |
563 | | - (propertize (jcs-modeline-2str tree-branch-height) |
| 559 | + (propertize (elenv-2str tree-branch-height) |
564 | 560 | 'mouse-face 'mode-line-highlight |
565 | 561 | 'help-echo "UndoTree Branch Height") |
566 | 562 | "/" |
567 | | - (propertize (jcs-modeline-2str tree-count) |
| 563 | + (propertize (elenv-2str tree-count) |
568 | 564 | 'mouse-face 'mode-line-highlight |
569 | 565 | 'help-echo "UndoTree Count") |
570 | 566 | " (" |
571 | | - (propertize (jcs-modeline-2str tree-size) |
| 567 | + (propertize (elenv-2str tree-size) |
572 | 568 | 'mouse-face 'mode-line-highlight |
573 | 569 | 'help-echo "UndoTree Size") |
574 | 570 | ") " |
575 | | - (propertize (jcs-modeline-2str timestamp) |
| 571 | + (propertize (elenv-2str timestamp) |
576 | 572 | 'mouse-face 'mode-line-highlight |
577 | 573 | 'help-echo "UndoTree Timestamp")))) |
578 | 574 |
|
|
0 commit comments