From ed01ab0f19ab53a036dbf739e1e60d651551f202 Mon Sep 17 00:00:00 2001 From: syl20bnr Date: Sat, 4 Oct 2014 20:40:10 -0400 Subject: [PATCH] Display the range mode in ahs micro-state ahs = auto-highlight-symbol --- spacemacs/extensions.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/spacemacs/extensions.el b/spacemacs/extensions.el index b817e4d5d..2f5723000 100644 --- a/spacemacs/extensions.el +++ b/spacemacs/extensions.el @@ -95,12 +95,16 @@ ;; date values (redisplay)) (let* ((st (ahs-stat)) + (plighter (ahs-current-plugin-prop 'lighter)) + (plugin (format "<%s>" (cond ((string= plighter "HS") "D") + ((string= plighter "HSA") "B") + ((string= plighter "HSD") "F")))) (x/y (format "[%s/%s]" (- overlay-count i) overlay-count)) (propx/y (propertize x/y 'face ahs-plugin-whole-buffer-face)) (hidden (if (< 0 (- overlay-count (nth 4 st))) "*" "")) (prophidden (propertize hidden 'face '(:weight bold)))) - (message "%s%s press (n) or (N) to navigate, (h) for home symbol, (c) to change scope" - propx/y prophidden)))))))) + (message "%s %s%s press (n) or (N) to navigate, (h) for home symbol, (c) to change scope" + plugin propx/y prophidden)))))))) (defun spacemacs/init-centered-cursor () (use-package centered-cursor-mode