bth/um-mode
Watch
1
Fork
You've already forked um-mode
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

um-date-format

Browse source
This commit is contained in:
bth 2025-03-07 23:27:11 -08:00
commit 56ca4c6ad4
1 changed files with 7 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

17
elisp/um.el
View file

@ -40,14 +40,12 @@
(defvar um-journal-path-glob ".*/writing/journal" (defvar um-journal-path-glob ".*/writing/journal"
"Primary path glob for the journal. This allows various mountpoints.") "Primary path glob for the journal. This allows various mountpoints.")
(defvar um-date-format "%Y-%m-%d"
"Format passed to `format-time-string' when creating `um-journal-header'. Defaults to ISO8601.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; journal header ;; journal header
(defun um-iso-8601 ()
"Insert a date stamp in ISO 8601 order, but with periods in place of dashes."
(format-time-string "%Y.%m.%d")
)
;;;###autoload ;;;###autoload
(defun um-journal-header () (defun um-journal-header ()
"Create a header composed of: "Create a header composed of:
@ -56,11 +54,10 @@
: date : date
" "
(interactive) (interactive)
(insert (insert
(format "# %s\n: %s\n\n" (buffer-name) (um-iso-8601)) (format "# %s\n: %s\n\n" (buffer-name) (format-time-string um-date-format))
) ))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; find-file-at-point ;; find-file-at-point