Org functions for fast current-date insert
This commit is contained in:
parent
19311193ee
commit
a100cbf42f
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user