branch: externals/tmr
commit 3ac3e6293b0de14e77f625125bc84a53a2d32cb0
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>

    Make tmr-mode-line-prefix use an emoji if it can
---
 tmr.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tmr.el b/tmr.el
index 40a72f8968..1d27cffff1 100644
--- a/tmr.el
+++ b/tmr.el
@@ -178,7 +178,11 @@ Longer descriptions will be truncated."
   :package-version '(tmr . "1.2.0")
   :group 'tmr)
 
-(defcustom tmr-mode-line-prefix "⏰"
+(defcustom tmr-mode-line-prefix
+  (cond
+   ((char-displayable-p ?⏰) "⏰")
+   ((char-displayable-p ?∞) "∞")
+   (t "!"))
   "Prefix string displayed before the timer list."
   :type 'string
   :package-version '(tmr . "1.2.0")

Reply via email to