39 lines
1.8 KiB
Org Mode
39 lines
1.8 KiB
Org Mode
#+TITLE: Index
|
|
* 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! Don't hestitate to reach out to me through the email address in the footer for feedback or feature suggestions ^^".
|
|
|
|
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/w48-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 with a solid line.
|
|
|
|
** Habits
|
|
#+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
|