Improve the display of habits for the current day

global.org

@@ -975,8 +975,9 @@
     Improve the org-habit graph thing
     #+begin_src emacs-lisp
       (setq org-habit-regular-glyph ?□
-            org-habit-today-glyph ?□
-            org-habit-completed-glyph ?▣)
+            org-habit-today-glyph ?
+            org-habit-completed-glyph ?▣
+            org-habit-completed-today-glyph ?)
 
       (defun wilder/org-habit-build-graph (habit starting current ending)
         "Build a graph for the given HABIT, from STARTING to ENDING.
@@ -1054,7 +1055,7 @@
                    markedp face)
               (cond
                (donep
-                (aset graph index org-habit-completed-glyph)
+                (aset graph index (if todayp org-habit-completed-today-glyph org-habit-completed-glyph))
                 (setq markedp t)
                 (while (and done-dates (= start (car done-dates)))
                   (setq last-done-date (car done-dates))