From 4503f441cd762a29c6fea7f93c004c26480ab3ac Mon Sep 17 00:00:00 2001 From: MitchMarq42 Date: Mon, 26 Sep 2022 13:01:11 -0800 Subject: [PATCH] Automatic date entry actually works and doesn't not work --- README.org | 2 ++ lisp/mitch-orgstuff.el | 8 +++++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/README.org b/README.org index 9cb933d..6e6848e 100644 --- a/README.org +++ b/README.org @@ -14,3 +14,5 @@ There are a few things to immediately note: - The theme is my own. Every existing emacs (and vim, for that matter) colorscheme/theme is washed-in and gray-on-gray. Doom, spacemacs, solarized, nord, dracula, or any other name-able theme. Also, any "new and exciting" theme you see on Reddit will be the same. This infuriated me to no end, so in the early days of my nvim tweaking I pulled the most unique and contrastful theme I could find. It was called "sv" and it was hacked up by some guy on github once and then forgotten (https://github.com/alexkh/vimcolors). So I extended it for nvim, then recreated it in emacs with the aid of [[https://github.com/jasonm23/autothemer][autothemer]] (which you can find at [[.config/emacs/lisp/mitch-theme.el][.config/emacs/lisp/mitch-theme.el]]). - Typing ~qq~ will change your input method. This is sort-of a built-in feature, but the default trigger is to type ~C-\~, which is annoying to press. The ~qq~ behavior is built into Japanese-mode specifically and normally toggles in and out of ~japanese-ascii~, which is literally just normal text except ~qq~ switches back to Japanese. +* 2022-09-26 12:57 pm +This is the time of day that I wrote the thing that creates the above heading now. It works it works it works... diff --git a/lisp/mitch-orgstuff.el b/lisp/mitch-orgstuff.el index a448483..476268b 100644 --- a/lisp/mitch-orgstuff.el +++ b/lisp/mitch-orgstuff.el @@ -77,9 +77,11 @@ "Insert the current date and time in my preffered format, with a newline at the end." (interactive) - (insert - (format "%s %s\n" (calendar-date-string (calendar-current-date)) - (format-time-string "%-l:%M %p")))) + (let ((calendar-date-display-form calendar-iso-date-display-form)) + (insert + (downcase + (format "%s %s\n" (calendar-date-string (calendar-current-date)) + (format-time-string "%-l:%M %p")))))) (defun mitch-1st-heading-now () "Insert a brand new 2nd level Org heading containing the current date/time. Start insert mode."