From 3d332e4503871ce752bd2664d3c151007cafe210 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Thu, 17 Jun 2021 20:04:08 +0200
Subject: [PATCH] - changed three dots with ellipsis.

---
 src/scheduled-events.lisp | 2 +-
 src/text-utils.lisp       | 4 ++--
 src/tui-utils.lisp        | 6 +++---
 src/ui-goodies.lisp       | 2 +-
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/scheduled-events.lisp b/src/scheduled-events.lisp
index c0b9ea1..b8a5f45 100644
--- a/src/scheduled-events.lisp
+++ b/src/scheduled-events.lisp
@@ -44,7 +44,7 @@
   (ui:gemlog-refresh-all))
 
 (gen-scheduler-function (purge-gemlog-entries +purge-gemlog-entries+)
-  (ui:notify (_ "Removing old gemlog posts..."))
+  (ui:notify (_ "Removing old gemlog posts…"))
   (db:purge-seen-gemlog-entries)
   (ui:notify (_ "Removed")))
 
diff --git a/src/text-utils.lisp b/src/text-utils.lisp
index 87dccd6..4bdaf52 100644
--- a/src/text-utils.lisp
+++ b/src/text-utils.lisp
@@ -208,11 +208,11 @@
   (make-string (max 0 (- total-size (length str)))
                :initial-element padding-char))
 
-(defun ellipsize (string len &key (truncate-string "..."))
+(defun ellipsize (string len &key (truncate-string "…"))
   "If 'string''s length is bigger  than 'len', cut the last characters
   out.  Also replaces the last n  characters (where n is the length of
   'truncate-string')     of     the      shortened     string     with
-  'truncate-string'. It  defaults to  \"...\", but can  be nil  or the
+  'truncate-string'. It  defaults to  \"…\", but can  be nil  or the
   empty string."
   (let ((string-len (length string)))
     (cond
diff --git a/src/tui-utils.lisp b/src/tui-utils.lisp
index 2547715..41f0e91 100644
--- a/src/tui-utils.lisp
+++ b/src/tui-utils.lisp
@@ -191,13 +191,13 @@ as argument `complex-string'."
   (:documentation "If `object''s length is bigger  than `len', cut the last characters
   out.  Also replaces the last n  characters (where n is the length of
   `truncate-string')     of     the      shortened     string     with
-  `truncate-string'. It  defaults to  \"...\", but can  be nil  or the
+  `truncate-string'. It  defaults to  \"…\", but can  be nil  or the
   empty string."))
 
-(defmethod text-ellipsis ((object string) len &key (truncate-string "..."))
+(defmethod text-ellipsis ((object string) len &key (truncate-string "…"))
   (ellipsize object len :truncate-string truncate-string))
 
-(defmethod text-ellipsis ((object complex-string) len &key (truncate-string "..."))
+(defmethod text-ellipsis ((object complex-string) len &key (truncate-string "…"))
   (croatoan:text-ellipsize object len :truncate-string truncate-string))
 
 (defgeneric right-pad-text (object total-size &key padding-char)
diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index aa16602..ae87b84 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -1607,7 +1607,7 @@ This command will remove those limits so that we can just jump to the last messa
                             (format nil
                                     (_ "Invalid choices, index choice out of range (max ~a).")
                                     (1- (length options))))
-                           (with-blocking-notify-procedure ((_ "Voting... ")
+                           (with-blocking-notify-procedure ((_ "Voting… ")
                                                             (_ "Choice sent."))
                              (push-event event)))))))))
     (when-let* ((fields (line-oriented-window:selected-row-fields