From a100cbf42f55f647540a0023e531b7a267de7cb9 Mon Sep 17 00:00:00 2001
From: MitchMarq42 <dr.m.perseos@gmail.com>
Date: Sat, 24 Sep 2022 19:02:57 -0800
Subject: [PATCH] Org functions for fast current-date insert

---
 lisp/mitch-orgstuff.el | 23 ++++++++++++++++++++---
 lisp/mitch-packages.el |  5 ++++-
 2 files changed, 24 insertions(+), 4 deletions(-)

diff --git a/lisp/mitch-orgstuff.el b/lisp/mitch-orgstuff.el
index 20d017d..14f212c 100644
--- a/lisp/mitch-orgstuff.el
+++ b/lisp/mitch-orgstuff.el
@@ -8,9 +8,9 @@
 ;;; Code:
 
 (defvar org-directory (expand-file-name "org/" "~"))
+(defvar org-agenda-files '("~/org/"))
 (defvar org-vw-dir org-directory) ;; whoops
-(defvar org-wiki-regex
-  (rx (literal org-vw-dir) "/" (regexp ".+") ".org" eol))
+(defvar org-wiki-regex "\\`[^.].*\\.org\\'")
 
 (defun org-vw-get-filename (word)
   "Given WORD, generate the absolute filename for that org-vw entry."
@@ -69,7 +69,24 @@
 ;; Below, I attempt to generalize tangling a whole directory of org files into
 ;; whichever export format, and then apply that.
 
-(require 'ox-hugo)
+;; (require 'ox-hugo)
+
+;; --------- LET THY BRAIN NO LONGER TREMBLE, FOR I AM BECOME COMPLETE ---------
+
+(defun mitch-insert-current-datetime ()
+  "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"))))
+(defun mitch-2nd-heading-now ()
+  "Insert a brand new 2nd level Org heading containing the current date/time.
+Start insert mode."
+  (interactive)
+  (insert "** ")
+  (mitch-insert-current-datetime)
+  (evil-insert 1))
 
 (provide 'mitch-orgstuff)
 ;;; mitch-orgstuff.el ends here
diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el
index 4cbad11..ee024fc 100644
--- a/lisp/mitch-packages.el
+++ b/lisp/mitch-packages.el
@@ -491,7 +491,10 @@ targets."
   (add-hook 'after-save-hook
 	    #'(lambda () (if (equal major-mode 'org-mode)
 			(org-babel-tangle))))
-  :hook (org-mode . turn-off-line-numbers))
+  (require 'mitch-orgstuff)
+  :hook
+  (org-mode . turn-off-line-numbers)
+  (org-mode . org-vw-mode))
 (use-package org-tempo
   :straight (:type built-in)
   :after org