Update journal and index.org

org/index.org

@@ -2,17 +2,37 @@
 * Hello There!
 Welcome to my website! I'm [[./about.org][akk0]]. I blog about Emacs, programming, meditation, otaku stuff, and other things that interest me. You can view the full list of pages on the [[./sitemap.org][sitemap]].
 
-This site launched recently and is still under construction; please pardon the dust! I /sometimes/ maintain a [[./projects/blog.org][+somewhat up-to-date+ mostly out-of-date TO-DO list]]; don't hestitate to reach out to me through the email address in the footer for feedback or feature suggestions ^^".
+This site launched recently and is still under construction; please pardon the dust! Don't hestitate to reach out to me through the email address in the footer for feedback or feature suggestions ^^".
 
-Here's this week's [[./journal/w46-2025.org][journal]]!
+Here's a short /Best Of/:
+- [[./source.org][source.org]], the literate sources and documentation for this website;
+- My retrospective on [[./events/premier_impact.org][Premier Impact]], a music event I co-organized.
+
+Here's this week's [[./journal/w47-2025.org][journal]]!
 
 ** /Pro Tips/
 - You can fold and unfold sections by clicking the headline. Try it!
-- Click on any cell with a dotted outline in the habit tracker to see my journal entry for it. The currently selected cell will be highlighted in pink.
+- Click on any cell with a dotted outline in the habit tracker to see my journal entry for it. The currently selected cell will be highlighted with a solid line.
 
 ** Habits
-#+BEGIN_CENTER
-/Today is Thursday, 20th November./
-#+END_CENTER
+#+BEGIN_SRC emacs-lisp :results value html :exports results
+(defun format-date-with-ordinal ()
+  "Format today's date as 'Thursday, November 20th'."
+  (let* ((day (string-to-number (format-time-string "%d")))
+         (suffix (cond
+                  ((and (>= (mod day 100) 11) (<= (mod day 100) 13)) "th")
+                  ((= (mod day 10) 1) "st")
+                  ((= (mod day 10) 2) "nd")
+                  ((= (mod day 10) 3) "rd")
+                  (t "th"))))
+    (format "%s, %s %d%s"
+            (format-time-string "%A")    ; Day of week
+            (format-time-string "%B")    ; Month name
+            day                           ; Day number
+            suffix)))                     ; Ordinal suffix
+
+(format "<div class='center'><i>Today is %s.</i></div>"
+ (format-date-with-ordinal))
+#+END_SRC
 
 #+CALL: source.org:habit-tracker() :results value html :exports results