Ellipsis fix and why can’t I display habits on my phone?

config.org

@@ -657,8 +657,8 @@ Set the files to be included.
 #+BEGIN_SRC emacs-lisp
   (if (string-equal system-type "android")
       (if workhours
-          (setq org-agenda-files '("/storage/emulated/0/Documents/org/calendar/admin.org" "/storage/emulated/0/Documents/org/calendar/music.org" "/storage/emulated/0/Documents/org/calendar/work.org"))
-        (setq org-agenda-files '("/storage/emulated/0/Documents/org/calendar/admin.org" "/storage/emulated/0/Documents/org/calendar/music.org" "/storage/emulated/0/Documents/org/calendar/personal.org")))
+          (setq org-agenda-files '("/storage/emulated/0/Documents/org/calendar/admin.org" "/storage/emulated/0/Documents/org/calendar/music.org" "/storage/emulated/0/Documents/org/calendar/work.org" "/storage/emulated/0/Documents/org/calendar/acwri.org"))
+        (setq org-agenda-files '("/storage/emulated/0/Documents/org/calendar/admin.org" "/storage/emulated/0/Documents/org/calendar/music.org" "/storage/emulated/0/Documents/org/calendar/personal.org" "/storage/emulated/0/Documents/org/calendar/habit.org")))
     (progn
       (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/music.org")
       (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/admin.org")
@@ -711,9 +711,8 @@ Use a horizontal line to divide each day from the next.
 Set up habit display.
 
 #+BEGIN_SRC emacs-lisp
-  (unless (string-equal system-type "android")
-    (add-to-list 'org-modules 'org-habit t)
-    (setq org-habit-show-all-today t))
+  (add-to-list 'org-modules 'org-habit t)
+  (setq org-habit-show-all-today t)
 #+END_SRC
 ** =paren=
 

custom/dwpost.el

@@ -120,7 +120,7 @@
       (goto-char (point-min))
       (re-search-forward "RECUR dw posts")
       (org-shiftright)
-      (sleep-for 4)
+      (sleep-for 1)
       (save-buffer))))
 
 (unless (string-equal system-type "android")

custom/org-format.el

@@ -15,7 +15,7 @@
     (replace-match "…"))
   (goto-char (point-min))
   (while (re-search-forward "…" nil t)
-    (replace-match " … "))
+    (replace-match " …"))
   (goto-char (point-min))
   (while (re-search-forward "  …" nil t)
     (replace-match " …"))
@@ -23,6 +23,9 @@
   (while (re-search-forward "  +…" nil t)
     (replace-match " …"))
   (goto-char (point-min))
+  (while (re-search-forward "…\\([a-z]\\)" nil t)
+    (replace-match "… \\1"))
+  (goto-char (point-min))
   (while (re-search-forward "'" nil t)
     (replace-match "’"))
   (goto-char (point-min))