diff --git a/lisp/mitch-orgstuff.el b/lisp/mitch-orgstuff.el index fe2b914..0485c7a 100644 --- a/lisp/mitch-orgstuff.el +++ b/lisp/mitch-orgstuff.el @@ -72,24 +72,6 @@ ;; (add-to-list 'auto-mode-alist `(,org-wiki-regex . org-vw-mode)) (add-hook 'org-mode-hook #'org-vw-mode) -(defun mitch-insert-current-datetime () - "Insert the current date and time in my preffered format, with a newline at -the end." - (interactive) - (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." - (interactive) - (goto-char (point-max)) - (insert "* ") - (mitch-insert-current-datetime) - (evil-insert 1)) - ;; ------------------ ABANDON ALL SANITY, YE WHO ENTER HERE -------------------- (defvar mitch/org-dwim-char-chars '("_" "/" "*" "+" "~" "=")) diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el index 9a21d60..da7995a 100644 --- a/lisp/mitch-packages.el +++ b/lisp/mitch-packages.el @@ -612,6 +612,24 @@ targets." font-lock-doc-markup-face)))) (add-hook 'org-mode-hook #'mitch/org-grayify-stars 90) + (defun mitch-insert-current-datetime () + "Insert the current date and time in my preffered format, with a newline at +the end." + (interactive) + (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." + (interactive) + (goto-char (point-max)) + (insert "* ") + (mitch-insert-current-datetime) + (evil-insert 1)) + :hook (org-mode . turn-off-line-numbers) ;; (org-mode . org-vw-mode)