Browse Source

Emacs: Update function name

master
Riyyi 1 year ago
parent
commit
94f59f5b31
  1. 8
      .config/emacs/site-lisp/dot-org-mode.el

8
.config/emacs/site-lisp/dot-org-mode.el

@ -78,8 +78,8 @@ When ANYWHERE is non-nil, search beyond the preamble."
t) t)
(point))))) (point)))))
(defun dot/org-set-file-time-property (property value) (defun dot/org-set-file-property (property value)
"Set the file time PROPERTY in the preamble." "Set the file PROPERTY in the preamble."
(when-let ((pos (dot/org-find-file-property property))) (when-let ((pos (dot/org-find-file-property property)))
(save-excursion (save-excursion
(goto-char pos) (goto-char pos)
@ -92,8 +92,8 @@ When ANYWHERE is non-nil, search beyond the preamble."
(defun dot/org-set-last-modified () (defun dot/org-set-last-modified ()
"Update the LAST_MODIFIED file property in the preamble." "Update the LAST_MODIFIED file property in the preamble."
(when (derived-mode-p 'org-mode) (when (derived-mode-p 'org-mode)
(dot/org-set-file-time-property "LAST_MODIFIED" (dot/org-set-file-property "LAST_MODIFIED"
(format-time-string "[%Y-%m-%d %a %H:%M]"))))))) (format-time-string "[%Y-%m-%d %a %H:%M]")))))))
;; Org agenda. ;; Org agenda.

Loading…
Cancel
Save